Форум: "KOL";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
ВнизКак можно в 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 вся ветка
Форум: "KOL";
Текущий архив: 2004.04.04;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.051 c