so gehts:
Delphi-Quellcode:
WMF := TPicture.Create; <=== Das
WMF.Metafile.Width := 2000;
WMF.Metafile.Height := 2000;
Zeichnung := TMetaFileCanvas.Create(WMF.Metafile, 0); <=== und dann das
sind des Rätsels Lösung.
Zitat:
WMF := TMetaFile.Create;
Zeichnung := TMetaFileCanvas.Create(WMF, 0);
WMF.mmWidth := 2000;
WMF.mmHeigth := 2000;
gehört zu einem der dutzende Fehlversuche.