請教有關FR2.5 升級 至 FR3.0後,Chart.要如何顯示 |
尚未結案
|
jason
一般會員 發表:5 回覆:8 積分:2 註冊:2002-04-21 發送簡訊給我 |
請教各位大大..
我在FR2.5時,要如FR中秀出Chart,方式如下
procedure TForm1.frReport1BeforePrint(Memo: TStringList;
View: TfrView);
begin
if View.Name = 'Chart1' then
begin
TfrChartView(View).AssignChart(Chart1);
end;
end; 升級到FR3.0後,請問各位大大,要如何改寫,原先的View: TfrView是由什麼方式替代了.
|
goat
高階會員 發表:53 回覆:130 積分:134 註冊:2002-06-03 發送簡訊給我 |
Create a chart in the Delphi code.
Put the empty Picture object into a report and write the following TfrxReport.OnBeforePrint handler:
procedure TForm1.frxReport1BeforePrint(Sender: TfrxReportComponent); begin if Sender.Name = 'Picture1' then TfrxPictureView(Sender).Picture.Assign(Chart1.TeeCreateMetafile(False, Rect(0, 0, Round(Sender.Width), Round(Sender.Height)))); end; |
jason
一般會員 發表:5 回覆:8 積分:2 註冊:2002-04-21 發送簡訊給我 |
想不到過了這麼久終於有人回了覆了,goat 大大真是了不起,..
本來已經放棄用FR3,改回用FR2.53,解決問題了...
看了goat大大的解法,讓我又有玩FR3的衝動. goat大大使用的方式是利用picture元件去秀出CHART,我以前也試過類以方法,但我是直接將CHART Save 成一個圖檔,再利用 picture 元件再列印時load出來,但是解析度慘到不行,所以就放棄了用picture的方式,想不到goat大大同樣也是利用picture元件但是出來的效果就非常棒,令人佩服. 先給分了..
有空的話,goat大大可否發表一下利用FR chart的方法. 感謝!
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |