1. 개발/실행 플랫폼 
  (1) OS : 
  (2) 개발툴 : Delphi XE2
  (3) 사용 Database : 

2. 개발 중인 프로그램 
  Metafile 생성 시 배경이미지 삽입

3. 질문 내용 

안녕하세요.

Metafile을 다룰일이 있어서 고민하다가 질문올립니다.

배경이미지를 넣고 텍스트를 입력 후 emf로 변환하면 텍스트 주변이 박스로 보이는데 

이부분을 투명화 시킬 수 있는 방법이 없을까요??

아래는 Metafile을 만들고 배경이미지 넣고, 텍스트 넣고 emf로 저장 후 QuickReport로 로드해서 보는 샘플 소스입니다.


샘플 소스  :

 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.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;