Bitmap in TMetafile ausgeben Windows 7

[rweinzierl]

Danke , wirklich danke.

Tatsächlich arbeitet dieser Code einwandfrei ==> Jetzt habe ich auch die Ursache gefunden, glauben kann ichs aber immer noch nicht ==> Meiner Meinung nach ein Bug .

Wenn ich ein Bitmap lade mit 24 Bit Farbtiefe gehts , bei 256 Farben nicht !!

mfg

Reinhold

Zitat:

Zitat von Bummi (Beitrag 1162979)

folgender Code liefert bei mir unter WIN7 D2010 das erwartete Ergebnis

Delphi-Quellcode:

var MyMetafile : TMetafile;
Bitmap : TBitmap;
myc : TMetafileCanvas ;

begin
MyMetafile := TMetafile.Create;
MyMetafile.Width := 200;
MyMetafile.Height := 200;

Bitmap := TBitmap.create;
Bitmap.width := 100;
Bitmap.Height := 100;
Bitmap.Canvas.pen.Color := clRed;
Bitmap.Canvas.pen.Width := 2;
Bitmap.Canvas.Ellipse(0,0,99,99);
myc := TMetafileCanvas.Create(MyMetafile, 0);

myc.pen.Color := clBlue;
myc.Ellipse(0,0,199,199);
myc.Draw(0, 0, Bitmap);
myc.Free;

MyMetafile.SaveToFile('c:\temp\mist.wmf');
self.Canvas.Draw(0,0,MyMetafile);
Bitmap.free;
MyMetafile.free;
end;

[Bummi]

kannst Du per Bitmap.PixelFormat := pf24Bit;
nachträglich "korrigieren", allerdings habe ich bis incl. pf4Bit kein Problem pf1Bit funktioniert nicht mehr, pf16Bit bringt Farbfehler

[DeddyH]

Könntet Ihr bitte noch Ressourcenschutzblöcke einbauen? Nicht, dass das später jemand so übernimmt und sich Speicherlecks einfängt.

[edit]

Delphi-Quellcode:

  MyMetafile := TMetafile.Create;
  Bitmap := TBitmap.Create;
  try
    ...
  finally
    Bitmap.Free;
    MyMetafile.Free;
  end;

ist aber auch nicht ganz korrekt.

Delphi-Quellcode:

MyMetafile := TMetafile.Create;
try
  Bitmap := TBitmap.Create;
  try
    ...
  finally
    Bitmap.Free;
  end;
finally
  MyMetafile.Free;
end;

Oder man initialisiert die "innere" Instanz mit nil, dann kann es auch im finally nicht knallen.[/edit]