Delphi,графика

[Карина 1578]

Ребят, как сделать эту программу, только с помощью цикла?

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
With image1.Canvas do
begin
pen.Width:=2;
pen.Color:=clBlack;
brush.Color:=clBlack;
Rectangle(50,50,350,350);    brush.Color:=clBlack;
 Rectangle (50,50,100,100);  brush.Color:=clWhite;
Rectangle (50,100,100,150);  brush.Color:=clBlack;
Rectangle (50,150,100,200);  brush.Color:=clWhite;
Rectangle (50,200,100,250);  brush.Color:=clBlack;
Rectangle (50,250,100,300);  brush.Color:=clWhite;
Rectangle (50,300,100,350);  brush.Color:=clWhite;
Rectangle (100,50,150,100);  brush.Color:=clBlack;
Rectangle (100,100,150,150);  brush.Color:=clWhite;
Rectangle (100,150,150,200); brush.Color:=clBlack;
Rectangle (100,200,150,250);  brush.Color:=clWhite;
Rectangle (100,250,150,300); brush.Color:=clBlack;
Rectangle (100,300,150,350); brush.Color:=clBlack;
Rectangle (150,50,200,100);  brush.Color:=clWhite;
Rectangle (150,100,200,150); brush.Color:=clBlack;
Rectangle (150,150,200,200);  brush.Color:=clWhite;
Rectangle (150,200,200,250);  brush.Color:=clBlack;
Rectangle (150,250,200,300);  brush.Color:=clWhite;
Rectangle (150,300,200,350);  brush.Color:=clWhite;
Rectangle (200,50,250,100);  brush.Color:=clBlack;;
Rectangle (200,100,250,150);  brush.Color:=clWhite;
Rectangle (200,150,250,200); brush.Color:=clBlack;
Rectangle (200,200,250,250);  brush.Color:=clWhite;
Rectangle (200,250,250,300);  brush.Color:=clBlack;
Rectangle (200,300,250,350);  brush.Color:=clBlack;
Rectangle (250,50,300,100);  brush.Color:=clWhite;
Rectangle (250,100,300,150);   brush.Color:=clBlack;
Rectangle (250,150,300,200);  brush.Color:=clWhite;
Rectangle (250,200,300,250);  brush.Color:=clBlack;
Rectangle (250,250,300,300);  brush.Color:=clWhite;
Rectangle (250,300,300,350);  brush.Color:=clWhite;
Rectangle (300,50,350,100);  brush.Color:=clBlack;
Rectangle (300,100,350,150);  brush.Color:=clWhite;
Rectangle (300,150,350,200); brush.Color:=clBlack;
Rectangle (300,200,350,250); brush.Color:=clWhite;
Rectangle (300,250,350,300); brush.Color:=clBlack;
Rectangle (300,300,350,350);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;   end;  end.

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
const
  x0 = 20;
  y0 = 50;
  size = 50;
  count = 4;
var
  i, j: integer;
begin
  With Image1.Canvas do
  begin
    pen.Width := 2;
    pen.Color := clBlack;
    brush.Color := clBlack;
    for i := 0 to count do
    begin
      moveto(x0 + size * i, y0);
      lineto(x0 + size * i, y0 + count * size);
    end;
    for i := 0 to count do
    begin
      moveto(x0, y0 + size * i);
      lineto(x0 + count * size, y0 + size * i);
    end;
    for i := 0 to count - 1 do
      for j := 0 to count div 2 - 1 do
        fillrect(rect(x0 + (2 * j + i mod 2) * size, y0 + i * size,
            x0 + (2 * j + i mod 2 + 1) * size, y0 + (i + 1) * size));
  end;
end;

Вроде правильно рисует, но только для четного count (для нечетного лень думать).

[Карина 1578]

Спасибо огромное)

[Serge_Bliznykov]

ну и мой вариант:

procedure TForm4.Button1Click(Sender: TObject);
const
  N = 8;
  OneFSize = 40;
  x0 = 60;
  y0 = 60;
var i, j :integer;
begin
  Image1.Canvas.Pen.Color := clBlack;
  for i:= 0 to N-1  do
    for j:= 0 to N-1 do begin
       if  odd(n-i+1) = odd(j) then
         Image1.Canvas.Brush.Color := clBlack
       else
         Image1.Canvas.Brush.Color := clWhite;
       Image1.Canvas.Rectangle(x0+i*OneFSize,y0+j*OneFSize, x0+(i+1)*OneFSize, y0+(j+1)*OneFSize);
    end;
end;

N можно изменять. при желании можно вообще брать его из какого-нибудь контрола с формы (например, с TEdit)


p.s. левое нижнее поле в обычной шахматной доске чёрного цвета..