TPanel.PaintTo印出來的畫面如何放大? |
|
答題得分者是：speedup
|
|
binbinalia
一般會員   發表：14 回覆：23 積分：7 註冊：2003-11-05 發送簡訊給我 |
|
|
Jasonwong
版主  發表：49 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
|
|
binbinalia
一般會員 發表：14 回覆：23 積分：7 註冊：2003-11-05 發送簡訊給我 |
|
|
Jasonwong
版主 發表：49 回覆：931 積分：581 註冊：2006-10-27 發送簡訊給我 |
|
|
speedup
資深會員 發表：19 回覆：259 積分：280 註冊：2003-07-04 發送簡訊給我 |
引言: 請教各位大大: 我本來想用TQRChart元件在報表裡放圖表,結果不知怎麼搞的一執行就當機, 後來我就想用TPanel裡的PaintTo直接把畫面印出來, 程式碼: Panel1.PaintTo(Handle,10,10); 結果印出來的畫面,只有大約火柴盒大小... 請問要怎麼讓它印出來有A4那麼大啊?你想直接畫到印表機嗎? 可以先PaintTo 同樣大小的Bitmap上 再透過TPrinter.Canvas.StretchDraw畫出 procedure TForm1.Button1Click(Sender: TObject); var bmp :TBitmap; begin bmp := TBitmap.Create; try bmp.Height := Panel1.Height; bmp.Width := Panel1.Width; Panel1.PaintTo(bmp.Canvas.Handle,0,0); with Printer do begin BeginDoc; Canvas.StretchDraw(Rect(20,20,PageWidth-20,PageHeight-20),Bmp); EndDoc; end; finally bmp.Free; end; end;混心雜欲 棄修身~唉
------
唉~ |
|
binbinalia
一般會員 發表：14 回覆：23 積分：7 註冊：2003-11-05 發送簡訊給我 |
發表時間：2004-01-29 14:31:14
IP:61.221.xxx.xxx 未訂閱
系統時間：2024-05-05 21:48:01
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |