【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-MC_DYYLBrose.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit MC_DYYLBrose;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ToolWin, QRPrntr, StdCtrls, Buttons, ExtCtrls, ImgList;
type
TDYYLBrose = class(TForm)
StatusBar1: TStatusBar;
Panel1: TPanel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
BitBtn8: TBitBtn;
BitBtn9: TBitBtn;
BitBtn10: TBitBtn;
Panel2: TPanel;
QRPreview1: TQRPreview;
ImageList1: TImageList;
procedure BitBtn10Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure QRPreview1PageAvailable(Sender: TObject; PageNum: Integer);
procedure BitBtn6Click(Sender: TObject);
procedure BitBtn7Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure BitBtn8Click(Sender: TObject);
procedure BitBtn9Click(Sender: TObject);
procedure FormHide(Sender: TObject);
private
count_Print:integer;
{ Private declarations }
public
{ Public declarations }
end;
var
DYYLBrose: TDYYLBrose;
implementation
{$R *.DFM}
procedure TDYYLBrose.BitBtn10Click(Sender: TObject);
begin
Close;
end;
procedure TDYYLBrose.BitBtn1Click(Sender: TObject);
begin
QRPreview1.PageNumber:=1;
end;
procedure TDYYLBrose.BitBtn2Click(Sender: TObject);
begin
if QRPreview1.PageNumber<>1 then
QRPreview1.PageNumber:=QRPreview1.PageNumber-1;
end;
procedure TDYYLBrose.BitBtn3Click(Sender: TObject);
begin
if QRPreview1.PageNumber<>count_print then
QRPreview1.PageNumber:=QRPreview1.PageNumber+1;
end;
procedure TDYYLBrose.BitBtn4Click(Sender: TObject);
begin
QRPreview1.PageNumber:=COunt_Print;
end;
procedure TDYYLBrose.QRPreview1PageAvailable(Sender: TObject;
PageNum: Integer);
begin
count_Print:=PageNum;
end;
procedure TDYYLBrose.BitBtn6Click(Sender: TObject);
begin
QRPreview1.Zoom:=100;
end;
procedure TDYYLBrose.BitBtn7Click(Sender: TObject);
begin
QRPreView1.ZoomToWidth;
end;
procedure TDYYLBrose.BitBtn5Click(Sender: TObject);
begin
QRPreview1.ZoomToFit;
end;
procedure TDYYLBrose.BitBtn8Click(Sender: TObject);
begin
QRPreview1.QRPrinter.PrintSetup;
end;
procedure TDYYLBrose.BitBtn9Click(Sender: TObject);
begin
QRPreview1.QRPrinter.Print;
end;
procedure TDYYLBrose.FormHide(Sender: TObject);
begin
ANiMateWindow(Handle,300,AW_CENTER+AW_SLIDE+AW_HIDE);
QrPreview1.QRPrinter:=nil;//短开欲览连接
end;
end.
上一篇:
MC_DLXXSCQ.pas
下一篇:
爱情只不过就是,爱与不爱