Eigene Canvas Methode

[Die Muhkuh]

Warum? Kannst doch auch ganz einfach eine Prozedure erstellen:

Delphi-Quellcode:

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

Offenburg? Tjaha, da muss ich jeden Tag hin zur Schule

[edit] Mit TDE kannst Du die Class Helper benutzen:

Delphi-Quellcode:

type
  TCanvasHelper = class helper for TCanvas
  public
    procedure Circle(X, Y, Radius: Integer);
  end;

implementation

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

Aufruf ist dann:
Canvas.Circle(10, 10, 10); // z.B.