귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
吏덈Ц怨 떟蹂 吏덈Ц怨 떟蹂 입니다.
글내용 - 吏덈Ц怨 떟蹂
 [吏덈Ц] Metafile 깮꽦 떆 닾紐낇솕愿젴..
룄쓽
(諛뺤씪)
2018-12-07 삤쟾 11:15:44
95회 조회


첨부파일 다운로드
metafile 뀒뒪듃.png
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;