home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d3456 / POWERPDF.ZIP / PowerPdf / Example / LineDemo / ULineExample.pas < prev   
Pascal/Delphi Source File  |  2001-09-15  |  3KB  |  125 lines
  1. unit ULineExample;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   ExtCtrls, PReport, PdfDoc, Menus, ComCtrls;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     StatusBar1: TStatusBar;
  12.     ScrollBox1: TScrollBox;
  13.     MainMenu1: TMainMenu;
  14.     File1: TMenuItem;
  15.     CreatePDF1: TMenuItem;
  16.     N1: TMenuItem;
  17.     Exit1: TMenuItem;
  18.     Help1: TMenuItem;
  19.     About1: TMenuItem;
  20.     PReport1: TPReport;
  21.     PRPage1: TPRPage;
  22.     PRLayoutPanel1: TPRLayoutPanel;
  23.     PRText1: TPRText;
  24.     PRText2: TPRText;
  25.     SaveDialog1: TSaveDialog;
  26.     PRRect1: TPRRect;
  27.     PRText3: TPRText;
  28.     PRText4: TPRText;
  29.     PRRect2: TPRRect;
  30.     PRText5: TPRText;
  31.     PRRect3: TPRRect;
  32.     PRRect4: TPRRect;
  33.     PRText6: TPRText;
  34.     PRText7: TPRText;
  35.     PRRect5: TPRRect;
  36.     PRRect6: TPRRect;
  37.     PRText8: TPRText;
  38.     PRRect7: TPRRect;
  39.     PRText9: TPRText;
  40.     PRText10: TPRText;
  41.     PRRect8: TPRRect;
  42.     PRText11: TPRText;
  43.     PRRect9: TPRRect;
  44.     PRRect10: TPRRect;
  45.     PRText12: TPRText;
  46.     PRText13: TPRText;
  47.     PRRect11: TPRRect;
  48.     PRRect12: TPRRect;
  49.     PRText14: TPRText;
  50.     PRRect13: TPRRect;
  51.     PRText15: TPRText;
  52.     PRText16: TPRText;
  53.     PRRect14: TPRRect;
  54.     PRText17: TPRText;
  55.     PRRect15: TPRRect;
  56.     PRRect16: TPRRect;
  57.     PRText18: TPRText;
  58.     PRText19: TPRText;
  59.     PRRect17: TPRRect;
  60.     PRRect19: TPRRect;
  61.     PRText21: TPRText;
  62.     PRText22: TPRText;
  63.     PRRect20: TPRRect;
  64.     PRText23: TPRText;
  65.     PRRect21: TPRRect;
  66.     PRRect22: TPRRect;
  67.     PRText24: TPRText;
  68.     PRText25: TPRText;
  69.     PRRect23: TPRRect;
  70.     PRRect25: TPRRect;
  71.     PRText27: TPRText;
  72.     PRRect26: TPRRect;
  73.     PRText28: TPRText;
  74.     PRRect18: TPRRect;
  75.     PRText20: TPRText;
  76.     PRRect24: TPRRect;
  77.     PRText26: TPRText;
  78.     PRRect27: TPRRect;
  79.     PRText29: TPRText;
  80.     PRRect28: TPRRect;
  81.     PRText30: TPRText;
  82.     PRRect29: TPRRect;
  83.     PRText31: TPRText;
  84.     PRRect30: TPRRect;
  85.     PRText32: TPRText;
  86.     procedure CreatePDF1Click(Sender: TObject);
  87.     procedure Exit1Click(Sender: TObject);
  88.     procedure About1Click(Sender: TObject);
  89.   private
  90.     { Private ÉΘî╛ }
  91.   public
  92.     { Public ÉΘî╛ }
  93.   end;
  94.  
  95. var
  96.   Form1: TForm1;
  97.  
  98. implementation
  99.  
  100. {$R *.DFM}
  101.  
  102. procedure TForm1.CreatePDF1Click(Sender: TObject);
  103. begin
  104.   if SaveDialog1.Execute then
  105.     with PReport1 do
  106.     begin
  107.       FileName := SaveDialog1.FileName;
  108.       BeginDoc;
  109.       Print(PRPage1);
  110.       EndDoc;
  111.     end;
  112. end;
  113.  
  114. procedure TForm1.Exit1Click(Sender: TObject);
  115. begin
  116.   Close;
  117. end;
  118.  
  119. procedure TForm1.About1Click(Sender: TObject);
  120. begin
  121.   ShowMessage(POWER_PDF_VERSION_STR + #13#10 + POWER_PDF_COPYRIGHT);
  122. end;
  123.  
  124. end.
  125.