home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d3456 / POWERPDF.ZIP / PowerPdf / Example / ViewerPreferenceExample / Unit1.pas < prev    next >
Pascal/Delphi Source File  |  2001-09-15  |  3KB  |  108 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, PReport, PdfDoc, ComCtrls, ShellAPI;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Button1: TButton;
  12.     PRPage1: TPRPage;
  13.     PReport1: TPReport;
  14.     PRLayoutPanel1: TPRLayoutPanel;
  15.     PRLabel1: TPRLabel;
  16.     PRLabel2: TPRLabel;
  17.     PRLabel3: TPRLabel;
  18.     PRLabel4: TPRLabel;
  19.     PRLabel5: TPRLabel;
  20.     PRLabel6: TPRLabel;
  21.     PRLabel7: TPRLabel;
  22.     PRLabel8: TPRLabel;
  23.     PRLabel9: TPRLabel;
  24.     PRLabel10: TPRLabel;
  25.     PRLabel11: TPRLabel;
  26.     PRLabel12: TPRLabel;
  27.     PRLabel13: TPRLabel;
  28.     PRLabel14: TPRLabel;
  29.     PRLabel15: TPRLabel;
  30.     PRLabel16: TPRLabel;
  31.     PRLabel17: TPRLabel;
  32.     PRLabel18: TPRLabel;
  33.     PRLabel19: TPRLabel;
  34.     PRLabel20: TPRLabel;
  35.     PRLabel21: TPRLabel;
  36.     PRLabel22: TPRLabel;
  37.     PRLabel23: TPRLabel;
  38.     PRLabel24: TPRLabel;
  39.     PRLabel25: TPRLabel;
  40.     PRLabel26: TPRLabel;
  41.     PRLabel27: TPRLabel;
  42.     HideToolbar: TCheckBox;
  43.     HideMenubar: TCheckBox;
  44.     HideWindowUI: TCheckBox;
  45.     FitWindow: TCheckBox;
  46.     CenterWindow: TCheckBox;
  47.     procedure Button1Click(Sender: TObject);
  48.     procedure HideToolbarClick(Sender: TObject);
  49.   private
  50.     { Private ÉΘî╛ }
  51.   public
  52.     { Public ÉΘî╛ }
  53.   end;
  54.  
  55. var
  56.   Form1: TForm1;
  57.  
  58. implementation
  59.  
  60. {$R *.DFM}
  61.  
  62. procedure TForm1.Button1Click(Sender: TObject);
  63. begin
  64.   with PReport1 do
  65.   begin
  66.     BeginDoc;
  67.     Print(PRPage1);
  68.     EndDoc;
  69.   end;
  70.   ShellExecute(Self.Handle, 'Open', 'default.pdf', '', '', SW_SHOW);
  71. end;
  72.  
  73. procedure TForm1.HideToolbarClick(Sender: TObject);
  74. begin
  75.   with PReport1 do
  76.     if TCheckBox(Sender).Name = 'HideToolbar' then
  77.       if TCheckBox(Sender).Checked then
  78.         ViewerPreference := ViewerPreference + [vpHideToolbar]
  79.       else
  80.         ViewerPreference := ViewerPreference - [vpHideToolbar]
  81.     else
  82.     if TCheckBox(Sender).Name = 'HideMenubar' then
  83.       if TCheckBox(Sender).Checked then
  84.         ViewerPreference := ViewerPreference + [vpHideMenubar]
  85.       else
  86.         ViewerPreference := ViewerPreference - [vpHideMenubar]
  87.     else
  88.     if TCheckBox(Sender).Name = 'HideWindowUI' then
  89.       if TCheckBox(Sender).Checked then
  90.         ViewerPreference := ViewerPreference + [vpHideWindowUI]
  91.       else
  92.         ViewerPreference := ViewerPreference - [vpHideWindowUI]
  93.     else
  94.     if TCheckBox(Sender).Name = 'FitWindow' then
  95.       if TCheckBox(Sender).Checked then
  96.         ViewerPreference := ViewerPreference + [vpFitWindow]
  97.       else
  98.         ViewerPreference := ViewerPreference - [vpFitWindow]
  99.     else
  100.     if TCheckBox(Sender).Name = 'CenterWindow' then
  101.       if TCheckBox(Sender).Checked then
  102.         ViewerPreference := ViewerPreference + [vpCenterWindow]
  103.       else
  104.         ViewerPreference := ViewerPreference - [vpCenterWindow];
  105. end;
  106.  
  107. end.
  108.