每次進入報表的圖之大小 都不一樣?? |
尚未結案
|
seedbcc
高階會員 發表:232 回覆:272 積分:105 註冊:2003-12-10 發送簡訊給我 |
如下面二張圖
第一張為第一次進入,第二張為第二次進入
報表內的部分程式碼如下:
qrsd_Chart:TQRSubDetail; QRImage1: TQRImage; private FU_DrawChart:TCustomChart; 第一段 由前一form傳來參數做接收 procedure TRpt_PChart.ProcessArgs(const Args: array of Variant); begin FFileDataTable:=TkbmMemTable(Integer(Args[0])); FReasonTable:=TkbmMemTable(Integer(Args[1])); FCtrlItemTable:=TkbmMemTable(Integer(Args[2])); FChartTable:=TkbmMemTable(Integer(Args[3])); FU_DrawChart:=TCustomChart(Integer(Args[4])); ... ... chart_U_ControlChart.Enabled := False; QRDBChart1.Enabled := False; ... ... end; procedure TRpt_PChart.qrsd_ChartBeforePrint( Sender: TQRCustomBand; var PrintBand: Boolean); var PIC : TBitMap; begin inherited; if Int_Page<=FChartTable.FieldByName('Pages').AsInteger then begin FU_DrawChart.Page:=FChartTable.FieldByName('ChartPage').AsInteger; chart_U_ControlChart.Chart.Page:=FChartTable.FieldByName('ChartPage').AsInteger; Int_Page:=Int_Page+1; FU_DrawChart.Width:=700; Pic := FU_DrawChart.TeeCreateBitmap(clWhite,FU_DrawChart.ClientRect); try QRImage1.Picture.Bitmap.Assign(PIC); QRImage1.Width:=700; QRImage1.Height:=400; finally PIC.Free; end; end; end; |
seedbcc
高階會員 發表:232 回覆:272 積分:105 註冊:2003-12-10 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |