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

[roga]

Wieso StretchDraw? Was soll hier gestretcht werden?

[Sir Rufo]

Zitat von roga:

Wieso StretchDraw? Was soll hier gestretcht werden?

Das ist doch nur zur Kontrolle des Metafiles am Bildschirm.

Aber warum keine Delphi-Tags benutzt?

[rweinzierl]

Hallo

Zitat:

Aber warum keine Delphi-Tags benutzt?

Diesen Hinweis verstehe ich nicht ganz, was kann ich anders oder besser machen?
Ich verwende die wmf Datei dann später weiter und so ist diese nicht zu gebrauchen.


mfg

Reinhold

[mkinzler]

Zitat von rweinzierl:

Hallo

Zitat:

Aber warum keine Delphi-Tags benutzt?

Diesen Hinweis verstehe ich nicht ganz, was kann ich anders oder besser machen?
Ich verwende die wmf Datei dann später weiter und so ist diese nicht zu gebrauchen.


mfg

Reinhold

Er meint die Codeformatierung hier im Forum. Einfach Code markieren und oben das Delphi-Icon anklicken

[DeddyH]

Oder zur Not händisch mit

Code:

[delphi]Code[/delphi]