Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by patti,
7. Dez 2009
Diese "with"-Konstruktionen sind auch nicht sonderlich beliebt, da nicht wirklich übersichtlich etc.. Habe schon von Unternehmen gehört, die ihren Mitarbeitern "verboten" haben, diese zu benutzen. Auf der anderen Seite sind sie aber auch ganz nützlich. Wo ich sie relativ häufig einsetze, ist tatsächlich bei Zeichen-Aktionen auf einer Canvas, also z.B.
with Self.Canvas do
begin
Pen.Color :=...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by patti,
7. Dez 2009
Du kannst doch ein Objekt des Typs "TMetaFileCanvas" per Hand erzeugen und anschließend wieder freigeben. Mach es doch einfach so:
procedure MyDraw;
var MetaGraphic : TMetafile;
MetaCanvas : TMetafileCanvas; // <-- hier
A : Integer;
procedure DrawSomething(Angle:Integer);
begin