시골프로그래머
(안영제)
|
|
procedure TForm1.Button3Click(Sender: TObject);
var
MyMetaFile : TMetaFile;
MyMetaCanvas : TMetaFileCanvas;
begin
MyMetaFile := TMetaFile.Create;
MyMetaFile.Transparent := TRUE;
MyMetaCanvas := TMetafileCanvas.Create(MyMetaFile, 0);
MyMetaCanvas.Draw(0, 0, Image4.Picture.Bitmap);
// 추가코드
MyMetaCanvas.Brush.Style :=bsClear;
MyMetaCanvas.TextOut(0,200,'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★200');
MyMetaCanvas.TextOut(0,220,'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★220');
MyMetaCanvas.TextOut(0,240,'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★240');
MyMetaCanvas.TextOut(0,400,'★★★★★★★★★★★★★★400');
MyMetaCanvas.TextOut(0,800,'★★★★★★★★★★★★★★800');
MyMetaCanvas.TextOut(500,800,'★★★★★★★★★★★★★★500:800');
MyMetaCanvas.TextOut(0,1600,'★★★★★★★★★★★★★★1600');
MyMetaCanvas.TextOut(0,2500,'★★★★★★★★★★★★★★2500');
MyMetaCanvas.Free;
MyMetaFile.SaveToFile('C:\TEST.emf');
MyMetaFile.Free;
//QRImage1.Picture.Metafile := Image2.Picture.Metafile;
QRImage1.Picture.LoadFromFile('C:\TEST.emf');
end;
2018-12-07 오후 1:30:22
|
|
