Ich habe deine FlowChart-Komponente nicht, aber bei mir funktioniert das hier:
Delphi-Quellcode:
var
mf: TMetaFile;
mfc: TMetaFileCanvas;
begin
mf := TMetaFile.Create;
mfc := TMetaFileCanvas.Create(mf, 0);
mfc.CopyRect(
mfc.ClipRect,
fcCanvas,
Image.ClientRect);
mfc.Free;
mf.SaveToFile('c:\test.emf');
mf.Free;
end;
Vieles von dem was du (bzw. die demo) machst ist ja nur das Aufblasen des Bildes und das Zurücksetzen der Änderungen. Die von dir erzeugte EMF-Datei müsste dir sagen, welche Dimensionen sie hat. Könnte ein Hinweis sein auf die Fehlerursache.
Grüße vom marabu