Listbox-Item Farbe ändern

[Puke]

Ich habe versucht selektierte Item mit einer anderen Farbe zu markieren.
Allerdings funktioniert es nur bei der Hintergrundfarbe und nicht bei der Schriftfarbe.

Code:

procedure TForm1.InterpretListBoxDrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var
     LBox : TListbox;
begin
     if Control is TListbox
     then begin
        LBox := Control as TListbox;
        IF LBox.Items[Index]=Interpretlistindex
        then begin
            LBox.Canvas.Brush.Color := clwebdarkorange;
            LBox.Canvas.Font.Color  := clred;
        end
        else
            LBox.Canvas.Brush.Color := $505050;
            LBox.Canvas.Font.Color :=  $e0e0e0;

        LBox.Canvas.FillRect(Rect);
        LBox.Canvas.TextOut(Rect.Left, Rect.Top, LBox.Items[Index]);
     end;
end;

Ich danke für Hilfen:thumb:

[mkinzler]

Im ELSE-Zweig fehlt

Delphi-Quellcode:

begin end

[Puke]

Danke,:-D
nach diesem Fehler hab ich nun 2 einhalb Stunden gesucht.

[Sir Rufo]

Hat D2010 nicht schon den Codeformatter?

Dann wäre die Erkenntnis so schnell gekommen wie man STRG-D drücken kann.

Auch das CnPack hilft mit seinen Linien solche falschen Konstrukte zu vermeiden.