Forum: Multimedia
Delphi
by JasonDX,
15. Mai 2005
(Du kannst deine Beiträge, somit auch Titel und Anhang durch den Edit-button rechts oben editieren)
Meine Lösung würde so aussehen:
procedure FillRect(i, j: integer; Color: TColor);
begin
DrawGrid1.Canvas.Brush.Color := Color;
DrawGrid1.Canvas.FillRect(DrawGrid1.CellRect(i, j));
end;
Forum: Multimedia
Delphi
by JasonDX,
15. Mai 2005
Ein Schachbrettmuster erhält man ca. so:
const
Farben: array = (clWhite, clBlack);
//...
for i := 0 to AnzahlZeilen - 1 do
for j := 0 to AnzahlSpalten - 1 do
FarbeDerZelle := Farben;