Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#9

AW: Bitmap in TMetafile ausgeben Windows 7

  Alt 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;
Angehängte Dateien
Dateityp: zip mist.zip (2,0 KB, 3x aufgerufen)
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
  Mit Zitat antworten Zitat