Скачать: CL | DM;

программная перерисовка ComboBox (Style=csOwnerDrawFixed)   Найти похожие ветки 

← →
Light-blr   (2007-02-05 18:13) [0]

Здравствуйте!
Подскажите, пожалуйста, как перерисовать ComboBox с Style=csOwnerDrawFixed, когда меняется надпись (меняю Items как Items[0]:="a";Items[1]:="b" итд). До этого просто записывала в Items строки, они в программе не менялись, и хватало процедуры
procedure THutchStyleForm.CBStyleDrawItem(Control: TWinControl;
 Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
(* Заполняем прямоугольник *)
CBStyle.canvas.fillrect(rect);
(* Рисуем сам битмап *)
imagelist1.Draw(CBStyle.Canvas,rect.left,rect.top,index);
(* Пишем текст после картинки *)
CBStyle.canvas.textout(rect.left+imagelist1.width+2,rect.top,
CBStyle.items[index]);
end;
которую я выудила из инета. Но теперь, когда в процедуре FormCreate я меняю Items, форма появляется с комбобоксом, в котором ничего не нарисовано. То есть в нём можно всё выбрать, но изначально он пуст. Подскажите, что надо добавить к изменению Items, чтобы происходила нужная мне перерисовка?

---

← →
Loginov Dmitry ©   (2007-02-05 19:11) [1]

> Но теперь, когда в процедуре FormCreate я меняю Items, форма
> появляется с комбобоксом, в котором ничего не нарисовано.


Устанавливай ItemIndex на нужную строку

> Подскажите, что надо добавить к изменению Items, чтобы происходила
> нужная мне перерисовка?


Repaint
Refresh

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.026 c