Page 81 - 4260

Form1.Canvas.Draw(0,0,MyMetafile); //
Малювати метафайл на формі
end;

procedure TForm1. SmotrethClick(Sender: TObject);
begin
Image1.Picture.LoadFromFile('MyMetafile.wmf'); // Перегляд
end;

initialization
MyMetafile := TMetafile.Create; //
Створити метафайл
end.
Увага
Робота з метафайлом здійснюється в динамічній
пам'яті, тому перед використанням створеного метафайла
необхідно звільнити ДП процедурою Free.
На рисунку 7.9 показано вікно працюючого додатка
завдання 3. Ліва частина відображається при натисканні
кнопки «Створити метафайл», права - при натисканні кнопки
«Дивитися метафайл».

Рисунок 7.9 - Форма працюючого додатка завдання 3

81