Ergebnis der Suchanfrage

• Forum: Multimedia

  AW: Bitmap in TMetafile ausgeben Windows 7

   
    by freeway, 22. Apr 2012
  da hab ich vertan mit myc und mymetafile, sorry
  
  so sollte es sein
  
  MyMetafile.Height := Bitmap.Height;
  MyMetafile.Width := Bitmap.Width;
  
  myc := TMetafileCanvas.Create(MyMetafile, 0);
• Forum: Multimedia

  AW: Bitmap in TMetafile ausgeben Windows 7

   
    by freeway, 20. Apr 2012
  ich hab mal deinen Code kopiert und ihn so laufen lassen, unter WIN7, das dabei erzeugte WMF entspricht exakt dem BMP
  vielleicht hilft dir diese kleine Änderung
  
  var MyMetafile : TMetafile;
  Bitmap : TBitmap;
  myc : TMetafileCanvas ;
  
  begin
  MyMetafile := TMetafile.Create;
  Bitmap := TBitmap.create;