unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
RechteckBTN: TButton;
LoeschBTN: TButton;
EndeBTN: TButton;
PaintBox1: TPaintBox;
procedure RechteckBTNClick(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
TRechteck = class
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
XPos:integer;
YPos:integer;
Hoehe:integer;
Breite:integer;
procedure Zeichne(canvas:TCanvas);
end;
var
Form1: TForm1;
Rechteck: TRechteck;
Zeichne:TRechteck;
implementation
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;
{$R *.dfm}
begin
TRechteck.Zeichne
procedure TForm1.RechteckBTNClick(Sender: TObject); // Das hier ist der Button , wenn ich auf den klicke , soll die Prozedur
// TRechteck.Zeichne aufgerufen werden , aber der Button " an sich " ist ja eine Procedure
// Ich weiß , wenn ich mit TRechteck.Zeichne arbeiten will die Parameter eingeben muss aber
// ich kann ja jetzt einfach unter Button-Procedu TRechteck.Zeichne(20,20) oder so eingeben
begin
end;
end.