Hi leute, hab folgendes Problem:
Ich benutze
diesen Code. :
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with (Control as TListbox) do
begin
if odSelected in State then //Prüft, ob ein Item markiert ist
Canvas.Brush.Color := clRed; //Canvas-Hintergrundfarbe auf Rot setzen
Canvas.FillRect(Rect); //schön ausmalen
Canvas.TextOut(Rect.Left, Rect.Top, Items[Index]); //Text drüberpinseln
end;
end;
und jetzt gibts diesen Parse Error:
Zitat:
[Fehler] Unit1.pas(72): Undefinierter Bezeichner: 'clRed'
Wo muss ich die Farbe clRed "bezeichnen" ?
Danke!!
