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

Вопрос по ListBox у   Найти похожие ветки 

← →
Tolik   (2003-09-30 01:36) [0]

Вопрос значится такой: как в ЛистБоксе при свойстве Enable:=false поставить свой шрифт и цвет?

---

← →
Zergling ©   (2003-09-30 08:25) [1]

var
EnF: TFont;
DeF: TFont;

// *******

EnF := TFont.Create;
with EnF do
begin
Color := clRed;
// ...
end;
DeF := TFont.Create;
with DeF do
begin
Color := clBlue;
// ...
end;

// *********

Style := lbOwnerDraw...
OnDrawItem
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
if (Control is TListBox) then
if (Control.Enabled) then (Control as TListBox).Canvas.Font := EnF else (Control as TListBox).Canvas.Font := DeF;
(Control as TListBox).Canvas.TextOut(Rect.Left, Rect.Top, (Control as TListBox).Items[Index]);
end;

---

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

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



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