Ich geh mal von der Prozedur Paint aus. (Also muss erstmal stimmen, aber es kam ja noch kein Protest
)
Delphi-Quellcode:
procedure TMyShape.Paint();
begin
inherited;
If Self.Shape = stKaro then begin
Canvas.PenPos(Trunc(Self.ClientWidth/2),0); //Setzt die Stift Position ganz oben in die Mitte
Canvas.LineTo(0,Trunc(Self.Clientheight/2)); //zeichnet eine Linie von der Stiftposition zu ganz links und Mitte
Canvas.LineTo(Trunc(Self.ClientWidth/2),Self.Clientheight);//ganz unten mitte
Canvas.LineTo(Self.ClientWidth,Trunc(Self.Clientheight/2));// ganz rechts mitte
end;
end;
Das sollte die Umrisse erstmal machen.
(Ähm, habs nicht getestet...)
Guck mal in der Delphi Hilfe nach
TCanvas und dessen Eigenschaften und Methoden.
Wie man die Flächen ausfüllt weiß ich jetzt auch nicht. Such mal im Forum.