PowerPDF Check In

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

components/powerpdf/LazarusExamples/PageLayoutModeExample/Unit1.pas

@@ -0,0 +1,107 @@
+unit Unit1;
+
+{$MODE Delphi}
+
+interface
+
+uses
+  LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, ExtCtrls, PdfDoc, PReport, {ShellAPI,} LResources, Buttons;
+
+type
+  TForm1 = class(TForm)
+    PRPage1: TPRPage;
+    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;
+    Button1: TButton;
+    PReport1: TPReport;
+    RadioGroup1: TRadioGroup;
+    RadioGroup2: TRadioGroup;
+    PRPage2: TPRPage;
+    PRLayoutPanel2: TPRLayoutPanel;
+    PRLabel28: TPRLabel;
+    PRLabel29: TPRLabel;
+    PRLabel30: TPRLabel;
+    PRLabel31: TPRLabel;
+    PRLabel32: TPRLabel;
+    PRLabel33: TPRLabel;
+    PRLabel34: TPRLabel;
+    PRLabel35: TPRLabel;
+    PRLabel36: TPRLabel;
+    PRLabel37: TPRLabel;
+    PRLabel38: TPRLabel;
+    PRLabel39: TPRLabel;
+    PRLabel40: TPRLabel;
+    PRLabel41: TPRLabel;
+    PRLabel42: TPRLabel;
+    PRLabel43: TPRLabel;
+    PRLabel44: TPRLabel;
+    PRLabel45: TPRLabel;
+    PRLabel46: TPRLabel;
+    PRLabel47: TPRLabel;
+    PRLabel48: TPRLabel;
+    PRLabel49: TPRLabel;
+    PRLabel50: TPRLabel;
+    PRLabel51: TPRLabel;
+    PRLabel52: TPRLabel;
+    PRLabel53: TPRLabel;
+    PRLabel54: TPRLabel;
+    procedure Button1Click(Sender: TObject);
+  private
+    { Private �錾 }
+  public
+    { Public �錾 }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+  with PReport1 do
+  begin
+    BeginDoc;
+    PReport1.PageLayout := TPRPageLayout(RadioGroup1.ItemIndex);
+    PReport1.PageMode := TPRPageMode(RadioGroup2.ItemIndex);
+    Print(PRPage1);
+    Print(PRPage2);
+    Print(PRPage1);
+    Print(PRPage2);
+    EndDoc;
+  end;
+  //ShellExecute(Self.Handle, 'Open', 'default.pdf', '', '', SW_SHOW);
+end;
+
+initialization
+  {$i Unit1.lrs}
+
+end.