Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Bitmap in TMetafile ausgeben Windows 7
22. Apr 2012, 08:24
folgender Code liefert bei mir unter WIN7 D2010 das erwartete Ergebnis
Delphi-Quellcode:
var
MyMetafile: TMetafile;
Bitmap: TBitmap;
myc: TMetafileCanvas;
begin
MyMetafile := TMetafile.Create;
Bitmap := TBitmap.Create;
try
MyMetafile.Width := 200;
MyMetafile.Height := 200;
Bitmap.Width := 100;
Bitmap.Height := 100;
Bitmap.Canvas.pen.Color := clRed;
Bitmap.Canvas.pen.Width := 2;
Bitmap.Canvas.Ellipse(0, 0, 99, 99);
Bitmap.PixelFormat := pf32bit;
myc := TMetafileCanvas.Create(MyMetafile, 0);
try
myc.pen.Color := clBlue;
myc.Ellipse(0, 0, 199, 199);
myc.Draw(0, 0, Bitmap);
finally
myc.Free;
end;
MyMetafile.SaveToFile('c:\temp\mist.wmf');
self.Canvas.Draw(0, 0, MyMetafile);
finally
Bitmap.Free;
MyMetafile.Free;
end;
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
Geändert von Bummi (22. Apr 2012 um 10:57 Uhr)
Grund: berechtigte Forderung von DeddyH
|
|
Zitat
|