Hallo! Ich habe eine Anfängerfrage zur Logik hinter der Erzeugung von Metafile-Objekten. Ich verstehe einfach die Syntax und die Logik hinter dem Aufruf nicht.
Delphi-Quellcode:
procedure MyDraw;
var MetaGraphic : TMetafile;
begin
MetaGraphic := TMetafile.Create;
with TMetafileCanvas.Create(MetaGraphic, 0) do begin
LineTo(10, 10); // beliebige Zeichenoperationen...
Free; // "erzeugt" das fertige MetaGraphic-Objekt (?)
end;
MyCanvas.Draw(0, 0, MetaGraphic); // MetaGraphic enthält jetzt die Zeichenoperationen
MetaGraphic.Free;
end;
Wieso kann man "with" auf ein Klassenobjekt anwenden, ohne dass es instantiiert wurde? TMetafileCanvas.Create ist auch keine Funktion, sondern Prozedur. Auf welches Objekt wird "with" hier angewendet? Ich gebe zu, ich habe wahrscheinlich was grundlegendes nicht verstanden, aber ich würde es gerne verstehen...
Jetzt noch die zentrale, praktische Frage, die mich eigentlich dazu gebracht hat:
Wie könnte man die obige Prozedur OHNE Verwendung von "with" schreiben? Ich möchte nämlich eigentlich innerhalb der with-Klausel eine Prozedur mehrfach aufrufen und weiß nicht, wie ich innerhalb der Unterprozedur auf das TMetafileCanvas-Objekt zugreifen könnte:
Delphi-Quellcode:
procedure MyDraw;
var MetaGraphic : TMetafile;
A : Integer;
procedure DrawSomething(Angle:Integer);
begin
// hier sollen etliche Zeichenoperationen stehen, als ob sie unter "with" stehen würden
LineTo(10, 10);
end;
begin
MetaGraphic := TMetafile.Create;
with TMetafileCanvas.Create(MetaGraphic, 0) do begin
for A := 0 to 90 do DrawSomething(A);
Free;
end;
MyCanvas.Draw(0, 0, MetaGraphic);
MetaGraphic.Free;
end;
Ich wäre sehr dankbar für Erklärung und Lösung!