DrawGrid Zellen abwechselnd mit Farbe füllen

[TLAng]

Ich möchte abwechselnd blau und rote Zellen haben.
In einer Reihe sind 8 Zellen und ich habe 8 Reihen.
In der nächsten Reihe versetzt.

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

[himitsu]

Wieso dein Code eventuell nicht das macht, was er soll?

Klar, er macht ja auch was Anderes, als du gesagt hast.
-> Färben, wenn etwas in der Zelle, wo hier niemand weiß, was deren Inhalt ist.


@TurboMagic, das geht auch mathematisch

Delphi-Quellcode:

if Odd(ARow) xor {not} Odd(ACol) then  // NOT oder das Color:=... umdrehen, falls andersrum
  DrawGrid1.Canvas.Brush.Color := clBlue
else
  DrawGrid1.Canvas.Brush.Color := clRed;
DrawGrid1.Canvas.FillRect(Rect);

[TurboMagic]

Ja, ich dachte mir schon, dass es vermutlich noch einen einfacheren Weg gibt. Ich wollte aber
zumindest einen möglichen Weg aufzeigen. Jetzt kann er sich's raussuchen.

[TLAng]

Auch Dir danke schön.
Es gibt ja immer verschiedene Lösungen.

Zitat von TurboMagic:

Ja, ich dachte mir schon, dass es vermutlich noch einen einfacheren Weg gibt. Ich wollte aber
zumindest einen möglichen Weg aufzeigen. Jetzt kann er sich's raussuchen.

[TLAng]

Hi himitsu,

herzlichen Dank für deine Hilfe. Das habe ich gesucht.