Forum: Object-Pascal / Delphi-Language
Delphi
by Alexander Roth,
14. Jan 2006
Jo danke jetzt klappts.
Der richtige Code lautet:
procedure TForm1.Button2Click(Sender: TObject);
var wmf:Tmetafile;
begin
refresh;
wmf:=Tmetafile.Create;
wmf.Height:=100;
wmf.Width:=100;
Forum: Object-Pascal / Delphi-Language
Delphi
by Alexander Roth,
14. Jan 2006
Hallo Praxisler,
seit neustem beschäftige ich mich mit Metafiles.
Wenn ich nun ein einfaches metafile mit TmetafileCanvas zeichnen will, bleibt immer ein unformatiertes leeres Metafile zurück.
procedure TForm1.Button2Click(Sender: TObject);
var wmf:Tmetafile;
begin
refresh;