home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / delphi / kompon / d3456 / POWERPDF.ZIP / PowerPdf / Example / FontDemo / UFontExample.pas < prev   
Pascal/Delphi Source File  |  2001-09-15  |  3KB  |  124 lines
  1. unit UFontExample;
  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.     SaveDialog1: TSaveDialog;
  24.     PRRect1: TPRRect;
  25.     PRText3: TPRText;
  26.     PRText4: TPRText;
  27.     PRText5: TPRText;
  28.     PRText6: TPRText;
  29.     PRText7: TPRText;
  30.     PRText8: TPRText;
  31.     PRText9: TPRText;
  32.     PRText10: TPRText;
  33.     PRText11: TPRText;
  34.     PRText12: TPRText;
  35.     PRText13: TPRText;
  36.     PRText14: TPRText;
  37.     PRText15: TPRText;
  38.     PRText16: TPRText;
  39.     PRText17: TPRText;
  40.     PRText18: TPRText;
  41.     PRText19: TPRText;
  42.     PRText20: TPRText;
  43.     PRText21: TPRText;
  44.     PRText22: TPRText;
  45.     PRText23: TPRText;
  46.     PRText24: TPRText;
  47.     PRText25: TPRText;
  48.     PRText26: TPRText;
  49.     PRRect2: TPRRect;
  50.     PRText27: TPRText;
  51.     PRText28: TPRText;
  52.     PRText29: TPRText;
  53.     PRText30: TPRText;
  54.     PRText31: TPRText;
  55.     PRText32: TPRText;
  56.     PRText33: TPRText;
  57.     PRText34: TPRText;
  58.     PRText35: TPRText;
  59.     PRText36: TPRText;
  60.     PRText37: TPRText;
  61.     PRText38: TPRText;
  62.     PRText39: TPRText;
  63.     PRText40: TPRText;
  64.     PRRect3: TPRRect;
  65.     PRText41: TPRText;
  66.     PRText42: TPRText;
  67.     PRText43: TPRText;
  68.     PRText44: TPRText;
  69.     PRText45: TPRText;
  70.     PRText46: TPRText;
  71.     PRText47: TPRText;
  72.     PRText48: TPRText;
  73.     PRText49: TPRText;
  74.     PRText50: TPRText;
  75.     PRLabel1: TPRLabel;
  76.     PRLabel3: TPRLabel;
  77.     PRLabel2: TPRLabel;
  78.     PRLabel4: TPRLabel;
  79.     PRLabel5: TPRLabel;
  80.     PRLabel6: TPRLabel;
  81.     PRLabel7: TPRLabel;
  82.     PRLabel8: TPRLabel;
  83.     PRLabel9: TPRLabel;
  84.     PRLabel10: TPRLabel;
  85.     procedure CreatePDF1Click(Sender: TObject);
  86.     procedure Exit1Click(Sender: TObject);
  87.     procedure About1Click(Sender: TObject);
  88.   private
  89.     { Private ÉΘî╛ }
  90.   public
  91.     { Public ÉΘî╛ }
  92.   end;
  93.  
  94. var
  95.   Form1: TForm1;
  96.  
  97. implementation
  98.  
  99. {$R *.DFM}
  100.  
  101. procedure TForm1.CreatePDF1Click(Sender: TObject);
  102. begin
  103.   if SaveDialog1.Execute then
  104.     with PReport1 do
  105.     begin
  106.       FileName := SaveDialog1.FileName;
  107.       BeginDoc;
  108.       Print(PRPage1);
  109.       EndDoc;
  110.     end;
  111. end;
  112.  
  113. procedure TForm1.Exit1Click(Sender: TObject);
  114. begin
  115.   Close;
  116. end;
  117.  
  118. procedure TForm1.About1Click(Sender: TObject);
  119. begin
  120.   ShowMessage(POWER_PDF_VERSION_STR + #13#10 + POWER_PDF_COPYRIGHT);
  121. end;
  122.  
  123. end.
  124.