Форум: "Основная";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Song   (2002-02-16 15:00) [5]

У твоего комбобокса ставишь свойство style на csOwnerDrawFixed и обрабатываешь событие onDrawItem.

Далее запихиваешь все твою икону в TImageList и пишешь:

procedure TForm1.ComboBox2DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
Var BitMap:TBitMap;
begin
With TComboBox(Control) Do
Begin
BitMap:=TBitMap.Create;
try
ImageList1.GetBitMap(0,BitMap);
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2,Rect.Top+2,Items[Index]);
Canvas.Draw(Rect.Left+2,Rect.Top+2,BitMap);
finally
BitMap.Free;
end;
End;
end;

---

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

Форум: "Основная";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c