如何使Rave report之列印表格予中文化之問題 ? |
|
ry_lee
高階會員 發表:368 回覆:251 積分:123 註冊:2002-03-19 發送簡訊給我 |
使Rave report之列印表格予中文化之做法,是我上Rave report網站從其Q&A之地方找到,首先至其網站下載rave_dtformsetup.zip到自己的電腦,然後UNZIP rave_dtformsetup.zip會得到三個檔案,dtFormSetup.dfm,dtFormSetup.pas.508,dtFormSetup.pas.511,接著按下列步驟之順序做即可 1.將這二個檔案(dtFormSetup.dfm,dtFormSetup.pas.508)複製到你的報表專案程式目錄,接著將dtFormSetup.pas.508檔名更名為dtFormSetup.pas 2.用delphi之project manager將dtFormSetup.pas加入到報表專案程式內,然後在報表專案程式主表格單元(*.PAS)之interface段的uses子句加入dtFormSetup
,接著對dtFormSetup.dfm之有關英文標籤將其更改為中文 3.在報表專案程式主表格放入RvProject,RvSystem這兩個元件,設定RvProject.engine是RvSystem,RvProject.projectfile是你設計好之報表檔(*.rav),接著點選RvSystem元件,建立其OverrideSetup事件程序碼,如下列示
procedure TForm1.RvSystem1OverrideSetup(ReportSystem: TRvSystem;
OverrideMode: TOverrideMode; var OverrideForm: TForm);
begin
case
OverrideMode of
omCreate:
begin
OverrideForm := TdtSetupForm.Create(nil);
OverrideForm.Caption := RvSystem1.TitleSetup;
(OverrideForm as TdtSetupForm).ReportSystem := ReportSystem;
end;
omShow:
begin
with OverrideForm as TdtSetupForm, ReportSystem do
begin
PreviewSetup := False;
Aborted := ShowModal = mrCancel;
end;
end;
omWait:
begin
{because showModal: no wait necessary!}
end;
omFree:
begin
OverrideForm.Free;
end;
end;
end; 4.儲存報表專案程式並重新編譯,然後執行程式,當你呼叫rvproject.Execute將會跑出一個有中文標籤之列印對話盒,用戶此時可選列印或預覽或儲存成特定格式之檔案(*.pdf,*.html,*.txt)
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |