Текущий архив: 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.015 c
