PowerPDF Check In

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@585 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2008-10-06 15:02:30 +00:00
parent ce8ee9bb1f
commit 87fdff01a2
125 changed files with 34954 additions and 0 deletions
--- a/components/powerpdf/Example/FontDemo/UFontExample.pas
+++ b/components/powerpdf/Example/FontDemo/UFontExample.pas
@@ -0,0 +1,127 @@
+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.