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

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c