Bitmap in TMetafile ausgeben Windows 7

[rweinzierl]

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