You've already forked lazarus-ccr
87fdff01a2
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@585 8e941d3f-bd1b-0410-a28a-d453659cc2b4
108 lines
2.7 KiB
ObjectPascal
108 lines
2.7 KiB
ObjectPascal
unit Unit1;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, ExtCtrls, PReport, PdfDoc, ComCtrls, ShellAPI;
|
|
|
|
type
|
|
TForm1 = class(TForm)
|
|
Button1: TButton;
|
|
PRPage1: TPRPage;
|
|
PReport1: TPReport;
|
|
PRLayoutPanel1: TPRLayoutPanel;
|
|
PRLabel1: TPRLabel;
|
|
PRLabel2: TPRLabel;
|
|
PRLabel3: TPRLabel;
|
|
PRLabel4: TPRLabel;
|
|
PRLabel5: TPRLabel;
|
|
PRLabel6: TPRLabel;
|
|
PRLabel7: TPRLabel;
|
|
PRLabel8: TPRLabel;
|
|
PRLabel9: TPRLabel;
|
|
PRLabel10: TPRLabel;
|
|
PRLabel11: TPRLabel;
|
|
PRLabel12: TPRLabel;
|
|
PRLabel13: TPRLabel;
|
|
PRLabel14: TPRLabel;
|
|
PRLabel15: TPRLabel;
|
|
PRLabel16: TPRLabel;
|
|
PRLabel17: TPRLabel;
|
|
PRLabel18: TPRLabel;
|
|
PRLabel19: TPRLabel;
|
|
PRLabel20: TPRLabel;
|
|
PRLabel21: TPRLabel;
|
|
PRLabel22: TPRLabel;
|
|
PRLabel23: TPRLabel;
|
|
PRLabel24: TPRLabel;
|
|
PRLabel25: TPRLabel;
|
|
PRLabel26: TPRLabel;
|
|
PRLabel27: TPRLabel;
|
|
HideToolbar: TCheckBox;
|
|
HideMenubar: TCheckBox;
|
|
HideWindowUI: TCheckBox;
|
|
FitWindow: TCheckBox;
|
|
CenterWindow: TCheckBox;
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure HideToolbarClick(Sender: TObject);
|
|
private
|
|
{ Private �錾 }
|
|
public
|
|
{ Public �錾 }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TForm1.Button1Click(Sender: TObject);
|
|
begin
|
|
with PReport1 do
|
|
begin
|
|
BeginDoc;
|
|
Print(PRPage1);
|
|
EndDoc;
|
|
end;
|
|
ShellExecute(Self.Handle, 'Open', 'default.pdf', '', '', SW_SHOW);
|
|
end;
|
|
|
|
procedure TForm1.HideToolbarClick(Sender: TObject);
|
|
begin
|
|
with PReport1 do
|
|
if TCheckBox(Sender).Name = 'HideToolbar' then
|
|
if TCheckBox(Sender).Checked then
|
|
ViewerPreference := ViewerPreference + [vpHideToolbar]
|
|
else
|
|
ViewerPreference := ViewerPreference - [vpHideToolbar]
|
|
else
|
|
if TCheckBox(Sender).Name = 'HideMenubar' then
|
|
if TCheckBox(Sender).Checked then
|
|
ViewerPreference := ViewerPreference + [vpHideMenubar]
|
|
else
|
|
ViewerPreference := ViewerPreference - [vpHideMenubar]
|
|
else
|
|
if TCheckBox(Sender).Name = 'HideWindowUI' then
|
|
if TCheckBox(Sender).Checked then
|
|
ViewerPreference := ViewerPreference + [vpHideWindowUI]
|
|
else
|
|
ViewerPreference := ViewerPreference - [vpHideWindowUI]
|
|
else
|
|
if TCheckBox(Sender).Name = 'FitWindow' then
|
|
if TCheckBox(Sender).Checked then
|
|
ViewerPreference := ViewerPreference + [vpFitWindow]
|
|
else
|
|
ViewerPreference := ViewerPreference - [vpFitWindow]
|
|
else
|
|
if TCheckBox(Sender).Name = 'CenterWindow' then
|
|
if TCheckBox(Sender).Checked then
|
|
ViewerPreference := ViewerPreference + [vpCenterWindow]
|
|
else
|
|
ViewerPreference := ViewerPreference - [vpCenterWindow];
|
|
end;
|
|
|
|
end.
|