Ich komm echt nicht drauf
Was mir einfällt :
Code:
TRechteck = class // ein Rechteck im 2-dimensionalen Raum
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
XPos:integer;
YPos:integer; // Hier im Public-Teil werden ja die Variablen deklariert , das verstehe ich noch , hab die procedure aus dem public-teil entfernt.
Hoehe:integer;
Breite:integer;
end;
procedure TRechteck.Zeichne(canvas:TCanvas); // Diese procedure reicht doch oder nciht ? Zeichne gehört zu TRechteck und entnimmt von dort die Variablen und kann
begin // ganz normal zeichnen ,oder nciht ?
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;