Вопрос по 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;

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