MetaFile ist nur Schwarz

[neolithos]

Ich versuche aus der Zwischenablage ein MetaFile auszulesen und dieses in eine Datei zu schreiben.

Funktioniert so weit auch ganz gut, nur geht die Farbe verloren.

Wie erhalte ich das farbige EMF?

Delphi-Quellcode:

  Clipboard.Open;
  try
    img := TMetafile.Create();
    img.LoadFromClipboardFormat(0, 0, 0);

    img.SaveToFile(sFileName);

    img.Free;

    // Leere Zwischenablage
    Clipboard.Clear;
  finally
    Clipboard.Close;
  end;

[neolithos]

Feststellung: Es geht nicht direkt die Farbe verloren, sondern nur die Schriftfarbe. Flächen, Linien, Bilder sind farbig.

[toms]

vielleicht so? (ungetestet)

Delphi-Quellcode:

var
 img : TMetafile;
begin
  Clipboard.Open;
  try
    if IsClipboardFormatAvailable(CF_ENHMETAFILE) then
    begin
      img := TMetafile.Create();
      try
        img.LoadFromClipboardFormat(CF_ENHMETAFILE, Clipboard.GetAsHandle(CF_ENHMETAFILE), 0);
        img.SaveToFile(sFileName);
      finally
        img.Free;
      end;
    end;
  finally
    Clipboard.close;
  end;
end;