Eigene Shape Formen

[halinchen]

Ich geh mal von der Prozedur Paint aus. (Also muss erstmal stimmen, aber es kam ja noch kein Protest :roll: )

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.