pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

PowerPDF Check In

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@585 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jesusr
2008-10-06 15:02:30 +00:00
parent ce8ee9bb1f
commit 87fdff01a2
125 changed files with 34954 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

98
components/powerpdf/LazarusExamples/FontDemo/FontExample.lpi Normal file
View File

@@ -0,0 +1,98 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="6"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="pack_powerpdf"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="3">
<Unit0>
<Filename Value="FontExample.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="38" Y="4"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="UFontExample.pas"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="ufontexample.lrs"/>
<UnitName Value="UFontExample"/>
<CursorPos X="11" Y="7"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="ufontexample.lfm"/>
<CursorPos X="21" Y="9"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit2>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<PathDelim Value="\"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG>

16
components/powerpdf/LazarusExamples/FontDemo/FontExample.lpr Normal file
View File

@@ -0,0 +1,16 @@
program FontExample;
{$MODE Delphi}
uses
Interfaces,
Forms,
UFontExample in 'UFontExample.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

BIN
components/powerpdf/LazarusExamples/FontDemo/FontExample.res Normal file
View File

Binary file not shown.

127
components/powerpdf/LazarusExamples/FontDemo/UFontExample.pas Normal file
View File

@@ -0,0 +1,127 @@
unit UFontExample;
{$MODE Delphi}
interface
uses
LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, PReport, PdfDoc, Menus, ComCtrls, LResources;
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
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;
initialization
{$i UFontExample.lrs}
end.

808
components/powerpdf/LazarusExamples/FontDemo/ufontexample.lfm Normal file
View File

@@ -0,0 +1,808 @@
object Form1: TForm1
Caption = 'Form1'
ClientHeight = 566
ClientWidth = 641
Font.CharSet = ANSI_CHARSET
Font.Height = -12
Font.Name = 'Arial'
Menu = MainMenu1
PixelsPerInch = 96
HorzScrollBar.Page = 640
VertScrollBar.Page = 565
Left = 154
Height = 585
Top = 53
Width = 641
object StatusBar1: TStatusBar
Panels = <
item
Width = 50
end>
SimplePanel = False
Height = 20
Top = 546
Width = 641
end
object ScrollBox1: TScrollBox
Align = alClient
BorderSpacing.OnChange = nil
ParentColor = True
TabOrder = 0
HorzScrollBar.Page = 636
VertScrollBar.Page = 541
Height = 546
Width = 641
object PRPage1: TPRPage
MarginTop = 32
MarginLeft = 32
MarginRight = 32
MarginBottom = 32
Left = 14
Height = 700
Top = 11
Width = 600
object PRLayoutPanel1: TPRLayoutPanel
Align = alClient
Left = 33
Height = 634
Top = 33
Width = 534
object PRRect1: TPRRect
Height = 441
Top = 40
Width = 261
end
object PRText3: TPRText
Leading = 14
Lines.Strings = (
'Arial'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 48
Width = 157
end
object PRText4: TPRText
Leading = 14
Lines.Strings = (
'TimesRoman'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 84
Width = 157
end
object PRText5: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnArial
FontSize = 16
Left = 9
Height = 21
Top = 60
Width = 216
end
object PRText6: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnTimesRoman
FontSize = 16
Left = 9
Height = 21
Top = 96
Width = 216
end
object PRText7: TPRText
Leading = 14
Lines.Strings = (
'FixedWidth'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 120
Width = 157
end
object PRText8: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontSize = 16
Left = 9
Height = 21
Top = 132
Width = 216
end
object PRText9: TPRText
Leading = 14
Lines.Strings = (
'Arial-Bold'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 156
Width = 157
end
object PRText10: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnArial
FontSize = 16
FontBold = True
Left = 9
Height = 21
Top = 168
Width = 216
end
object PRText11: TPRText
Leading = 14
Lines.Strings = (
'Times-Bold'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 192
Width = 157
end
object PRText12: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnTimesRoman
FontSize = 16
FontBold = True
Left = 9
Height = 21
Top = 204
Width = 216
end
object PRText13: TPRText
Leading = 14
Lines.Strings = (
'FixedWidth-Bold'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 228
Width = 157
end
object PRText14: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontSize = 16
FontBold = True
Left = 9
Height = 21
Top = 240
Width = 216
end
object PRText15: TPRText
Leading = 14
Lines.Strings = (
'Arial-Italic'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 264
Width = 157
end
object PRText16: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnArial
FontSize = 16
FontItalic = True
Left = 9
Height = 21
Top = 276
Width = 216
end
object PRText17: TPRText
Leading = 14
Lines.Strings = (
'Times-Italic'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 300
Width = 157
end
object PRText18: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnTimesRoman
FontSize = 16
FontItalic = True
Left = 9
Height = 21
Top = 312
Width = 216
end
object PRText19: TPRText
Leading = 14
Lines.Strings = (
'FixedWidth-Italic'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 336
Width = 157
end
object PRText20: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontSize = 16
FontItalic = True
Left = 9
Height = 21
Top = 348
Width = 216
end
object PRText21: TPRText
Leading = 14
Lines.Strings = (
'Arial-BoldItalic'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 372
Width = 157
end
object PRText22: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnArial
FontSize = 16
FontBold = True
FontItalic = True
Left = 9
Height = 21
Top = 384
Width = 216
end
object PRText23: TPRText
Leading = 14
Lines.Strings = (
'Times-BoldItalic'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 408
Width = 157
end
object PRText24: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnTimesRoman
FontSize = 16
FontBold = True
FontItalic = True
Left = 9
Height = 21
Top = 420
Width = 216
end
object PRText25: TPRText
Leading = 14
Lines.Strings = (
'FixedWidth-BoldItalic'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 444
Width = 157
end
object PRText26: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontSize = 16
FontBold = True
FontItalic = True
Left = 9
Height = 21
Top = 456
Width = 216
end
object PRRect2: TPRRect
Left = 272
Height = 441
Top = 40
Width = 261
end
object PRText27: TPRText
Leading = 14
Lines.Strings = (
'FontSize 8'
)
FontName = fnArial
FontSize = 9
Left = 281
Height = 14
Top = 48
Width = 157
end
object PRText28: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnArial
FontSize = 8
Left = 281
Height = 13
Top = 60
Width = 216
end
object PRText29: TPRText
Leading = 14
Lines.Strings = (
'FontSize 10'
)
FontName = fnArial
FontSize = 9
Left = 281
Height = 14
Top = 76
Width = 157
end
object PRText30: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnArial
FontSize = 10
Left = 281
Height = 17
Top = 88
Width = 216
end
object PRText31: TPRText
Leading = 14
Lines.Strings = (
'FontSize 14'
)
FontName = fnArial
FontSize = 9
Left = 281
Height = 14
Top = 108
Width = 157
end
object PRText32: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnArial
FontSize = 14
Left = 281
Height = 21
Top = 120
Width = 216
end
object PRText33: TPRText
Leading = 14
Lines.Strings = (
'FontSize 18'
)
FontName = fnArial
FontSize = 9
Left = 281
Height = 14
Top = 144
Width = 157
end
object PRText34: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnArial
FontSize = 18
Left = 281
Height = 25
Top = 156
Width = 216
end
object PRText35: TPRText
Leading = 14
Lines.Strings = (
'FontSize 24'
)
FontName = fnArial
FontSize = 9
Left = 281
Height = 14
Top = 184
Width = 157
end
object PRText36: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnArial
FontSize = 24
Left = 281
Height = 25
Top = 196
Width = 244
end
object PRText37: TPRText
Leading = 14
Lines.Strings = (
'FontColor Red'
)
FontName = fnArial
FontSize = 9
Left = 281
Height = 14
Top = 232
Width = 157
end
object PRText38: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontColor = clRed
FontName = fnArial
FontSize = 18
Left = 281
Height = 25
Top = 244
Width = 216
end
object PRText39: TPRText
Leading = 14
Lines.Strings = (
'FontColor Blue'
)
FontName = fnArial
FontSize = 9
Left = 281
Height = 14
Top = 272
Width = 157
end
object PRText40: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontColor = clBlue
FontName = fnArial
FontSize = 18
Left = 281
Height = 25
Top = 284
Width = 216
end
object PRRect3: TPRRect
Left = -4
Height = 121
Top = 492
Width = 533
end
object PRText41: TPRText
Leading = 14
Lines.Strings = (
'WordWrap Text (Leading 12)'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 504
Width = 256
end
object PRText42: TPRText
Leading = 12
Lines.Strings = (
'Sunday Monday Tuesday Wednesday Thursday Friday Saturday '
)
WordWrap = True
FontColor = 33023
FontName = fnArial
FontSize = 11
FontBold = True
Left = 9
Height = 33
Top = 516
Width = 260
end
object PRText43: TPRText
Leading = 14
Lines.Strings = (
'WordWrap Text (Leading 12, WordSpace 10)'
)
FontName = fnArial
FontSize = 9
Left = 9
Height = 14
Top = 552
Width = 256
end
object PRText44: TPRText
Leading = 16
Lines.Strings = (
'Sunday Monday Tuesday Wednesday Thursday Friday Saturday '
)
WordWrap = True
FontColor = 33023
FontName = fnArial
FontSize = 11
FontBold = True
WordSpace = 10
Left = 9
Height = 33
Top = 564
Width = 260
end
object PRText45: TPRText
Leading = 14
Lines.Strings = (
'CharSpace=-1 '
)
FontName = fnArial
FontSize = 9
Left = 281
Height = 14
Top = 504
Width = 157
end
object PRText46: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnArial
FontSize = 16
CharSpace = -1
Left = 281
Height = 21
Top = 516
Width = 240
end
object PRText47: TPRText
Leading = 14
Lines.Strings = (
'CharSpace=0(default)'
)
FontName = fnArial
FontSize = 9
Left = 281
Height = 14
Top = 540
Width = 157
end
object PRText48: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnArial
FontSize = 16
Left = 281
Height = 21
Top = 552
Width = 240
end
object PRText49: TPRText
Leading = 14
Lines.Strings = (
'CharSpace=2'
)
FontName = fnArial
FontSize = 9
Left = 281
Height = 14
Top = 576
Width = 157
end
object PRText50: TPRText
Leading = 14
Lines.Strings = (
'ABCDEFGabcdefg12345'
)
FontName = fnArial
FontSize = 16
CharSpace = 2
Left = 281
Height = 21
Top = 588
Width = 240
end
object PRLabel1: TPRLabel
Caption = 'PowerPdf Font Example'
Alignment = taCenter
FontName = fnArial
FontSize = 24
FontBold = True
Height = 30
Width = 534
end
object PRLabel3: TPRLabel
Caption = 'copyright (c) 1999-2001 takeshi kanno'
Alignment = taRightJustify
FontName = fnArial
FontSize = 9
Align = alBottom
Height = 14
Top = 620
Width = 534
end
object PRLabel2: TPRLabel
Caption = 'Alignment taLeftJustify'
FontName = fnArial
FontSize = 9
Left = 282
Height = 15
Top = 318
Width = 215
end
object PRLabel4: TPRLabel
Caption = 'The quick brown fox ate the lazy mouse'
FontColor = clGreen
FontName = fnTimesRoman
FontSize = 12
FontBold = True
Left = 282
Height = 15
Top = 330
Width = 239
end
object PRLabel5: TPRLabel
Caption = 'The quick brown fox ate the lazy mouse'
Alignment = taRightJustify
FontColor = clGreen
FontName = fnTimesRoman
FontSize = 12
FontBold = True
Left = 282
Height = 15
Top = 364
Width = 239
end
object PRLabel6: TPRLabel
Caption = 'Alignment taRightJustify'
FontName = fnArial
FontSize = 9
Left = 282
Height = 15
Top = 352
Width = 215
end
object PRLabel7: TPRLabel
Caption = 'Alignment taCenter'
FontName = fnArial
FontSize = 9
Left = 282
Height = 15
Top = 384
Width = 215
end
object PRLabel8: TPRLabel
Caption = 'The quick brown fox ate the lazy mouse'
Alignment = taCenter
FontColor = clGreen
FontName = fnTimesRoman
FontSize = 12
FontBold = True
Left = 284
Height = 15
Top = 394
Width = 239
end
object PRLabel9: TPRLabel
Caption = 'AlignJustified'
FontName = fnArial
FontSize = 9
Left = 282
Height = 15
Top = 414
Width = 215
end
object PRLabel10: TPRLabel
Caption = 'The quick brown fox ate the lazy mouse'
Alignment = taCenter
AlignJustified = True
FontColor = clGreen
FontName = fnTimesRoman
FontSize = 12
FontBold = True
Left = 284
Height = 15
Top = 424
Width = 239
end
end
end
end
object MainMenu1: TMainMenu
left = 68
top = 10
object File1: TMenuItem
Caption = '&File'
object CreatePDF1: TMenuItem
Caption = 'Create PDF'
OnClick = CreatePDF1Click
end
object N1: TMenuItem
Caption = '-'
end
object Exit1: TMenuItem
Caption = 'Exit'
OnClick = Exit1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
object About1: TMenuItem
Caption = '&About'
OnClick = About1Click
end
end
end
object PReport1: TPReport
FileName = 'default.pdf'
CreationDate = 37030.844032696761
left = 102
top = 10
end
object SaveDialog1: TSaveDialog
Title = 'Save file as'
FileName = 'FontExample.pdf'
Filter = 'PDF Files|*.pdf|All Files|*.*'
FilterIndex = 0
Title = 'Save file as'
left = 138
top = 10
end
end

182
components/powerpdf/LazarusExamples/FontDemo/ufontexample.lrs Normal file
View File

@@ -0,0 +1,182 @@
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3'6'#2#11'Cl'
+'ientWidth'#3#129#2#12'Font.CharSet'#7#12'ANSI_CHARSET'#11'Font.Height'#2#244
+#9'Font.Name'#6#5'Arial'#4'Menu'#7#9'MainMenu1'#13'PixelsPerInch'#2'`'#18'Ho'
+'rzScrollBar.Page'#3#128#2#18'VertScrollBar.Page'#3'5'#2#4'Left'#3#154#0#6'H'
+'eight'#3'I'#2#3'Top'#2'5'#5'Width'#3#129#2#0#10'TStatusBar'#10'StatusBar1'#6
+'Panels'#14#1#5'Width'#2'2'#0#0#11'SimplePanel'#8#6'Height'#2#20#3'Top'#3'"'
+#2#5'Width'#3#129#2#0#0#10'TScrollBox'#10'ScrollBox1'#5'Align'#7#8'alClient'
+#22'BorderSpacing.OnChange'#13#11'ParentColor'#9#8'TabOrder'#2#0#18'HorzScro'
+'llBar.Page'#3'|'#2#18'VertScrollBar.Page'#3#29#2#6'Height'#3'"'#2#5'Width'#3
+#129#2#0#7'TPRPage'#7'PRPage1'#9'MarginTop'#2' '#10'MarginLeft'#2' '#11'Marg'
+'inRight'#2' '#12'MarginBottom'#2' '#4'Left'#2#14#6'Height'#3#188#2#3'Top'#2
+#11#5'Width'#3'X'#2#0#14'TPRLayoutPanel'#14'PRLayoutPanel1'#5'Align'#7#8'alC'
+'lient'#4'Left'#2'!'#6'Height'#3'z'#2#3'Top'#2'!'#5'Width'#3#22#2#0#7'TPRRec'
+'t'#7'PRRect1'#6'Height'#3#185#1#3'Top'#2'('#5'Width'#3#5#1#0#0#7'TPRText'#7
+'PRText3'#7'Leading'#2#14#13'Lines.Strings'#1#6#5'Arial'#0#8'FontName'#7#7'f'
+'nArial'#8'FontSize'#2#9#4'Left'#2#9#6'Height'#2#14#3'Top'#2'0'#5'Width'#3
+#157#0#0#0#7'TPRText'#7'PRText4'#7'Leading'#2#14#13'Lines.Strings'#1#6#10'Ti'
+'mesRoman'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#2#9#6'Height'#2
+#14#3'Top'#2'T'#5'Width'#3#157#0#0#0#7'TPRText'#7'PRText5'#7'Leading'#2#14#13
+'Lines.Strings'#1#6#19'ABCDEFGabcdefg12345'#0#8'FontName'#7#7'fnArial'#8'Fon'
+'tSize'#2#16#4'Left'#2#9#6'Height'#2#21#3'Top'#2'<'#5'Width'#3#216#0#0#0#7'T'
+'PRText'#7'PRText6'#7'Leading'#2#14#13'Lines.Strings'#1#6#19'ABCDEFGabcdefg1'
+'2345'#0#8'FontName'#7#12'fnTimesRoman'#8'FontSize'#2#16#4'Left'#2#9#6'Heigh'
+'t'#2#21#3'Top'#2'`'#5'Width'#3#216#0#0#0#7'TPRText'#7'PRText7'#7'Leading'#2
+#14#13'Lines.Strings'#1#6#10'FixedWidth'#0#8'FontName'#7#7'fnArial'#8'FontSi'
+'ze'#2#9#4'Left'#2#9#6'Height'#2#14#3'Top'#2'x'#5'Width'#3#157#0#0#0#7'TPRTe'
+'xt'#7'PRText8'#7'Leading'#2#14#13'Lines.Strings'#1#6#19'ABCDEFGabcdefg12345'
+#0#8'FontSize'#2#16#4'Left'#2#9#6'Height'#2#21#3'Top'#3#132#0#5'Width'#3#216
+#0#0#0#7'TPRText'#7'PRText9'#7'Leading'#2#14#13'Lines.Strings'#1#6#10'Arial-'
+'Bold'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#2#9#6'Height'#2#14
+#3'Top'#3#156#0#5'Width'#3#157#0#0#0#7'TPRText'#8'PRText10'#7'Leading'#2#14
+#13'Lines.Strings'#1#6#19'ABCDEFGabcdefg12345'#0#8'FontName'#7#7'fnArial'#8
+'FontSize'#2#16#8'FontBold'#9#4'Left'#2#9#6'Height'#2#21#3'Top'#3#168#0#5'Wi'
+'dth'#3#216#0#0#0#7'TPRText'#8'PRText11'#7'Leading'#2#14#13'Lines.Strings'#1
+#6#10'Times-Bold'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#2#9#6'H'
+'eight'#2#14#3'Top'#3#192#0#5'Width'#3#157#0#0#0#7'TPRText'#8'PRText12'#7'Le'
+'ading'#2#14#13'Lines.Strings'#1#6#19'ABCDEFGabcdefg12345'#0#8'FontName'#7#12
+'fnTimesRoman'#8'FontSize'#2#16#8'FontBold'#9#4'Left'#2#9#6'Height'#2#21#3'T'
+'op'#3#204#0#5'Width'#3#216#0#0#0#7'TPRText'#8'PRText13'#7'Leading'#2#14#13
+'Lines.Strings'#1#6#15'FixedWidth-Bold'#0#8'FontName'#7#7'fnArial'#8'FontSiz'
+'e'#2#9#4'Left'#2#9#6'Height'#2#14#3'Top'#3#228#0#5'Width'#3#157#0#0#0#7'TPR'
+'Text'#8'PRText14'#7'Leading'#2#14#13'Lines.Strings'#1#6#19'ABCDEFGabcdefg12'
+'345'#0#8'FontSize'#2#16#8'FontBold'#9#4'Left'#2#9#6'Height'#2#21#3'Top'#3
+#240#0#5'Width'#3#216#0#0#0#7'TPRText'#8'PRText15'#7'Leading'#2#14#13'Lines.'
+'Strings'#1#6#12'Arial-Italic'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#9#4
+'Left'#2#9#6'Height'#2#14#3'Top'#3#8#1#5'Width'#3#157#0#0#0#7'TPRText'#8'PRT'
+'ext16'#7'Leading'#2#14#13'Lines.Strings'#1#6#19'ABCDEFGabcdefg12345'#0#8'Fo'
+'ntName'#7#7'fnArial'#8'FontSize'#2#16#10'FontItalic'#9#4'Left'#2#9#6'Height'
+#2#21#3'Top'#3#20#1#5'Width'#3#216#0#0#0#7'TPRText'#8'PRText17'#7'Leading'#2
+#14#13'Lines.Strings'#1#6#12'Times-Italic'#0#8'FontName'#7#7'fnArial'#8'Font'
+'Size'#2#9#4'Left'#2#9#6'Height'#2#14#3'Top'#3','#1#5'Width'#3#157#0#0#0#7'T'
+'PRText'#8'PRText18'#7'Leading'#2#14#13'Lines.Strings'#1#6#19'ABCDEFGabcdefg'
+'12345'#0#8'FontName'#7#12'fnTimesRoman'#8'FontSize'#2#16#10'FontItalic'#9#4
+'Left'#2#9#6'Height'#2#21#3'Top'#3'8'#1#5'Width'#3#216#0#0#0#7'TPRText'#8'PR'
+'Text19'#7'Leading'#2#14#13'Lines.Strings'#1#6#17'FixedWidth-Italic'#0#8'Fon'
+'tName'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#2#9#6'Height'#2#14#3'Top'#3'P'#1
+#5'Width'#3#157#0#0#0#7'TPRText'#8'PRText20'#7'Leading'#2#14#13'Lines.String'
+'s'#1#6#19'ABCDEFGabcdefg12345'#0#8'FontSize'#2#16#10'FontItalic'#9#4'Left'#2
+#9#6'Height'#2#21#3'Top'#3'\'#1#5'Width'#3#216#0#0#0#7'TPRText'#8'PRText21'#7
+'Leading'#2#14#13'Lines.Strings'#1#6#16'Arial-BoldItalic'#0#8'FontName'#7#7
+'fnArial'#8'FontSize'#2#9#4'Left'#2#9#6'Height'#2#14#3'Top'#3't'#1#5'Width'#3
+#157#0#0#0#7'TPRText'#8'PRText22'#7'Leading'#2#14#13'Lines.Strings'#1#6#19'A'
+'BCDEFGabcdefg12345'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#16#8'FontBold'
+#9#10'FontItalic'#9#4'Left'#2#9#6'Height'#2#21#3'Top'#3#128#1#5'Width'#3#216
,#0#0#0#7'TPRText'#8'PRText23'#7'Leading'#2#14#13'Lines.Strings'#1#6#16'Times'
+'-BoldItalic'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#2#9#6'Heigh'
+'t'#2#14#3'Top'#3#152#1#5'Width'#3#157#0#0#0#7'TPRText'#8'PRText24'#7'Leadin'
+'g'#2#14#13'Lines.Strings'#1#6#19'ABCDEFGabcdefg12345'#0#8'FontName'#7#12'fn'
+'TimesRoman'#8'FontSize'#2#16#8'FontBold'#9#10'FontItalic'#9#4'Left'#2#9#6'H'
+'eight'#2#21#3'Top'#3#164#1#5'Width'#3#216#0#0#0#7'TPRText'#8'PRText25'#7'Le'
+'ading'#2#14#13'Lines.Strings'#1#6#21'FixedWidth-BoldItalic'#0#8'FontName'#7
+#7'fnArial'#8'FontSize'#2#9#4'Left'#2#9#6'Height'#2#14#3'Top'#3#188#1#5'Widt'
+'h'#3#157#0#0#0#7'TPRText'#8'PRText26'#7'Leading'#2#14#13'Lines.Strings'#1#6
+#19'ABCDEFGabcdefg12345'#0#8'FontSize'#2#16#8'FontBold'#9#10'FontItalic'#9#4
+'Left'#2#9#6'Height'#2#21#3'Top'#3#200#1#5'Width'#3#216#0#0#0#7'TPRRect'#7'P'
+'RRect2'#4'Left'#3#16#1#6'Height'#3#185#1#3'Top'#2'('#5'Width'#3#5#1#0#0#7'T'
+'PRText'#8'PRText27'#7'Leading'#2#14#13'Lines.Strings'#1#6#10'FontSize 8'#0#8
+'FontName'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#3#25#1#6'Height'#2#14#3'Top'
+#2'0'#5'Width'#3#157#0#0#0#7'TPRText'#8'PRText28'#7'Leading'#2#14#13'Lines.S'
+'trings'#1#6#19'ABCDEFGabcdefg12345'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2
+#8#4'Left'#3#25#1#6'Height'#2#13#3'Top'#2'<'#5'Width'#3#216#0#0#0#7'TPRText'
+#8'PRText29'#7'Leading'#2#14#13'Lines.Strings'#1#6#11'FontSize 10'#0#8'FontN'
+'ame'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#3#25#1#6'Height'#2#14#3'Top'#2'L'
+#5'Width'#3#157#0#0#0#7'TPRText'#8'PRText30'#7'Leading'#2#14#13'Lines.String'
+'s'#1#6#19'ABCDEFGabcdefg12345'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#10#4
+'Left'#3#25#1#6'Height'#2#17#3'Top'#2'X'#5'Width'#3#216#0#0#0#7'TPRText'#8'P'
+'RText31'#7'Leading'#2#14#13'Lines.Strings'#1#6#11'FontSize 14'#0#8'FontName'
+#7#7'fnArial'#8'FontSize'#2#9#4'Left'#3#25#1#6'Height'#2#14#3'Top'#2'l'#5'Wi'
+'dth'#3#157#0#0#0#7'TPRText'#8'PRText32'#7'Leading'#2#14#13'Lines.Strings'#1
+#6#19'ABCDEFGabcdefg12345'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#14#4'Lef'
+'t'#3#25#1#6'Height'#2#21#3'Top'#2'x'#5'Width'#3#216#0#0#0#7'TPRText'#8'PRTe'
+'xt33'#7'Leading'#2#14#13'Lines.Strings'#1#6#11'FontSize 18'#0#8'FontName'#7
+#7'fnArial'#8'FontSize'#2#9#4'Left'#3#25#1#6'Height'#2#14#3'Top'#3#144#0#5'W'
+'idth'#3#157#0#0#0#7'TPRText'#8'PRText34'#7'Leading'#2#14#13'Lines.Strings'#1
+#6#19'ABCDEFGabcdefg12345'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#18#4'Lef'
+'t'#3#25#1#6'Height'#2#25#3'Top'#3#156#0#5'Width'#3#216#0#0#0#7'TPRText'#8'P'
+'RText35'#7'Leading'#2#14#13'Lines.Strings'#1#6#11'FontSize 24'#0#8'FontName'
+#7#7'fnArial'#8'FontSize'#2#9#4'Left'#3#25#1#6'Height'#2#14#3'Top'#3#184#0#5
+'Width'#3#157#0#0#0#7'TPRText'#8'PRText36'#7'Leading'#2#14#13'Lines.Strings'
+#1#6#19'ABCDEFGabcdefg12345'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#24#4'L'
+'eft'#3#25#1#6'Height'#2#25#3'Top'#3#196#0#5'Width'#3#244#0#0#0#7'TPRText'#8
+'PRText37'#7'Leading'#2#14#13'Lines.Strings'#1#6#13'FontColor Red'#0#8'FontN'
+'ame'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#3#25#1#6'Height'#2#14#3'Top'#3#232
+#0#5'Width'#3#157#0#0#0#7'TPRText'#8'PRText38'#7'Leading'#2#14#13'Lines.Stri'
+'ngs'#1#6#19'ABCDEFGabcdefg12345'#0#9'FontColor'#7#5'clRed'#8'FontName'#7#7
+'fnArial'#8'FontSize'#2#18#4'Left'#3#25#1#6'Height'#2#25#3'Top'#3#244#0#5'Wi'
+'dth'#3#216#0#0#0#7'TPRText'#8'PRText39'#7'Leading'#2#14#13'Lines.Strings'#1
+#6#14'FontColor Blue'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#3#25
+#1#6'Height'#2#14#3'Top'#3#16#1#5'Width'#3#157#0#0#0#7'TPRText'#8'PRText40'#7
+'Leading'#2#14#13'Lines.Strings'#1#6#19'ABCDEFGabcdefg12345'#0#9'FontColor'#7
+#6'clBlue'#8'FontName'#7#7'fnArial'#8'FontSize'#2#18#4'Left'#3#25#1#6'Height'
+#2#25#3'Top'#3#28#1#5'Width'#3#216#0#0#0#7'TPRRect'#7'PRRect3'#4'Left'#2#252
+#6'Height'#2'y'#3'Top'#3#236#1#5'Width'#3#21#2#0#0#7'TPRText'#8'PRText41'#7
+'Leading'#2#14#13'Lines.Strings'#1#6#26'WordWrap Text (Leading 12)'#0#8'Font'
+'Name'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#2#9#6'Height'#2#14#3'Top'#3#248#1
+#5'Width'#3#0#1#0#0#7'TPRText'#8'PRText42'#7'Leading'#2#12#13'Lines.Strings'
+#1#6'9Sunday Monday Tuesday Wednesday Thursday Friday Saturday '#0#8'WordWra'
+'p'#9#9'FontColor'#4#255#128#0#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#11#8
+'FontBold'#9#4'Left'#2#9#6'Height'#2'!'#3'Top'#3#4#2#5'Width'#3#4#1#0#0#7'TP'
+'RText'#8'PRText43'#7'Leading'#2#14#13'Lines.Strings'#1#6'(WordWrap Text (Le'
+'ading 12, WordSpace 10)'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#9#4'Left'
+#2#9#6'Height'#2#14#3'Top'#3'('#2#5'Width'#3#0#1#0#0#7'TPRText'#8'PRText44'#7
+'Leading'#2#16#13'Lines.Strings'#1#6'9Sunday Monday Tuesday Wednesday Thursd'
+'ay Friday Saturday '#0#8'WordWrap'#9#9'FontColor'#4#255#128#0#0#8'FontName'
+#7#7'fnArial'#8'FontSize'#2#11#8'FontBold'#9#9'WordSpace'#2#10#4'Left'#2#9#6
+'Height'#2'!'#3'Top'#3'4'#2#5'Width'#3#4#1#0#0#7'TPRText'#8'PRText45'#7'Lead'
+'ing'#2#14#13'Lines.Strings'#1#6#13'CharSpace=-1 '#0#8'FontName'#7#7'fnArial'
+#8'FontSize'#2#9#4'Left'#3#25#1#6'Height'#2#14#3'Top'#3#248#1#5'Width'#3#157
,#0#0#0#7'TPRText'#8'PRText46'#7'Leading'#2#14#13'Lines.Strings'#1#6#19'ABCDE'
+'FGabcdefg12345'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#16#9'CharSpace'#2
+#255#4'Left'#3#25#1#6'Height'#2#21#3'Top'#3#4#2#5'Width'#3#240#0#0#0#7'TPRTe'
+'xt'#8'PRText47'#7'Leading'#2#14#13'Lines.Strings'#1#6#20'CharSpace=0(defaul'
+'t)'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#3#25#1#6'Height'#2#14
+#3'Top'#3#28#2#5'Width'#3#157#0#0#0#7'TPRText'#8'PRText48'#7'Leading'#2#14#13
+'Lines.Strings'#1#6#19'ABCDEFGabcdefg12345'#0#8'FontName'#7#7'fnArial'#8'Fon'
+'tSize'#2#16#4'Left'#3#25#1#6'Height'#2#21#3'Top'#3'('#2#5'Width'#3#240#0#0#0
+#7'TPRText'#8'PRText49'#7'Leading'#2#14#13'Lines.Strings'#1#6#11'CharSpace=2'
+#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#3#25#1#6'Height'#2#14#3
+'Top'#3'@'#2#5'Width'#3#157#0#0#0#7'TPRText'#8'PRText50'#7'Leading'#2#14#13
+'Lines.Strings'#1#6#19'ABCDEFGabcdefg12345'#0#8'FontName'#7#7'fnArial'#8'Fon'
+'tSize'#2#16#9'CharSpace'#2#2#4'Left'#3#25#1#6'Height'#2#21#3'Top'#3'L'#2#5
+'Width'#3#240#0#0#0#8'TPRLabel'#8'PRLabel1'#7'Caption'#6#21'PowerPdf Font Ex'
+'ample'#9'Alignment'#7#8'taCenter'#8'FontName'#7#7'fnArial'#8'FontSize'#2#24
+#8'FontBold'#9#6'Height'#2#30#5'Width'#3#22#2#0#0#8'TPRLabel'#8'PRLabel3'#7
+'Caption'#6'%copyright (c) 1999-2001 takeshi kanno'#9'Alignment'#7#14'taRigh'
+'tJustify'#8'FontName'#7#7'fnArial'#8'FontSize'#2#9#5'Align'#7#8'alBottom'#6
+'Height'#2#14#3'Top'#3'l'#2#5'Width'#3#22#2#0#0#8'TPRLabel'#8'PRLabel2'#7'Ca'
+'ption'#6#23'Alignment taLeftJustify'#8'FontName'#7#7'fnArial'#8'FontSize'#2
+#9#4'Left'#3#26#1#6'Height'#2#15#3'Top'#3'>'#1#5'Width'#3#215#0#0#0#8'TPRLab'
+'el'#8'PRLabel4'#7'Caption'#6'&The quick brown fox ate the lazy mouse'#9'Fon'
+'tColor'#7#7'clGreen'#8'FontName'#7#12'fnTimesRoman'#8'FontSize'#2#12#8'Font'
+'Bold'#9#4'Left'#3#26#1#6'Height'#2#15#3'Top'#3'J'#1#5'Width'#3#239#0#0#0#8
+'TPRLabel'#8'PRLabel5'#7'Caption'#6'&The quick brown fox ate the lazy mouse'
+#9'Alignment'#7#14'taRightJustify'#9'FontColor'#7#7'clGreen'#8'FontName'#7#12
+'fnTimesRoman'#8'FontSize'#2#12#8'FontBold'#9#4'Left'#3#26#1#6'Height'#2#15#3
+'Top'#3'l'#1#5'Width'#3#239#0#0#0#8'TPRLabel'#8'PRLabel6'#7'Caption'#6#24'Al'
+'ignment taRightJustify'#8'FontName'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#3
+#26#1#6'Height'#2#15#3'Top'#3'`'#1#5'Width'#3#215#0#0#0#8'TPRLabel'#8'PRLabe'
+'l7'#7'Caption'#6#18'Alignment taCenter'#8'FontName'#7#7'fnArial'#8'FontSize'
+#2#9#4'Left'#3#26#1#6'Height'#2#15#3'Top'#3#128#1#5'Width'#3#215#0#0#0#8'TPR'
+'Label'#8'PRLabel8'#7'Caption'#6'&The quick brown fox ate the lazy mouse'#9
+'Alignment'#7#8'taCenter'#9'FontColor'#7#7'clGreen'#8'FontName'#7#12'fnTimes'
+'Roman'#8'FontSize'#2#12#8'FontBold'#9#4'Left'#3#28#1#6'Height'#2#15#3'Top'#3
+#138#1#5'Width'#3#239#0#0#0#8'TPRLabel'#8'PRLabel9'#7'Caption'#6#14'AlignJus'
+'tified'#8'FontName'#7#7'fnArial'#8'FontSize'#2#9#4'Left'#3#26#1#6'Height'#2
+#15#3'Top'#3#158#1#5'Width'#3#215#0#0#0#8'TPRLabel'#9'PRLabel10'#7'Caption'#6
+'&The quick brown fox ate the lazy mouse'#9'Alignment'#7#8'taCenter'#14'Alig'
+'nJustified'#9#9'FontColor'#7#7'clGreen'#8'FontName'#7#12'fnTimesRoman'#8'Fo'
+'ntSize'#2#12#8'FontBold'#9#4'Left'#3#28#1#6'Height'#2#15#3'Top'#3#168#1#5'W'
+'idth'#3#239#0#0#0#0#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2'D'#3'top'#2#10#0
+#9'TMenuItem'#5'File1'#7'Caption'#6#5'&File'#0#9'TMenuItem'#10'CreatePDF1'#7
+'Caption'#6#10'Create PDF'#7'OnClick'#7#15'CreatePDF1Click'#0#0#9'TMenuItem'
+#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#5'Exit1'#7'Caption'#6#4'Exit'#7'On'
+'Click'#7#10'Exit1Click'#0#0#0#9'TMenuItem'#5'Help1'#7'Caption'#6#5'&Help'#0
+#9'TMenuItem'#6'About1'#7'Caption'#6#6'&About'#7'OnClick'#7#11'About1Click'#0
+#0#0#0#8'TPReport'#8'PReport1'#8'FileName'#6#11'default.pdf'#12'CreationDate'
+#5#0'X'#221#134#18#216#166#144#14'@'#4'left'#2'f'#3'top'#2#10#0#0#11'TSaveDi'
+'alog'#11'SaveDialog1'#5'Title'#6#12'Save file as'#8'FileName'#6#15'FontExam'
+'ple.pdf'#6'Filter'#6#29'PDF Files|*.pdf|All Files|*.*'#11'FilterIndex'#2#0#5
+'Title'#6#12'Save file as'#4'left'#3#138#0#3'top'#2#10#0#0#0
]);

107
components/powerpdf/LazarusExamples/JpegImageExample/JpegImageExample.lpi Normal file
View File

@@ -0,0 +1,107 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="6"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="pack_powerpdf"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="3">
<Unit0>
<Filename Value="JpegImageExample.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="26" Y="5"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="Unit1.pas"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="unit1.lrs"/>
<UnitName Value="Unit1"/>
<CursorPos X="29" Y="20"/>
<TopLine Value="16"/>
<EditorIndex Value="1"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="unit1.lfm"/>
<CursorPos X="21" Y="9"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit2>
</Units>
<JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="Unit1.pas"/>
<Caret Line="57" Column="21" TopLine="48"/>
</Position1>
<Position2>
<Filename Value="Unit1.pas"/>
<Caret Line="17" Column="20" TopLine="17"/>
</Position2>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<PathDelim Value="\"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG>

16
components/powerpdf/LazarusExamples/JpegImageExample/JpegImageExample.lpr Normal file
View File

@@ -0,0 +1,16 @@
program JpegImageExample;
{.$MODE Delphi}
uses
Interfaces,
Forms,
Unit1 in 'Unit1.pas' {Form1};
{.$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

BIN
components/powerpdf/LazarusExamples/JpegImageExample/JpegImageExample.res Normal file
View File

Binary file not shown.

98
components/powerpdf/LazarusExamples/JpegImageExample/Unit1.pas Normal file
View File

@@ -0,0 +1,98 @@
unit Unit1;
{.$MODE Delphi}
interface
uses
LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
PReport, ExtCtrls, StdCtrls, Buttons, PRJpegImage, ExtDlgs, PdfDoc, {ShellApi,}
LResources;
type
{ TForm1 }
TForm1 = class(TForm)
Panel1: TPanel;
ScrollBox1: TScrollBox;
PRPage1: TPRPage;
PRLayoutPanel1: TPRLayoutPanel;
PRJpegImage1: TPRJpegImage;
PRLayoutPanel2: TPRLayoutPanel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
CheckBox1: TCheckBox;
OpenPictureDialog1: TOpenPictureDialog;
PReport1: TPReport;
PRLabel1: TPRLabel;
SaveDialog1: TSaveDialog;
procedure CheckBox1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure PRPage1PrintPage(Sender: TObject; ACanvas: TPRCanvas);
private
{ Private }
public
{ Public }
end;
var
Form1: TForm1;
implementation
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
PRJpegImage1.Stretch := CheckBox1.Checked;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
SaveDialog1.FileName := ChangeFileExt(ExtractFileName(OpenPictureDialog1.FileName), '.pdf');
if SaveDialog1.Execute then
with PReport1 do
begin
FileName := SaveDialog1.FileName;
BeginDoc;
Print(PRPage1);
EndDoc;
//ShellExecute(Self.Handle, 'Open', PChar(FileName), '', '', SW_SHOW);
end;
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
PRJpegImage1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
PRLabel1.Caption := OpenPictureDialog1.FileName;
PRJpegImage1.Repaint;
end;
end;
procedure TForm1.PRPage1PrintPage(Sender: TObject; ACanvas: TPRCanvas);
var
Dest: TPRDestination;
begin
// create a new destination for the current page.
Dest := PReport1.CreateDestination;
// setting the properties for the destination object.
with Dest do
begin
DestinationType := dtXYZ;
Left := -10;
Top := -10;
Zoom := 1;
end;
// set the destination object as the open-action.
PReport1.OpenAction := Dest;
end;
initialization
{$i Unit1.lrs}
end.

287
components/powerpdf/LazarusExamples/JpegImageExample/unit1.lfm Normal file
View File

@@ -0,0 +1,287 @@
object Form1: TForm1
Left = 27
Height = 597
Top = 10
Width = 768
HelpContext = 0
Align = alNone
AllowDropFiles = False
AutoScroll = True
AutoSize = False
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
BorderStyle = bsSizeable
Caption = 'Form1'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 597
ClientWidth = 768
DockSite = False
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Font.CharSet = ANSI_CHARSET
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
FormStyle = fsNormal
ParentBiDiMode = True
ParentFont = False
Position = poDesigned
ShowInTaskBar = stDefault
UseDockManager = False
LCLVersion = '0.9.27'
WindowState = wsNormal
object Panel1: TPanel
Left = 0
Height = 29
Top = 0
Width = 768
HelpContext = 0
Align = alTop
Alignment = taCenter
AutoSize = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BevelInner = bvNone
BevelOuter = bvNone
BevelWidth = 1
BorderWidth = 0
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 29
ClientWidth = 768
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
FullRepaint = False
ParentColor = True
ParentFont = True
ParentShowHint = True
TabOrder = 0
TabStop = False
Visible = True
object SpeedButton1: TSpeedButton
Left = 2
Height = 22
Top = 4
Width = 89
HelpContext = 0
Align = alNone
AllowAllUp = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Show PDF'
Color = clBtnFace
Down = False
Enabled = True
Flat = False
GroupIndex = 0
Layout = blGlyphLeft
Margin = -1
NumGlyphs = 0
Spacing = 4
Transparent = True
Visible = True
OnClick = SpeedButton1Click
ShowCaption = True
ParentFont = True
ParentShowHint = True
end
object SpeedButton2: TSpeedButton
Left = 91
Height = 22
Top = 4
Width = 89
HelpContext = 0
Align = alNone
AllowAllUp = False
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Load Picture'
Color = clBtnFace
Down = False
Enabled = True
Flat = False
GroupIndex = 0
Layout = blGlyphLeft
Margin = -1
NumGlyphs = 0
Spacing = 4
Transparent = True
Visible = True
OnClick = SpeedButton2Click
ShowCaption = True
ParentFont = True
ParentShowHint = True
end
object CheckBox1: TCheckBox
Left = 188
Height = 21
Top = 8
Width = 64
HelpContext = 0
Align = alNone
AllowGrayed = False
AutoSize = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
Caption = 'Stretch'
Checked = True
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
OnClick = CheckBox1Click
ParentColor = True
ParentFont = True
ParentShowHint = True
ParentBidiMode = True
State = cbChecked
TabOrder = 0
TabStop = True
UseOnChange = False
Visible = True
end
end
object ScrollBox1: TScrollBox
Left = 0
Height = 568
Top = 29
Width = 768
HelpContext = 0
Align = alClient
AutoSize = True
AutoScroll = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Color = clGray
Ctl3D = False
ParentBiDiMode = True
ParentColor = False
ParentCtl3D = True
ParentFont = True
ParentShowHint = True
TabOrder = 1
TabStop = False
Visible = True
object PRPage1: TPRPage
Left = 0
Height = 873
Top = 0
Width = 700
HelpContext = 0
OnPrintPage = PRPage1PrintPage
MarginTop = 32
MarginLeft = 32
MarginRight = 32
MarginBottom = 20
Visible = True
object PRLayoutPanel1: TPRLayoutPanel
Left = 33
Height = 797
Top = 55
Width = 634
HelpContext = 0
Align = alClient
object PRJpegImage1: TPRJpegImage
Left = 13
Height = 780
Top = 14
Width = 603
HelpContext = 0
Align = alNone
SharedImage = True
end
end
object PRLayoutPanel2: TPRLayoutPanel
Left = 33
Height = 22
Top = 33
Width = 634
HelpContext = 0
Align = alTop
object PRLabel1: TPRLabel
Left = 16
Height = 17
Top = 2
Width = 635
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 12
CharSpace = 0
WordSpace = 0
Caption = 'PowerPdf Jpeg Image Example'
end
end
end
end
object OpenPictureDialog1: TOpenPictureDialog
Width = 0
Height = 0
Filter = 'JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg'
FilterIndex = 0
top = 6
end
object PReport1: TPReport
FileName = 'JpegImageExample.pdf'
CreationDate = 37085.5242040046
UseOutlines = False
ViewerPreference = []
left = 386
top = 6
end
object SaveDialog1: TSaveDialog
Width = 0
Height = 0
DefaultExt = '.pdf'
FilterIndex = 0
left = 280
top = 2
end
end

88
components/powerpdf/LazarusExamples/JpegImageExample/unit1.lrs Normal file
View File

@@ -0,0 +1,88 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#2#27#6'Height'#3'U'#2#3'Top'#2#10#5'Width'#3
+#0#3#11'HelpContext'#2#0#5'Align'#7#6'alNone'#14'AllowDropFiles'#8#10'AutoSc'
+'roll'#9#8'AutoSize'#8#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#10
+'biMaximize'#0#11'BorderStyle'#7#10'bsSizeable'#7'Caption'#6#5'Form1'#28'Chi'
+'ldSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'Chil'
+'dSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'Child'
+'Sizing.ControlsPerLine'#2#0#12'ClientHeight'#3'U'#2#11'ClientWidth'#3#0#3#8
+'DockSite'#8#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9
+#12'Font.CharSet'#7#12'ANSI_CHARSET'#11'Font.Height'#2#244#9'Font.Name'#6#5
+'Arial'#10'Font.Style'#11#0#9'FormStyle'#7#8'fsNormal'#14'ParentBiDiMode'#9
+#10'ParentFont'#8#8'Position'#7#10'poDesigned'#13'ShowInTaskBar'#7#9'stDefau'
+'lt'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsN'
+'ormal'#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#2#29#3'Top'#2#0#5'Width'
+#3#0#3#11'HelpContext'#2#0#5'Align'#7#5'alTop'#9'Alignment'#7#8'taCenter'#8
+'AutoSize'#8#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderS'
+'pacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0
+'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlign'
+'Vertical'#7#7'ccaFill'#10'BevelInner'#7#6'bvNone'#10'BevelOuter'#7#6'bvNone'
+#10'BevelWidth'#2#1#11'BorderWidth'#2#0#11'BorderStyle'#7#6'bsNone'#28'Child'
+'Sizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildS'
+'izing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSi'
+'zing.ControlsPerLine'#2#0#12'ClientHeight'#2#29#11'ClientWidth'#3#0#3#8'Doc'
+'kSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8
+'dmManual'#7'Enabled'#9#11'FullRepaint'#8#11'ParentColor'#9#10'ParentFont'#9
+#14'ParentShowHint'#9#8'TabOrder'#2#0#7'TabStop'#8#7'Visible'#9#0#12'TSpeedB'
+'utton'#12'SpeedButton1'#4'Left'#2#2#6'Height'#2#22#3'Top'#2#4#5'Width'#2'Y'
+#11'HelpContext'#2#0#5'Align'#7#6'alNone'#10'AllowAllUp'#8#18'BorderSpacing.'
+'Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSp'
+'acing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHori'
+'zontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7'Cap'
+'tion'#6#8'Show PDF'#5'Color'#7#9'clBtnFace'#4'Down'#8#7'Enabled'#9#4'Flat'#8
+#10'GroupIndex'#2#0#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2#255#9'NumGlyphs'
+#2#0#7'Spacing'#2#4#11'Transparent'#9#7'Visible'#9#7'OnClick'#7#17'SpeedButt'
+'on1Click'#11'ShowCaption'#9#10'ParentFont'#9#14'ParentShowHint'#9#0#0#12'TS'
+'peedButton'#12'SpeedButton2'#4'Left'#2'['#6'Height'#2#22#3'Top'#2#4#5'Width'
+#2'Y'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#10'AllowAllUp'#8#18'BorderSpa'
+'cing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'Bor'
+'derSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlig'
+'nHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#7
+'Caption'#6#12'Load Picture'#5'Color'#7#9'clBtnFace'#4'Down'#8#7'Enabled'#9#4
+'Flat'#8#10'GroupIndex'#2#0#6'Layout'#7#11'blGlyphLeft'#6'Margin'#2#255#9'Nu'
+'mGlyphs'#2#0#7'Spacing'#2#4#11'Transparent'#9#7'Visible'#9#7'OnClick'#7#17
+'SpeedButton2Click'#11'ShowCaption'#9#10'ParentFont'#9#14'ParentShowHint'#9#0
+#0#9'TCheckBox'#9'CheckBox1'#4'Left'#3#188#0#6'Height'#2#21#3'Top'#2#8#5'Wid'
+'th'#2'@'#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11'AllowGrayed'#8#8'AutoS'
+'ize'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacin'
+'g.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!Bor'
+'derSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVert'
+'ical'#7#7'ccaFill'#7'Caption'#6#7'Stretch'#7'Checked'#9#10'DragCursor'#7#6
+'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#7'On'
+'Click'#7#14'CheckBox1Click'#11'ParentColor'#9#10'ParentFont'#9#14'ParentSho'
+'wHint'#9#14'ParentBidiMode'#9#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#7'Tab'
+'Stop'#9#11'UseOnChange'#8#7'Visible'#9#0#0#0#10'TScrollBox'#10'ScrollBox1'#4
+'Left'#2#0#6'Height'#3'8'#2#3'Top'#2#29#5'Width'#3#0#3#11'HelpContext'#2#0#5
+'Align'#7#8'alClient'#8'AutoSize'#9#10'AutoScroll'#9#18'BorderSpacing.Left'#2
+#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bo'
+'ttom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7
+#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#11'BorderStyle'
+#7#6'bsNone'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSp'
+'acing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpa'
+'cing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#8'DockSite'#8#10'DragCursor'#7
+#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#5
+'Color'#7#6'clGray'#5'Ctl3D'#8#14'ParentBiDiMode'#9#11'ParentColor'#8#11'Par'
+'entCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#1#7'TabStop'
,#8#7'Visible'#9#0#7'TPRPage'#7'PRPage1'#4'Left'#2#0#6'Height'#3'i'#3#3'Top'#2
+#0#5'Width'#3#188#2#11'HelpContext'#2#0#11'OnPrintPage'#7#16'PRPage1PrintPag'
+'e'#9'MarginTop'#2' '#10'MarginLeft'#2' '#11'MarginRight'#2' '#12'MarginBott'
+'om'#2#20#7'Visible'#9#0#14'TPRLayoutPanel'#14'PRLayoutPanel1'#4'Left'#2'!'#6
+'Height'#3#29#3#3'Top'#2'7'#5'Width'#3'z'#2#11'HelpContext'#2#0#5'Align'#7#8
+'alClient'#0#12'TPRJpegImage'#12'PRJpegImage1'#4'Left'#2#13#6'Height'#3#12#3
+#3'Top'#2#14#5'Width'#3'['#2#11'HelpContext'#2#0#5'Align'#7#6'alNone'#11'Sha'
+'redImage'#9#0#0#0#14'TPRLayoutPanel'#14'PRLayoutPanel2'#4'Left'#2'!'#6'Heig'
+'ht'#2#22#3'Top'#2'!'#5'Width'#3'z'#2#11'HelpContext'#2#0#5'Align'#7#5'alTop'
+#0#8'TPRLabel'#8'PRLabel1'#4'Left'#2#16#6'Height'#2#17#3'Top'#2#2#5'Width'#3
+'{'#2#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'Fo'
+'ntSize'#5#0#0#0#0#0#0#0#192#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordS'
+'pace'#5#0#0#0#0#0#0#0#0#0#0#7'Caption'#6#27'PowerPdf Jpeg Image Example'#0#0
+#0#0#0#18'TOpenPictureDialog'#18'OpenPictureDialog1'#5'Width'#2#0#6'Height'#2
+#0#6'Filter'#6'=JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpe'
+'g'#11'FilterIndex'#2#0#3'top'#2#6#0#0#8'TPReport'#8'PReport1'#8'FileName'#6
+#20'JpegImageExample.pdf'#12'CreationDate'#5#0'0'#208';2'#134#221#144#14'@'
+#11'UseOutlines'#8#16'ViewerPreference'#11#0#4'left'#3#130#1#3'top'#2#6#0#0
+#11'TSaveDialog'#11'SaveDialog1'#5'Width'#2#0#6'Height'#2#0#10'DefaultExt'#6
+#4'.pdf'#11'FilterIndex'#2#0#4'left'#3#24#1#3'top'#2#2#0#0#0
]);

143
components/powerpdf/LazarusExamples/LineDemo/LineExample.lpi Normal file
View File

@@ -0,0 +1,143 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="6"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="pack_powerpdf"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="10">
<Unit0>
<Filename Value="LineExample.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="17" Y="6"/>
<TopLine Value="1"/>
<UsageCount Value="22"/>
</Unit0>
<Unit1>
<Filename Value="ULineExample.pas"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="ulineexample.lrs"/>
<UnitName Value="ULineExample"/>
<CursorPos X="11" Y="6"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="ULineExample.lfm"/>
<CursorPos X="21" Y="9"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit2>
<Unit3>
<Filename Value="C:\Work\FreePascal\Lazarus\PowerPdf\PReport.pas"/>
<UnitName Value="PReport"/>
<CursorPos X="22" Y="1039"/>
<TopLine Value="1028"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="C:\Work\FreePascal\Lazarus\PowerPdf\PdfDoc.pas"/>
<UnitName Value="PdfDoc"/>
<CursorPos X="37" Y="389"/>
<TopLine Value="385"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="C:\Work\FreePascal\Lazarus\PowerPdf\PdfTypes.pas"/>
<UnitName Value="PdfTypes"/>
<CursorPos X="28" Y="857"/>
<TopLine Value="1049"/>
<UsageCount Value="10"/>
</Unit5>
<Unit6>
<Filename Value="C:\Work\FreePascal\svn\lazarus\lcl\extctrls.pp"/>
<UnitName Value="ExtCtrls"/>
<CursorPos X="17" Y="914"/>
<TopLine Value="902"/>
<UsageCount Value="10"/>
</Unit6>
<Unit7>
<Filename Value="C:\Work\FreePascal\svn\lazarus\lcl\include\custompanel.inc"/>
<CursorPos X="3" Y="37"/>
<TopLine Value="27"/>
<UsageCount Value="10"/>
</Unit7>
<Unit8>
<Filename Value="ulineexample.lrs"/>
<CursorPos X="18" Y="2"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit8>
<Unit9>
<Filename Value="C:\Work\FreePascal\svn\lazarus\lcl\LResources.pp"/>
<UnitName Value="LResources"/>
<CursorPos X="42" Y="12"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
</Unit9>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<PathDelim Value="\"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG>

14
components/powerpdf/LazarusExamples/LineDemo/LineExample.lpr Normal file
View File

@@ -0,0 +1,14 @@
program LineExample;
uses
Interfaces,
Forms,
ULineExample in 'ULineExample.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

BIN
components/powerpdf/LazarusExamples/LineDemo/LineExample.res Normal file
View File

Binary file not shown.

904
components/powerpdf/LazarusExamples/LineDemo/ULineExample.lfm Normal file
View File

@@ -0,0 +1,904 @@
object Form1: TForm1
Left = 81
Height = 585
Top = 46
Width = 648
HelpContext = 0
Align = alNone
AllowDropFiles = False
AutoScroll = True
AutoSize = False
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
BorderStyle = bsSizeable
Caption = 'Form1'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 565
ClientWidth = 648
DockSite = False
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Font.CharSet = ANSI_CHARSET
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
FormStyle = fsNormal
Menu = MainMenu1
ParentBiDiMode = True
ParentFont = False
Position = poDesigned
ShowInTaskBar = stDefault
UseDockManager = False
LCLVersion = '0.9.27'
WindowState = wsNormal
object StatusBar1: TStatusBar
Left = 0
Height = 23
Top = 542
Width = 648
HelpContext = 0
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Panels = <
item
Alignment = taLeftJustify
Width = 50
end>
ParentShowHint = True
SimplePanel = False
end
object ScrollBox1: TScrollBox
Left = 0
Height = 542
Top = 0
Width = 648
HelpContext = 0
Align = alClient
AutoSize = False
AutoScroll = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Ctl3D = False
ParentBiDiMode = True
ParentColor = True
ParentCtl3D = True
ParentFont = True
ParentShowHint = True
TabOrder = 0
TabStop = False
Visible = True
object PRPage1: TPRPage
Left = 14
Height = 700
Top = 11
Width = 600
HelpContext = 0
MarginTop = 32
MarginLeft = 32
MarginRight = 32
MarginBottom = 32
Visible = True
object PRLayoutPanel1: TPRLayoutPanel
Left = 33
Height = 634
Top = 33
Width = 534
HelpContext = 0
Align = alClient
object PRText1: TPRText
Left = 132
Height = 30
Top = -1
Width = 281
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 24
FontBold = True
CharSpace = 0
WordSpace = 0
Leading = 14
Lines.Strings = (
'ESTE ES UN TEXTO CORRECTAMENTE APLICADO'
)
end
object PRText2: TPRText
Left = 376
Height = 14
Top = 619
Width = 157
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect1: TPRRect
Left = 23
Height = 1
Top = 61
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 0
LineStyle = psSolid
end
object PRText3: TPRText
Left = 23
Height = 14
Top = 48
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRText4: TPRText
Left = 23
Height = 14
Top = 72
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect2: TPRRect
Left = 23
Height = 1
Top = 85
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 0
LineStyle = psDash
end
object PRText5: TPRText
Left = 23
Height = 14
Top = 96
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect3: TPRRect
Left = 23
Height = 1
Top = 109
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 0
LineStyle = psDashDot
end
object PRRect4: TPRRect
Left = 23
Height = 1
Top = 132
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 0
LineStyle = psDashDotDot
end
object PRText6: TPRText
Left = 23
Height = 14
Top = 119
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRText7: TPRText
Left = 23
Height = 14
Top = 143
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect5: TPRRect
Left = 23
Height = 1
Top = 156
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 0
LineStyle = psDot
end
object PRRect6: TPRRect
Left = 23
Height = 1
Top = 180
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 0
LineStyle = psClear
end
object PRText8: TPRText
Left = 23
Height = 14
Top = 167
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect7: TPRRect
Left = 269
Height = 1
Top = 61
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1
LineStyle = psSolid
end
object PRText9: TPRText
Left = 269
Height = 14
Top = 48
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRText10: TPRText
Left = 269
Height = 14
Top = 72
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect8: TPRRect
Left = 269
Height = 1
Top = 85
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1
LineStyle = psDash
end
object PRText11: TPRText
Left = 269
Height = 14
Top = 96
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect9: TPRRect
Left = 269
Height = 1
Top = 109
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1
LineStyle = psDashDot
end
object PRRect10: TPRRect
Left = 269
Height = 1
Top = 132
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1
LineStyle = psDashDotDot
end
object PRText12: TPRText
Left = 269
Height = 14
Top = 119
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRText13: TPRText
Left = 269
Height = 14
Top = 143
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect11: TPRRect
Left = 269
Height = 1
Top = 156
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1
LineStyle = psDot
end
object PRRect12: TPRRect
Left = 269
Height = 1
Top = 180
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1
LineStyle = psClear
end
object PRText14: TPRText
Left = 269
Height = 14
Top = 167
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect13: TPRRect
Left = 23
Height = 1
Top = 212
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1.5
LineColor = clBlue
LineStyle = psSolid
end
object PRText15: TPRText
Left = 23
Height = 14
Top = 199
Width = 210
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRText16: TPRText
Left = 23
Height = 14
Top = 223
Width = 209
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect14: TPRRect
Left = 23
Height = 1
Top = 236
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1.5
LineColor = clBlue
LineStyle = psDash
end
object PRText17: TPRText
Left = 23
Height = 14
Top = 247
Width = 209
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect15: TPRRect
Left = 23
Height = 1
Top = 260
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1.5
LineColor = clBlue
LineStyle = psDashDot
end
object PRRect16: TPRRect
Left = 23
Height = 1
Top = 283
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1.5
LineColor = clBlue
LineStyle = psDashDotDot
end
object PRText18: TPRText
Left = 23
Height = 14
Top = 270
Width = 208
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRText19: TPRText
Left = 23
Height = 14
Top = 294
Width = 208
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect17: TPRRect
Left = 23
Height = 1
Top = 307
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1.5
LineColor = clBlue
LineStyle = psDot
end
object PRRect19: TPRRect
Left = 269
Height = 1
Top = 212
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 2
LineStyle = psSolid
end
object PRText21: TPRText
Left = 269
Height = 14
Top = 199
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRText22: TPRText
Left = 269
Height = 14
Top = 223
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect20: TPRRect
Left = 269
Height = 1
Top = 236
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 2
LineStyle = psDash
end
object PRText23: TPRText
Left = 269
Height = 14
Top = 247
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect21: TPRRect
Left = 269
Height = 1
Top = 260
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 2
LineStyle = psDashDot
end
object PRRect22: TPRRect
Left = 269
Height = 1
Top = 283
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 2
LineStyle = psDashDotDot
end
object PRText24: TPRText
Left = 269
Height = 14
Top = 270
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRText25: TPRText
Left = 269
Height = 14
Top = 294
Width = 165
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 14
end
object PRRect23: TPRRect
Left = 269
Height = 1
Top = 307
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 2
LineStyle = psDot
end
object PRRect25: TPRRect
Left = 23
Height = 39
Top = 333
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1
LineStyle = psSolid
end
object PRText27: TPRText
Left = 30
Height = 25
Top = 340
Width = 188
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 12
end
object PRRect26: TPRRect
Left = 22
Height = 39
Top = 383
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1
LineColor = clNavy
LineStyle = psSolid
FillColor = clYellow
end
object PRText28: TPRText
Left = 29
Height = 25
Top = 390
Width = 188
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 12
end
object PRRect18: TPRRect
Left = 269
Height = 39
Top = 333
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1
LineStyle = psDot
FillColor = clLime
end
object PRText20: TPRText
Left = 276
Height = 25
Top = 340
Width = 188
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 12
end
object PRRect24: TPRRect
Left = 268
Height = 39
Top = 383
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1
LineColor = clNone
LineStyle = psSolid
FillColor = clAqua
end
object PRText26: TPRText
Left = 275
Height = 25
Top = 390
Width = 188
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 12
end
object PRRect27: TPRRect
Left = 23
Height = 39
Top = 439
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1.5
LineColor = clNavy
LineStyle = psSolid
end
object PRText29: TPRText
Left = 30
Height = 25
Top = 446
Width = 188
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 12
end
object PRRect28: TPRRect
Left = 22
Height = 39
Top = 489
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1.5
LineColor = clRed
LineStyle = psDashDot
FillColor = clYellow
end
object PRText30: TPRText
Left = 29
Height = 25
Top = 496
Width = 188
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 12
end
object PRRect29: TPRRect
Left = 269
Height = 39
Top = 439
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 1.5
LineColor = clBlue
LineStyle = psDot
FillColor = clLime
end
object PRText31: TPRText
Left = 276
Height = 25
Top = 446
Width = 188
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 12
end
object PRRect30: TPRRect
Left = 268
Height = 39
Top = 489
Width = 209
HelpContext = 0
Align = alNone
LineWidth = 2
LineColor = clPurple
LineStyle = psSolid
FillColor = clAqua
end
object PRText32: TPRText
Left = 275
Height = 25
Top = 496
Width = 188
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 9
CharSpace = 0
WordSpace = 0
Leading = 12
end
end
end
end
object MainMenu1: TMainMenu
left = 68
top = 10
object File1: TMenuItem
Caption = '&File'
RightJustify = False
ShowAlwaysCheckable = False
object CreatePDF1: TMenuItem
Caption = 'Create PDF'
RightJustify = False
ShowAlwaysCheckable = False
OnClick = CreatePDF1Click
end
object N1: TMenuItem
Caption = '-'
RightJustify = False
ShowAlwaysCheckable = False
end
object Exit1: TMenuItem
Caption = 'Exit'
RightJustify = False
ShowAlwaysCheckable = False
OnClick = Exit1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
RightJustify = False
ShowAlwaysCheckable = False
object About1: TMenuItem
Caption = '&About'
RightJustify = False
ShowAlwaysCheckable = False
OnClick = About1Click
end
end
end
object PReport1: TPReport
FileName = 'default.pdf'
CreationDate = 37030.8440326967
UseOutlines = False
ViewerPreference = []
left = 102
top = 10
end
object SaveDialog1: TSaveDialog
Width = 0
Height = 0
FileName = 'LineExample.pdf'
Filter = 'PDF Files|*.pdf|All Files|*.*'
FilterIndex = 0
left = 138
top = 10
end
end

123
components/powerpdf/LazarusExamples/LineDemo/ULineExample.pas Normal file
View File

@@ -0,0 +1,123 @@
unit ULineExample;
interface
uses
LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, PReport, PdfDoc, Menus, ComCtrls, LResources;
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;
PRText1: TPRText;
PRText2: TPRText;
SaveDialog1: TSaveDialog;
PRRect1: TPRRect;
PRText3: TPRText;
PRText4: TPRText;
PRRect2: TPRRect;
PRText5: TPRText;
PRRect3: TPRRect;
PRRect4: TPRRect;
PRText6: TPRText;
PRText7: TPRText;
PRRect5: TPRRect;
PRRect6: TPRRect;
PRText8: TPRText;
PRRect7: TPRRect;
PRText9: TPRText;
PRText10: TPRText;
PRRect8: TPRRect;
PRText11: TPRText;
PRRect9: TPRRect;
PRRect10: TPRRect;
PRText12: TPRText;
PRText13: TPRText;
PRRect11: TPRRect;
PRRect12: TPRRect;
PRText14: TPRText;
PRRect13: TPRRect;
PRText15: TPRText;
PRText16: TPRText;
PRRect14: TPRRect;
PRText17: TPRText;
PRRect15: TPRRect;
PRRect16: TPRRect;
PRText18: TPRText;
PRText19: TPRText;
PRRect17: TPRRect;
PRRect19: TPRRect;
PRText21: TPRText;
PRText22: TPRText;
PRRect20: TPRRect;
PRText23: TPRText;
PRRect21: TPRRect;
PRRect22: TPRRect;
PRText24: TPRText;
PRText25: TPRText;
PRRect23: TPRRect;
PRRect25: TPRRect;
PRText27: TPRText;
PRRect26: TPRRect;
PRText28: TPRText;
PRRect18: TPRRect;
PRText20: TPRText;
PRRect24: TPRRect;
PRText26: TPRText;
PRRect27: TPRRect;
PRText29: TPRText;
PRRect28: TPRRect;
PRText30: TPRText;
PRRect29: TPRRect;
PRText31: TPRText;
PRRect30: TPRRect;
PRText32: TPRText;
procedure CreatePDF1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure About1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
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;
initialization
{$I ulineexample.lrs}
end.

259
components/powerpdf/LazarusExamples/LineDemo/ulineexample.lrs Normal file
View File

@@ -0,0 +1,259 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#2'Q'#6'Height'#3'I'#2#3'Top'#2'.'#5'Width'#3
+#136#2#11'HelpContext'#2#0#5'Align'#7#6'alNone'#14'AllowDropFiles'#8#10'Auto'
+'Scroll'#9#8'AutoSize'#8#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'
+#10'biMaximize'#0#11'BorderStyle'#7#10'bsSizeable'#7'Caption'#6#5'Form1'#28
+'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'C'
+'hildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'Ch'
+'ildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3'5'#2#11'ClientWidth'#3#136
+#2#8'DockSite'#8#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'
+#9#12'Font.CharSet'#7#12'ANSI_CHARSET'#11'Font.Height'#2#244#9'Font.Name'#6#5
+'Arial'#10'Font.Style'#11#0#9'FormStyle'#7#8'fsNormal'#4'Menu'#7#9'MainMenu1'
+#14'ParentBiDiMode'#9#10'ParentFont'#8#8'Position'#7#10'poDesigned'#13'ShowI'
+'nTaskBar'#7#9'stDefault'#14'UseDockManager'#8#10'LCLVersion'#6#6'0.9.27'#11
+'WindowState'#7#8'wsNormal'#0#10'TStatusBar'#10'StatusBar1'#4'Left'#2#0#6'He'
+'ight'#2#23#3'Top'#3#30#2#5'Width'#3#136#2#11'HelpContext'#2#0#10'DragCursor'
+#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#6
+'Panels'#14#1#9'Alignment'#7#13'taLeftJustify'#5'Width'#2'2'#0#0#14'ParentSh'
+'owHint'#9#11'SimplePanel'#8#0#0#10'TScrollBox'#10'ScrollBox1'#4'Left'#2#0#6
+'Height'#3#30#2#3'Top'#2#0#5'Width'#3#136#2#11'HelpContext'#2#0#5'Align'#7#8
+'alClient'#8'AutoSize'#8#10'AutoScroll'#9#18'BorderSpacing.Left'#2#0#17'Bord'
+'erSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0
+#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFil'
+'l'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#11'BorderStyle'#7#6'bsN'
+'one'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2
+#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0
+#27'ChildSizing.ControlsPerLine'#2#0#8'DockSite'#8#10'DragCursor'#7#6'crDrag'
+#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#5'Ctl3D'#8#14
+'ParentBiDiMode'#9#11'ParentColor'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'P'
+'arentShowHint'#9#8'TabOrder'#2#0#7'TabStop'#8#7'Visible'#9#0#7'TPRPage'#7'P'
+'RPage1'#4'Left'#2#14#6'Height'#3#188#2#3'Top'#2#11#5'Width'#3'X'#2#11'HelpC'
+'ontext'#2#0#9'MarginTop'#2' '#10'MarginLeft'#2' '#11'MarginRight'#2' '#12'M'
+'arginBottom'#2' '#7'Visible'#9#0#14'TPRLayoutPanel'#14'PRLayoutPanel1'#4'Le'
+'ft'#2'!'#6'Height'#3'z'#2#3'Top'#2'!'#5'Width'#3#22#2#11'HelpContext'#2#0#5
+'Align'#7#8'alClient'#0#7'TPRText'#7'PRText1'#4'Left'#3#132#0#6'Height'#2#30
+#3'Top'#2#255#5'Width'#3#25#1#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'Fon'
+'tName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#192#3'@'#8'FontBold'#9#9'Ch'
+'arSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'
+#5#0#0#0#0#0#0#0#224#2'@'#13'Lines.Strings'#1#6'''ESTE ES UN TEXTO CORRECTAM'
+'ENTE APLICADO'#0#0#0#7'TPRText'#7'PRText2'#4'Left'#3'x'#1#6'Height'#2#14#3
+'Top'#3'k'#2#5'Width'#3#157#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'Fon'
+'tName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0
+#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0
+#0#224#2'@'#0#0#7'TPRRect'#7'PRRect1'#4'Left'#2#23#6'Height'#2#1#3'Top'#2'='
+#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0
+#0#0#0#0#0#0#0#0#9'LineStyle'#7#7'psSolid'#0#0#7'TPRText'#7'PRText3'#4'Left'
+#2#23#6'Height'#2#14#3'Top'#2'0'#5'Width'#3#165#0#11'HelpContext'#2#0#5'Alig'
+'n'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'
+#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Lea'
+'ding'#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRText'#7'PRText4'#4'Left'#2#23#6'Hei'
+'ght'#2#14#3'Top'#2'H'#5'Width'#3#165#0#11'HelpContext'#2#0#5'Align'#7#6'alN'
+'one'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'#9'CharSp'
+'ace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0
+#0#0#0#0#0#0#224#2'@'#0#0#7'TPRRect'#7'PRRect2'#4'Left'#2#23#6'Height'#2#1#3
+'Top'#2'U'#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'LineW'
+'idth'#5#0#0#0#0#0#0#0#0#0#0#9'LineStyle'#7#6'psDash'#0#0#7'TPRText'#7'PRTex'
+'t5'#4'Left'#2#23#6'Height'#2#14#3'Top'#2'`'#5'Width'#3#165#0#11'HelpContext'
+#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0
+#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0
+#0#0#7'Leading'#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRRect'#7'PRRect3'#4'Left'#2
+#23#6'Height'#2#1#3'Top'#2'm'#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7
+#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#0#0#0#9'LineStyle'#7#9'psDashDot'#0#0
+#7'TPRRect'#7'PRRect4'#4'Left'#2#23#6'Height'#2#1#3'Top'#3#132#0#5'Width'#3
+#209#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0
+#0#0#0#9'LineStyle'#7#12'psDashDotDot'#0#0#7'TPRText'#7'PRText6'#4'Left'#2#23
+#6'Height'#2#14#3'Top'#2'w'#5'Width'#3#165#0#11'HelpContext'#2#0#5'Align'#7#6
,'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'#9'Cha'
+'rSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'
+#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRText'#7'PRText7'#4'Left'#2#23#6'Height'#2
+#14#3'Top'#3#143#0#5'Width'#3#165#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'
+#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5
+#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0
+#0#0#0#224#2'@'#0#0#7'TPRRect'#7'PRRect5'#4'Left'#2#23#6'Height'#2#1#3'Top'#3
+#156#0#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'LineWidth'
+#5#0#0#0#0#0#0#0#0#0#0#9'LineStyle'#7#5'psDot'#0#0#7'TPRRect'#7'PRRect6'#4'L'
+'eft'#2#23#6'Height'#2#1#3'Top'#3#180#0#5'Width'#3#209#0#11'HelpContext'#2#0
+#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#0#0#0#9'LineStyle'#7#7'ps'
+'Clear'#0#0#7'TPRText'#7'PRText8'#4'Left'#2#23#6'Height'#2#14#3'Top'#3#167#0
+#5'Width'#3#165#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'f'
+'nArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0
+#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#224#2'@'#0
+#0#7'TPRRect'#7'PRRect7'#4'Left'#3#13#1#6'Height'#2#1#3'Top'#2'='#5'Width'#3
+#209#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0
+#128#255'?'#9'LineStyle'#7#7'psSolid'#0#0#7'TPRText'#7'PRText9'#4'Left'#3#13
+#1#6'Height'#2#14#3'Top'#2'0'#5'Width'#3#165#0#11'HelpContext'#2#0#5'Align'#7
+#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'#9'C'
+'harSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leadin'
+'g'#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRText'#8'PRText10'#4'Left'#3#13#1#6'Hei'
+'ght'#2#14#3'Top'#2'H'#5'Width'#3#165#0#11'HelpContext'#2#0#5'Align'#7#6'alN'
+'one'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'#9'CharSp'
+'ace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0
+#0#0#0#0#0#0#224#2'@'#0#0#7'TPRRect'#7'PRRect8'#4'Left'#3#13#1#6'Height'#2#1
+#3'Top'#2'U'#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Lin'
+'eWidth'#5#0#0#0#0#0#0#0#128#255'?'#9'LineStyle'#7#6'psDash'#0#0#7'TPRText'#8
+'PRText11'#4'Left'#3#13#1#6'Height'#2#14#3'Top'#2'`'#5'Width'#3#165#0#11'Hel'
+'pContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0
+#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0
+#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRRect'#7'PRRect9'
+#4'Left'#3#13#1#6'Height'#2#1#3'Top'#2'm'#5'Width'#3#209#0#11'HelpContext'#2
+#0#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#128#255'?'#9'LineStyle'
+#7#9'psDashDot'#0#0#7'TPRRect'#8'PRRect10'#4'Left'#3#13#1#6'Height'#2#1#3'To'
+'p'#3#132#0#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'Line'
+'Width'#5#0#0#0#0#0#0#0#128#255'?'#9'LineStyle'#7#12'psDashDotDot'#0#0#7'TPR'
+'Text'#8'PRText12'#4'Left'#3#13#1#6'Height'#2#14#3'Top'#2'w'#5'Width'#3#165#0
+#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSiz'
+'e'#5#0#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'
+#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRText'#8
+'PRText13'#4'Left'#3#13#1#6'Height'#2#14#3'Top'#3#143#0#5'Width'#3#165#0#11
+'HelpContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5
+#0#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0
+#0#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRRect'#8'PRRect'
+'11'#4'Left'#3#13#1#6'Height'#2#1#3'Top'#3#156#0#5'Width'#3#209#0#11'HelpCon'
+'text'#2#0#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#128#255'?'#9'Li'
+'neStyle'#7#5'psDot'#0#0#7'TPRRect'#8'PRRect12'#4'Left'#3#13#1#6'Height'#2#1
+#3'Top'#3#180#0#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9
+'LineWidth'#5#0#0#0#0#0#0#0#128#255'?'#9'LineStyle'#7#7'psClear'#0#0#7'TPRTe'
+'xt'#8'PRText14'#4'Left'#3#13#1#6'Height'#2#14#3'Top'#3#167#0#5'Width'#3#165
+#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontS'
+'ize'#5#0#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpac'
+'e'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRRect'
+#8'PRRect13'#4'Left'#2#23#6'Height'#2#1#3'Top'#3#212#0#5'Width'#3#209#0#11'H'
+'elpContext'#2#0#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#192#255'?'
+#9'LineColor'#7#6'clBlue'#9'LineStyle'#7#7'psSolid'#0#0#7'TPRText'#8'PRText1'
+'5'#4'Left'#2#23#6'Height'#2#14#3'Top'#3#199#0#5'Width'#3#210#0#11'HelpConte'
+'xt'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0
+#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0
+#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRText'#8'PRText16'#4'Le'
+'ft'#2#23#6'Height'#2#14#3'Top'#3#223#0#5'Width'#3#209#0#11'HelpContext'#2#0
+#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0
+#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0
,#0#7'Leading'#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRRect'#8'PRRect14'#4'Left'#2
+#23#6'Height'#2#1#3'Top'#3#236#0#5'Width'#3#209#0#11'HelpContext'#2#0#5'Alig'
+'n'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#192#255'?'#9'LineColor'#7#6'clB'
+'lue'#9'LineStyle'#7#6'psDash'#0#0#7'TPRText'#8'PRText17'#4'Left'#2#23#6'Hei'
+'ght'#2#14#3'Top'#3#247#0#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7#6
+'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'#9'Cha'
+'rSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'
+#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRRect'#8'PRRect15'#4'Left'#2#23#6'Height'#2
+#1#3'Top'#3#4#1#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9
+'LineWidth'#5#0#0#0#0#0#0#0#192#255'?'#9'LineColor'#7#6'clBlue'#9'LineStyle'
+#7#9'psDashDot'#0#0#7'TPRRect'#8'PRRect16'#4'Left'#2#23#6'Height'#2#1#3'Top'
+#3#27#1#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'LineWidt'
+'h'#5#0#0#0#0#0#0#0#192#255'?'#9'LineColor'#7#6'clBlue'#9'LineStyle'#7#12'ps'
+'DashDotDot'#0#0#7'TPRText'#8'PRText18'#4'Left'#2#23#6'Height'#2#14#3'Top'#3
+#14#1#5'Width'#3#208#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7
+#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0
+#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#224#2'@'
+#0#0#7'TPRText'#8'PRText19'#4'Left'#2#23#6'Height'#2#14#3'Top'#3'&'#1#5'Widt'
+'h'#3#208#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'
+#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'W'
+'ordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'T'
+'PRRect'#8'PRRect17'#4'Left'#2#23#6'Height'#2#1#3'Top'#3'3'#1#5'Width'#3#209
+#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#192
+#255'?'#9'LineColor'#7#6'clBlue'#9'LineStyle'#7#5'psDot'#0#0#7'TPRRect'#8'PR'
+'Rect19'#4'Left'#3#13#1#6'Height'#2#1#3'Top'#3#212#0#5'Width'#3#209#0#11'Hel'
+'pContext'#2#0#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#128#0'@'#9
+'LineStyle'#7#7'psSolid'#0#0#7'TPRText'#8'PRText21'#4'Left'#3#13#1#6'Height'
+#2#14#3'Top'#3#199#0#5'Width'#3#165#0#11'HelpContext'#2#0#5'Align'#7#6'alNon'
+'e'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'#9'CharSpac'
+'e'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0#0
+#0#0#0#0#0#224#2'@'#0#0#7'TPRText'#8'PRText22'#4'Left'#3#13#1#6'Height'#2#14
+#3'Top'#3#223#0#5'Width'#3#165#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8
+'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0
+#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0
+#0#0#224#2'@'#0#0#7'TPRRect'#8'PRRect20'#4'Left'#3#13#1#6'Height'#2#1#3'Top'
+#3#236#0#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'LineWid'
+'th'#5#0#0#0#0#0#0#0#128#0'@'#9'LineStyle'#7#6'psDash'#0#0#7'TPRText'#8'PRTe'
+'xt23'#4'Left'#3#13#1#6'Height'#2#14#3'Top'#3#247#0#5'Width'#3#165#0#11'Help'
+'Context'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0
+#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0
+#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRRect'#8'PRRect21'#4
+'Left'#3#13#1#6'Height'#2#1#3'Top'#3#4#1#5'Width'#3#209#0#11'HelpContext'#2#0
+#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#128#0'@'#9'LineStyle'#7#9
+'psDashDot'#0#0#7'TPRRect'#8'PRRect22'#4'Left'#3#13#1#6'Height'#2#1#3'Top'#3
+#27#1#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'LineWidth'
+#5#0#0#0#0#0#0#0#128#0'@'#9'LineStyle'#7#12'psDashDotDot'#0#0#7'TPRText'#8'P'
+'RText24'#4'Left'#3#13#1#6'Height'#2#14#3'Top'#3#14#1#5'Width'#3#165#0#11'He'
+'lpContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0
+#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0
+#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRText'#8'PRText25'
+#4'Left'#3#13#1#6'Height'#2#14#3'Top'#3'&'#1#5'Width'#3#165#0#11'HelpContext'
+#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0
+#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0
+#0#0#7'Leading'#5#0#0#0#0#0#0#0#224#2'@'#0#0#7'TPRRect'#8'PRRect23'#4'Left'#3
+#13#1#6'Height'#2#1#3'Top'#3'3'#1#5'Width'#3#209#0#11'HelpContext'#2#0#5'Ali'
+'gn'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#128#0'@'#9'LineStyle'#7#5'psDo'
+'t'#0#0#7'TPRRect'#8'PRRect25'#4'Left'#2#23#6'Height'#2''''#3'Top'#3'M'#1#5
+'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0
+#0#0#0#0#128#255'?'#9'LineStyle'#7#7'psSolid'#0#0#7'TPRText'#8'PRText27'#4'L'
+'eft'#2#30#6'Height'#2#25#3'Top'#3'T'#1#5'Width'#3#188#0#11'HelpContext'#2#0
+#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0
+#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0
+#0#7'Leading'#5#0#0#0#0#0#0#0#192#2'@'#0#0#7'TPRRect'#8'PRRect26'#4'Left'#2
+#22#6'Height'#2''''#3'Top'#3''#1#5'Width'#3#209#0#11'HelpContext'#2#0#5'Ali'
,'gn'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#128#255'?'#9'LineColor'#7#6'cl'
+'Navy'#9'LineStyle'#7#7'psSolid'#9'FillColor'#7#8'clYellow'#0#0#7'TPRText'#8
+'PRText28'#4'Left'#2#29#6'Height'#2#25#3'Top'#3#134#1#5'Width'#3#188#0#11'He'
+'lpContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0
+#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0
+#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#192#2'@'#0#0#7'TPRRect'#8'PRRect18'
+#4'Left'#3#13#1#6'Height'#2''''#3'Top'#3'M'#1#5'Width'#3#209#0#11'HelpContex'
+'t'#2#0#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#128#255'?'#9'LineS'
+'tyle'#7#5'psDot'#9'FillColor'#7#6'clLime'#0#0#7'TPRText'#8'PRText20'#4'Left'
+#3#20#1#6'Height'#2#25#3'Top'#3'T'#1#5'Width'#3#188#0#11'HelpContext'#2#0#5
+'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144
+#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7
+'Leading'#5#0#0#0#0#0#0#0#192#2'@'#0#0#7'TPRRect'#8'PRRect24'#4'Left'#3#12#1
+#6'Height'#2''''#3'Top'#3''#1#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'
+#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#128#255'?'#9'LineColor'#7#6'clNone'
+#9'LineStyle'#7#7'psSolid'#9'FillColor'#7#6'clAqua'#0#0#7'TPRText'#8'PRText2'
+'6'#4'Left'#3#19#1#6'Height'#2#25#3'Top'#3#134#1#5'Width'#3#188#0#11'HelpCon'
+'text'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0
+#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0
+#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#192#2'@'#0#0#7'TPRRect'#8'PRRect27'#4
+'Left'#2#23#6'Height'#2''''#3'Top'#3#183#1#5'Width'#3#209#0#11'HelpContext'#2
+#0#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#192#255'?'#9'LineColor'
+#7#6'clNavy'#9'LineStyle'#7#7'psSolid'#0#0#7'TPRText'#8'PRText29'#4'Left'#2
+#30#6'Height'#2#25#3'Top'#3#190#1#5'Width'#3#188#0#11'HelpContext'#2#0#5'Ali'
+'gn'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2
+'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7
+'Leading'#5#0#0#0#0#0#0#0#192#2'@'#0#0#7'TPRRect'#8'PRRect28'#4'Left'#2#22#6
+'Height'#2''''#3'Top'#3#233#1#5'Width'#3#209#0#11'HelpContext'#2#0#5'Align'#7
+#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#192#255'?'#9'LineColor'#7#5'clRed'#9
+'LineStyle'#7#9'psDashDot'#9'FillColor'#7#8'clYellow'#0#0#7'TPRText'#8'PRTex'
+'t30'#4'Left'#2#29#6'Height'#2#25#3'Top'#3#240#1#5'Width'#3#188#0#11'HelpCon'
+'text'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0
+#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0
+#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#192#2'@'#0#0#7'TPRRect'#8'PRRect29'#4
+'Left'#3#13#1#6'Height'#2''''#3'Top'#3#183#1#5'Width'#3#209#0#11'HelpContext'
+#2#0#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#192#255'?'#9'LineColo'
+'r'#7#6'clBlue'#9'LineStyle'#7#5'psDot'#9'FillColor'#7#6'clLime'#0#0#7'TPRTe'
+'xt'#8'PRText31'#4'Left'#3#20#1#6'Height'#2#25#3'Top'#3#190#1#5'Width'#3#188
+#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontS'
+'ize'#5#0#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpac'
+'e'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#192#2'@'#0#0#7'TPRRect'
+#8'PRRect30'#4'Left'#3#12#1#6'Height'#2''''#3'Top'#3#233#1#5'Width'#3#209#0
+#11'HelpContext'#2#0#5'Align'#7#6'alNone'#9'LineWidth'#5#0#0#0#0#0#0#0#128#0
+'@'#9'LineColor'#7#8'clPurple'#9'LineStyle'#7#7'psSolid'#9'FillColor'#7#6'cl'
+'Aqua'#0#0#7'TPRText'#8'PRText32'#4'Left'#3#19#1#6'Height'#2#25#3'Top'#3#240
+#1#5'Width'#3#188#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7
+'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#144#2'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0
+#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#192#2'@'#0
+#0#0#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2'D'#3'top'#2#10#0#9'TMenuItem'#5
+'File1'#7'Caption'#6#5'&File'#12'RightJustify'#8#19'ShowAlwaysCheckable'#8#0
+#9'TMenuItem'#10'CreatePDF1'#7'Caption'#6#10'Create PDF'#12'RightJustify'#8
+#19'ShowAlwaysCheckable'#8#7'OnClick'#7#15'CreatePDF1Click'#0#0#9'TMenuItem'
+#2'N1'#7'Caption'#6#1'-'#12'RightJustify'#8#19'ShowAlwaysCheckable'#8#0#0#9
+'TMenuItem'#5'Exit1'#7'Caption'#6#4'Exit'#12'RightJustify'#8#19'ShowAlwaysCh'
+'eckable'#8#7'OnClick'#7#10'Exit1Click'#0#0#0#9'TMenuItem'#5'Help1'#7'Captio'
+'n'#6#5'&Help'#12'RightJustify'#8#19'ShowAlwaysCheckable'#8#0#9'TMenuItem'#6
+'About1'#7'Caption'#6#6'&About'#12'RightJustify'#8#19'ShowAlwaysCheckable'#8
+#7'OnClick'#7#11'About1Click'#0#0#0#0#8'TPReport'#8'PReport1'#8'FileName'#6
+#11'default.pdf'#12'CreationDate'#5#0'X'#221#134#18#216#166#144#14'@'#11'Use'
+'Outlines'#8#16'ViewerPreference'#11#0#4'left'#2'f'#3'top'#2#10#0#0#11'TSave'
+'Dialog'#11'SaveDialog1'#5'Width'#2#0#6'Height'#2#0#8'FileName'#6#15'LineExa'
+'mple.pdf'#6'Filter'#6#29'PDF Files|*.pdf|All Files|*.*'#11'FilterIndex'#2#0
+#4'left'#3#138#0#3'top'#2#10#0#0#0
]);

133
components/powerpdf/LazarusExamples/MakeDoc/MakeDoc.lpi Normal file
View File

@@ -0,0 +1,133 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="6"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="pack_powerpdf"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="7">
<Unit0>
<Filename Value="MakeDoc.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="31" Y="8"/>
<TopLine Value="1"/>
<UsageCount Value="38"/>
</Unit0>
<Unit1>
<Filename Value="UMakeDoc.pas"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="UMakeDoc.lrs"/>
<UnitName Value="UMakeDoc"/>
<CursorPos X="27" Y="508"/>
<TopLine Value="501"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="C:\Work\FreePascal\Lazarus\PowerPdf\PReport.pas"/>
<UnitName Value="PReport"/>
<CursorPos X="16" Y="1274"/>
<TopLine Value="1260"/>
<UsageCount Value="8"/>
</Unit2>
<Unit3>
<Filename Value="home\prog\work\PowerPDF\PReport.pas"/>
<UnitName Value="PReport"/>
<CursorPos X="48" Y="1339"/>
<TopLine Value="1318"/>
<UsageCount Value="18"/>
</Unit3>
<Unit4>
<Filename Value="home\prog\fpc\rtl\objpas\classes\classesh.inc"/>
<CursorPos X="29" Y="1253"/>
<TopLine Value="1235"/>
<UsageCount Value="18"/>
</Unit4>
<Unit5>
<Filename Value="UMakeDoc.lfm"/>
<CursorPos X="22" Y="177"/>
<TopLine Value="173"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit5>
<Unit6>
<Filename Value="..\..\PReport.pas"/>
<UnitName Value="PReport"/>
<CursorPos X="9" Y="1310"/>
<TopLine Value="1286"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="Delphi"/>
</Unit6>
</Units>
<JumpHistory Count="2" HistoryIndex="1">
<Position1>
<Filename Value="UMakeDoc.pas"/>
<Caret Line="28" Column="31" TopLine="193"/>
</Position1>
<Position2>
<Filename Value="UMakeDoc.pas"/>
<Caret Line="517" Column="26" TopLine="501"/>
</Position2>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<PathDelim Value="\"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG>

16
components/powerpdf/LazarusExamples/MakeDoc/MakeDoc.lpr Normal file
View File

@@ -0,0 +1,16 @@
program MakeDoc;
{.$MODE Delphi}
uses
Interfaces,
Forms,
UMakeDoc in 'UMakeDoc.pas' {Form1};
{.$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

6758
components/powerpdf/LazarusExamples/MakeDoc/UMakeDoc.lfm Normal file
View File

File diff suppressed because it is too large Load Diff

1575
components/powerpdf/LazarusExamples/MakeDoc/UMakeDoc.lrs Normal file
View File

File diff suppressed because it is too large Load Diff

981
components/powerpdf/LazarusExamples/MakeDoc/UMakeDoc.pas Normal file
View File

@@ -0,0 +1,981 @@
unit UMakeDoc;
{$MODE Delphi}
interface
uses
LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
PReport, ComCtrls, ExtCtrls, Menus, PRAnnotation, PdfDoc, PdfTypes,
LResources;
type
TContentsElement = class;
{ TForm1 }
TForm1 = class(TForm)
MainMenu1: TMainMenu;
File1: TMenuItem;
CreatePDF1: TMenuItem;
N1: TMenuItem;
Exit1: TMenuItem;
Help1: TMenuItem;
About1: TMenuItem;
PReport1: TPReport;
PRText93: TPRText;
SaveDialog1: TSaveDialog;
Panel1: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
TabSheet6: TTabSheet;
TabSheet7: TTabSheet;
TabSheet8: TTabSheet;
TabSheet9: TTabSheet;
TabSheet10: TTabSheet;
TabSheet11: TTabSheet;
TabSheet12: TTabSheet;
TabSheet13: TTabSheet;
TabSheet14: TTabSheet;
TabSheet15: TTabSheet;
TabSheet16: TTabSheet;
TabSheet17: TTabSheet;
CoverPage: TPRPage;
PRLayoutPanel1: TPRLayoutPanel;
PRText2: TPRText;
PRLayoutPanel2: TPRLayoutPanel;
PRText1: TPRText;
ContentsPage: TPRPage;
PRLayoutPanel4: TPRLayoutPanel;
PRRect6: TPRRect;
PRRect7: TPRRect;
PRRect8: TPRRect;
PRRect10: TPRRect;
PRText1Contents: TPRText;
PRPage3: TPRPage;
PRLayoutPanel3: TPRLayoutPanel;
PRRect1: TPRRect;
PRRect2: TPRRect;
PRRect3: TPRRect;
PRText6: TPRText;
PRRect4: TPRRect;
PRTextIntro: TPRText;
PRRect5: TPRRect;
PRText1_1: TPRText;
PRText9: TPRText;
PRText1_2: TPRText;
PRText259: TPRText;
PRText1_3: TPRText;
PRText261: TPRText;
PRText262: TPRText;
PRText263: TPRText;
PRPage4: TPRPage;
PRLayoutPanel5: TPRLayoutPanel;
PRRect9: TPRRect;
PRRect11: TPRRect;
PRRect12: TPRRect;
PRRect13: TPRRect;
PRText21: TPRText;
PRRect14: TPRRect;
PRTextCompRef: TPRText;
PRText2_1: TPRText;
PRText24: TPRText;
PRText2_1_1: TPRText;
PRText26: TPRText;
PRText27: TPRText;
PRText28: TPRText;
PRText29: TPRText;
PRText30: TPRText;
PRText31: TPRText;
PRText32: TPRText;
PRText36: TPRText;
PRText37: TPRText;
PRText38: TPRText;
PRText39: TPRText;
PRText40: TPRText;
PRText41: TPRText;
PRText42: TPRText;
PRText43: TPRText;
PRText44: TPRText;
PRText45: TPRText;
PRText46: TPRText;
PRText47: TPRText;
PRText48: TPRText;
PRText49: TPRText;
PRText50: TPRText;
PRText33: TPRText;
PRText34: TPRText;
PRText35: TPRText;
PRText83: TPRText;
PRText84: TPRText;
PRText85: TPRText;
PRPage5: TPRPage;
PRLayoutPanel6: TPRLayoutPanel;
PRRect15: TPRRect;
PRRect16: TPRRect;
PRRect17: TPRRect;
PRRect18: TPRRect;
PRText62: TPRText;
PRText63: TPRText;
PRText64: TPRText;
PRText53: TPRText;
PRText54: TPRText;
PRText55: TPRText;
PRText56: TPRText;
PRText58: TPRText;
PRText59: TPRText;
PRText60: TPRText;
PRText61: TPRText;
PRText65: TPRText;
PRText66: TPRText;
PRText67: TPRText;
PRText86: TPRText;
PRText87: TPRText;
PRText88: TPRText;
PRText77: TPRText;
PRText78: TPRText;
PRText79: TPRText;
PRPage7: TPRPage;
PRLayoutPanel7: TPRLayoutPanel;
PRRect19: TPRRect;
PRRect20: TPRRect;
PRRect21: TPRRect;
PRRect22: TPRRect;
PRText2_2_1: TPRText;
PRText102: TPRText;
PRText103: TPRText;
PRText104: TPRText;
PRText105: TPRText;
PRText106: TPRText;
PRText107: TPRText;
PRText108: TPRText;
PRText109: TPRText;
PRText110: TPRText;
PRText111: TPRText;
PRText112: TPRText;
PRText113: TPRText;
PRText114: TPRText;
PRText115: TPRText;
PRText2_2_2: TPRText;
PRText96: TPRText;
PRText97: TPRText;
PRText119: TPRText;
PRText120: TPRText;
PRText121: TPRText;
PRText122: TPRText;
PRText123: TPRText;
PRText124: TPRText;
PRText125: TPRText;
PRText2_2: TPRText;
PRText90: TPRText;
PRText91: TPRText;
PRText92: TPRText;
PRPage8: TPRPage;
PRLayoutPanel8: TPRLayoutPanel;
PRRect23: TPRRect;
PRRect24: TPRRect;
PRRect25: TPRRect;
PRRect26: TPRRect;
PRText2_3: TPRText;
PRText152: TPRText;
PRText153: TPRText;
PRText154: TPRText;
PRText155: TPRText;
PRText156: TPRText;
PRText2_3_1: TPRText;
PRText164: TPRText;
PRText165: TPRText;
PRText166: TPRText;
PRText2_3_2: TPRText;
PRText100: TPRText;
PRText101: TPRText;
PRText116: TPRText;
PRText117: TPRText;
PRText118: TPRText;
PRText126: TPRText;
PRText127: TPRText;
PRPage9: TPRPage;
PRLayoutPanel9: TPRLayoutPanel;
PRRect27: TPRRect;
PRRect28: TPRRect;
PRRect29: TPRRect;
PRRect30: TPRRect;
PRText2_4: TPRText;
PRText133: TPRText;
PRText134: TPRText;
PRText135: TPRText;
PRText136: TPRText;
PRText137: TPRText;
PRText2_4_1: TPRText;
PRText139: TPRText;
PRText140: TPRText;
PRText141: TPRText;
PRText2_4_2: TPRText;
PRText143: TPRText;
PRText144: TPRText;
PRText145: TPRText;
PRText146: TPRText;
PRText147: TPRText;
PRText148: TPRText;
PRText149: TPRText;
PRText150: TPRText;
PRText157: TPRText;
PRText158: TPRText;
PRText159: TPRText;
PRText160: TPRText;
PRText161: TPRText;
PRText162: TPRText;
PRText167: TPRText;
PRText168: TPRText;
PRText169: TPRText;
PRText170: TPRText;
PRText171: TPRText;
PRText172: TPRText;
PRText173: TPRText;
PRText174: TPRText;
PRText175: TPRText;
PRPage10: TPRPage;
PRLayoutPanel17: TPRLayoutPanel;
PRRect67: TPRRect;
PRRect68: TPRRect;
PRRect69: TPRRect;
PRRect70: TPRRect;
PRText2_5: TPRText;
PRText281: TPRText;
PRText287: TPRText;
PRText319: TPRText;
PRText320: TPRText;
PRText321: TPRText;
PRText2_5_1: TPRText;
PRText323: TPRText;
PRText324: TPRText;
PRText325: TPRText;
PRText326: TPRText;
PRText327: TPRText;
PRText328: TPRText;
PRText329: TPRText;
PRText330: TPRText;
PRText331: TPRText;
PRText348: TPRText;
PRText349: TPRText;
PRText350: TPRText;
PRText354: TPRText;
PRText355: TPRText;
PRText356: TPRText;
PRPage11: TPRPage;
PRLayoutPanel14: TPRLayoutPanel;
PRRect54: TPRRect;
PRRect55: TPRRect;
PRRect56: TPRRect;
PRRect58: TPRRect;
PRText380: TPRText;
PRText381: TPRText;
PRText382: TPRText;
PRText383: TPRText;
PRText384: TPRText;
PRText385: TPRText;
PRText386: TPRText;
PRText387: TPRText;
PRText388: TPRText;
PRText389: TPRText;
PRRect76: TPRRect;
PRText390: TPRText;
PRText391: TPRText;
PRText392: TPRText;
PRText393: TPRText;
PRText394: TPRText;
PRText395: TPRText;
PRPage12: TPRPage;
PRLayoutPanel10: TPRLayoutPanel;
PRRect31: TPRRect;
PRRect32: TPRRect;
PRRect33: TPRRect;
PRRect34: TPRRect;
PRText2_6: TPRText;
PRText179: TPRText;
PRText180: TPRText;
PRText181: TPRText;
PRText182: TPRText;
PRText183: TPRText;
PRText2_6_1: TPRText;
PRText185: TPRText;
PRText186: TPRText;
PRText187: TPRText;
PRText196: TPRText;
PRText197: TPRText;
PRText198: TPRText;
PRText199: TPRText;
PRText200: TPRText;
PRText201: TPRText;
PRText202: TPRText;
PRText203: TPRText;
PRText239: TPRText;
PRText295: TPRText;
PRText296: TPRText;
PRText297: TPRText;
PRText298: TPRText;
PRText299: TPRText;
PRText300: TPRText;
PRText301: TPRText;
PRText302: TPRText;
PRText303: TPRText;
PRText304: TPRText;
PRText305: TPRText;
PRText306: TPRText;
PRText307: TPRText;
PRText308: TPRText;
PRText309: TPRText;
PRText310: TPRText;
PRText311: TPRText;
PRText312: TPRText;
PRPage13: TPRPage;
PRLayoutPanel11: TPRLayoutPanel;
PRRect35: TPRRect;
PRRect36: TPRRect;
PRRect37: TPRRect;
PRRect38: TPRRect;
PRText2_7: TPRText;
PRText191: TPRText;
PRText192: TPRText;
PRText193: TPRText;
PRText194: TPRText;
PRText195: TPRText;
PRText2_7_1: TPRText;
PRText206: TPRText;
PRText207: TPRText;
PRText208: TPRText;
PRText209: TPRText;
PRText210: TPRText;
PRText211: TPRText;
PRText212: TPRText;
PRText213: TPRText;
PRText214: TPRText;
PRText215: TPRText;
PRText216: TPRText;
PRText217: TPRText;
PRText3: TPRText;
PRText204: TPRText;
PRText240: TPRText;
PRPage14: TPRPage;
PRLayoutPanel12: TPRLayoutPanel;
PRRect39: TPRRect;
PRRect40: TPRRect;
PRRect41: TPRRect;
PRRect42: TPRRect;
PRText2_8: TPRText;
PRText246: TPRText;
PRText247: TPRText;
PRText248: TPRText;
PRText249: TPRText;
PRText250: TPRText;
PRText2_8_1: TPRText;
PRText252: TPRText;
PRText253: TPRText;
PRText254: TPRText;
PRText255: TPRText;
PRText256: TPRText;
PRText257: TPRText;
PRText258: TPRText;
PRText260: TPRText;
PRText264: TPRText;
PRText265: TPRText;
PRText273: TPRText;
PRText274: TPRText;
PRPage15: TPRPage;
PRLayoutPanel13: TPRLayoutPanel;
PRRect43: TPRRect;
PRRect44: TPRRect;
PRRect45: TPRRect;
PRRect46: TPRRect;
PRText2_9: TPRText;
PRText221: TPRText;
PRText222: TPRText;
PRText223: TPRText;
PRText2_9_1: TPRText;
PRText227: TPRText;
PRText228: TPRText;
PRText229: TPRText;
PRText230: TPRText;
PRText231: TPRText;
PRText232: TPRText;
PRText233: TPRText;
PRText234: TPRText;
PRText235: TPRText;
PRText236: TPRText;
PRText237: TPRText;
PRText238: TPRText;
PRRect47: TPRRect;
PRText224: TPRText;
PRText225: TPRText;
PRRect48: TPRRect;
PRText266: TPRText;
PRRect49: TPRRect;
PRRect50: TPRRect;
PRText267: TPRText;
PRText268: TPRText;
PRRect51: TPRRect;
PRRect52: TPRRect;
PRText269: TPRText;
PRText270: TPRText;
PRRect57: TPRRect;
PRPage16: TPRPage;
PRLayoutPanel18: TPRLayoutPanel;
PRRect72: TPRRect;
PRRect73: TPRRect;
PRRect74: TPRRect;
PRRect75: TPRRect;
PRText2_10: TPRText;
PRText357: TPRText;
PRText358: TPRText;
PRText359: TPRText;
PRText2_10_1: TPRText;
PRText361: TPRText;
PRText362: TPRText;
PRText363: TPRText;
PRText364: TPRText;
PRText365: TPRText;
PRText366: TPRText;
PRText367: TPRText;
PRText368: TPRText;
PRText369: TPRText;
PRText370: TPRText;
PRText371: TPRText;
PRText372: TPRText;
PRLabel2: TPRLabel;
PRRect53: TPRRect;
PREllipse1: TPREllipse;
PREllipse2: TPREllipse;
PREllipse3: TPREllipse;
PREllipse4: TPREllipse;
PREllipse5: TPREllipse;
PREllipse6: TPREllipse;
PRPage17: TPRPage;
PRLayoutPanel16: TPRLayoutPanel;
PRRect63: TPRRect;
PRRect64: TPRRect;
PRRect65: TPRRect;
PRRect66: TPRRect;
PRText2_11: TPRText;
PRText282: TPRText;
PRText283: TPRText;
PRText284: TPRText;
PRText2_11_1: TPRText;
PRText291: TPRText;
PRText292: TPRText;
PRText293: TPRText;
PRText294: TPRText;
PRText313: TPRText;
PRText314: TPRText;
PRText315: TPRText;
PRText316: TPRText;
PRAnnotation1: TPRAnnotation;
PRAnnotation2: TPRAnnotation;
PRText288: TPRText;
PRText289: TPRText;
PRText290: TPRText;
PRText317: TPRText;
PRText318: TPRText;
PRPage20: TPRPage;
PRLayoutPanel15: TPRLayoutPanel;
PRRect59: TPRRect;
PRRect60: TPRRect;
PRRect61: TPRRect;
PRRect62: TPRRect;
PRText220: TPRText;
PRTextCopyright: TPRText;
PRLabel3: TPRLabel;
PRLabel4: TPRLabel;
PRLabel6: TPRLabel;
PRLabel7: TPRLabel;
PRLabel9: TPRLabel;
PRLabel5: TPRLabel;
PRLabel8: TPRLabel;
PRLabel10: TPRLabel;
PRRect71: TPRRect;
PRLabel11: TPRLabel;
PRLabel1: TPRLabel;
PRLabel22: TPRLabel;
PRLabel23: TPRLabel;
PRLabel24: TPRLabel;
PRLabel25: TPRLabel;
PRLabel26: TPRLabel;
PRLabel27: TPRLabel;
PRLabel28: TPRLabel;
PRLabel29: TPRLabel;
PRLabel30: TPRLabel;
PRLabel31: TPRLabel;
PRLabel32: TPRLabel;
PRLabel33: TPRLabel;
PRLabel34: TPRLabel;
PRLabel35: TPRLabel;
PRLabel36: TPRLabel;
PRLabel21: TPRLabel;
PRGridPanel1: TPRGridPanel;
lblSectionNo: TPRLabel;
lblSectionName: TPRLabel;
PRText5: TPRText;
PRText7: TPRText;
PRText8: TPRText;
PRText10: TPRText;
PRText11: TPRText;
TabSheet18: TTabSheet;
PRPage6: TPRPage;
PRLayoutPanel19: TPRLayoutPanel;
PRRect77: TPRRect;
PRRect78: TPRRect;
PRRect79: TPRRect;
PRRect80: TPRRect;
PRText94: TPRText;
PRText95: TPRText;
PRText98: TPRText;
PRText99: TPRText;
PRText128: TPRText;
PRText129: TPRText;
PRText130: TPRText;
PRText131: TPRText;
PRText132: TPRText;
PRText138: TPRText;
PRText176: TPRText;
PRText177: TPRText;
PRText178: TPRText;
PRLabel12: TPRLabel;
PRLabel13: TPRLabel;
PRLabel14: TPRLabel;
PRLabel15: TPRLabel;
PRText4: TPRText;
PRText13: TPRText;
PRLabel16: TPRLabel;
PRLabel17: TPRLabel;
TabSheet19: TTabSheet;
PRPage18: TPRPage;
PRLayoutPanel20: TPRLayoutPanel;
PRRect81: TPRRect;
PRRect82: TPRRect;
PRRect83: TPRRect;
PRRect84: TPRRect;
PRLabel18: TPRLabel;
PRText2_12: TPRText;
PRText14: TPRText;
PRText15: TPRText;
PRText16: TPRText;
PRText2_12_2: TPRText;
TabSheet20: TTabSheet;
PRPage19: TPRPage;
PRLayoutPanel21: TPRLayoutPanel;
PRRect85: TPRRect;
PRRect86: TPRRect;
PRRect87: TPRRect;
PRRect88: TPRRect;
PRLabel19: TPRLabel;
PRText70: TPRText;
PRText71: TPRText;
PRText72: TPRText;
PRText73: TPRText;
PRText74: TPRText;
PRText12: TPRText;
PRText17: TPRText;
PRLabel20: TPRLabel;
PRLabel37: TPRLabel;
PRText188: TPRText;
PRText189: TPRText;
PRLabel38: TPRLabel;
PRLabel39: TPRLabel;
PRText190: TPRText;
PRText219: TPRText;
PRLabel40: TPRLabel;
PRLabel41: TPRLabel;
PRLabel42: TPRLabel;
PRLabel43: TPRLabel;
PRText18: TPRText;
PRLabel44: TPRLabel;
PRLabel45: TPRLabel;
PRText19: TPRText;
PRLabel46: TPRLabel;
PRLabel47: TPRLabel;
PRText20: TPRText;
PRLabel48: TPRLabel;
PRLabel49: TPRLabel;
PRText22: TPRText;
PRLabel50: TPRLabel;
PRLabel51: TPRLabel;
PRText23: TPRText;
PRLabel52: TPRLabel;
PRLabel53: TPRLabel;
PRText25: TPRText;
PRLabel54: TPRLabel;
PRLabel55: TPRLabel;
PRText51: TPRText;
PRLabel56: TPRLabel;
PRLabel57: TPRLabel;
PRText52: TPRText;
PRText57: TPRText;
PRLabel58: TPRLabel;
PRLabel59: TPRLabel;
PRText68: TPRText;
PRText69: TPRText;
PRText75: TPRText;
PRLabel60: TPRLabel;
PRLabel61: TPRLabel;
PRLabel62: TPRLabel;
PRLabel63: TPRLabel;
PRLabel64: TPRLabel;
PRLabel65: TPRLabel;
PRLabel66: TPRLabel;
PRLabel67: TPRLabel;
PRLabel68: TPRLabel;
PRLabel69: TPRLabel;
PRText76: TPRText;
PRText80: TPRText;
PRText81: TPRText;
PRText82: TPRText;
PRText89: TPRText;
PRLabel70: TPRLabel;
PRLabel71: TPRLabel;
procedure PRLayoutPanel2BeforePrint(Sender: TObject;
ACanvas: TPRCanvas; Rect: TRect);
procedure PRLayoutPanel2AfterPrint(Sender: TObject;
ACanvas: TPRCanvas; Rect: TRect);
procedure CreatePDF1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
procedure About1Click(Sender: TObject);
procedure PRLayoutPanelBeforePrint(Sender: TObject;
ACanvas: TPRCanvas; Rect: TRect);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure PRGridPanel1BeforePrintChild(Sender: TObject;
ACanvas: TPRCanvas; ACol, ARow: Integer; Rect: TRect);
procedure CoverPagePrintPage(Sender: TObject; ACanvas: TPRCanvas);
procedure PageControl1Change(Sender: TObject);
private
FCurrentOutline: array[0..5] of TPROutlineEntry;
FContentsList: TList;
FPos: integer;
procedure CreateContentsList;
function FindLink(AItem: TPRItem): TContentsElement;
public
{ Public �錾 }
end;
TContentsElement = class(TObject)
private
FContentsIndex: string;
FTitle: string;
FData: TPdfDictionary;
FTarget: TPRItem;
public
property ContentsIndex: string read FContentsIndex write FContentsIndex;
property Title: string read FTitle write FTitle;
property Data: TPdfDictionary read FData write FData;
property Target: TPRItem read FTarget write FTarget;
end;
var
Form1: TForm1;
implementation
procedure TForm1.PRLayoutPanel2BeforePrint(Sender: TObject;
ACanvas: TPRCanvas; Rect: TRect);
begin
// change the horizontal scaling of th font.
ACanvas.SetHorizontalScaling(80);
PRLayoutPanelBeforePrint(Sender, ACanvas, Rect);
end;
procedure TForm1.PRLayoutPanel2AfterPrint(Sender: TObject;
ACanvas: TPRCanvas; Rect: TRect);
begin
// restore the horizontal scaling of th font.
ACanvas.SetHorizontalScaling(100);
end;
procedure TForm1.CreateContentsList;
var
APage: TPRPage;
APanel: TPRPanel;
AControl: TControl;
i, j, k: integer;
FChapterIndex: integer;
FContentsElement: TContentsElement;
S: string;
begin
// clear the contents list.
for i := FContentsList.Count - 1 downto 0 do
TContentsElement(FContentsList.Items[i]).Free;
// create new contents list.
FChapterIndex := 0;
for i := 0 to PageControl1.PageCount do
begin
APage := TPRPage(Self.FindComponent('PRPage' + IntToStr(i)));
if (APage <> nil) and (APage.Controls[0] is TPRPanel) then
begin
APanel := TPRPanel(APage.Controls[0]);
for j := 0 to APanel.ControlCount - 1 do
begin
AControl := APanel.Controls[j];
if AControl.Tag = 2 then
begin
FContentsElement := TContentsElement.Create;
with FContentsElement do
begin
if AControl is TPRText then
Title := TPRText(AControl).Text
else
if AControl is TPRLabel then
Title := TPRLabel(AControl).Caption
else
raise Exception.CreateFmt('invalid target control %s', [AControl.ClassName]);
if (Title <> 'Contents') and (Title <> 'Copyright') then
begin
inc(FChapterIndex);
FContentsList.Add(TContentsElement.Create);
Title := 'Chapter' + IntToStr(FChapterIndex) + ' ' + Title;
Target := TPRItem(AControl);
FContentsList.Add(FContentsElement);
end
else
FContentsElement.Free;
end;
end
else
if (AControl.Tag = 3) or (AControl.Tag = 4) then
begin
FContentsElement := TContentsElement.Create;
with FContentsElement do
begin
if AControl is TPRText then
S := TPRText(AControl).Text
else
if AControl is TPRLabel then
S := TPRLabel(AControl).Caption
else
raise Exception.CreateFmt('invalid target control %s', [AControl.ClassName]);
k := Pos(' ', S);
if k < 1 then
raise Exception.CreateFmt('invalid contents title text %s', [S]);
ContentsIndex := Copy(S, 1, k);
Title := Trim(Copy(S, k, Length(S) - k + 1));
Target := TPRItem(AControl);
end;
FContentsList.Add(FContentsElement);
end;
end;
end;
end;
end;
procedure TForm1.CreatePDF1Click(Sender: TObject);
var
APage: TPRPage;
i: integer;
begin
if not SaveDialog1.Execute then Exit;
with PReport1 do
begin
FileName := SaveDialog1.FileName;
BeginDoc;
FCurrentOutline[0] := OutlineRoot;
OutlineRoot.Opened := true;
Print(CoverPage);
CreateContentsList;
// print index of contents.
FPos := 0;
while FPos < FContentsList.Count do
begin
Print(ContentsPage);
PRText1Contents.Text := '';
PRText1Contents.Tag := 0;
end;
for i := 2 to PageControl1.PageCount - 1 do
begin
APage := TPRPage(PageControl1.Pages[i].Controls[0]);
if APage <> nil then
Print(APage);
end;
EndDoc;
for i := FContentsList.Count - 1 downto 0 do
TContentsElement(FContentsList.Items[i]).Free;
FContentsList.Clear;
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;
procedure TForm1.PRLayoutPanelBeforePrint(Sender: TObject;
ACanvas: TPRCanvas; Rect: TRect);
var
FDestination: TPRDestination;
i, j: integer;
FLevel: integer;
FControlList: TList;
FPRText: TPRText;
TmpYPos: integer;
ItemIndex: integer;
FTextWidth: Single;
Element: TContentsElement;
begin
// printting page number
if PReport1.PageNumber > 1 then
with ACanvas do
begin
SetFont('Times-Roman', 8);
FTextWidth := TextWidth(IntToStr(PReport1.PageNumber - 1));
TextOut((PageWidth - FTextWidth) / 2 + 3, 30, IntToStr(PReport1.PageNumber - 1));
end;
// sorting the Items of the page by Top property.
FControlList := TList.Create;
with (Sender as TPRPanel) do
for i := 0 to ControlCount - 1 do
if (Controls[i] is TPRText) and (Controls[i].Tag > 0) then
begin
TmpYPos := Controls[i].Top;
ItemIndex := -1;
for j := 0 to FControlList.Count - 1 do
if TControl(FControlList[j]).Top > TmpYPos then
begin
ItemIndex := j;
Break;
end;
if ItemIndex = -1 then
FControlList.Add(Controls[i])
else
FControlList.Insert(ItemIndex, Controls[i]);
end;
for i := 0 to FControlList.Count - 1 do
if TPRText(FControlList[i]).Tag > 0 then
begin
// getting outline level from the Tag property.
FPRText := TPRText(FControlList[i]);
FLevel := FPRText.Tag;
if FCurrentOutline[FLevel - 1] <> nil then
begin
FCurrentOutline[FLevel] := FCurrentOutline[FLevel - 1].AddChild;
with FCurrentOutline[FLevel] do
begin
if FLevel = 1 then
Opened := true;
Title := FPRText.Text;
FDestination := PReport1.CreateDestination;
Dest := FDestination;
end;
with FDestination do
begin
DestinationType := dtXYZ;
Top := FPRText.Top;
Left := FPRText.Left;
Zoom := 0;
end;
// setting the destination object to the link-annotation.
Element := FindLink(TPRText(FControlList[i]));
if Element <> nil then
Element.Data.AddItem('Dest', FDestination.Data.GetValue);
end;
end;
FControlList.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FContentsList := TList.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
i: integer;
begin
for i := FContentsList.Count - 1 downto 0 do
TContentsElement(FContentsList.Items[i]).Free;
FContentsList.Free;
end;
procedure TForm1.PRGridPanel1BeforePrintChild(Sender: TObject;
ACanvas: TPRCanvas; ACol, ARow: Integer; Rect: TRect);
begin
if FPos < FContentsList.Count then
with TContentsElement(FContentsList[FPos]) do
begin
if ContentsIndex = '' then
begin
lblSectionName.FontBold := true;
lblSectionNo.FontSize := 12;
lblSectionName.FontSize := 12;
lblSectionName.Top := 0;
end
else
begin
lblSectionName.FontBold := false;
lblSectionNo.FontSize := 11;
lblSectionName.FontSize := 11;
lblSectionNo.Top := 3;
lblSectionName.Top := 3;
end;
lblSectionNo.Caption := ContentsIndex;
lblSectionName.Caption := Title;
with Rect do
Data := ACanvas.PdfCanvas.Doc.CreateAnnotation(asLink,
_PdfRect(Left, ACanvas.PageHeight - Top, Right, ACanvas.PageHeight - Bottom));
with Data do
AddItem('Border', TPdfArray.CreateNumArray(nil, [0, 0, 0]));
end
else
begin
lblSectionNo.Caption := '';
lblSectionName.Caption := '';
end;
inc(FPos);
end;
procedure TForm1.CoverPagePrintPage(Sender: TObject; ACanvas: TPRCanvas);
begin
with PReport1 do
begin
OpenAction := CreateDestination;
OpenAction.DestinationType := dtXYZ;
end;
end;
procedure TForm1.PageControl1Change(Sender: TObject);
begin
end;
function TForm1.FindLink(AItem: TPRItem): TContentsElement;
var
i: integer;
Element: TContentsElement;
begin
result := nil;
for i := FContentsList.Count - 1 downto 0 do
begin
Element := TContentsElement(FContentsList.Items[i]);
if Element.Target = AItem then result := Element;
end;
end;
initialization
{$i UMakeDoc.lrs}
end.

106
components/powerpdf/LazarusExamples/MultiSizePagesDemo/MultiSizePagesDemo.lpi Normal file
View File

@@ -0,0 +1,106 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="6"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="1"/>
</General>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="pack_powerpdf"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="4">
<Unit0>
<Filename Value="MultiSizePagesDemo.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="3" Y="10"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="UMultiSizeDocument.pas"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="UMultiSizeDocument.lrs"/>
<UnitName Value="UMultiSizeDocument"/>
<CursorPos X="23" Y="5"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="C:\Work\FreePascal\svn\lazarus\lcl\comctrls.pp"/>
<UnitName Value="ComCtrls"/>
<CursorPos X="1" Y="1"/>
<TopLine Value="31"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="UMultiSizeDocument.lfm"/>
<CursorPos X="21" Y="11"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit3>
</Units>
<JumpHistory Count="0" HistoryIndex="-1"/>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<PathDelim Value="\"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CustomOptions Value="-Si"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG>

16
components/powerpdf/LazarusExamples/MultiSizePagesDemo/MultiSizePagesDemo.lpr Normal file
View File

@@ -0,0 +1,16 @@
program MultiSizePagesDemo;
{.$MODE Delphi}
uses
Interfaces,
Forms,
UMultiSizeDocument in 'UMultiSizeDocument.pas' {Form1};
{.$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

BIN
components/powerpdf/LazarusExamples/MultiSizePagesDemo/MultiSizePagesDemo.res Normal file
View File

Binary file not shown.

476
components/powerpdf/LazarusExamples/MultiSizePagesDemo/UMultiSizeDocument.lfm Normal file
View File

@@ -0,0 +1,476 @@
object Form1: TForm1
Left = 85
Height = 585
Top = 31
Width = 678
HelpContext = 0
Align = alNone
AllowDropFiles = False
AutoScroll = True
AutoSize = False
BorderIcons = [biSystemMenu, biMinimize, biMaximize]
BorderStyle = bsSizeable
Caption = 'Form1'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 565
ClientWidth = 678
DockSite = False
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Font.CharSet = ANSI_CHARSET
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
FormStyle = fsNormal
Menu = MainMenu1
OnCreate = FormCreate
ParentBiDiMode = True
ParentFont = False
Position = poDesigned
ShowInTaskBar = stDefault
UseDockManager = False
LCLVersion = '0.9.27'
WindowState = wsNormal
object StatusBar1: TStatusBar
Left = 0
Height = 23
Top = 542
Width = 678
HelpContext = 0
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Panels = <
item
Alignment = taLeftJustify
Width = 50
end>
ParentShowHint = True
SimplePanel = False
end
object PageControl1: TPageControl
Left = 0
Height = 542
Top = 0
Width = 678
HelpContext = 0
TabStop = True
ActivePage = TabSheet1
Align = alClient
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
ParentFont = True
ParentShowHint = True
TabIndex = 0
TabOrder = 0
TabPosition = tpTop
Visible = True
object TabSheet1: TTabSheet
HelpContext = 0
Caption = 'TabSheet1'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 514
ClientWidth = 670
Enabled = True
ParentFont = True
ParentShowHint = True
object ScrollBox1: TScrollBox
Left = 0
Height = 514
Top = 0
Width = 670
HelpContext = 0
Align = alClient
AutoSize = False
AutoScroll = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Ctl3D = False
ParentBiDiMode = True
ParentColor = True
ParentCtl3D = True
ParentFont = True
ParentShowHint = True
TabOrder = 0
TabStop = False
Visible = True
object PRPage1: TPRPage
Left = 20
Height = 400
Top = 16
Width = 300
HelpContext = 0
MarginTop = 32
MarginLeft = 32
MarginRight = 32
MarginBottom = 32
Visible = True
object PRLayoutPanel1: TPRLayoutPanel
Left = 33
Height = 334
Top = 33
Width = 234
HelpContext = 0
Align = alClient
object PRText1: TPRText
Left = 17
Height = 289
Top = 25
Width = 199
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 22
CharSpace = 0
WordSpace = 0
Leading = 24
end
end
end
end
end
object TabSheet2: TTabSheet
HelpContext = 0
Caption = 'TabSheet2'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 520
ClientWidth = 670
Enabled = True
ParentFont = True
ParentShowHint = True
object ScrollBox2: TScrollBox
Left = 0
Height = 520
Top = 0
Width = 670
HelpContext = 0
Align = alClient
AutoSize = False
AutoScroll = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Ctl3D = False
ParentBiDiMode = True
ParentColor = True
ParentCtl3D = True
ParentFont = True
ParentShowHint = True
TabOrder = 0
TabStop = False
Visible = True
object PRPage2: TPRPage
Left = 20
Height = 600
Top = 16
Width = 300
HelpContext = 0
MarginTop = 32
MarginLeft = 32
MarginRight = 32
MarginBottom = 32
Visible = True
object PRLayoutPanel2: TPRLayoutPanel
Left = 33
Height = 534
Top = 33
Width = 234
HelpContext = 0
Align = alClient
object PRText2: TPRText
Left = 16
Height = 289
Top = 26
Width = 199
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 22
CharSpace = 0
WordSpace = 0
Leading = 24
end
end
end
end
end
object TabSheet3: TTabSheet
HelpContext = 0
Caption = 'TabSheet3'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 520
ClientWidth = 670
Enabled = True
ParentFont = True
ParentShowHint = True
object ScrollBox3: TScrollBox
Left = 0
Height = 508
Top = 0
Width = 662
HelpContext = 0
Align = alClient
AutoSize = False
AutoScroll = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Ctl3D = False
ParentBiDiMode = True
ParentColor = True
ParentCtl3D = True
ParentFont = True
ParentShowHint = True
TabOrder = 0
TabStop = False
Visible = True
object PRPage3: TPRPage
Left = 20
Height = 400
Top = 16
Width = 400
HelpContext = 0
MarginTop = 32
MarginLeft = 32
MarginRight = 32
MarginBottom = 32
Visible = True
object PRLayoutPanel3: TPRLayoutPanel
Left = 33
Height = 334
Top = 33
Width = 334
HelpContext = 0
Align = alClient
object PRText3: TPRText
Left = 22
Height = 289
Top = 20
Width = 199
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 22
CharSpace = 0
WordSpace = 0
Leading = 24
end
end
end
end
end
object TabSheet4: TTabSheet
HelpContext = 0
Caption = 'TabSheet4'
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
ClientHeight = 520
ClientWidth = 670
Enabled = True
ParentFont = True
ParentShowHint = True
object ScrollBox4: TScrollBox
Left = 0
Height = 508
Top = 0
Width = 662
HelpContext = 0
Align = alClient
AutoSize = False
AutoScroll = True
BorderSpacing.Left = 0
BorderSpacing.Top = 0
BorderSpacing.Right = 0
BorderSpacing.Bottom = 0
BorderSpacing.Around = 0
BorderSpacing.CellAlignHorizontal = ccaFill
BorderSpacing.CellAlignVertical = ccaFill
BorderStyle = bsNone
ChildSizing.LeftRightSpacing = 0
ChildSizing.TopBottomSpacing = 0
ChildSizing.HorizontalSpacing = 0
ChildSizing.VerticalSpacing = 0
ChildSizing.ControlsPerLine = 0
DockSite = False
DragCursor = crDrag
DragKind = dkDrag
DragMode = dmManual
Enabled = True
Ctl3D = False
ParentBiDiMode = True
ParentColor = True
ParentCtl3D = True
ParentFont = True
ParentShowHint = True
TabOrder = 0
TabStop = False
Visible = True
object PRPage4: TPRPage
Left = 20
Height = 400
Top = 16
Width = 600
HelpContext = 0
MarginTop = 32
MarginLeft = 32
MarginRight = 32
MarginBottom = 32
Visible = True
object PRLayoutPanel4: TPRLayoutPanel
Left = 33
Height = 334
Top = 33
Width = 534
HelpContext = 0
Align = alClient
object PRText4: TPRText
Left = 22
Height = 289
Top = 20
Width = 199
HelpContext = 0
Align = alNone
FontName = fnArial
FontSize = 22
CharSpace = 0
WordSpace = 0
Leading = 24
end
end
end
end
end
end
object MainMenu1: TMainMenu
left = 68
top = 10
object File1: TMenuItem
Caption = '&File'
RightJustify = False
ShowAlwaysCheckable = False
object CreatePDF1: TMenuItem
Caption = 'Create PDF'
RightJustify = False
ShowAlwaysCheckable = False
OnClick = CreatePDF1Click
end
object N1: TMenuItem
Caption = '-'
RightJustify = False
ShowAlwaysCheckable = False
end
object Exit1: TMenuItem
Caption = 'Exit'
RightJustify = False
ShowAlwaysCheckable = False
OnClick = Exit1Click
end
end
object Help1: TMenuItem
Caption = '&Help'
RightJustify = False
ShowAlwaysCheckable = False
object About1: TMenuItem
Caption = '&About'
RightJustify = False
ShowAlwaysCheckable = False
OnClick = About1Click
end
end
end
object PReport1: TPReport
FileName = 'MultiSizePages.pdf'
CreationDate = 37030.8440326967
PageMode = pmUseThumbs
UseOutlines = False
ViewerPreference = []
left = 102
top = 10
end
object SaveDialog1: TSaveDialog
Width = 0
Height = 0
FileName = 'MultiSizePages.pdf'
Filter = 'PDF Files|*.pdf|All Files|*.*'
FilterIndex = 0
left = 138
top = 10
end
end

143
components/powerpdf/LazarusExamples/MultiSizePagesDemo/UMultiSizeDocument.lrs Normal file
View File

@@ -0,0 +1,143 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#4'Left'#2'U'#6'Height'#3'I'#2#3'Top'#2#31#5'Width'#3
+#166#2#11'HelpContext'#2#0#5'Align'#7#6'alNone'#14'AllowDropFiles'#8#10'Auto'
+'Scroll'#9#8'AutoSize'#8#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'
+#10'biMaximize'#0#11'BorderStyle'#7#10'bsSizeable'#7'Caption'#6#5'Form1'#28
+'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'C'
+'hildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'Ch'
+'ildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3'5'#2#11'ClientWidth'#3#166
+#2#8'DockSite'#8#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'
+#9#12'Font.CharSet'#7#12'ANSI_CHARSET'#11'Font.Height'#2#244#9'Font.Name'#6#5
+'Arial'#10'Font.Style'#11#0#9'FormStyle'#7#8'fsNormal'#4'Menu'#7#9'MainMenu1'
+#8'OnCreate'#7#10'FormCreate'#14'ParentBiDiMode'#9#10'ParentFont'#8#8'Positi'
+'on'#7#10'poDesigned'#13'ShowInTaskBar'#7#9'stDefault'#14'UseDockManager'#8
+#10'LCLVersion'#6#6'0.9.27'#11'WindowState'#7#8'wsNormal'#0#10'TStatusBar'#10
+'StatusBar1'#4'Left'#2#0#6'Height'#2#23#3'Top'#3#30#2#5'Width'#3#166#2#11'He'
+'lpContext'#2#0#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMod'
+'e'#7#8'dmManual'#7'Enabled'#9#6'Panels'#14#1#9'Alignment'#7#13'taLeftJustif'
+'y'#5'Width'#2'2'#0#0#14'ParentShowHint'#9#11'SimplePanel'#8#0#0#12'TPageCon'
+'trol'#12'PageControl1'#4'Left'#2#0#6'Height'#3#30#2#3'Top'#2#0#5'Width'#3
+#166#2#11'HelpContext'#2#0#7'TabStop'#9#10'ActivePage'#7#9'TabSheet1'#5'Alig'
+'n'#7#8'alClient'#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'Bo'
+'rderSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'
+#2#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellA'
+'lignVertical'#7#7'ccaFill'#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'DragK'
+'ind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#10'ParentFont'#9#14
+'ParentShowHint'#9#8'TabIndex'#2#0#8'TabOrder'#2#0#11'TabPosition'#7#5'tpTop'
+#7'Visible'#9#0#9'TTabSheet'#9'TabSheet1'#11'HelpContext'#2#0#7'Caption'#6#9
+'TabSheet1'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpa'
+'cing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpac'
+'ing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#2#2#11'Clie'
+'ntWidth'#3#158#2#7'Enabled'#9#10'ParentFont'#9#14'ParentShowHint'#9#0#10'TS'
+'crollBox'#10'ScrollBox1'#4'Left'#2#0#6'Height'#3#2#2#3'Top'#2#0#5'Width'#3
+#158#2#11'HelpContext'#2#0#5'Align'#7#8'alClient'#8'AutoSize'#8#10'AutoScrol'
+'l'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.'
+'Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!Borde'
+'rSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertic'
+'al'#7#7'ccaFill'#11'BorderStyle'#7#6'bsNone'#28'ChildSizing.LeftRightSpacin'
+'g'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacin'
+'g'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2
+#0#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMo'
+'de'#7#8'dmManual'#7'Enabled'#9#5'Ctl3D'#8#14'ParentBiDiMode'#9#11'ParentCol'
+'or'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2
+#0#7'TabStop'#8#7'Visible'#9#0#7'TPRPage'#7'PRPage1'#4'Left'#2#20#6'Height'#3
+#144#1#3'Top'#2#16#5'Width'#3','#1#11'HelpContext'#2#0#9'MarginTop'#2' '#10
+'MarginLeft'#2' '#11'MarginRight'#2' '#12'MarginBottom'#2' '#7'Visible'#9#0
+#14'TPRLayoutPanel'#14'PRLayoutPanel1'#4'Left'#2'!'#6'Height'#3'N'#1#3'Top'#2
+'!'#5'Width'#3#234#0#11'HelpContext'#2#0#5'Align'#7#8'alClient'#0#7'TPRText'
+#7'PRText1'#4'Left'#2#17#6'Height'#3'!'#1#3'Top'#2#25#5'Width'#3#199#0#11'He'
+'lpContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0
+#0#0#0#0#0#0#176#3'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0
+#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#192#3'@'#0#0#0#0#0#0#9'TTabSheet'#9
+'TabSheet2'#11'HelpContext'#2#0#7'Caption'#6#9'TabSheet2'#28'ChildSizing.Lef'
+'tRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizing.Hori'
+'zontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizing.Contr'
+'olsPerLine'#2#0#12'ClientHeight'#3#8#2#11'ClientWidth'#3#158#2#7'Enabled'#9
+#10'ParentFont'#9#14'ParentShowHint'#9#0#10'TScrollBox'#10'ScrollBox2'#4'Lef'
+'t'#2#0#6'Height'#3#8#2#3'Top'#2#0#5'Width'#3#158#2#11'HelpContext'#2#0#5'Al'
+'ign'#7#8'alClient'#8'AutoSize'#8#10'AutoScroll'#9#18'BorderSpacing.Left'#2#0
+#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'BorderSpacing.Bott'
+'om'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAlignHorizontal'#7#7
+'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'#11'BorderStyle'#7
+#6'bsNone'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpac'
+'ing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpaci'
+'ng'#2#0#27'ChildSizing.ControlsPerLine'#2#0#8'DockSite'#8#10'DragCursor'#7#6
+'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'#7'Enabled'#9#5'Ct'
,'l3D'#8#14'ParentBiDiMode'#9#11'ParentColor'#9#11'ParentCtl3D'#9#10'ParentFo'
+'nt'#9#14'ParentShowHint'#9#8'TabOrder'#2#0#7'TabStop'#8#7'Visible'#9#0#7'TP'
+'RPage'#7'PRPage2'#4'Left'#2#20#6'Height'#3'X'#2#3'Top'#2#16#5'Width'#3','#1
+#11'HelpContext'#2#0#9'MarginTop'#2' '#10'MarginLeft'#2' '#11'MarginRight'#2
+' '#12'MarginBottom'#2' '#7'Visible'#9#0#14'TPRLayoutPanel'#14'PRLayoutPanel'
+'2'#4'Left'#2'!'#6'Height'#3#22#2#3'Top'#2'!'#5'Width'#3#234#0#11'HelpContex'
+'t'#2#0#5'Align'#7#8'alClient'#0#7'TPRText'#7'PRText2'#4'Left'#2#16#6'Height'
+#3'!'#1#3'Top'#2#26#5'Width'#3#199#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'
+#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#176#3'@'#9'CharSpace'#5
+#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0
+#0#0#0#192#3'@'#0#0#0#0#0#0#9'TTabSheet'#9'TabSheet3'#11'HelpContext'#2#0#7
+'Caption'#6#9'TabSheet3'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSizing'
+'.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSizing'
+'.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#12'ClientHeight'#3
+#8#2#11'ClientWidth'#3#158#2#7'Enabled'#9#10'ParentFont'#9#14'ParentShowHint'
+#9#0#10'TScrollBox'#10'ScrollBox3'#4'Left'#2#0#6'Height'#3#252#1#3'Top'#2#0#5
+'Width'#3#150#2#11'HelpContext'#2#0#5'Align'#7#8'alClient'#8'AutoSize'#8#10
+'AutoScroll'#9#18'BorderSpacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'Borde'
+'rSpacing.Right'#2#0#20'BorderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2
+#0'!BorderSpacing.CellAlignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAli'
+'gnVertical'#7#7'ccaFill'#11'BorderStyle'#7#6'bsNone'#28'ChildSizing.LeftRig'
+'htSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'ChildSizing.Horizont'
+'alSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'ChildSizing.ControlsP'
+'erLine'#2#0#8'DockSite'#8#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'
+#8'DragMode'#7#8'dmManual'#7'Enabled'#9#5'Ctl3D'#8#14'ParentBiDiMode'#9#11'P'
+'arentColor'#9#11'ParentCtl3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'Tab'
+'Order'#2#0#7'TabStop'#8#7'Visible'#9#0#7'TPRPage'#7'PRPage3'#4'Left'#2#20#6
+'Height'#3#144#1#3'Top'#2#16#5'Width'#3#144#1#11'HelpContext'#2#0#9'MarginTo'
+'p'#2' '#10'MarginLeft'#2' '#11'MarginRight'#2' '#12'MarginBottom'#2' '#7'Vi'
+'sible'#9#0#14'TPRLayoutPanel'#14'PRLayoutPanel3'#4'Left'#2'!'#6'Height'#3'N'
+#1#3'Top'#2'!'#5'Width'#3'N'#1#11'HelpContext'#2#0#5'Align'#7#8'alClient'#0#7
+'TPRText'#7'PRText3'#4'Left'#2#22#6'Height'#3'!'#1#3'Top'#2#20#5'Width'#3#199
+#0#11'HelpContext'#2#0#5'Align'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontS'
+'ize'#5#0#0#0#0#0#0#0#176#3'@'#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpac'
+'e'#5#0#0#0#0#0#0#0#0#0#0#7'Leading'#5#0#0#0#0#0#0#0#192#3'@'#0#0#0#0#0#0#9
+'TTabSheet'#9'TabSheet4'#11'HelpContext'#2#0#7'Caption'#6#9'TabSheet4'#28'Ch'
+'ildSizing.LeftRightSpacing'#2#0#28'ChildSizing.TopBottomSpacing'#2#0#29'Chi'
+'ldSizing.HorizontalSpacing'#2#0#27'ChildSizing.VerticalSpacing'#2#0#27'Chil'
+'dSizing.ControlsPerLine'#2#0#12'ClientHeight'#3#8#2#11'ClientWidth'#3#158#2
+#7'Enabled'#9#10'ParentFont'#9#14'ParentShowHint'#9#0#10'TScrollBox'#10'Scro'
+'llBox4'#4'Left'#2#0#6'Height'#3#252#1#3'Top'#2#0#5'Width'#3#150#2#11'HelpCo'
+'ntext'#2#0#5'Align'#7#8'alClient'#8'AutoSize'#8#10'AutoScroll'#9#18'BorderS'
+'pacing.Left'#2#0#17'BorderSpacing.Top'#2#0#19'BorderSpacing.Right'#2#0#20'B'
+'orderSpacing.Bottom'#2#0#20'BorderSpacing.Around'#2#0'!BorderSpacing.CellAl'
+'ignHorizontal'#7#7'ccaFill'#31'BorderSpacing.CellAlignVertical'#7#7'ccaFill'
+#11'BorderStyle'#7#6'bsNone'#28'ChildSizing.LeftRightSpacing'#2#0#28'ChildSi'
+'zing.TopBottomSpacing'#2#0#29'ChildSizing.HorizontalSpacing'#2#0#27'ChildSi'
+'zing.VerticalSpacing'#2#0#27'ChildSizing.ControlsPerLine'#2#0#8'DockSite'#8
+#10'DragCursor'#7#6'crDrag'#8'DragKind'#7#6'dkDrag'#8'DragMode'#7#8'dmManual'
+#7'Enabled'#9#5'Ctl3D'#8#14'ParentBiDiMode'#9#11'ParentColor'#9#11'ParentCtl'
+'3D'#9#10'ParentFont'#9#14'ParentShowHint'#9#8'TabOrder'#2#0#7'TabStop'#8#7
+'Visible'#9#0#7'TPRPage'#7'PRPage4'#4'Left'#2#20#6'Height'#3#144#1#3'Top'#2
+#16#5'Width'#3'X'#2#11'HelpContext'#2#0#9'MarginTop'#2' '#10'MarginLeft'#2' '
+#11'MarginRight'#2' '#12'MarginBottom'#2' '#7'Visible'#9#0#14'TPRLayoutPanel'
+#14'PRLayoutPanel4'#4'Left'#2'!'#6'Height'#3'N'#1#3'Top'#2'!'#5'Width'#3#22#2
+#11'HelpContext'#2#0#5'Align'#7#8'alClient'#0#7'TPRText'#7'PRText4'#4'Left'#2
+#22#6'Height'#3'!'#1#3'Top'#2#20#5'Width'#3#199#0#11'HelpContext'#2#0#5'Alig'
+'n'#7#6'alNone'#8'FontName'#7#7'fnArial'#8'FontSize'#5#0#0#0#0#0#0#0#176#3'@'
+#9'CharSpace'#5#0#0#0#0#0#0#0#0#0#0#9'WordSpace'#5#0#0#0#0#0#0#0#0#0#0#7'Lea'
+'ding'#5#0#0#0#0#0#0#0#192#3'@'#0#0#0#0#0#0#0#9'TMainMenu'#9'MainMenu1'#4'le'
+'ft'#2'D'#3'top'#2#10#0#9'TMenuItem'#5'File1'#7'Caption'#6#5'&File'#12'Right'
+'Justify'#8#19'ShowAlwaysCheckable'#8#0#9'TMenuItem'#10'CreatePDF1'#7'Captio'
+'n'#6#10'Create PDF'#12'RightJustify'#8#19'ShowAlwaysCheckable'#8#7'OnClick'
+#7#15'CreatePDF1Click'#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#12'RightJust'
,'ify'#8#19'ShowAlwaysCheckable'#8#0#0#9'TMenuItem'#5'Exit1'#7'Caption'#6#4'E'
+'xit'#12'RightJustify'#8#19'ShowAlwaysCheckable'#8#7'OnClick'#7#10'Exit1Clic'
+'k'#0#0#0#9'TMenuItem'#5'Help1'#7'Caption'#6#5'&Help'#12'RightJustify'#8#19
+'ShowAlwaysCheckable'#8#0#9'TMenuItem'#6'About1'#7'Caption'#6#6'&About'#12'R'
+'ightJustify'#8#19'ShowAlwaysCheckable'#8#7'OnClick'#7#11'About1Click'#0#0#0
+#0#8'TPReport'#8'PReport1'#8'FileName'#6#18'MultiSizePages.pdf'#12'CreationD'
+'ate'#5#0'X'#221#134#18#216#166#144#14'@'#8'PageMode'#7#11'pmUseThumbs'#11'U'
+'seOutlines'#8#16'ViewerPreference'#11#0#4'left'#2'f'#3'top'#2#10#0#0#11'TSa'
+'veDialog'#11'SaveDialog1'#5'Width'#2#0#6'Height'#2#0#8'FileName'#6#18'Multi'
+'SizePages.pdf'#6'Filter'#6#29'PDF Files|*.pdf|All Files|*.*'#11'FilterIndex'
+#2#0#4'left'#3#138#0#3'top'#2#10#0#0#0
]);

96
components/powerpdf/LazarusExamples/MultiSizePagesDemo/UMultiSizeDocument.pas Normal file
View File

@@ -0,0 +1,96 @@
unit UMultiSizeDocument;
{$MODE Delphi}
interface
uses
LCLIntf, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
PReport, PdfDoc, Menus, ComCtrls, PdfTypes, LResources;
type
TForm1 = class(TForm)
StatusBar1: TStatusBar;
MainMenu1: TMainMenu;
File1: TMenuItem;
CreatePDF1: TMenuItem;
N1: TMenuItem;
Exit1: TMenuItem;
Help1: TMenuItem;
About1: TMenuItem;
PReport1: TPReport;
SaveDialog1: TSaveDialog;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
ScrollBox1: TScrollBox;
PRPage1: TPRPage;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
ScrollBox2: TScrollBox;
PRPage2: TPRPage;
ScrollBox3: TScrollBox;
PRPage3: TPRPage;
TabSheet4: TTabSheet;
ScrollBox4: TScrollBox;
PRPage4: TPRPage;
PRLayoutPanel1: TPRLayoutPanel;
PRLayoutPanel2: TPRLayoutPanel;
PRLayoutPanel3: TPRLayoutPanel;
PRLayoutPanel4: TPRLayoutPanel;
PRText1: TPRText;
PRText2: TPRText;
PRText3: TPRText;
PRText4: TPRText;
procedure CreatePDF1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure About1Click(Sender: TObject);
procedure Exit1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
procedure TForm1.CreatePDF1Click(Sender: TObject);
var
APage: TPRPage;
i: integer;
begin
if not SaveDialog1.Execute then Exit;
with PReport1 do
begin
FileName := SaveDialog1.FileName;
BeginDoc;
for i := 0 to PageControl1.PageCount do
begin
APage := TPRPage(Self.FindComponent('PRPage' + IntToStr(i)));
if APage <> nil then
Print(APage);
end;
EndDoc;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
PRPage1.Visible := false;
end;
procedure TForm1.About1Click(Sender: TObject);
begin
ShowMessage(POWER_PDF_VERSION_STR + #13#10 + POWER_PDF_COPYRIGHT);
end;
procedure TForm1.Exit1Click(Sender: TObject);
begin
Close;
end;
initialization
{$i UMultiSizeDocument.lrs}
end.

117
components/powerpdf/LazarusExamples/PageLayoutModeExample/PageLayoutMode.lpi Normal file
View File

@@ -0,0 +1,117 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<Version Value="6"/>
<General>
<Flags>
<MainUnitHasUsesSectionForAllUnits Value="False"/>
<MainUnitHasCreateFormStatements Value="False"/>
<MainUnitHasTitleStatement Value="False"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value="./"/>
<TargetFileExt Value=".exe"/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="pack_powerpdf"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="5">
<Unit0>
<Filename Value="PageLayoutMode.lpr"/>
<IsPartOfProject Value="True"/>
<CursorPos X="2" Y="10"/>
<TopLine Value="1"/>
<EditorIndex Value="0"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit0>
<Unit1>
<Filename Value="Unit1.pas"/>
<ComponentName Value="Form1"/>
<HasResources Value="True"/>
<IsPartOfProject Value="True"/>
<ResourceBaseClass Value="Form"/>
<ResourceFilename Value="unit1.lrs"/>
<UnitName Value="Unit1"/>
<CursorPos X="27" Y="86"/>
<TopLine Value="1"/>
<EditorIndex Value="1"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="C:\Work\FreePascal\Lazarus\PowerPdf\PReport.pas"/>
<UnitName Value="PReport"/>
<CursorPos X="3" Y="759"/>
<TopLine Value="740"/>
<UsageCount Value="10"/>
</Unit2>
<Unit3>
<Filename Value="C:\Work\FreePascal\Lazarus\PowerPdf\PdfDoc.pas"/>
<UnitName Value="PdfDoc"/>
<CursorPos X="38" Y="297"/>
<TopLine Value="284"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="unit1.lfm"/>
<CursorPos X="21" Y="8"/>
<TopLine Value="1"/>
<UsageCount Value="10"/>
<SyntaxHighlighter Value="LFM"/>
</Unit4>
</Units>
<JumpHistory Count="1" HistoryIndex="0">
<Position1>
<Filename Value="PageLayoutMode.lpr"/>
<Caret Line="6" Column="14" TopLine="1"/>
</Position1>
</JumpHistory>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<PathDelim Value="\"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
<Debugging>
<Exceptions Count="2">
<Item1>
<Name Value="ECodetoolError"/>
</Item1>
<Item2>
<Name Value="EFOpenError"/>
</Item2>
</Exceptions>
</Debugging>
</CONFIG>

16
components/powerpdf/LazarusExamples/PageLayoutModeExample/PageLayoutMode.lpr Normal file
View File

@@ -0,0 +1,16 @@
program PageLayoutMode;
{.$MODE Delphi}
uses
Interfaces,
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

BIN
components/powerpdf/LazarusExamples/PageLayoutModeExample/PageLayoutMode.res Normal file
View File

Binary file not shown.

107
components/powerpdf/LazarusExamples/PageLayoutModeExample/Unit1.pas Normal file
View File

@@ -0,0 +1,107 @@
unit Unit1;
{$MODE Delphi}
interface
uses
LCLIntf, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, PdfDoc, PReport, {ShellAPI,} LResources, Buttons;
type
TForm1 = class(TForm)
PRPage1: TPRPage;
PRLayoutPanel1: TPRLayoutPanel;
PRLabel1: TPRLabel;
PRLabel2: TPRLabel;
PRLabel3: TPRLabel;
PRLabel4: TPRLabel;
PRLabel5: TPRLabel;
PRLabel6: TPRLabel;
PRLabel7: TPRLabel;
PRLabel8: TPRLabel;
PRLabel9: TPRLabel;
PRLabel10: TPRLabel;
PRLabel11: TPRLabel;
PRLabel12: TPRLabel;
PRLabel13: TPRLabel;
PRLabel14: TPRLabel;
PRLabel15: TPRLabel;
PRLabel16: TPRLabel;
PRLabel17: TPRLabel;
PRLabel18: TPRLabel;
PRLabel19: TPRLabel;
PRLabel20: TPRLabel;
PRLabel21: TPRLabel;
PRLabel22: TPRLabel;
PRLabel23: TPRLabel;
PRLabel24: TPRLabel;
PRLabel25: TPRLabel;
PRLabel26: TPRLabel;
PRLabel27: TPRLabel;
Button1: TButton;
PReport1: TPReport;
RadioGroup1: TRadioGroup;
RadioGroup2: TRadioGroup;
PRPage2: TPRPage;
PRLayoutPanel2: TPRLayoutPanel;
PRLabel28: TPRLabel;
PRLabel29: TPRLabel;
PRLabel30: TPRLabel;
PRLabel31: TPRLabel;
PRLabel32: TPRLabel;
PRLabel33: TPRLabel;
PRLabel34: TPRLabel;
PRLabel35: TPRLabel;
PRLabel36: TPRLabel;
PRLabel37: TPRLabel;
PRLabel38: TPRLabel;
PRLabel39: TPRLabel;
PRLabel40: TPRLabel;
PRLabel41: TPRLabel;
PRLabel42: TPRLabel;
PRLabel43: TPRLabel;
PRLabel44: TPRLabel;
PRLabel45: TPRLabel;
PRLabel46: TPRLabel;
PRLabel47: TPRLabel;
PRLabel48: TPRLabel;
PRLabel49: TPRLabel;
PRLabel50: TPRLabel;
PRLabel51: TPRLabel;
PRLabel52: TPRLabel;
PRLabel53: TPRLabel;
PRLabel54: TPRLabel;
procedure Button1Click(Sender: TObject);
private
{ Private �錾 }
public
{ Public �錾 }
end;
var
Form1: TForm1;
implementation
procedure TForm1.Button1Click(Sender: TObject);
begin
with PReport1 do
begin
BeginDoc;
PReport1.PageLayout := TPRPageLayout(RadioGroup1.ItemIndex);
PReport1.PageMode := TPRPageMode(RadioGroup2.ItemIndex);
Print(PRPage1);
Print(PRPage2);
Print(PRPage1);
Print(PRPage2);
EndDoc;
end;
//ShellExecute(Self.Handle, 'Open', 'default.pdf', '', '', SW_SHOW);
end;
initialization
{$i Unit1.lrs}
end.

630
components/powerpdf/LazarusExamples/PageLayoutModeExample/unit1.lfm Normal file
View File

@@ -0,0 +1,630 @@
object Form1: TForm1
Caption = 'Form1'
ClientHeight = 188
ClientWidth = 299
Font.CharSet = ANSI_CHARSET
Font.Height = -12
Font.Name = 'Arial'
PixelsPerInch = 96
HorzScrollBar.Page = 298
VertScrollBar.Page = 187
Left = 200
Height = 188
Top = 107
Width = 299
object PRPage1: TPRPage
MarginTop = 20
MarginLeft = 5
MarginRight = 5
MarginBottom = 20
Visible = False
Left = 12
Height = 600
Top = 157
Width = 600
object PRLayoutPanel1: TPRLayoutPanel
Align = alClient
Left = 6
Height = 558
Top = 21
Width = 588
object PRLabel1: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 22
Height = 30
Width = 557
end
object PRLabel2: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 2228224
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 48
Width = 557
end
object PRLabel3: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 3342336
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 96
Width = 557
end
object PRLabel4: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 4456448
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 144
Width = 557
end
object PRLabel5: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 5570560
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 192
Width = 557
end
object PRLabel6: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 6684672
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 240
Width = 557
end
object PRLabel7: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 7798784
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 288
Width = 557
end
object PRLabel8: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 8912896
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 336
Width = 557
end
object PRLabel9: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 10027008
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 384
Width = 557
end
object PRLabel10: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 11141120
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 432
Width = 557
end
object PRLabel11: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 13369344
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 480
Width = 557
end
object PRLabel12: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = clBlue
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 25
Height = 30
Top = 528
Width = 557
end
object PRLabel13: TPRLabel
Caption = '1'
FontName = fnArial
FontSize = 8
Left = 6
Height = 30
Top = 12
Width = 13
end
object PRLabel14: TPRLabel
Caption = '2'
FontName = fnArial
FontSize = 8
Left = 6
Height = 30
Top = 50
Width = 13
end
object PRLabel15: TPRLabel
Caption = '3'
FontName = fnArial
FontSize = 8
Left = 6
Height = 30
Top = 88
Width = 13
end
object PRLabel16: TPRLabel
Caption = '4'
FontName = fnArial
FontSize = 8
Left = 6
Height = 30
Top = 126
Width = 13
end
object PRLabel17: TPRLabel
Caption = '5'
FontName = fnArial
FontSize = 8
Left = 6
Height = 30
Top = 163
Width = 13
end
object PRLabel18: TPRLabel
Caption = '6'
FontName = fnArial
FontSize = 8
Left = 4
Height = 33
Top = 201
Width = 13
end
object PRLabel19: TPRLabel
Caption = '7'
FontName = fnArial
FontSize = 8
Left = 4
Height = 33
Top = 239
Width = 13
end
object PRLabel20: TPRLabel
Caption = '8'
FontName = fnArial
FontSize = 8
Left = 4
Height = 33
Top = 277
Width = 13
end
object PRLabel21: TPRLabel
Caption = '9'
FontName = fnArial
FontSize = 8
Left = 4
Height = 33
Top = 315
Width = 13
end
object PRLabel22: TPRLabel
Caption = '10'
FontName = fnArial
FontSize = 8
Left = 2
Height = 33
Top = 353
Width = 15
end
object PRLabel23: TPRLabel
Caption = '11'
FontName = fnArial
FontSize = 8
Left = 2
Height = 33
Top = 391
Width = 15
end
object PRLabel24: TPRLabel
Caption = '12'
FontName = fnArial
FontSize = 8
Left = 2
Height = 33
Top = 428
Width = 15
end
object PRLabel25: TPRLabel
Caption = '13'
FontName = fnArial
FontSize = 8
Left = 2
Height = 33
Top = 466
Width = 15
end
object PRLabel26: TPRLabel
Caption = '14'
FontName = fnArial
FontSize = 8
Left = 2
Height = 33
Top = 504
Width = 15
end
object PRLabel27: TPRLabel
Caption = '15'
FontName = fnArial
FontSize = 8
Left = 2
Height = 17
Top = 542
Width = 15
end
end
end
object Button1: TButton
BorderSpacing.OnChange = nil
Caption = 'CreatePdf'
OnClick = Button1Click
TabOrder = 1
Left = 8
Height = 25
Top = 8
Width = 75
end
object RadioGroup1: TRadioGroup
BorderSpacing.OnChange = nil
Caption = 'PageLayout'
ItemIndex = 0
Items.Strings = (
'plSinglePage'
'plOneColumn'
'plTwoColumnLeft'
'plTwoColumnRight'
)
ParentColor = True
Left = 8
Height = 103
Top = 42
Width = 123
end
object RadioGroup2: TRadioGroup
BorderSpacing.OnChange = nil
Caption = 'PageMode'
ItemIndex = 0
Items.Strings = (
'pmUseNone'
'pmUseOutlines'
'pmUseThumbs'
'pmFullScreen'
)
ParentColor = True
Left = 142
Height = 103
Top = 42
Width = 123
end
object PRPage2: TPRPage
MarginTop = 20
MarginLeft = 5
MarginRight = 5
MarginBottom = 20
Visible = False
Left = 30
Height = 600
Top = 172
Width = 600
object PRLayoutPanel2: TPRLayoutPanel
Align = alClient
Left = 6
Height = 558
Top = 21
Width = 588
object PRLabel28: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 22
Height = 30
Width = 557
end
object PRLabel29: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 34
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 48
Width = 557
end
object PRLabel30: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 51
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 96
Width = 557
end
object PRLabel31: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 68
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 144
Width = 557
end
object PRLabel32: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 85
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 192
Width = 557
end
object PRLabel33: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 102
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 240
Width = 557
end
object PRLabel34: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 119
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 288
Width = 557
end
object PRLabel35: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 136
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 336
Width = 557
end
object PRLabel36: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 153
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 384
Width = 557
end
object PRLabel37: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 170
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 432
Width = 557
end
object PRLabel38: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = 204
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 23
Height = 30
Top = 480
Width = 557
end
object PRLabel39: TPRLabel
Caption = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FontColor = clRed
FontName = fnArial
FontSize = 30
CharSpace = 1
Left = 25
Height = 30
Top = 528
Width = 557
end
object PRLabel40: TPRLabel
Caption = '1'
FontName = fnArial
FontSize = 8
Left = 6
Height = 30
Top = 12
Width = 13
end
object PRLabel41: TPRLabel
Caption = '2'
FontName = fnArial
FontSize = 8
Left = 6
Height = 30
Top = 50
Width = 13
end
object PRLabel42: TPRLabel
Caption = '3'
FontName = fnArial
FontSize = 8
Left = 6
Height = 30
Top = 88
Width = 13
end
object PRLabel43: TPRLabel
Caption = '4'
FontName = fnArial
FontSize = 8
Left = 6
Height = 30
Top = 126
Width = 13
end
object PRLabel44: TPRLabel
Caption = '5'
FontName = fnArial
FontSize = 8
Left = 6
Height = 30
Top = 163
Width = 13
end
object PRLabel45: TPRLabel
Caption = '6'
FontName = fnArial
FontSize = 8
Left = 4
Height = 33
Top = 201
Width = 13
end
object PRLabel46: TPRLabel
Caption = '7'
FontName = fnArial
FontSize = 8
Left = 4
Height = 33
Top = 239
Width = 13
end
object PRLabel47: TPRLabel
Caption = '8'
FontName = fnArial
FontSize = 8
Left = 4
Height = 33
Top = 277
Width = 13
end
object PRLabel48: TPRLabel
Caption = '9'
FontName = fnArial
FontSize = 8
Left = 4
Height = 33
Top = 315
Width = 13
end
object PRLabel49: TPRLabel
Caption = '10'
FontName = fnArial
FontSize = 8
Left = 2
Height = 33
Top = 353
Width = 15
end
object PRLabel50: TPRLabel
Caption = '11'
FontName = fnArial
FontSize = 8
Left = 2
Height = 33
Top = 391
Width = 15
end
object PRLabel51: TPRLabel
Caption = '12'
FontName = fnArial
FontSize = 8
Left = 2
Height = 33
Top = 428
Width = 15
end
object PRLabel52: TPRLabel
Caption = '13'
FontName = fnArial
FontSize = 8
Left = 2
Height = 33
Top = 466
Width = 15
end
object PRLabel53: TPRLabel
Caption = '14'
FontName = fnArial
FontSize = 8
Left = 2
Height = 33
Top = 504
Width = 15
end
object PRLabel54: TPRLabel
Caption = '15'
FontName = fnArial
FontSize = 8
Left = 2
Height = 17
Top = 542
Width = 15
end
end
end
object PReport1: TPReport
FileName = 'default.pdf'
CreationDate = 37145.935954594897
PageLayout = plOneColumn
left = 96
top = 4
end
end

150
components/powerpdf/LazarusExamples/PageLayoutModeExample/unit1.lrs Normal file
View File

@@ -0,0 +1,150 @@
LazarusResources.Add('TForm1','FORMDATA',[
'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3#188#0#11'C'
+'lientWidth'#3'+'#1#12'Font.CharSet'#7#12'ANSI_CHARSET'#11'Font.Height'#2#244
+#9'Font.Name'#6#5'Arial'#13'PixelsPerInch'#2'`'#18'HorzScrollBar.Page'#3'*'#1
+#18'VertScrollBar.Page'#3#187#0#4'Left'#3#200#0#6'Height'#3#188#0#3'Top'#2'k'
+#5'Width'#3'+'#1#0#7'TPRPage'#7'PRPage1'#9'MarginTop'#2#20#10'MarginLeft'#2#5
+#11'MarginRight'#2#5#12'MarginBottom'#2#20#7'Visible'#8#4'Left'#2#12#6'Heigh'
+'t'#3'X'#2#3'Top'#3#157#0#5'Width'#3'X'#2#0#14'TPRLayoutPanel'#14'PRLayoutPa'
+'nel1'#5'Align'#7#8'alClient'#4'Left'#2#6#6'Height'#3'.'#2#3'Top'#2#21#5'Wid'
+'th'#3'L'#2#0#8'TPRLabel'#8'PRLabel1'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUV'
+'WXYZ'#8'FontName'#7#7'fnArial'#8'FontSize'#2#30#9'CharSpace'#2#1#4'Left'#2
+#22#6'Height'#2#30#5'Width'#3'-'#2#0#0#8'TPRLabel'#8'PRLabel2'#7'Caption'#6
+#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9'FontColor'#4#0#0'"'#0#8'FontName'#7#7'fnAr'
+'ial'#8'FontSize'#2#30#9'CharSpace'#2#1#4'Left'#2#23#6'Height'#2#30#3'Top'#2
+'0'#5'Width'#3'-'#2#0#0#8'TPRLabel'#8'PRLabel3'#7'Caption'#6#26'ABCDEFGHIJKL'
+'MNOPQRSTUVWXYZ'#9'FontColor'#4#0#0'3'#0#8'FontName'#7#7'fnArial'#8'FontSize'
+#2#30#9'CharSpace'#2#1#4'Left'#2#23#6'Height'#2#30#3'Top'#2'`'#5'Width'#3'-'
+#2#0#0#8'TPRLabel'#8'PRLabel4'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9
+'FontColor'#4#0#0'D'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#30#9'CharSpace'
+#2#1#4'Left'#2#23#6'Height'#2#30#3'Top'#3#144#0#5'Width'#3'-'#2#0#0#8'TPRLab'
+'el'#8'PRLabel5'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9'FontColor'#4#0
+#0'U'#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#30#9'CharSpace'#2#1#4'Left'#2
+#23#6'Height'#2#30#3'Top'#3#192#0#5'Width'#3'-'#2#0#0#8'TPRLabel'#8'PRLabel6'
+#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9'FontColor'#4#0#0'f'#0#8'FontN'
+'ame'#7#7'fnArial'#8'FontSize'#2#30#9'CharSpace'#2#1#4'Left'#2#23#6'Height'#2
+#30#3'Top'#3#240#0#5'Width'#3'-'#2#0#0#8'TPRLabel'#8'PRLabel7'#7'Caption'#6
+#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9'FontColor'#4#0#0'w'#0#8'FontName'#7#7'fnAr'
+'ial'#8'FontSize'#2#30#9'CharSpace'#2#1#4'Left'#2#23#6'Height'#2#30#3'Top'#3
+' '#1#5'Width'#3'-'#2#0#0#8'TPRLabel'#8'PRLabel8'#7'Caption'#6#26'ABCDEFGHIJ'
+'KLMNOPQRSTUVWXYZ'#9'FontColor'#4#0#0#136#0#8'FontName'#7#7'fnArial'#8'FontS'
+'ize'#2#30#9'CharSpace'#2#1#4'Left'#2#23#6'Height'#2#30#3'Top'#3'P'#1#5'Widt'
+'h'#3'-'#2#0#0#8'TPRLabel'#8'PRLabel9'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTU'
+'VWXYZ'#9'FontColor'#4#0#0#153#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#30#9
+'CharSpace'#2#1#4'Left'#2#23#6'Height'#2#30#3'Top'#3#128#1#5'Width'#3'-'#2#0
+#0#8'TPRLabel'#9'PRLabel10'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9'Fo'
+'ntColor'#4#0#0#170#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#30#9'CharSpace'
+#2#1#4'Left'#2#23#6'Height'#2#30#3'Top'#3#176#1#5'Width'#3'-'#2#0#0#8'TPRLab'
+'el'#9'PRLabel11'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9'FontColor'#4
+#0#0#204#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#30#9'CharSpace'#2#1#4'Left'
+#2#23#6'Height'#2#30#3'Top'#3#224#1#5'Width'#3'-'#2#0#0#8'TPRLabel'#9'PRLabe'
+'l12'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9'FontColor'#7#6'clBlue'#8
+'FontName'#7#7'fnArial'#8'FontSize'#2#30#9'CharSpace'#2#1#4'Left'#2#25#6'Hei'
+'ght'#2#30#3'Top'#3#16#2#5'Width'#3'-'#2#0#0#8'TPRLabel'#9'PRLabel13'#7'Capt'
+'ion'#6#1'1'#8'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#6#6'Height'#2
+#30#3'Top'#2#12#5'Width'#2#13#0#0#8'TPRLabel'#9'PRLabel14'#7'Caption'#6#1'2'
+#8'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#6#6'Height'#2#30#3'Top'#2
+'2'#5'Width'#2#13#0#0#8'TPRLabel'#9'PRLabel15'#7'Caption'#6#1'3'#8'FontName'
+#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#6#6'Height'#2#30#3'Top'#2'X'#5'Width'
+#2#13#0#0#8'TPRLabel'#9'PRLabel16'#7'Caption'#6#1'4'#8'FontName'#7#7'fnArial'
+#8'FontSize'#2#8#4'Left'#2#6#6'Height'#2#30#3'Top'#2'~'#5'Width'#2#13#0#0#8
+'TPRLabel'#9'PRLabel17'#7'Caption'#6#1'5'#8'FontName'#7#7'fnArial'#8'FontSiz'
+'e'#2#8#4'Left'#2#6#6'Height'#2#30#3'Top'#3#163#0#5'Width'#2#13#0#0#8'TPRLab'
+'el'#9'PRLabel18'#7'Caption'#6#1'6'#8'FontName'#7#7'fnArial'#8'FontSize'#2#8
+#4'Left'#2#4#6'Height'#2'!'#3'Top'#3#201#0#5'Width'#2#13#0#0#8'TPRLabel'#9'P'
+'RLabel19'#7'Caption'#6#1'7'#8'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'
+#2#4#6'Height'#2'!'#3'Top'#3#239#0#5'Width'#2#13#0#0#8'TPRLabel'#9'PRLabel20'
+#7'Caption'#6#1'8'#8'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#4#6'He'
+'ight'#2'!'#3'Top'#3#21#1#5'Width'#2#13#0#0#8'TPRLabel'#9'PRLabel21'#7'Capti'
+'on'#6#1'9'#8'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#4#6'Height'#2
+'!'#3'Top'#3';'#1#5'Width'#2#13#0#0#8'TPRLabel'#9'PRLabel22'#7'Caption'#6#2
+'10'#8'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#2#6'Height'#2'!'#3'T'
+'op'#3'a'#1#5'Width'#2#15#0#0#8'TPRLabel'#9'PRLabel23'#7'Caption'#6#2'11'#8
+'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#2#6'Height'#2'!'#3'Top'#3
+#135#1#5'Width'#2#15#0#0#8'TPRLabel'#9'PRLabel24'#7'Caption'#6#2'12'#8'FontN'
+'ame'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#2#6'Height'#2'!'#3'Top'#3#172#1
,#5'Width'#2#15#0#0#8'TPRLabel'#9'PRLabel25'#7'Caption'#6#2'13'#8'FontName'#7
+#7'fnArial'#8'FontSize'#2#8#4'Left'#2#2#6'Height'#2'!'#3'Top'#3#210#1#5'Widt'
+'h'#2#15#0#0#8'TPRLabel'#9'PRLabel26'#7'Caption'#6#2'14'#8'FontName'#7#7'fnA'
+'rial'#8'FontSize'#2#8#4'Left'#2#2#6'Height'#2'!'#3'Top'#3#248#1#5'Width'#2
+#15#0#0#8'TPRLabel'#9'PRLabel27'#7'Caption'#6#2'15'#8'FontName'#7#7'fnArial'
+#8'FontSize'#2#8#4'Left'#2#2#6'Height'#2#17#3'Top'#3#30#2#5'Width'#2#15#0#0#0
+#0#7'TButton'#7'Button1'#22'BorderSpacing.OnChange'#13#7'Caption'#6#9'Create'
+'Pdf'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#1#4'Left'#2#8#6'Height'#2
+#25#3'Top'#2#8#5'Width'#2'K'#0#0#11'TRadioGroup'#11'RadioGroup1'#22'BorderSp'
+'acing.OnChange'#13#7'Caption'#6#10'PageLayout'#9'ItemIndex'#2#0#13'Items.St'
+'rings'#1#6#12'plSinglePage'#6#11'plOneColumn'#6#15'plTwoColumnLeft'#6#16'pl'
+'TwoColumnRight'#0#11'ParentColor'#9#4'Left'#2#8#6'Height'#2'g'#3'Top'#2'*'#5
+'Width'#2'{'#0#0#11'TRadioGroup'#11'RadioGroup2'#22'BorderSpacing.OnChange'
+#13#7'Caption'#6#8'PageMode'#9'ItemIndex'#2#0#13'Items.Strings'#1#6#9'pmUseN'
+'one'#6#13'pmUseOutlines'#6#11'pmUseThumbs'#6#12'pmFullScreen'#0#11'ParentCo'
+'lor'#9#4'Left'#3#142#0#6'Height'#2'g'#3'Top'#2'*'#5'Width'#2'{'#0#0#7'TPRPa'
+'ge'#7'PRPage2'#9'MarginTop'#2#20#10'MarginLeft'#2#5#11'MarginRight'#2#5#12
+'MarginBottom'#2#20#7'Visible'#8#4'Left'#2#30#6'Height'#3'X'#2#3'Top'#3#172#0
+#5'Width'#3'X'#2#0#14'TPRLayoutPanel'#14'PRLayoutPanel2'#5'Align'#7#8'alClie'
+'nt'#4'Left'#2#6#6'Height'#3'.'#2#3'Top'#2#21#5'Width'#3'L'#2#0#8'TPRLabel'#9
+'PRLabel28'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#8'FontName'#7#7'fnAr'
+'ial'#8'FontSize'#2#30#9'CharSpace'#2#1#4'Left'#2#22#6'Height'#2#30#5'Width'
+#3'-'#2#0#0#8'TPRLabel'#9'PRLabel29'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUVW'
+'XYZ'#9'FontColor'#2'"'#8'FontName'#7#7'fnArial'#8'FontSize'#2#30#9'CharSpac'
+'e'#2#1#4'Left'#2#23#6'Height'#2#30#3'Top'#2'0'#5'Width'#3'-'#2#0#0#8'TPRLab'
+'el'#9'PRLabel30'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9'FontColor'#2
+'3'#8'FontName'#7#7'fnArial'#8'FontSize'#2#30#9'CharSpace'#2#1#4'Left'#2#23#6
+'Height'#2#30#3'Top'#2'`'#5'Width'#3'-'#2#0#0#8'TPRLabel'#9'PRLabel31'#7'Cap'
+'tion'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9'FontColor'#2'D'#8'FontName'#7#7'fn'
+'Arial'#8'FontSize'#2#30#9'CharSpace'#2#1#4'Left'#2#23#6'Height'#2#30#3'Top'
+#3#144#0#5'Width'#3'-'#2#0#0#8'TPRLabel'#9'PRLabel32'#7'Caption'#6#26'ABCDEF'
+'GHIJKLMNOPQRSTUVWXYZ'#9'FontColor'#2'U'#8'FontName'#7#7'fnArial'#8'FontSize'
+#2#30#9'CharSpace'#2#1#4'Left'#2#23#6'Height'#2#30#3'Top'#3#192#0#5'Width'#3
+'-'#2#0#0#8'TPRLabel'#9'PRLabel33'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXY'
+'Z'#9'FontColor'#2'f'#8'FontName'#7#7'fnArial'#8'FontSize'#2#30#9'CharSpace'
+#2#1#4'Left'#2#23#6'Height'#2#30#3'Top'#3#240#0#5'Width'#3'-'#2#0#0#8'TPRLab'
+'el'#9'PRLabel34'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9'FontColor'#2
+'w'#8'FontName'#7#7'fnArial'#8'FontSize'#2#30#9'CharSpace'#2#1#4'Left'#2#23#6
+'Height'#2#30#3'Top'#3' '#1#5'Width'#3'-'#2#0#0#8'TPRLabel'#9'PRLabel35'#7'C'
+'aption'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9'FontColor'#3#136#0#8'FontName'#7
+#7'fnArial'#8'FontSize'#2#30#9'CharSpace'#2#1#4'Left'#2#23#6'Height'#2#30#3
+'Top'#3'P'#1#5'Width'#3'-'#2#0#0#8'TPRLabel'#9'PRLabel36'#7'Caption'#6#26'AB'
+'CDEFGHIJKLMNOPQRSTUVWXYZ'#9'FontColor'#3#153#0#8'FontName'#7#7'fnArial'#8'F'
+'ontSize'#2#30#9'CharSpace'#2#1#4'Left'#2#23#6'Height'#2#30#3'Top'#3#128#1#5
+'Width'#3'-'#2#0#0#8'TPRLabel'#9'PRLabel37'#7'Caption'#6#26'ABCDEFGHIJKLMNOP'
+'QRSTUVWXYZ'#9'FontColor'#3#170#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#30#9
+'CharSpace'#2#1#4'Left'#2#23#6'Height'#2#30#3'Top'#3#176#1#5'Width'#3'-'#2#0
+#0#8'TPRLabel'#9'PRLabel38'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9'Fo'
+'ntColor'#3#204#0#8'FontName'#7#7'fnArial'#8'FontSize'#2#30#9'CharSpace'#2#1
+#4'Left'#2#23#6'Height'#2#30#3'Top'#3#224#1#5'Width'#3'-'#2#0#0#8'TPRLabel'#9
+'PRLabel39'#7'Caption'#6#26'ABCDEFGHIJKLMNOPQRSTUVWXYZ'#9'FontColor'#7#5'clR'
+'ed'#8'FontName'#7#7'fnArial'#8'FontSize'#2#30#9'CharSpace'#2#1#4'Left'#2#25
+#6'Height'#2#30#3'Top'#3#16#2#5'Width'#3'-'#2#0#0#8'TPRLabel'#9'PRLabel40'#7
+'Caption'#6#1'1'#8'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#6#6'Heig'
+'ht'#2#30#3'Top'#2#12#5'Width'#2#13#0#0#8'TPRLabel'#9'PRLabel41'#7'Caption'#6
+#1'2'#8'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#6#6'Height'#2#30#3
+'Top'#2'2'#5'Width'#2#13#0#0#8'TPRLabel'#9'PRLabel42'#7'Caption'#6#1'3'#8'Fo'
+'ntName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#6#6'Height'#2#30#3'Top'#2'X'
+#5'Width'#2#13#0#0#8'TPRLabel'#9'PRLabel43'#7'Caption'#6#1'4'#8'FontName'#7#7
+'fnArial'#8'FontSize'#2#8#4'Left'#2#6#6'Height'#2#30#3'Top'#2'~'#5'Width'#2
+#13#0#0#8'TPRLabel'#9'PRLabel44'#7'Caption'#6#1'5'#8'FontName'#7#7'fnArial'#8
+'FontSize'#2#8#4'Left'#2#6#6'Height'#2#30#3'Top'#3#163#0#5'Width'#2#13#0#0#8
+'TPRLabel'#9'PRLabel45'#7'Caption'#6#1'6'#8'FontName'#7#7'fnArial'#8'FontSiz'
+'e'#2#8#4'Left'#2#4#6'Height'#2'!'#3'Top'#3#201#0#5'Width'#2#13#0#0#8'TPRLab'
,'el'#9'PRLabel46'#7'Caption'#6#1'7'#8'FontName'#7#7'fnArial'#8'FontSize'#2#8
+#4'Left'#2#4#6'Height'#2'!'#3'Top'#3#239#0#5'Width'#2#13#0#0#8'TPRLabel'#9'P'
+'RLabel47'#7'Caption'#6#1'8'#8'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'
+#2#4#6'Height'#2'!'#3'Top'#3#21#1#5'Width'#2#13#0#0#8'TPRLabel'#9'PRLabel48'
+#7'Caption'#6#1'9'#8'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#4#6'He'
+'ight'#2'!'#3'Top'#3';'#1#5'Width'#2#13#0#0#8'TPRLabel'#9'PRLabel49'#7'Capti'
+'on'#6#2'10'#8'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#2#6'Height'#2
+'!'#3'Top'#3'a'#1#5'Width'#2#15#0#0#8'TPRLabel'#9'PRLabel50'#7'Caption'#6#2
+'11'#8'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#2#6'Height'#2'!'#3'T'
+'op'#3#135#1#5'Width'#2#15#0#0#8'TPRLabel'#9'PRLabel51'#7'Caption'#6#2'12'#8
+'FontName'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#2#6'Height'#2'!'#3'Top'#3
+#172#1#5'Width'#2#15#0#0#8'TPRLabel'#9'PRLabel52'#7'Caption'#6#2'13'#8'FontN'
+'ame'#7#7'fnArial'#8'FontSize'#2#8#4'Left'#2#2#6'Height'#2'!'#3'Top'#3#210#1
+#5'Width'#2#15#0#0#8'TPRLabel'#9'PRLabel53'#7'Caption'#6#2'14'#8'FontName'#7
+#7'fnArial'#8'FontSize'#2#8#4'Left'#2#2#6'Height'#2'!'#3'Top'#3#248#1#5'Widt'
+'h'#2#15#0#0#8'TPRLabel'#9'PRLabel54'#7'Caption'#6#2'15'#8'FontName'#7#7'fnA'
+'rial'#8'FontSize'#2#8#4'Left'#2#2#6'Height'#2#17#3'Top'#3#30#2#5'Width'#2#15
+#0#0#0#0#8'TPReport'#8'PReport1'#8'FileName'#6#11'default.pdf'#12'CreationDa'
+'te'#5#0#160'g'#184#154#239#25#145#14'@'#10'PageLayout'#7#11'plOneColumn'#4
+'left'#2'`'#3'top'#2#4#0#0#0
]);