Listbox jeden zweiten Eintrag färben

[Larsi]

Hi,
ich bräuchte mal schnell ein Code wie ich jeden zweiten Eintrag in einer Listbox z.B. Grün färben kann.

MFG Lars Wiltfang

[Der.Kaktus]

Zitat von Larsi:

Hi,
ich bräuchte mal schnell ein Code wie ich jeden zweiten Eintrag in einer Listbox z.B. Grün färben kann.

MFG Lars Wiltfang

Morgen erstmal,

Delphi-Quellcode:

for i:=0 to Listbox1.items.count-1 do
 if i mod 2 = 0 then //erste Farbe
 else; // 2.farbe

Das Einfaerben wurde hier ja schon oft behandelt.

[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]

[grenzgaenger]

dann geb ich auch mal meinen senf dazu ...

Delphi-Quellcode:

for i:=0 to Listbox1.items.count-1 do
if odd(i) then //erste Farbe
else; // 2.farbe

btw: du kennst doch das spielchen, erst was coden, wenn du 'n problem hast, deinen code hier posten und 'ne ordentliche frage zu stellen, woran es denn genau hackt... dann wird geholfen. ansonsten, gibts die SuFu und den google/codesearch

PS: Odd/even sind die standardfunktionen um auf gleichheit und ungleichhheit zu prüfen

btw: @daniel: wir brauchen 'ne ordnetliche glaskugel als smily

[Der.Kaktus]

Zitat von grenzgaenger:

...
PS: Odd/even sind die standardfunktionen um auf gleichheit und ungleichhheit zu prüfen

Standard? wo steht das? bei mir ist "modula" Standard *fg* und das schon Jahrzehnte!


@Deddy Moin Moin ..sicher fuehren viele Wege nach ROM.. *g*

[grenzgaenger]

Zitat von Der.Kaktus:

Standard? wo steht das?

zum beispiel in der standard libary von TP1-TP7, D1-D8 und D2005-D2007.

aber ist klar, dass man es mit modulo teilung machen kann, ebenso mit bitmanipulationen, listen, etc. da gibts viele möglichkeiten... Fact ist, odd/even gehören zum standard sprachumfang...

wohl auch zum nachfolger Modula ...