8
июня

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

   Автор: admin   в Delphi FAQ

Вопрос:
Как поместить 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;

Tags: , , , , , ,

Дата создания: Воскресенье, июня 8, 2008 - 20:07 и находится в категории Delphi FAQ. Вы можете отслеживать ответы через RSS 2.0. Вы можете ответить.

Ответить

Вы должны быть в системе для комментирования.