paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 22:00:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, editor sample, added extra exporters image and pdf by default

Browse Source 
git-svn-id: trunk@40651 -
This commit is contained in:
jesus 2013-03-27 21:15:14 +00:00
parent 968d550d0e
commit 2d47913308
3 changed files with 76 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
components/lazreport/samples/editor/calleditorwithpkg.lpi
View File

@ -4,8 +4,6 @@
<Version Value="9"/> <Version Value="9"/>
<General> <General>
<Flags> <Flags>
<SaveClosedFiles Value="False"/>
<SaveOnlyProjectUnits Value="True"/>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -18,6 +16,32 @@
<EnableI18N Value="True"/> <EnableI18N Value="True"/>
<OutDir Value="languages"/> <OutDir Value="languages"/>
</i18n> </i18n>
<BuildModes Count="2">
<Item1 Name="default" Default="True"/>
<Item2 Name="For Qt">
<MacroValues Count="1">
<Macro1 Name="LCLWidgetType" Value="qt"/>
</MacroValues>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="calleditorwithpkg"/>
</Target>
<SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
<SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)"/>
</SearchPaths>
<Other>
<CompilerMessages>
<UseMsgFile Value="True"/>
</CompilerMessages>
<CompilerPath Value="$(CompPath)"/>
</Other>
<CompileReasons Run="False"/>
<LCLWidgetType Value="qt"/>
</CompilerOptions>
</Item2>
</BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IgnoreBinaries Value="False"/> <IgnoreBinaries Value="False"/>
@ -30,29 +54,32 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="6"> <RequiredPackages Count="7">
<Item1> <Item1>
<PackageName Value="lazreport"/> <PackageName Value="lr_extexp"/>
<MinVersion Minor="9" Release="6" Valid="True"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="lazreportpdfexport"/> <PackageName Value="lazreport"/>
<MinVersion Minor="5" Valid="True"/> <MinVersion Minor="9" Release="6" Valid="True"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="Printer4Lazarus"/> <PackageName Value="lazreportpdfexport"/>
<MinVersion Minor="5" Valid="True"/>
</Item3> </Item3>
<Item4> <Item4>
<PackageName Value="LCL"/> <PackageName Value="Printer4Lazarus"/>
</Item4> </Item4>
<Item5> <Item5>
<PackageName Value="FCL"/> <PackageName Value="LCL"/>
<MinVersion Major="1" Valid="True"/>
</Item5> </Item5>
<Item6> <Item6>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
</Item6>
<Item7>
<PackageName Value="DBFLaz"/> <PackageName Value="DBFLaz"/>
<MinVersion Minor="1" Release="1" Valid="True"/> <MinVersion Minor="1" Release="1" Valid="True"/>
</Item6> </Item7>
</RequiredPackages> </RequiredPackages>
<Units Count="3"> <Units Count="3">
<Unit0> <Unit0>
@ -64,6 +91,7 @@
<Filename Value="maincalleditor.pas"/> <Filename Value="maincalleditor.pas"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<ComponentName Value="frmMain"/> <ComponentName Value="frmMain"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="maincalleditor"/> <UnitName Value="maincalleditor"/>
</Unit1> </Unit1>
@ -77,13 +105,13 @@
</Units> </Units>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="9"/> <Version Value="11"/>
<Target> <Target>
<Filename Value="calleditorwithpkg"/> <Filename Value="calleditorwithpkg"/>
</Target> </Target>
<SearchPaths> <SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/> <SrcPath Value="$(LazarusDir)/lcl;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)"/>
</SearchPaths> </SearchPaths>
<Other> <Other>
<CompilerMessages> <CompilerMessages>

54
components/lazreport/samples/editor/maincalleditor.lfm
View File

@ -5,7 +5,7 @@ object frmMain: TfrmMain
Width = 828 Width = 828
ActiveControl = Panel1 ActiveControl = Panel1
Caption = 'LazReport Test Suite' Caption = 'LazReport Test Suite'
ClientHeight = 518 ClientHeight = 520
ClientWidth = 828 ClientWidth = 828
Font.Name = 'Sans' Font.Name = 'Sans'
Menu = MainMenu1 Menu = MainMenu1
@ -39,8 +39,8 @@ object frmMain: TfrmMain
end end
object sbar: TStatusBar object sbar: TStatusBar
Left = 0 Left = 0
Height = 21 Height = 19
Top = 497 Top = 501
Width = 828 Width = 828
Panels = < Panels = <
item item
@ -72,7 +72,7 @@ object frmMain: TfrmMain
AnchorSideRight.Control = grid AnchorSideRight.Control = grid
AnchorSideBottom.Control = sbar AnchorSideBottom.Control = sbar
Left = 0 Left = 0
Height = 374 Height = 378
Top = 123 Top = 123
Width = 204 Width = 204
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
@ -91,7 +91,7 @@ object frmMain: TfrmMain
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = sbar AnchorSideBottom.Control = sbar
Left = 0 Left = 0
Height = 374 Height = 378
Top = 123 Top = 123
Width = 828 Width = 828
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
@ -123,47 +123,47 @@ object frmMain: TfrmMain
Left = 6 Left = 6
Height = 33 Height = 33
Top = 6 Top = 6
Width = 170 Width = 173
Action = accNewReport Action = accNewReport
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 0 TabOrder = 0
end end
object btnOpenReport: TButton object btnOpenReport: TButton
Left = 182 Left = 185
Height = 33 Height = 33
Top = 6 Top = 6
Width = 144 Width = 147
Action = accOpenReport Action = accOpenReport
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 2 TabOrder = 2
end end
object btnEditReport: TButton object btnEditReport: TButton
Left = 332 Left = 338
Height = 33 Height = 33
Top = 6 Top = 6
Width = 135 Width = 138
Action = accEditReport Action = accEditReport
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 3 TabOrder = 3
end end
object btnPreviewReport: TButton object btnPreviewReport: TButton
Left = 473 Left = 482
Height = 33 Height = 33
Top = 6 Top = 6
Width = 162 Width = 165
Action = accPreviewReport Action = accPreviewReport
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 4 TabOrder = 4
end end
object btnPrintReport: TButton object btnPrintReport: TButton
Left = 641 Left = 653
Height = 33 Height = 33
Top = 6 Top = 6
Width = 181 Width = 169
Action = accPrintReport Action = accPrintReport
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -173,7 +173,7 @@ object frmMain: TfrmMain
Left = 6 Left = 6
Height = 33 Height = 33
Top = 45 Top = 45
Width = 170 Width = 173
Action = accCustomPreview Action = accCustomPreview
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -181,10 +181,10 @@ object frmMain: TfrmMain
end end
object btnPrintGrid: TButton object btnPrintGrid: TButton
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 182 Left = 185
Height = 33 Height = 33
Top = 45 Top = 45
Width = 144 Width = 147
Action = accPrintGrid Action = accPrintGrid
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -192,10 +192,10 @@ object frmMain: TfrmMain
end end
object btnComposite: TButton object btnComposite: TButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 332 Left = 338
Height = 33 Height = 33
Top = 45 Top = 45
Width = 135 Width = 138
Action = accComposite Action = accComposite
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -204,20 +204,20 @@ object frmMain: TfrmMain
object btnImageList: TButton object btnImageList: TButton
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 473 Left = 482
Height = 33 Height = 33
Top = 45 Top = 45
Width = 162 Width = 165
Action = accThumbnails Action = accThumbnails
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
TabOrder = 7 TabOrder = 7
end end
object btnMasterDetail: TToggleBox object btnMasterDetail: TToggleBox
Left = 641 Left = 653
Height = 33 Height = 33
Top = 45 Top = 45
Width = 181 Width = 169
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Master-Detail Test' Caption = 'Master-Detail Test'
@ -626,4 +626,12 @@ object frmMain: TfrmMain
left = 112 left = 112
top = 312 top = 312
end end
object frHtmlDivExport1: TfrHtmlDivExport
left = 500
top = 228
end
object frTNPDFExport1: TfrTNPDFExport
left = 420
top = 312
end
end end

4
components/lazreport/samples/editor/maincalleditor.pas
View File

@ -30,7 +30,7 @@ uses
Buttons, StdCtrls, LR_Const, LR_Class, LR_Desgn, Dbf, DB, DBGrids, LR_DBSet, Buttons, StdCtrls, LR_Const, LR_Class, LR_Desgn, Dbf, DB, DBGrids, LR_DBSet,
LR_PGrid, Menus, ComCtrls, ActnList, Lr_e_txt, Lr_e_htm, LR_E_CSV, LR_DSet, LR_PGrid, Menus, ComCtrls, ActnList, Lr_e_txt, Lr_e_htm, LR_E_CSV, LR_DSet,
LR_BarC, LR_RRect, LR_Shape, LR_ChBox, lr_e_pdf, lconvencoding, lr_e_gen, LR_BarC, LR_RRect, LR_Shape, LR_ChBox, lr_e_pdf, lconvencoding, lr_e_gen,
lr_utils, LCLProc, ExtCtrls, custompreview, LR_Pars; lr_utils, LCLProc, ExtCtrls, custompreview, LR_Pars, LR_e_htmldiv;
type type
@ -65,6 +65,8 @@ type
btnComposite: TButton; btnComposite: TButton;
comboIndex: TComboBox; comboIndex: TComboBox;
frDbMaster: TfrDBDataSet; frDbMaster: TfrDBDataSet;
frHtmlDivExport1: TfrHtmlDivExport;
frTNPDFExport1: TfrTNPDFExport;
mastergrid: TDBGrid; mastergrid: TDBGrid;
Panel1: TPanel; Panel1: TPanel;
srcMaster: TDatasource; srcMaster: TDatasource;