Hogyan kell megírni a lenti programot Lazarusban?

Nos, mivel nekem az a célom, hogy megtanuld és nem az, hogy megszerezd, én nem fogom készen megírni neked, de talán majd erre téved valamelyik kolléga és megcsinálja. Azt viszont tudnod kell, hogy ezzel nem leszel előbbre.

G.

Én egy picit gyengébb lelkületű vagyok, ezért megmutatom, hogyan kell egy sort kirajzolni:

procedure TForm1.Button1Click(Sender: TObject);

var x : integer;

begin

Image1.Width := 400;

Image1.Height := 400;

for x := 0 to 3 do

begin

if Odd(x) then Image1.Canvas.Brush.Color := clRed else Image1.Canvas.Brush.Color := clBlue;

Image1.Canvas.FillRect(Rect(x * 100, 0, (x + 1) * 100, 100));

end;

end;

rocedure TForm1.Button1Click(Sender: TObject);

var x : integer;

begin

Image1.Width := 400; //Beállítjuk a 'kép' szélességét 400 pixelre

Image1.Height := 400; //Beállítjuk a 'kép' magasságát 400 pixelre

for x := 0 to 3 do

begin

// Ha x páros akkor a kitöltő szín kék, ha nem akkor piros

if Odd(x) then Image1.Canvas.Brush.Color := clRed else Image1.Canvas.Brush.Color := clBlue;

//Itt éretelemszerűen kirajzoljk kitöltő szinnel a négyzetet, a FillRect-nek olvass utána

//Rect = bal, felső, jobb, alsó ha x := 0 akkor

//0, 0, 100, 100 tehát egy olyan négyzet, meelynek a bal felső sarka 0,0 pont

// a jobb alsó pedig 100, 100

Image1.Canvas.FillRect(Rect(x * 100, 0, (x + 1) * 100, 100));

end;

end;