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

[Medium]

Du musst bei Änderungen in der VCL diese nochmals neu kompilieren, am besten komplett. Dann sollte es klappen.

[Fussball-Robby]

Hast du die .pas denn neu kompiliert?

[jbg]

Zitat von Mikender:

Eigentlich sollte es ja jetzt gehen

Du hast also in den VCL Quellen "herumgepfuscht". Das interessiert den Compiler aber nicht, da er nicht die .pas Datei sondern die von CodeGear ausgelieferten .dcu Dateien und die VCL.dcp zu Rate zieht.

Zitat:

Kann man das überhaupt machen ???

Können schon, nur sollte man dann damit rechnen, dass alle Komponenten von Dritten und auch andere Units der VCL nicht mehr ohne weiteres funktionieren, da sie "Unit blabla wurde mit unterschiedlicher Version von Graphics kompiliert" melden und die Kompilierung damit verhindern.

[s-off]

Du solltest Dir lieber Deinen eigenen Canvas erzeugen, in dem Du von TCanvas ableitest, und nicht lustig in der VCL rumeditieren. Auf Dauer wirst Du damit nicht glücklich.
Untger anderem dafür ist das Konzept der Objektorientierung gedacht.

[Apollonius]

Das wäre mal ein klassischer Einsatzfall für Class Helper. Vereerbung ist ungünstig, da man dann von TCanvas abgeleitete Klassen erst casten müsste, was unschön wäre. Oder man könnte eine normale Prozedur nehmen, müsste dann aber Self explizit und nicht mit der Punkt-Syntax übergeben. Welche Delphi-Version hast du denn? Class Helper gibt es ab Delphi 2006 (soweit ich weiß) Korrektur: in Delphi 2005 geht es auch schon, aber meines Wissens nicht früher.

[Mikender]

Ok ich lasses lieber

[Mikender]

ich habe Turbo Delphi Explorer

[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.

[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.