Скачать: CL | DM;

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 там не нужен откуда взялся непонятно

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c