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

Как можно в KOLListBox и KOLComboBox добавить картинки?   Найти похожие ветки 

← →
Maxim Pushkar   (2003-07-14 23:53) [0]

Нужно в листбоксе и/или комбобоксе показать текстовый список параметров и слева рядом показывать картинкой какое-либо состояние. Как можно такое получить? (желательно как можно проще)

---

← →
SPeller ©   (2003-07-15 04:10) [1]

ListBox - ListView, а вот как в комбобоксе - не знаю.

---

← →
Gandalf ©   (2003-07-15 09:30) [2]

Для комбо можно через DrawItem - рисуй что надо.

---

← →
Maxim Pushkar   (2003-07-15 23:14) [3]

А примеры рисования можно?. Или где хоть почитать можно?

---

← →
Gandalf ©   (2003-07-16 09:28) [4]

Например так:

function TForm1.ComboBox1DrawItem(Sender: PObj; DC: HDC; const Rect: TRect;
 ItemIdx: Integer; DrawAction: TDrawAction;
 ItemState: TDrawState): Boolean;
var
 Ico: Integer;
 cbRect: TRect;
begin
 cbRect := Rect;
 FillRect(DC, cbRect, ComboBox1.Canvas.Brush.Handle);
 cbRect.Left := 20;
 DrawText(DC, PChar(ComboBox1.Items[ItemIdx]{ + D.VolList.Items[ItemIdx]}),
   -1, cbRect, DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX);

 //== Icon 16x16
 if (odsComboboxEdit in ItemState) then
 begin // Edit
   cbRect.Top := 4;
   cbRect.Bottom := 20;
   cbRect.Left := 3;
   cbRect.Right := 19;
 end else
 begin // DropList
   cbRect.Left := 2;
   cbRect.Right := 18;
 end;

 ImageList1.StretchDraw(ItemIdx, DC, cbRect);
end;

---

← →
Maxim Pushkar   (2003-07-16 23:00) [5]

Пасиб. Счас буду пробовать.

---

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

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



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