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

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.