home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d3456 / POWERPDF.ZIP / PowerPdf / Example / PageLayoutModeExample / Unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2001-09-15  |  2.4 KB  |  104 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, PdfDoc, PReport, ShellAPI;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     PRPage1: TPRPage;
  12.     PRLayoutPanel1: TPRLayoutPanel;
  13.     PRLabel1: TPRLabel;
  14.     PRLabel2: TPRLabel;
  15.     PRLabel3: TPRLabel;
  16.     PRLabel4: TPRLabel;
  17.     PRLabel5: TPRLabel;
  18.     PRLabel6: TPRLabel;
  19.     PRLabel7: TPRLabel;
  20.     PRLabel8: TPRLabel;
  21.     PRLabel9: TPRLabel;
  22.     PRLabel10: TPRLabel;
  23.     PRLabel11: TPRLabel;
  24.     PRLabel12: TPRLabel;
  25.     PRLabel13: TPRLabel;
  26.     PRLabel14: TPRLabel;
  27.     PRLabel15: TPRLabel;
  28.     PRLabel16: TPRLabel;
  29.     PRLabel17: TPRLabel;
  30.     PRLabel18: TPRLabel;
  31.     PRLabel19: TPRLabel;
  32.     PRLabel20: TPRLabel;
  33.     PRLabel21: TPRLabel;
  34.     PRLabel22: TPRLabel;
  35.     PRLabel23: TPRLabel;
  36.     PRLabel24: TPRLabel;
  37.     PRLabel25: TPRLabel;
  38.     PRLabel26: TPRLabel;
  39.     PRLabel27: TPRLabel;
  40.     Button1: TButton;
  41.     PReport1: TPReport;
  42.     RadioGroup1: TRadioGroup;
  43.     RadioGroup2: TRadioGroup;
  44.     PRPage2: TPRPage;
  45.     PRLayoutPanel2: TPRLayoutPanel;
  46.     PRLabel28: TPRLabel;
  47.     PRLabel29: TPRLabel;
  48.     PRLabel30: TPRLabel;
  49.     PRLabel31: TPRLabel;
  50.     PRLabel32: TPRLabel;
  51.     PRLabel33: TPRLabel;
  52.     PRLabel34: TPRLabel;
  53.     PRLabel35: TPRLabel;
  54.     PRLabel36: TPRLabel;
  55.     PRLabel37: TPRLabel;
  56.     PRLabel38: TPRLabel;
  57.     PRLabel39: TPRLabel;
  58.     PRLabel40: TPRLabel;
  59.     PRLabel41: TPRLabel;
  60.     PRLabel42: TPRLabel;
  61.     PRLabel43: TPRLabel;
  62.     PRLabel44: TPRLabel;
  63.     PRLabel45: TPRLabel;
  64.     PRLabel46: TPRLabel;
  65.     PRLabel47: TPRLabel;
  66.     PRLabel48: TPRLabel;
  67.     PRLabel49: TPRLabel;
  68.     PRLabel50: TPRLabel;
  69.     PRLabel51: TPRLabel;
  70.     PRLabel52: TPRLabel;
  71.     PRLabel53: TPRLabel;
  72.     PRLabel54: TPRLabel;
  73.     procedure Button1Click(Sender: TObject);
  74.   private
  75.     { Private ÉΘî╛ }
  76.   public
  77.     { Public ÉΘî╛ }
  78.   end;
  79.  
  80. var
  81.   Form1: TForm1;
  82.  
  83. implementation
  84.  
  85. {$R *.DFM}
  86.  
  87. procedure TForm1.Button1Click(Sender: TObject);
  88. begin
  89.   with PReport1 do
  90.   begin
  91.     BeginDoc;
  92.     PReport1.PageLayout := TPRPageLayout(RadioGroup1.ItemIndex);
  93.     PReport1.PageMode := TPRPageMode(RadioGroup2.ItemIndex);
  94.     Print(PRPage1);
  95.     Print(PRPage2);
  96.     Print(PRPage1);
  97.     Print(PRPage2);
  98.     EndDoc;
  99.   end;
  100.   ShellExecute(Self.Handle, 'Open', 'default.pdf', '', '', SW_SHOW);
  101. end;
  102.  
  103. end.
  104.