?? rpreview.pas
字號:
unit RPreview;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FR_Ctrls, ExtCtrls, frxClass, frxPreview, StdCtrls, NumEdit,
frxExportXLS, frxExportRTF, frxExportPDF;
type
TRPreviewForm = class(TForm)
frxPreview1: TfrxPreview;
Panel1: TPanel;
frSpeedButton1: TfrSpeedButton;
frSpeedButton2: TfrSpeedButton;
frSpeedButton3: TfrSpeedButton;
frSpeedButton4: TfrSpeedButton;
frSpeedButton5: TfrSpeedButton;
frSpeedButton6: TfrSpeedButton;
frSpeedButton7: TfrSpeedButton;
frSpeedButton10: TfrSpeedButton;
PageN: TNumEdit;
frxXLSExport1: TfrxXLSExport;
frSpeedButton8: TfrSpeedButton;
frxRTFExport1: TfrxRTFExport;
frxPDFExport1: TfrxPDFExport;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure frSpeedButton10Click(Sender: TObject);
procedure frSpeedButton2Click(Sender: TObject);
procedure frSpeedButton1Click(Sender: TObject);
procedure frSpeedButton3Click(Sender: TObject);
procedure frSpeedButton4Click(Sender: TObject);
procedure frSpeedButton5Click(Sender: TObject);
procedure frSpeedButton6Click(Sender: TObject);
procedure frSpeedButton7Click(Sender: TObject);
procedure frxPreview1PageChanged(Sender: TfrxPreview; PageNo: Integer);
procedure frSpeedButton8Click(Sender: TObject);
private
public
end;
var
RPreviewForm: TRPreviewForm;
implementation
{$R *.dfm}
procedure TRPreviewForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TRPreviewForm.frSpeedButton10Click(Sender: TObject);
begin
frxPreview1.Report.Print;
//frxPreview1.Print;
end;
procedure TRPreviewForm.frSpeedButton2Click(Sender: TObject);
begin
frxPreview1.ZoomMode := zmDefault;
end;
procedure TRPreviewForm.frSpeedButton1Click(Sender: TObject);
begin
frxpreview1.ZoomMode:=zmWholePage;
end;
procedure TRPreviewForm.frSpeedButton3Click(Sender: TObject);
begin
frxPreview1.ZoomMode:=zmPageWidth;
end;
procedure TRPreviewForm.frSpeedButton4Click(Sender: TObject);
begin
frxpreview1.First;
end;
procedure TRPreviewForm.frSpeedButton5Click(Sender: TObject);
begin
frxpreview1.Prior;
end;
procedure TRPreviewForm.frSpeedButton6Click(Sender: TObject);
begin
frxpreview1.Next;
end;
procedure TRPreviewForm.frSpeedButton7Click(Sender: TObject);
begin
frxpreview1.Last;
end;
procedure TRPreviewForm.frxPreview1PageChanged(Sender: TfrxPreview;
PageNo: Integer);
begin
PageN.Value:=PageNo;
end;
procedure TRPreviewForm.frSpeedButton8Click(Sender: TObject);
begin
//frxpreview1.Report.PrepareReport(true);
//frxXLSExport1.CurPage:=False;
//frxpreview1.Report.Export(frxXLSExport1);
frxpreview1.Report.Export(frxPDFExport1);
self.Close;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -