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