Listbox jeden zweiten Eintrag färben

[DeddyH]

Larsi, Du bist lange genug hier, um zu wissen, dass es eine Suchfunktion gibt

[edit] Moin, Kaki [/edit]

[edit2] Noch eine weitere Möglichkeit, auf gerade Zeilen zu prüfen:

Delphi-Quellcode:

const Colors: array[0..1] of TColor = (clRed,clBlue); //Beispiel
var i: integer;
    Color: TColor;
begin
  for i := 0 to ListBox.Items.Count - 1 do
    begin
      Color := Colors[i and 1];
      Zeichne_mit_Color;
    end;
end;

[/edit2]