Eigene Canvas Methode

[Apollonius]

In Turbo Explorer gibt es Class Helper, also kannst du so vorgehen:

Delphi-Quellcode:

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

procedure TCanvasCircleHelper.Circle(X, Y, Radius: Integer);
begin
  //Implementierung
end;

//Aufruf:
  Canvas.Circle(5, 5, 3);

Der Vorteil gegenüber der Variante der Muhkuh ist der "objektorientiertere" Aufruf.