Zeichnung verkleinern

[Aria]

Hallo!
Ich habe folgendes gemacht:
Ein Programm wo man 8 Buttons nacheinander anklickt, und mit jedem klick wir ein Strich auf dem Form gemacht.
Es wird "Das Haus vom Ni Ko Laus" gezeichnet!
Es gibt noch einen Button, der am Schluss erscheint, wenn man darauf klickt, werden noch ein paar linien gezeichnet sodass das haus in 3d aussieht (wie als würde man einen würfel auf ein papier zeichen).

Nun möchte ich, dass man den Würfel der am Ende entsteht auch in der größe verändern kann!
Wie macht man das?

Hier mein bisheriger Quelltext:

Delphi-Quellcode:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    procedure Button10Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
canvas.MoveTo(200,200);
canvas.lineto(300,200);
button2.Visible:=true;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
canvas.lineto(300,100);
button3.Visible:=true;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
canvas.lineto(200,100);
button4.Visible:=true;
end;

procedure TForm3.Button4Click(Sender: TObject);
begin
button5.Visible:=true;
canvas.lineto(200,200);
end;

procedure TForm3.Button5Click(Sender: TObject);
begin
button6.Visible:=true;
canvas.lineto(300,100);
end;

procedure TForm3.Button6Click(Sender: TObject);
begin
button7.Visible:=true;
canvas.lineto(250,50);
end;

procedure TForm3.Button7Click(Sender: TObject);
begin
button8.Visible:=true;
canvas.lineto(200,100);
end;

procedure TForm3.Button8Click(Sender: TObject);
begin
button9.Visible:=true;
canvas.lineto(300,200);
end;

procedure TForm3.Button9Click(Sender: TObject);
begin
canvas.MoveTo(250,50);
canvas.LineTo(350,50);
canvas.LineTo(300,100);
canvas.moveto(350,50);
canvas.LineTo(350,150);
canvas.LineTo(300,200);
end;

procedure TForm3.Button10Click(Sender: TObject);
begin

end;

end.

[omata]

Hallo Aria,

dann solltest du dich mal mit Vektoren beschäftigen.

Schau dir doch mal mein Beipsiel an, vielleicht hilft es dir ja weiter.

Das Beispiel habe ich mal in TurboPascal entwickelt und jetzt einfach nach Delphi übersetzt.

MfG
Thorsten