Listbox.OnDrawItem: wenn Dateiendung wechselt, andere Farbe

[Helmi]

Hallo,

ich möchte mal Odd in den (neu renovierten) Raum werfen und auch folgenden Code:

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  If Odd(Index) then
    ListBox1.Canvas.Brush.color := clGreen
  else
    ListBox1.Canvas.Brush.color := clWhite;

  ListBox1.Canvas.FillRect(Rect);
  ListBox1.Canvas.Font.Color := clBlack;
  ListBox1.Canvas.TextOut(Rect.Left, Rect.Top, ListBox1.Items[Index]);
end;

Basis ist dieser Link: http://www.swissdelphicenter.ch/de/showcode.php?id=1885