Listbox.OnDrawItem: wenn Dateiendung wechselt, andere Farbe

[Tryer]

Du könntest an Stelle des bisherigen Objects z.B. einen Record reinhängen:

Delphi-Quellcode:

type
  PStrLstObj = ^TStrLstObj;
  TStrLstObj = record
    Obj: TObject;
    Color: TColor;
  end;

Grüsse, Dirk