WMF To PNG

[Uwe Raabe]

Probier mal dies:

Delphi-Quellcode:

  wmf := TMetafile.Create;
  wmf.LoadFromFile(...);

  png := TPngImage.CreateBlank(COLOR_RGB, 16, wmf.Width, wmf.Height);
  png.Transparent := True;
  png.TransparentColor := clNone;
  png.Canvas.Brush.Color := png.TransparentColor;
  png.Canvas.FillRect(TRect.Create(0, 0, png.Width, png.Height));
  png.Canvas.Draw(0, 0, wmf);
  ...