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

Реклама
Новое
Реклама