Bitmap in TMetafile ausgeben Windows 7

[rweinzierl]

Hallo

Erst mal danke für das du es ausprobiert hast, aber Delphi akteptiert den Code so nicht, TMetafileCanvas akzeptiert kein Height.

Ich habe die gleiche Exe mit dem gleichen Bitmap (nur 1 Pixel in Schwarz) auf einen XP und einen Windows7(32 Bit) laufen lassen und die wmf Dateien im Hex Editor verglichen ==> Da sind mehr Unterschiede als ich erwartet habe.(siehe Anhang). (MSPaint zeigt bei der xp Version das eine Pixel einwandfrei an bei der win7 version nicht)

Ich verstehe erlich gesagt die Welt nicht mehr, habe im Internet niemanden mit dem gleichen Problem gefunden. Ich dachte das sei eine Grundfunktion von Delphi/Windows und sollte funktioniern.

Ich habe mir auch die Spezikation der WMF Datei geladen aber da stöße ich an meine Grenzen.

mfg

Reinhold

Zitat von freeway:

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

Delphi-Quellcode:

myc.Height := Bitmap.Height;
myc.Width  := Bitmap.Width;