Filelist Zeile färben

[Sunlight7]

Zitat von R2D2:

Du ratterst mit einer for-Schleife jeden Eibntrag durch, und färbst ihn per Überprüfung mit MOD farbig ein.

Warum so umständlich?
Da es nur zwei Farben sind genügt ein einfaches Odd
Und wozu eine for-Schleife?

Delphi-Quellcode:

If Odd(Index) then
   MaleRot else
      MaleGrün

Du kannst dafür das Ereignis OnDrawItem einer ListBox verwenden, wenn Du im OI Style auf lbOwnerDrawFixed stellst
Das funkt aber net mit der TFileListBox Kompo, dazu selber eine TListBox machen.

Grüßle!