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




Вниз

CobmoBox 


ATLANTIDO   (2002-02-14 17:56) [0]

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



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

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



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

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



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

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



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

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



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;



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

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



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

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




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




Наверх





Память: 0.72 MB
Время: 0.025 c
1-9169            Zool                  2002-02-12 17:34  2002.03.04  
Как узнать в каком каталоге находится моя прога?


1-9120            Марина                2002-02-04 16:25  2002.03.04  
MessageDlg


1-9108            Igl                   2002-02-15 21:50  2002.03.04  
Как можно сделать эквалайзер?


1-9151            Tsatur Soft           2002-02-16 23:35  2002.03.04  
Срочно!


14-9287           tovSuhov              2002-01-18 15:45  2002.03.04  
Установил Windows 98 ...