Как можно в 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]

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

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

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]

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

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