Icon в ListBox

← →
Steplerr © (2005-12-21 13:57) [0]

Как мне сделать что бы возле каждого элемента в списке ListBoxa была слева иконка?

← →
REA (2005-12-21 15:15) [1]

Может ListView подойдет?

← →
Steplerr © (2005-12-21 20:36) [2]

Может и подойдёт, но в ListView выстраиваются элементы в строчку, а нужно в столбец.

← →
з. танька (2005-12-21 20:40) [3]

OnDrawItem + F1

← →
Steplerr © (2005-12-21 21:01) [4]

> з. танька (21.12.05 20:40) [3]
>
> OnDrawItem + F1

Думаешь не пробовал?! А чего там писать то?

← →
з. танька (2005-12-21 22:23) [5]

в справке пример шикарный..

вот из свово проекта вытащила может понятней будет:

procedure TfrmSemSeti.lbViewDrawItem(Control: TWinControl; Index: Integer;
Rect1: TRect; State: TOwnerDrawState);
var
OffSet: Integer;
x,y,x1,y1: Integer;
begin
with (Control as TListBox).Canvas do begin
FillRect(Rect1);
Offset := 2;
//выводим картинку
Draw(Rect1.Left, Rect1.Top, Icons[Index]);
//выводим текст
TextOut(Rect1.Left + 34, Rect1.Top + 10, (Control as TListBox).Items[Index]);
end;
end;

← →
з. танька (2005-12-21 22:25) [6]

гм offset там не нужен откуда взялся непонятно

Icon в ListBox Найти похожие ветки