Fórum Metafile quot;toquot; BMP #223703

procedure TForm1.Button2Click(Sender: TObject);
var
  Bitmap: TBitmap;
  MetaFile: TMetaFile;
begin
  if FileExists(FileNameEdit.Text) then
  begin
    MetaFile := TMetaFile.Create;
    try
      MetaFile.LoadFromFile(FileNameEdit.Text);
      Bitmap := TBitmap.Create;
      try
        Bitmap.PixelFormat := pf24bit;
        Bitmap.Width := MetaFile.Width;
        Bitmap.Height := MetaFile.Height;
        Bitmap.Canvas.Draw(0, 0, MetaFile);
        Bitmap.SaveToFile(ChangeFileExt(FileNameEdit.Text, ´.bmp´));
      finally
        Bitmap.Free;
      end;
    finally
      MetaFile.Free;
    end;
  end;
end;