Delphi Schachbrettmuster im Array

Thema durchsuchen

Ansicht

Themen-Optionen

Schachbrettmuster im Array

Ein Thema von tankm26 · begonnen am 15. Mai 2005 · letzter Beitrag vom 31. Mai 2005

Vorheriger Beitrag

Nächster Beitrag

Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.259 Beiträge

Delphi 2006 Professional

#10

Re: Schachbrettmuster im Array

15. Mai 2005, 16:53

Hai,

wenn es "nur" um das Schachbrettmuster in dem TStringGrid geht würde ich das ganz einfach so machen:

markieren

Delphi-Quellcode:

			procedure TForm1.spielfeldDrawCell(Sender: TObject; ACol, ARow: Integer;

  Rect: TRect; State: TGridDrawState);

begin

  if Odd(ACol) and not Odd(ARow) then

  begin

    spielfeld.Canvas.Brush.Color := clBlack;

  end;

  spielfeld.Canvas.FillRect(Rect);

end;