Ein Rechteck hat ja nicht nur eine Höhe und Breite sondern auch noch eine X- und Y-Position.
Also sieht deine Rechteckklasse so aus:
Delphi-Quellcode:
TRechteck = class // ein Rechteck im 2-dimensionalen Raum
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
XPos:integer;
YPos:integer;
Hoehe:integer;
Breite:integer;
end;
Jetzt soll dein Rechteck gezeichnet werden.
Dazu benötigt man eine Zeichenfläche (TCanvas) und eine Methode die das Zeichnen übernimmt:
Delphi-Quellcode:
TRechteck = class // ein Rechteck im 2-dimensionalen Raum
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
procedure Zeichne(canvas:TCanvas);
XPos:integer;
YPos:integer;
Hoehe:integer;
Breite:integer;
end;
procedure TRechteck.Zeichne(canvas:TCanvas);
begin
canvas.Pen.Color := clBlack;
// 1. Linie
canvas.MoveTo(XPos, YPos);
canvas.MoveTo(XPos, YPos+breite);
// 2. Linie
canvas.MoveTo(XPos+Hoehe, YPos+breite);
// 3. und 4. Linie ist dein Job :-)
end;