DrawGrid Zellen abwechselnd mit Farbe füllen

[TurboMagic]

Das ist machbar.
Man kann es mit If's zusammenbauen.
Mittels Odd(ACol) bekommst du zum Beispiel heraus ob du in einer "ungeraden" Spalte bis.

Dann könnte es z. B. so aussehen:

Delphi-Quellcode:

var
  CellColor: TColor;
begin
  if Odd(ACol) then
  begin
    if Odd(ARow) then 
      CellColor := clRed
    else
      CellColor := clBlue;
  end
  else
  begin
    if Odd(ARow) then 
      CellColor := clBlue
    else
      CellColor := clRed;
  end;

  // und hier müsste dein Einfärben in...
end;