![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
FileListBox с двумя колонкамиDelphi , Компоненты и Классы , СпискиFileListBox с двумя колонками![]() Автор: Kurt ...как сказал Майкл, вы можете сделать количество колонок > 1. Но, как это имеет место в TDirectoryListBox, колонки перекрывают одна другую. Я действительно не рекомендую это из-за потенциально возможных конфликтов во время изменения шрифта, но вы могли бы сделать по-другому:
Here is the translation of the text into Russian: Код пытается настроить контроль FileListBox для отображения с двумя столбцами. Автор Курт указывает, что хотя можно иметь более одного столбца в FileListBox, по умолчанию поведение TDirectoryListBox (используемое FileListBox) - это перекрытие столбцов. Чтобы обойти эту проблему, код использует функцию Windows API SendMessage для ручного настройки ширины каждого столбца. Функция LB_SETCOLUMNWIDTH используется для указания ширины каждого столбца в пикселях. В этом случае она использует функцию GetTextExtent для расчета ширины строки ('WWWWWWWW.WWW') и затем передает это значение как ширину столбца. Вот разбор, что код делает:
Настраивая ширину столбца вручную таким образом, вы можете создать FileListBox с несколькими столбцами, которые не перекрываются. Однако, как указывает Курт, может возникнуть проблемы при изменении размера шрифта или других факторов, влияющих на отображение контроля. В статье описывается способ настройки FileListBox с двумя колонками в Delphi, включая код на языке Pascal для изменения ширины колонок. Комментарии и вопросыПолучайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
|||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |