|
Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
Delphi 10.2 Tokyo Professional
|
Re: Eigene Canvas Methode
12. Apr 2008, 17:30
Hi,
Mach es besser so:
Delphi-Quellcode:
type
TCanvas = class(Graphics.Canvas)
public
procedure Circle(X, Y, Radius: Integer);
end;
implementation
procedure TCanvas.Circle(X, Y, Radius: Integer);
begin
Ellipse(X-Radius, Y-Radius, X+Radius, Y+Radius);
end;
Gruß
Neutral General
Michael "Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."
|
|
|
Zitat
|