PowerPDF Check In

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@585 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/powerpdf/Example/ViewerPreferenceExample/Unit1.pas

@@ -0,0 +1,107 @@
+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.

components/powerpdf/Example/ViewerPreferenceExample/ViewerPreferenceExample.dpr

@@ -0,0 +1,13 @@
+program ViewerPreferenceExample;
+
+uses
+  Forms,
+  Unit1 in 'Unit1.pas' {Form1};
+
+{$R *.RES}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.