DELPHI LISTBOX НЕСКОЛЬКО КОЛОНОК
В Delphi компонент тListBox позволяет выводить список строк. По умолчанию, список представлен в виде одной колонки, однако можно настроить вывод нескольких колонок. Для этого используется свойство Style компонента.
Для вывода списка в несколько колонок необходимо задать стиль lbOwnerDrawFixed либо lbOwnerDrawVariable и настроить обработчик события OnDrawItem, где уже можно производить отрисовку отдельного элемента списка.
Пример кода на Delphi:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);begin //получение текста элемента списка s := ListBox1.Items[Index]; //отрисовка текста в две колонки Canvas.TextRect(Rect, Rect.Left, Rect.Top, s); Canvas.TextRect(Rect, Rect.Left + 150, Rect.Top, s); //150 - ширина первой колонкиend;
В данном примере при отрисовке элемента списка выводится текст в две колонки. Ширина первой колонки задана вручную и равна 150 пикселей, вторая колонка занимает оставшееся пространство в элементе списка.
Rad Studio Delphi 007 ListBox - 003 Items String
Delphi Gesture in ListBox
Rad Studio Delphi 007 ListBox - 002 Index Items
how to add items to listbox in delphi
Rad Studio Delphi 007 ListBox - 009 Icon in Items
Delphi Tlistbox
Delphi 7 Компоненты Listbox и Combobox