Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Мультимедия / Как поместить bitmap в Metafile?

Как поместить bitmap в Metafile?

Пример:

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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru