Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.02.25;
Скачать: 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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.032 c
15-1170209414
RustamK
2007-01-31 05:10
2007.02.25
Найти наименьшую цепочку...


15-1170269744
tesseract
2007-01-31 21:55
2007.02.25
кредитка Vs дебетка


15-1170338247
Похвола
2007-02-01 16:57
2007.02.25
Перебор


2-1170668284
Defort
2007-02-05 12:38
2007.02.25
Крестик


15-1170389654
Mozart
2007-02-02 07:14
2007.02.25
*.pdf