H, Mit D3 kann mann sofort mit canvas.pocedur/eigenschaft auf dem canvas zeichnen
und d6 muss da erst der vordefinierte canvas:Tcanvas aufgerufen werden.
Tpaintbox wohl ebenso
z.B Timage gehts Wer kann mir helfen wie ich an die Zeichenfläche Tcanvas rankomme.
ich möchte die shape-eigenschaft auf StDreieck erweitern das muss doch gehen!
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
| type
tDreieck=class(tshape)
private
...........
public
constructor create(aowner:tcomponent);override;
published
............. canvas.polygon([point(0,100),point(50,0),point(100,100)]);
..........
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
public
dreieck:Tdreieck;
end;
constructor tDreieck.create(aowner:tcomponent);
begin
inherited create(aowner);
............
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Dreieck:=tshape.Create(self);
Dreieck.Parent:=self;
...........
end; |
Gruss
biochip2
