Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.06;
Скачать: CL | DM;

Вниз

ComboBox с рисунками и проблемами   Найти похожие ветки 

 
Kostik001   (2002-12-22 07:58) [0]

В ComboBox’е вывожу текст и рисунки. Всё нормально выводится, но, при открытии ComboBox’а все рисунки одинаковые, такие как у выбранного Item’a (например: ItemIndex:=2). Когда по всем Item’ам провести мышкой – они меняются и становятся такими, как в ImageList’e. Текст выводится нормально. Как с этим бороться? Привожу код:

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Style:=csOwnerDrawVariable;
ComboBox1.ItemHeight:=17;
ComboBox1.ItemIndex:=2;
end;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with TComboBox(Control),TComboBox(Control).Canvas do
begin
case Index of
0,1: begin
Font.Style:=[fsBold];
Font.Color:=clBlue;
Brush.Color:=$00FFFFCA;
end
else
Font.Style:=[fsUnderline]; // подчёркнут
end;
FillRect(Rect);
TextOut(Rect.Left+25,Rect.Top+2,Items[Index]);
ImageList1.Draw(ComboBox1.Canvas,Rect.Left+5,Rect.Top,ComboBox1.ItemIndex);
end;
end;


 
Song ©   (2002-12-22 10:32) [1]

...
ImageList1.Draw(ComboBox1.Canvas,Rect.Left+5,Rect.Top, Index); // !!!
...

И ещё непонятно зачем ComboBox1.Canvas, если переданный Control уже описан в With т.е. можно просто Canvas




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

Текущий архив: 2003.01.06;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.022 c
1-14996
Cossys
2002-12-23 18:30
2003.01.06
Была форма MDI, стала Нормал...


14-15233
Anatoly Podgoretsky
2002-12-15 22:54
2003.01.06
Именинники 16 декабря


3-14940
HazMat
2002-12-13 10:23
2003.01.06
SQLWNTM.DLL


14-15277
MetalFan
2002-12-17 12:11
2003.01.06
трабл с Памятью)


14-15221
·•·€c€p·•·
2002-12-14 01:29
2003.01.06
Прога!