Eigene Canvas Methode

[Mikender]

Hallo

Ich habe mich schon (ziemlich) lange darüber aufgeregt dass man in Canvas keinen Kries zeichnen kann sondern nur eine Ellipse (mit einem Kreis könnte man einfach einben Punkt und den Radius angeben)

Nun habe ich mir gedacht ich schreibe meinen Kreis selber in Canvas.

Ich habe also ctrl+click auf Canvas Dann war ich in Forms dort das gleiche auf TCanvas dann war ich in Canvas.

Alles ganz normal... Dort hab ich dann in Public Die Procedure Circle hinzu geschrieben:

Delphi-Quellcode:

    procedure BrushCopy(const Dest: TRect; Bitmap: TBitmap;
      const Source: TRect; Color: TColor);
    procedure Circle(X,Y :Integer;Radius :Integer);
    procedure Chord(X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer);

So und nun noch meine Procedure hingeschrieben

Delphi-Quellcode:

procedure TCanvas.Circle(X, Y, Radius: Integer);
begin
  Ellipse(X-Radius, Y-Radius, X+Radius, Y+Radius);
end;

...

Eigentlich sollte es ja jetzt gehen aber es passiert nicht er erkennt kein Circle.

Kann man das überhaupt machen ???


Mikender