Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
21. Sep 2003
Moin Chris,
if status = 'online' then begin
ListBox1.Canvas.Font.Color := clGreen;
end else begin
ListBox1.Canvas.Font.Color := clRed;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Christian Seehase,
21. Sep 2003
Moin Chris,
dazu muss die Eigenschaft Style der ListBox auf lbOwnerDrawFixed gesetzt werden.
So könnte man dann die Einträge immer im Wechsel rot und grün schreiben.
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin