ComboBox с рисунками и проблемами [D5, Win95/98]
Kostik001 © (2002-12-22 07:58:00)
В 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:00) [1]
...
ImageList1.Draw(ComboBox1.Canvas,Rect.Left+5,Rect.Top,
Index); // !!!
...
И ещё непонятно зачем ComboBox1.Canvas, если переданный
Control уже описан в With т.е. можно просто Canvas
Наверх 
ЧАТ |
Орешник |
|
