Как поместить битмап в метафайл

Материал из DRKB


Следующий пример демонстрирует рисование битмапа в метафайле.


procedure TForm1.Button1Click(Sender: TObject);
var
  m: TMetaFile;
  mc: TMetaFileCanvas;
  b: TBitmap;
begin
  m := TMetaFile.Create;
  b := TBitmap.Create;
  b.LoadFromFile('C:\SomePath\SomeBitmap.BMP');
  m.Height := b.Height;
  m.Width := b.Width;
  mc := TMetafileCanvas.Create(m, 0);
  mc.Draw(0, 0, b);
  mc.Free;
  b.Free;
  m.SaveToFile('C:\SomePath\Test.emf');
  m.Free;
  Image1.Picture.LoadFromFile('C:\SomePath\Test.emf');
end;


Source: http://forum.sources.ru
ID: 03766