(Du kannst deine Beiträge, somit auch Titel und Anhang durch den Edit-button rechts oben editieren)
Meine Lösung würde so aussehen:
Delphi-Quellcode:
procedure FillRect(i, j: integer; Color: TColor);
begin
DrawGrid1.Canvas.Brush.Color := Color;
DrawGrid1.Canvas.FillRect(DrawGrid1.CellRect(i, j));
end;
Dabei ist aber zu beachten, dass dies in jedem OnShow-Ereignis zu erledigen ist, weil sich Canvas nicht von alleine neu zeichnet.
Also ist wohl Sharkys zu bevorzugen
Bezüglich Odd: Meine
OH sagt mir, dass dies eine Funktion ist, die mir sagt, ob eine Zahl gerade ist. Macht also das selbe wie (Zahl mod 2 = 0).
Bezüglich Xor: Xor ist ein boolscher operator mit folgender Wahrheitstabelle:
(exclusiv or)
Code:
a xor b = c
a b|c
---+-
0 0|0
0 1|1
1 0|1
1 1|0
Also wenn a <> b (wobei a, b und c immer boolean sein müssen)