Klassen in eigener Unit definieren

[oki]

Zitat von Sturmrider:

Wenn ich das so mache wie du sagst und einfach den Teil ersetze bekomme ich folgende Fehlermeldung:

Delphi-Quellcode:

[Fehler] Zeichnen.pas(8): Undefinierter Bezeichner: 'TCanvas'
[Fehler] Zeichnen.pas(17): Deklaration von 'WindradZeichnen' unterscheidet sich von vorheriger Deklaration
[Fehler] Zeichnen.pas(23): Undefinierter Bezeichner: 'Pen'
...

Du meintest sicherlich, dass ich direkt mit Canvas zeichnen kann:

Delphi-Quellcode:

...
with canvas
  do begin
...

oder?

Erster Fehler: Binde die unit graphics in dein uses mit ein. Dort ist TCanvas definiert.
zweiter Fehler: du mußt sowohl in der deklaration wie auch in der Methode gleiche Parameter definieren. Zu deutsch, du hast nur an einer Stelle auf (ACanvas : TCanvas) geändert.

Delphi-Quellcode:

type
  TWindradZeichner = class(TObject)
  private
    procedure WindradZeichnen(ACanvas : TCanvas);
  end;

procedure TWindradZeichner.WindradZeichnen(ACanvas : TCanvas);
var FluegelLaenge: integer;
begin
with ACanvas
  do begin
....

Das mit dem Pen ist mir nicht ganz klar. Aber ich habe dir was falsches gesagt. Ich habe übersehen, das du in ein Image zeichnest. damit ist der Aufruf natürlich so:

Delphi-Quellcode:

procedure TForm1.WindradTimer(Sender: TObject);
var WZ : TWindradZeichner;
begin
  winkel := winkel+1;
  wZ := TWindradZeichner.create;
  try
    WZ.WindradZeichnen(self.image.canvas);
  finally WZ.Free; end;
end;

Das Thema mit dem übergebenen Canvas ist oben nebenbei mit abgefallen.

Gruß oki