【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了bydyunit.pas提供大家参考,希望对大家有所帮助!
unit bydyunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,datadomule, ppBands, ppCtrls, ppPrnabl, ppClass, ppCache, ppProd,
ppReport, ppDB, ppComm, ppRelatv, ppDBPipe, ppDBBDE, StdCtrls, Mask,
ExtCtrls, Buttons, ppViewr,ppTypes;
type
Tbydy = class(TForm)
ppViewer1: TppViewer;
pnlPreviewBar: TPanel;
spbPreviewPrint: TSpeedButton;
SpeedButton1: TSpeedButton;
spbPreviewFirst: TSpeedButton;
spbPreviewPrior: TSpeedButton;
spbPreviewNext: TSpeedButton;
spbPreviewLast: TSpeedButton;
spbPreviewWidth: TSpeedButton;
spbPreview100Percent: TSpeedButton;
Bevel1: TBevel;
mskPreviewPage: TMaskEdit;
pnlCancelButton: TPanel;
spbPreviewCancel: TSpeedButton;
ppBDEPipeline1: TppBDEPipeline;
ppReport1: TppReport;
ppHeaderBand1: TppHeaderBand;
ppDetailBand1: TppDetailBand;
ppFooterBand1: TppFooterBand;
ppLabel1: TppLabel;
ppLabel2: TppLabel;
ppLabel3: TppLabel;
ppLabel4: TppLabel;
ppLine1: TppLine;
ppDBText1: TppDBText;
ppDBText2: TppDBText;
ppDBText3: TppDBText;
procedure spbPreviewPrintClick(Sender: TObject);
procedure spbPreviewWidthClick(Sender: TObject);
procedure spbPreview100PercentClick(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure spbPreviewFirstClick(Sender: TObject);
procedure spbPreviewPriorClick(Sender: TObject);
procedure spbPreviewNextClick(Sender: TObject);
procedure spbPreviewLastClick(Sender: TObject);
procedure spbPreviewCancelClick(Sender: TObject);
procedure mskPreviewPageKeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
bydy: Tbydy;
implementation
{$R *.dfm}
procedure Tbydy.spbPreviewPrintClick(Sender: TObject);
begin
ppViewer1.Print;
end;
procedure Tbydy.spbPreviewWidthClick(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsPageWidth;
end;
procedure Tbydy.spbPreview100PercentClick(Sender: TObject);
begin
ppViewer1.ZoomSetting :=zs100Percent;
end;
procedure Tbydy.SpeedButton1Click(Sender: TObject);
begin
ppViewer1.ZoomSetting := zsWholePage;
end;
procedure Tbydy.spbPreviewFirstClick(Sender: TObject);
begin
ppViewer1.FirstPage;
end;
procedure Tbydy.spbPreviewPriorClick(Sender: TObject);
begin
ppViewer1.PriorPage;
end;
procedure Tbydy.spbPreviewNextClick(Sender: TObject);
begin
ppViewer1.NextPage;
end;
procedure Tbydy.spbPreviewLastClick(Sender: TObject);
begin
ppViewer1.LastPage;
end;
procedure Tbydy.spbPreviewCancelClick(Sender: TObject);
begin
if ppViewer1.Report.Printing then
ppViewer1.Cancel;
end;
procedure Tbydy.mskPreviewPageKeyPress(Sender: TObject; var Key: Char);
var
liPage: Longint;
begin
if (Key = #13) then
begin
liPage := StrToInt(mskPreviewPage.Text);
ppViewer1.GotoPage(liPage);
end;
end;
procedure Tbydy.FormCreate(Sender: TObject);
begin
ppViewer1.Reset;
ppReport1.PrintToDevices ;
end;
end.
上一篇:
DivisionView.cpp
下一篇:
“台独”的渊源与实质(中)——兼论台湾问题的基本估计与中国统一的可能前景