Колонки в TListBox - Вставка символа табуляции

Delphi , Компоненты и Классы , Списки

В книгах и других источниках по Delphi часто приводится пример создания компонента, способного выводить текст в списке в несколько колонок. Между тем, мало кому известен факт, что стандартный компонент TListBox уже содержит свойство, которое позволяет это делать. Это свойство TabWidth (в Delphi 2 оно не описано в файлах помощи, хотя так же присутствует), которое наследуется от класса TCustomListBox и задает величину табуляции в пикселах. Установите его равным, скажем, половине ширины компонента ListBox, чтобы отображалось две колонки. Когда будете добавлять строки, всавьте в нужных местах символ табуляции (^I):

ListBox1.Items.Add('Колонка1'^I'Колонка2');

Недостаток такого подхода заключается в том, что ширина колонки не изменяется авоматически в зависимости от ширины выводимых строк, что, впрочем, легко исправить. Посмотрите на метод TextWidth класса TCanvas. Он возвращает ширину в пикселах передаваемой ему в качестве параметра строки. Тогда перед добавлением каждого нового элемента в список проверяем, превышает ли его ширина ширину колонки:

with ListBox do
begin
  W := Canvas.TextWidth(Str);
  if W > TabWidth then
    TabWidth := W;
end;

Статья Колонки в TListBox - Вставка символа табуляции раздела Компоненты и Классы Списки может быть полезна для разработчиков на delphi & pascal.

Комментарии и вопросы

:: Главная :: Списки ::