Einzelnen Beitrag anzeigen

Benutzerbild von rweinzierl
rweinzierl

Registriert seit: 22. Mär 2005
98 Beiträge
 
#1

Bitmap in TMetafile ausgeben Windows 7

  Alt 19. Apr 2012, 16:57
Hallo

Ich verwende diesen Code, unter Windwos XP funktioniert es einwandfrei bei Windows 7 ist die metafile- Datei nicht korrekt.

Am Bildschirm wird sauber das Bitmap ausgegeben, in der wmf Datei sieht man nur die Linie.

(Ich habs mit emf probiert da sieht es besser aus, weis jemand warum ?)

Delphi-Quellcode:
var MyMetafile : TMetafile;
Bitmap : TBitmap;
myc : TMetafileCanvas ;
begin
MyMetafile := TMetafile.Create;
Bitmap := TBitmap.create;
Bitmap.LoadFromFile('test.bmp');

myc := TMetafileCanvas.Create(MyMetafile, 0);
myc.LineTo(100, 100);
myc.Draw(0, 0, Bitmap);
myc.Free;

MyMetafile.SaveToFile('c:\temp\mist.wmf');
self.Canvas.StretchDraw(rect(0,0,MyMetafile.Width,MyMetafile.Height),MyMetafile);
Bitmap.free;
MyMetafile.free;
mfg

Reinhold

Geändert von mkinzler (20. Apr 2012 um 08:00 Uhr) Grund: Delphi-Tag eingefügt
  Mit Zitat antworten Zitat