Hi!
Jepp, das mag ich dir erklären:
Also, vorneweg, mein Feld sieht so aus:
Code:
0 1 2 3 4 5 6 7
8 9 10 11 12 13 14 15
16 17 18 19 20 21 22 23
als erstes gehe ich hin und lege die Farbe weiß als Anfangsfarbe fest.
farbe:=clwhite;
Dann erfolgt die Abfrage:
Delphi-Quellcode:
if not ((i mod 8) = 0) then
if farbe=clwhite then
farbe:=clblack else farbe:=clwhite;
Dort wird folgendes getan:
Wenn ( i mod 8 ) ungleich 0 ist, dann wird die Farbe getauscht. Dies ist jeweils im ersten Feld einer neuen Reihe nicht der Fall, also wird dort immer die selbe Farbe verwendet wie in der vorrangegangen Reihe beim letzten Feld. so wird ein Abwechseln der Farben in vertikaler Richtung ermöglicht.
Hoffe, dir geholfen zu haben.
Ciao Frederic