unit UFontExample;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, PReport, PdfDoc, Menus, ComCtrls{$IFDEF FPC}, LResources{$ENDIF};

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    ScrollBox1: TScrollBox;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    CreatePDF1: TMenuItem;
    N1: TMenuItem;
    Exit1: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    PReport1: TPReport;
    PRPage1: TPRPage;
    PRLayoutPanel1: TPRLayoutPanel;
    SaveDialog1: TSaveDialog;
    PRRect1: TPRRect;
    PRText3: TPRText;
    PRText4: TPRText;
    PRText5: TPRText;
    PRText6: TPRText;
    PRText7: TPRText;
    PRText8: TPRText;
    PRText9: TPRText;
    PRText10: TPRText;
    PRText11: TPRText;
    PRText12: TPRText;
    PRText13: TPRText;
    PRText14: TPRText;
    PRText15: TPRText;
    PRText16: TPRText;
    PRText17: TPRText;
    PRText18: TPRText;
    PRText19: TPRText;
    PRText20: TPRText;
    PRText21: TPRText;
    PRText22: TPRText;
    PRText23: TPRText;
    PRText24: TPRText;
    PRText25: TPRText;
    PRText26: TPRText;
    PRRect2: TPRRect;
    PRText27: TPRText;
    PRText28: TPRText;
    PRText29: TPRText;
    PRText30: TPRText;
    PRText31: TPRText;
    PRText32: TPRText;
    PRText33: TPRText;
    PRText34: TPRText;
    PRText35: TPRText;
    PRText36: TPRText;
    PRText37: TPRText;
    PRText38: TPRText;
    PRText39: TPRText;
    PRText40: TPRText;
    PRRect3: TPRRect;
    PRText41: TPRText;
    PRText42: TPRText;
    PRText43: TPRText;
    PRText44: TPRText;
    PRText45: TPRText;
    PRText46: TPRText;
    PRText47: TPRText;
    PRText48: TPRText;
    PRText49: TPRText;
    PRText50: TPRText;
    PRLabel1: TPRLabel;
    PRLabel3: TPRLabel;
    PRLabel2: TPRLabel;
    PRLabel4: TPRLabel;
    PRLabel5: TPRLabel;
    PRLabel6: TPRLabel;
    PRLabel7: TPRLabel;
    PRLabel8: TPRLabel;
    PRLabel9: TPRLabel;
    PRLabel10: TPRLabel;
    procedure CreatePDF1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
    procedure About1Click(Sender: TObject);
  private
    { Private �錾 }
  public
    { Public �錾 }
  end;

var
  Form1: TForm1;

implementation
{$IFNDEF FPC}{$R *.DFM}{$ENDIF}

procedure TForm1.CreatePDF1Click(Sender: TObject);
begin
  if SaveDialog1.Execute then
    with PReport1 do
    begin
      FileName := SaveDialog1.FileName;
      BeginDoc;
      Print(PRPage1);
      EndDoc;
    end;
end;

procedure TForm1.Exit1Click(Sender: TObject);
begin
  Close;
end;

procedure TForm1.About1Click(Sender: TObject);
begin
  ShowMessage(POWER_PDF_VERSION_STR + #13#10 + POWER_PDF_COPYRIGHT);
end;

{$IFDEF FPC}
initialization
  {$I UFontExample.lrs}
{$ENDIF}

end.