OOP-Delphi-Anfänger

[shmia]

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;