| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

CobmoBox

ATLANTIDO ©   (2002-02-14 17:56:00) 

Не подскажите как в каждую строку ComboBox вставить картинки ?

---

ATLANTIDO   (2002-02-17 01:38:00) [1]

Всем большое спасибо !

---

Song   (2002-02-16 15:01:00) [2]

I"m sorry, Canvas.TextOut(Rect.Left+20,Rect.Top+2,Items[Index]);

---

Song   (2002-02-16 15:00:00) [3]

У твоего комбобокса ставишь свойство 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;

---

Satrap   (2002-02-16 10:29:00) [4]

В палитре компонентов Дельфи5 есть закладка Win3.1 На этой закладке есть компонент TDriveComboBox, посмотрите его исходные тексты, обратите внимание на процедуру DrawItem. Удачи.

---

ATLANTIDO   (2002-02-16 00:58:00) [5]

Знаю, знаю, свойство objects ! Так что это такое
я не докопал ! Как мне перед прорисовкой в
каждый objects иконку засунуть (можно маленький
маленький кусочек кода)? Заранее благодарен.

---

Serghei   (2002-02-15 09:06:00) [6]

Stavishi
Style > csOwnerDrawFixed ili Variable i obrabativaieshi
onDrawItem!
Udaci!

---

xim   (2002-02-15 03:45:00) [7]

чем тебя не устраивает tcomboboxEx?

---

Наверх