Forum: Multimedia
Delphi
by xaromz,
31. Mär 2006
Hallo,
das Problem ist, dass beim Zeichnen eines Metafiles ja immer die einzelnen Zeichenschritte durchgeführt werden. Mit jedem Durchlauf werden es also immer mehr Zeichenschritte, die nötig sind.
Wie sich dieses Problem hier konkret lösen lässt, kann ich Dir nicht sagen. Vielleicht solltest Du über Deine Herangehensweise nachdenken und einen anderen Ansatz wählen.
Gruß
xaromz
Forum: Multimedia
Delphi
by xaromz,
31. Mär 2006
Hallo,
Du musst ein neues Metafile erzeugen, und auf dessen Canvas Dein Original-Metafile malen. Ungefähr so:
procedure MalAufMetaFile(var AMF: TMetaFile); // <- hier ist var wichtig
var
MF: TMetaFile;
begin
MF := TMetaFile.Create;
MF.Width := AMF.Width;
MF.Height := AMF.Height;