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.