線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1654
推到 Plurk!
推到 Facebook!

TMetafileCanvas,TMetafile在打印和预览方面的使用方法

尚未結案
Delhpi
一般會員


發表:9
回覆:14
積分:4
註冊:2008-07-05

發送簡訊給我
#1 引用回覆 回覆 發表時間:2009-09-02 16:33:36 IP:221.130.xxx.xxx 訂閱
 
[code delphi]
procedure Draw(Acanvas: TCanvas);
begin
with Acanvas do
begin
font.name := '宋体';
font.size := 11;
textout(100,100, '姓名'); //这里的坐标应该如何计算,才能实现,预览和打印的一致?
end;
end;


procedure TForm1.Button1Click(Sender: TObject);
var
mymetafile: Tmetafile;
cv: TCanvas;
begin
if not CheckBox1.Checked then
begin
printer.BeginDoc;
Draw(printer.canvas);
printer.enddoc;
end
else
begin
MyMetafile := Tmetafile.Create;
try
cv := TMetafileCanvas.Create(MyMetafile, printer.Handle);
try
Draw(cv);
finally
cv.Free;
end;
image1.Canvas.StretchDraw(Image1.Canvas.ClipRect , MyMetafile);
//image1上本身有个jpg图片,想在上面再画文字。
finally
mymetafile.Free;
end;
end;
end;
[/code]
系統時間:2017-10-24 13:36:20
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!