paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 03:00:45 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazReport: fix group editor edit button, avoid double backets in function parameters, simple groups sample report

Browse Source 
git-svn-id: trunk@14721 -
This commit is contained in:
jesus 2008-04-01 21:47:43 +00:00
parent 70a8e35b81
commit 6e59681184
19 changed files with 8357 additions and 3125 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.gitattributes vendored
View File

@ -432,9 +432,11 @@ components/lazreport/samples/barcode/cbunit.lfm svneol=native#text/plain
components/lazreport/samples/barcode/cbunit.lrs svneol=native#text/plain
components/lazreport/samples/barcode/cbunit.pas svneol=native#text/pascal
components/lazreport/samples/barcode/reports/codigobarras.lrf svneol=native#text/xml
components/lazreport/samples/editor/albumsbycountry.lrf svneol=LF#text/xml eol=lf
components/lazreport/samples/editor/calleditorwithpkg.lpi svneol=native#text/plain
components/lazreport/samples/editor/calleditorwithpkg.lpr svneol=native#text/pascal
components/lazreport/samples/editor/db/disco.dbf -text
components/lazreport/samples/editor/db/disco.mdx -text
components/lazreport/samples/editor/languages/maincalleditor.de.po svneol=native#text/plain
components/lazreport/samples/editor/languages/maincalleditor.es.po svneol=native#text/plain
components/lazreport/samples/editor/languages/maincalleditor.lt.po svneol=native#text/plain

841
components/lazreport/samples/editor/albumsbycountry.lrf Normal file
View File

@ -0,0 +1,841 @@
<?xml version="1.0"?>
<CONFIG>
<LazReport>
<Version Value="24"/>
<Title Value=""/>
<Subject Value=""/>
<KeyWords Value=""/>
<Comments Value=""/>
<ReportVersionBuild Value=""/>
<ReportVersionMajor Value=""/>
<ReportVersionMinor Value=""/>
<ReportVersionRelease Value=""/>
<ReportAutor Value=""/>
<Pages>
<PrintToDefault Value="False"/>
<DoublePass Value="False"/>
<SelectedPrinter Value="HP1100"/>
<PageCount Value="1"/>
<Page1>
<Name Value="Page1"/>
<ClassName Value="TfrPageReport"/>
<Visible Value="1"/>
<Width Value="564"/>
<Height Value="720" PageType="0"/>
<PgSize Value="1"/>
<Margins>
<left Value="0"/>
<Top Value="0"/>
<Right Value="0"/>
<Bottom Value="0"/>
</Margins>
<Orientation Value="poPortrait"/>
<UseMargins Value="True"/>
<PrintToPrevPage Value="False"/>
<ColCount Value="1"/>
<ColGap Value="0"/>
<ObjectCount Value="22"/>
<Object1>
<Name Value="GroupHeader1"/>
<ClassName Value="TfrBandView"/>
<Visible Value="1"/>
<Typ Value="gtBand"/>
<StreamMode Value="0"/>
<Size>
<Left Value="0"/>
<Top Value="68"/>
<Width Value="773"/>
<Height Value="32"/>
</Size>
<Flags Value="112"/>
<Data>
<Script Value=""/>
</Data>
<BandType Value="btGroupHeader"/>
<Condition Value="Dbf1.&quot;COUNTRY&quot;"/>
<DatasetStr Value=""/>
</Object1>
<Object2>
<Name Value="MasterData1"/>
<ClassName Value="TfrBandView"/>
<Visible Value="1"/>
<Typ Value="gtBand"/>
<StreamMode Value="0"/>
<Size>
<Left Value="0"/>
<Top Value="192"/>
<Width Value="773"/>
<Height Value="17"/>
</Size>
<Flags Value="48"/>
<Data>
<Script Value=""/>
</Data>
<BandType Value="btMasterData"/>
<Condition Value=""/>
<DatasetStr Value="frDBDataSet1"/>
</Object2>
<Object3>
<Name Value="GroupFooter1"/>
<ClassName Value="TfrBandView"/>
<Visible Value="1"/>
<Typ Value="gtBand"/>
<StreamMode Value="0"/>
<Size>
<Left Value="0"/>
<Top Value="304"/>
<Width Value="773"/>
<Height Value="60"/>
</Size>
<Flags Value="48"/>
<Data>
<Script Value=""/>
</Data>
<BandType Value="btGroupFooter"/>
<Condition Value=""/>
<DatasetStr Value=""/>
</Object3>
<Object4>
<Name Value="MasterHeader1"/>
<ClassName Value="TfrBandView"/>
<Visible Value="1"/>
<Typ Value="gtBand"/>
<StreamMode Value="0"/>
<Size>
<Left Value="0"/>
<Top Value="128"/>
<Width Value="773"/>
<Height Value="28"/>
</Size>
<Flags Value="48"/>
<Data>
<Script Value=""/>
</Data>
<BandType Value="btMasterHeader"/>
<Condition Value=""/>
<DatasetStr Value=""/>
</Object4>
<Object5>
<Name Value="Memo1"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="44"/>
<Top Value="68"/>
<Width Value="692"/>
<Height Value="30"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value="frbBottom"/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="[Dbf1.&quot;COUNTRY&quot;]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value="fsBold"/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taLeftJustify"/>
<Layout Value="tlCenter"/>
<Angle Value="0"/>
</Object5>
<Object6>
<Name Value="Memo2"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="120"/>
<Top Value="192"/>
<Width Value="140"/>
<Height Value="17"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="[Dbf1.&quot;AUTHOR&quot;]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value=""/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taLeftJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object6>
<Object7>
<Name Value="Memo3"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="264"/>
<Top Value="192"/>
<Width Value="200"/>
<Height Value="17"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="[Dbf1.&quot;TITLE&quot;]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value=""/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taLeftJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object7>
<Object8>
<Name Value="Memo4"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="472"/>
<Top Value="192"/>
<Width Value="84"/>
<Height Value="17"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="[Dbf1.&quot;COMPANY&quot;]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value=""/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taLeftJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object8>
<Object9>
<Name Value="Memo5"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="64"/>
<Top Value="192"/>
<Width Value="52"/>
<Height Value="17"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="[Dbf1.&quot;YEAR&quot;]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value=""/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taLeftJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object9>
<Object10>
<Name Value="Memo6"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="56"/>
<Top Value="312"/>
<Width Value="672"/>
<Height Value="20"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="[COUNT(MasterData1)] Albums for this country&#xA;&#x9;&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value=""/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taRightJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object10>
<Object11>
<Name Value="Memo7"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="564"/>
<Top Value="192"/>
<Width Value="36"/>
<Height Value="17"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="3"/>
<FrameColor Value="clWhite"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="[Dbf1.&quot;QTY&quot;]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value=""/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taLeftJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object11>
<Object12>
<Name Value="Memo8"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="608"/>
<Top Value="192"/>
<Width Value="56"/>
<Height Value="17"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="17039918"/>
<FormatStr Value="$#,###.00"/>
<Memo Value="[Dbf1.&quot;PRICE&quot;]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value=""/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taRightJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object12>
<Object13>
<Name Value="Line1"/>
<ClassName Value="TfrLineView"/>
<Visible Value="1"/>
<Typ Value="gtLine"/>
<StreamMode Value="0"/>
<Size>
<Left Value="56"/>
<Top Value="308"/>
<Width Value="672"/>
<Height Value="0"/>
</Size>
<Flags Value="1"/>
</Object13>
<Object14>
<Name Value="Memo9"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="668"/>
<Top Value="192"/>
<Width Value="72"/>
<Height Value="17"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="17039918"/>
<FormatStr Value="$#,###.00"/>
<Memo Value="[[Dbf1.&quot;QTY&quot;]*[Dbf1.&quot;PRICE&quot;]]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value=""/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taRightJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object14>
<Object15>
<Name Value="Memo10"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="64"/>
<Top Value="132"/>
<Width Value="56"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="Year&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value="fsItalic"/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taLeftJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object15>
<Object16>
<Name Value="Memo11"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="124"/>
<Top Value="132"/>
<Width Value="136"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="Author&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value="fsItalic"/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taLeftJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object16>
<Object17>
<Name Value="Memo12"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="264"/>
<Top Value="132"/>
<Width Value="200"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="Title&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value="fsItalic"/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taLeftJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object17>
<Object18>
<Name Value="Memo13"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="468"/>
<Top Value="132"/>
<Width Value="84"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="Company&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value="fsItalic"/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taLeftJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object18>
<Object19>
<Name Value="Memo14"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="560"/>
<Top Value="132"/>
<Width Value="36"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="Qty&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value="fsItalic"/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taLeftJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object19>
<Object20>
<Name Value="Memo15"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="608"/>
<Top Value="132"/>
<Width Value="52"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="Price&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value="fsItalic"/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taRightJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object20>
<Object21>
<Name Value="Memo16"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="664"/>
<Top Value="132"/>
<Width Value="72"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameWidth Value="1"/>
<FrameColor Value="clBlack"/>
<FrameBorders Value=""/>
<FrameStyle Value="frsSolid"/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="Subtotal&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="helvetica [urw]"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value="fsItalic"/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taRightJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object21>
<Object22>
<Name Value="Line2"/>
<ClassName Value="TfrLineView"/>
<Visible Value="1"/>
<Typ Value="gtLine"/>
<StreamMode Value="0"/>
<Size>
<Left Value="67"/>
<Top Value="154"/>
<Width Value="667"/>
<Height Value="0"/>
</Size>
<Flags Value="1"/>
</Object22>
</Page1>
<FVal>
<Count Value="0"/>
</FVal>
<ParentVars Value=""/>
</Pages>
</LazReport>
</CONFIG>

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

@ -1,7 +1,7 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<PathDelim Value="\"/>
<PathDelim Value="/"/>
<Version Value="6"/>
<General>
<Flags>
@ -9,7 +9,7 @@
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<IconPath Value=".\"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<Title Value="LazReport Designer"/>
<ActiveEditorIndexAtStart Value="0"/>
@ -20,7 +20,6 @@
</i18n>
<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"/>
@ -28,7 +27,7 @@
<RunParams>
<local>
<FormatVersion Value="1"/>
<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>
</RunParams>
<RequiredPackages Count="5">
@ -65,8 +64,8 @@
<IsPartOfProject Value="True"/>
<ResourceFilename Value="maincalleditor.lrs"/>
<UnitName Value="maincalleditor"/>
<CursorPos X="30" Y="81"/>
<TopLine Value="58"/>
<CursorPos X="27" Y="30"/>
<TopLine Value="24"/>
<EditorIndex Value="0"/>
<UsageCount Value="200"/>
<Loaded Value="True"/>
@ -75,9 +74,8 @@
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<PathDelim Value="\"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
<SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>

BIN
components/lazreport/samples/editor/db/disco.dbf
View File

Binary file not shown.

BIN
components/lazreport/samples/editor/db/disco.mdx Normal file
View File

Binary file not shown.

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

@ -4,14 +4,15 @@ object frmMain: TfrmMain
Top = 144
Width = 573
HorzScrollBar.Page = 572
VertScrollBar.Page = 384
VertScrollBar.Page = 380
ActiveControl = btnCallEditor
Caption = 'Testing LazReport Editor'
ClientHeight = 385
ClientHeight = 381
ClientWidth = 573
Menu = MainMenu1
OnCreate = frmMainCreate
ShowHint = True
LCLVersion = '0.9.25'
object btnCallEditor: TButton
Left = 112
Height = 25
@ -23,7 +24,7 @@ object frmMain: TfrmMain
TabOrder = 0
end
object dbGrid1: TDBGrid
Height = 322
Height = 321
Top = 40
Width = 573
Align = alBottom
@ -36,7 +37,7 @@ object frmMain: TfrmMain
OptionsExtra = [dgeAutoColumns, dgeCheckboxColumn]
ParentColor = False
TabOrder = 5
TabStop = True
OnTitleClick = dbGrid1TitleClick
end
object Button1: TButton
Left = 488
@ -59,8 +60,8 @@ object frmMain: TfrmMain
TabOrder = 2
end
object StatusBar1: TStatusBar
Height = 23
Top = 362
Height = 20
Top = 361
Width = 573
Panels = <>
end

164
components/lazreport/samples/editor/maincalleditor.lrs
View File

@ -2,87 +2,87 @@
LazarusResources.Add('TfrmMain','FORMDATA',[
'TPF0'#8'TfrmMain'#7'frmMain'#4'Left'#3#200#0#6'Height'#3#149#1#3'Top'#3#144#0
+#5'Width'#3'='#2#18'HorzScrollBar.Page'#3'<'#2#18'VertScrollBar.Page'#3#128#1
+#5'Width'#3'='#2#18'HorzScrollBar.Page'#3'<'#2#18'VertScrollBar.Page'#3'|'#1
+#13'ActiveControl'#7#13'btnCallEditor'#7'Caption'#6#24'Testing LazReport Edi'
+'tor'#12'ClientHeight'#3#129#1#11'ClientWidth'#3'='#2#4'Menu'#7#9'MainMenu1'
+#8'OnCreate'#7#13'frmMainCreate'#8'ShowHint'#9#0#7'TButton'#13'btnCallEditor'
+#4'Left'#2'p'#6'Height'#2#25#4'Hint'#6#30'Create and edit a empty report'#3
+'Top'#2#8#5'Width'#2'P'#6'Action'#7#12'accNewReport'#25'BorderSpacing.InnerB'
+'order'#2#4#8'TabOrder'#2#0#0#0#7'TDBGrid'#7'dbGrid1'#6'Height'#3'B'#1#3'Top'
+#2'('#5'Width'#3'='#2#5'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'
+#7'akRight'#8'akBottom'#0#5'Color'#7#7'clWhite'#10'DataSource'#7#11'Datasour'
+'ce1'#10'FixedColor'#7#9'clBtnFace'#13'FixedHotColor'#7#9'cl3DLight'#7'Optio'
+'ns'#11#9'dgEditing'#8'dgTitles'#11'dgIndicator'#14'dgColumnResize'#10'dgCol'
+'Lines'#10'dgRowLines'#6'dgTabs'#21'dgAlwaysShowSelection'#15'dgConfirmDelet'
+'e'#14'dgCancelOnExit'#0#12'OptionsExtra'#11#14'dgeAutoColumns'#17'dgeCheckb'
+'oxColumn'#0#11'ParentColor'#8#8'TabOrder'#2#5#7'TabStop'#9#0#0#7'TButton'#7
+'Button1'#4'Left'#3#232#1#6'Height'#2#25#4'Hint'#6'$Print preview current Db'
+'Grid content'#3'Top'#2#8#5'Width'#2'K'#6'Action'#7#12'accPrintGrid'#25'Bord'
+'erSpacing.InnerBorder'#2#4#8'TabOrder'#2#1#0#0#7'TButton'#7'Button2'#4'Left'
+#3#24#1#6'Height'#2#25#4'Hint'#6#26'Preview an existing report'#3'Top'#2#8#5
+'Width'#2'`'#6'Action'#7#16'accPreviewReport'#25'BorderSpacing.InnerBorder'#2
+#4#8'TabOrder'#2#2#0#0#10'TStatusBar'#10'StatusBar1'#6'Height'#2#23#3'Top'#3
+'j'#1#5'Width'#3'='#2#6'Panels'#14#0#0#0#7'TButton'#7'Button3'#4'Left'#3#200
+#0#6'Height'#2#25#4'Hint'#6#23'Edit an existing report'#3'Top'#2#8#5'Width'#2
+'K'#6'Action'#7#13'accEditReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrd'
+'er'#2#3#0#0#7'TButton'#7'Button4'#4'Left'#3#128#1#6'Height'#2#25#4'Hint'#6
+'8Print directly an existing report (i.e. without preview)'#3'Top'#2#8#5'Wid'
+'th'#2'S'#6'Action'#7#14'accPrintReport'#25'BorderSpacing.InnerBorder'#2#4#8
+'TabOrder'#2#4#0#0#7'TButton'#13'btnOpenReport'#4'Left'#2#8#6'Height'#2#25#3
+'Top'#2#8#5'Width'#2'`'#6'Action'#7#13'accOpenReport'#25'BorderSpacing.Inner'
+'Border'#2#4#8'TabOrder'#2#6#0#0#9'TfrReport'#9'TheReport'#7'Dataset'#7#12'f'
+'rDBDataSet1'#14'PreviewButtons'#11#6'pbZoom'#6'pbLoad'#6'pbSave'#7'pbPrint'
+#6'pbFind'#6'pbHelp'#6'pbExit'#0#4'left'#2'`'#3'top'#2'p'#10'ReportForm'#10#4
+#0#0#0#24#0#0#0#0#0#4'TDbf'#4'Dbf1'#9'IndexDefs'#14#0#10'TableLevel'#2#3#4'l'
+'eft'#2'`'#3'top'#2'('#0#0#11'TDatasource'#11'Datasource1'#7'DataSet'#7#4'Db'
+'f1'#4'left'#2'`'#3'top'#2'H'#0#0#12'TfrDBDataSet'#12'frDBDataSet1'#7'DataSe'
+'t'#7#4'Dbf1'#4'left'#2'`'#3'top'#3#144#0#0#0#12'TFrPrintGrid'#2'PG'#6'DBGri'
+'d'#7#7'dbGrid1'#11'Orientation'#7#11'poLandscape'#7'Caption'#6#4'Grid'#11'S'
+'howCaption'#9#4'left'#2'`'#3'top'#3#176#0#0#0#9'TMainMenu'#9'MainMenu1'#4'l'
+'eft'#2#8#3'top'#2'`'#0#9'TMenuItem'#9'MenuItem1'#7'Caption'#6#5'Files'#0#9
+'TMenuItem'#9'MenuItem2'#6'Action'#7#8'accClose'#7'OnClick'#7#15'accCloseExe'
+'cute'#0#0#0#9'TMenuItem'#9'MenuItem3'#7'Caption'#6#5'Tests'#0#9'TMenuItem'#9
+'MenuItem4'#6'Action'#7#12'accNewReport'#7'OnClick'#7#19'accNewReportExecute'
+#0#0#9'TMenuItem'#9'MenuItem5'#6'Action'#7#13'accEditReport'#7'OnClick'#7#20
+'accEditReportExecute'#0#0#9'TMenuItem'#9'MenuItem6'#6'Action'#7#16'accPrevi'
+'ewReport'#7'OnClick'#7#23'accPreviewReportExecute'#0#0#9'TMenuItem'#9'MenuI'
+'tem7'#6'Action'#7#14'accPrintReport'#7'OnClick'#7#21'accPrintReportExecute'
+#0#0#9'TMenuItem'#9'MenuItem8'#6'Action'#7#12'accPrintGrid'#7'OnClick'#7#19
+'accPrintGridExecute'#0#0#0#9'TMenuItem'#9'MenuItem9'#7'Caption'#6#6'Export'
+#0#9'TMenuItem'#10'MenuItem10'#6'Action'#7#15'accExportToText'#7'OnClick'#7
+#22'accExportToTextExecute'#0#0#9'TMenuItem'#10'MenuItem11'#6'Action'#7#15'a'
+'ccExportToHtml'#7'OnClick'#7#22'accExportToHtmlExecute'#0#0#9'TMenuItem'#10
+'MenuItem12'#6'Action'#7#14'accExportToCSV'#7'OnClick'#7#21'accExportToCSVEx'
+'ecute'#0#0#0#0#22'TApplicationProperties'#22'ApplicationProperties1'#17'Cap'
+'tureExceptions'#9#9'HintColor'#7#8'clInfoBk'#13'HintHidePause'#3#196#9#9'Hi'
+'ntPause'#2#10#13'HintShortCuts'#9#8'ShowHint'#9#10'OnShowHint'#7#30'Applica'
+'tionProperties1ShowHint'#4'left'#2'`'#3'top'#3#240#0#0#0#11'TActionList'#11
+'ActionList1'#4'left'#2'0'#3'top'#2'`'#0#7'TAction'#12'accNewReport'#8'Categ'
+'ory'#6#5'Tests'#7'Caption'#6#10'New Report'#18'DisableIfNoHandler'#9#4'Hint'
+#6#30'Create and edit a empty report'#9'OnExecute'#7#19'accNewReportExecute'
+#0#0#7'TAction'#13'accEditReport'#8'Category'#6#5'Tests'#7'Caption'#6#11'Edi'
+'t Report'#18'DisableIfNoHandler'#9#4'Hint'#6#23'Edit an existing report'#9
+'OnExecute'#7#20'accEditReportExecute'#0#0#7'TAction'#16'accPreviewReport'#8
+'Category'#6#5'Tests'#7'Caption'#6#14'Preview Report'#18'DisableIfNoHandler'
+#9#4'Hint'#6#26'Preview an existing report'#9'OnExecute'#7#23'accPreviewRepo'
,'rtExecute'#0#0#7'TAction'#12'accPrintGrid'#8'Category'#6#5'Tests'#7'Caption'
+#6#10'Print Grid'#18'DisableIfNoHandler'#9#4'Hint'#6'$Print preview current '
+'DbGrid content'#9'OnExecute'#7#19'accPrintGridExecute'#0#0#7'TAction'#14'ac'
+'cPrintReport'#8'Category'#6#5'Tests'#7'Caption'#6#12'Print Report'#18'Disab'
+'leIfNoHandler'#9#4'Hint'#6'8Print directly an existing report (i.e. without'
+' preview)'#9'OnExecute'#7#21'accPrintReportExecute'#0#0#7'TAction'#8'accClo'
+'se'#8'Category'#6#5'Files'#7'Caption'#6#5'Close'#18'DisableIfNoHandler'#9#4
+'Hint'#6#17'Close application'#9'OnExecute'#7#15'accCloseExecute'#0#0#7'TAct'
+'ion'#15'accExportToText'#8'Category'#6#6'Export'#7'Caption'#6#14'Export to '
+'text'#18'DisableIfNoHandler'#9#9'OnExecute'#7#22'accExportToTextExecute'#0#0
+#7'TAction'#15'accExportToHtml'#8'Category'#6#6'Export'#7'Caption'#6#14'Expo'
+'rt to html'#18'DisableIfNoHandler'#9#9'OnExecute'#7#22'accExportToHtmlExecu'
+'te'#0#0#7'TAction'#13'accOpenReport'#8'Category'#6#5'Files'#7'Caption'#6#11
+'Open Report'#18'DisableIfNoHandler'#9#9'OnExecute'#7#20'accOpenReportExecut'
+'e'#0#0#7'TAction'#14'accExportToCSV'#8'Category'#6#6'Export'#7'Caption'#6#13
+'Export to CSV'#18'DisableIfNoHandler'#9#9'OnExecute'#7#21'accExportToCSVExe'
+'cute'#0#0#0#11'TOpenDialog'#11'OpenDialog1'#6'Filter'#6':LazReport Files|*.'
+'lrf|FreeReport Files|*.frf|All Files|*.*'#11'FilterIndex'#2#0#4'left'#2'd'#3
+'top'#3#16#1#0#0#12'TfrCSVExport'#12'frCSVExport1'#4'left'#3#140#0#3'top'#2
+'('#0#0#0
+'tor'#12'ClientHeight'#3'}'#1#11'ClientWidth'#3'='#2#4'Menu'#7#9'MainMenu1'#8
+'OnCreate'#7#13'frmMainCreate'#8'ShowHint'#9#10'LCLVersion'#6#6'0.9.25'#0#7
+'TButton'#13'btnCallEditor'#4'Left'#2'p'#6'Height'#2#25#4'Hint'#6#30'Create '
+'and edit a empty report'#3'Top'#2#8#5'Width'#2'P'#6'Action'#7#12'accNewRepo'
+'rt'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#0#0#0#7'TDBGrid'#7'dbGr'
+'id1'#6'Height'#3'A'#1#3'Top'#2'('#5'Width'#3'='#2#5'Align'#7#8'alBottom'#7
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#5'Color'#7#7'clWhit'
+'e'#10'DataSource'#7#11'Datasource1'#10'FixedColor'#7#9'clBtnFace'#13'FixedH'
+'otColor'#7#9'cl3DLight'#7'Options'#11#9'dgEditing'#8'dgTitles'#11'dgIndicat'
+'or'#14'dgColumnResize'#10'dgColLines'#10'dgRowLines'#6'dgTabs'#21'dgAlwaysS'
+'howSelection'#15'dgConfirmDelete'#14'dgCancelOnExit'#0#12'OptionsExtra'#11
+#14'dgeAutoColumns'#17'dgeCheckboxColumn'#0#11'ParentColor'#8#8'TabOrder'#2#5
+#12'OnTitleClick'#7#17'dbGrid1TitleClick'#0#0#7'TButton'#7'Button1'#4'Left'#3
+#232#1#6'Height'#2#25#4'Hint'#6'$Print preview current DbGrid content'#3'Top'
+#2#8#5'Width'#2'K'#6'Action'#7#12'accPrintGrid'#25'BorderSpacing.InnerBorder'
+#2#4#8'TabOrder'#2#1#0#0#7'TButton'#7'Button2'#4'Left'#3#24#1#6'Height'#2#25
+#4'Hint'#6#26'Preview an existing report'#3'Top'#2#8#5'Width'#2'`'#6'Action'
+#7#16'accPreviewReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#2#0#0
+#10'TStatusBar'#10'StatusBar1'#6'Height'#2#20#3'Top'#3'i'#1#5'Width'#3'='#2#6
+'Panels'#14#0#0#0#7'TButton'#7'Button3'#4'Left'#3#200#0#6'Height'#2#25#4'Hin'
+'t'#6#23'Edit an existing report'#3'Top'#2#8#5'Width'#2'K'#6'Action'#7#13'ac'
+'cEditReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#3#0#0#7'TButto'
+'n'#7'Button4'#4'Left'#3#128#1#6'Height'#2#25#4'Hint'#6'8Print directly an e'
+'xisting report (i.e. without preview)'#3'Top'#2#8#5'Width'#2'S'#6'Action'#7
+#14'accPrintReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#7
+'TButton'#13'btnOpenReport'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2
+'`'#6'Action'#7#13'accOpenReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrd'
+'er'#2#6#0#0#9'TfrReport'#9'TheReport'#7'Dataset'#7#12'frDBDataSet1'#14'Prev'
+'iewButtons'#11#6'pbZoom'#6'pbLoad'#6'pbSave'#7'pbPrint'#6'pbFind'#6'pbHelp'
+#6'pbExit'#0#4'left'#2'`'#3'top'#2'p'#10'ReportForm'#10#4#0#0#0#24#0#0#0#0#0
+#4'TDbf'#4'Dbf1'#9'IndexDefs'#14#0#10'TableLevel'#2#3#4'left'#2'`'#3'top'#2
+'('#0#0#11'TDatasource'#11'Datasource1'#7'DataSet'#7#4'Dbf1'#4'left'#2'`'#3
+'top'#2'H'#0#0#12'TfrDBDataSet'#12'frDBDataSet1'#7'DataSet'#7#4'Dbf1'#4'left'
+#2'`'#3'top'#3#144#0#0#0#12'TFrPrintGrid'#2'PG'#6'DBGrid'#7#7'dbGrid1'#11'Or'
+'ientation'#7#11'poLandscape'#7'Caption'#6#4'Grid'#11'ShowCaption'#9#4'left'
+#2'`'#3'top'#3#176#0#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2#8#3'top'#2'`'#0
+#9'TMenuItem'#9'MenuItem1'#7'Caption'#6#5'Files'#0#9'TMenuItem'#9'MenuItem2'
+#6'Action'#7#8'accClose'#7'OnClick'#7#15'accCloseExecute'#0#0#0#9'TMenuItem'
+#9'MenuItem3'#7'Caption'#6#5'Tests'#0#9'TMenuItem'#9'MenuItem4'#6'Action'#7
+#12'accNewReport'#7'OnClick'#7#19'accNewReportExecute'#0#0#9'TMenuItem'#9'Me'
+'nuItem5'#6'Action'#7#13'accEditReport'#7'OnClick'#7#20'accEditReportExecute'
+#0#0#9'TMenuItem'#9'MenuItem6'#6'Action'#7#16'accPreviewReport'#7'OnClick'#7
+#23'accPreviewReportExecute'#0#0#9'TMenuItem'#9'MenuItem7'#6'Action'#7#14'ac'
+'cPrintReport'#7'OnClick'#7#21'accPrintReportExecute'#0#0#9'TMenuItem'#9'Men'
+'uItem8'#6'Action'#7#12'accPrintGrid'#7'OnClick'#7#19'accPrintGridExecute'#0
+#0#0#9'TMenuItem'#9'MenuItem9'#7'Caption'#6#6'Export'#0#9'TMenuItem'#10'Menu'
+'Item10'#6'Action'#7#15'accExportToText'#7'OnClick'#7#22'accExportToTextExec'
+'ute'#0#0#9'TMenuItem'#10'MenuItem11'#6'Action'#7#15'accExportToHtml'#7'OnCl'
+'ick'#7#22'accExportToHtmlExecute'#0#0#9'TMenuItem'#10'MenuItem12'#6'Action'
+#7#14'accExportToCSV'#7'OnClick'#7#21'accExportToCSVExecute'#0#0#0#0#22'TApp'
+'licationProperties'#22'ApplicationProperties1'#17'CaptureExceptions'#9#9'Hi'
+'ntColor'#7#8'clInfoBk'#13'HintHidePause'#3#196#9#9'HintPause'#2#10#13'HintS'
+'hortCuts'#9#8'ShowHint'#9#10'OnShowHint'#7#30'ApplicationProperties1ShowHin'
+'t'#4'left'#2'`'#3'top'#3#240#0#0#0#11'TActionList'#11'ActionList1'#4'left'#2
+'0'#3'top'#2'`'#0#7'TAction'#12'accNewReport'#8'Category'#6#5'Tests'#7'Capti'
+'on'#6#10'New Report'#18'DisableIfNoHandler'#9#4'Hint'#6#30'Create and edit '
+'a empty report'#9'OnExecute'#7#19'accNewReportExecute'#0#0#7'TAction'#13'ac'
+'cEditReport'#8'Category'#6#5'Tests'#7'Caption'#6#11'Edit Report'#18'Disable'
+'IfNoHandler'#9#4'Hint'#6#23'Edit an existing report'#9'OnExecute'#7#20'accE'
+'ditReportExecute'#0#0#7'TAction'#16'accPreviewReport'#8'Category'#6#5'Tests'
+#7'Caption'#6#14'Preview Report'#18'DisableIfNoHandler'#9#4'Hint'#6#26'Previ'
,'ew an existing report'#9'OnExecute'#7#23'accPreviewReportExecute'#0#0#7'TAc'
+'tion'#12'accPrintGrid'#8'Category'#6#5'Tests'#7'Caption'#6#10'Print Grid'#18
+'DisableIfNoHandler'#9#4'Hint'#6'$Print preview current DbGrid content'#9'On'
+'Execute'#7#19'accPrintGridExecute'#0#0#7'TAction'#14'accPrintReport'#8'Cate'
+'gory'#6#5'Tests'#7'Caption'#6#12'Print Report'#18'DisableIfNoHandler'#9#4'H'
+'int'#6'8Print directly an existing report (i.e. without preview)'#9'OnExecu'
+'te'#7#21'accPrintReportExecute'#0#0#7'TAction'#8'accClose'#8'Category'#6#5
+'Files'#7'Caption'#6#5'Close'#18'DisableIfNoHandler'#9#4'Hint'#6#17'Close ap'
+'plication'#9'OnExecute'#7#15'accCloseExecute'#0#0#7'TAction'#15'accExportTo'
+'Text'#8'Category'#6#6'Export'#7'Caption'#6#14'Export to text'#18'DisableIfN'
+'oHandler'#9#9'OnExecute'#7#22'accExportToTextExecute'#0#0#7'TAction'#15'acc'
+'ExportToHtml'#8'Category'#6#6'Export'#7'Caption'#6#14'Export to html'#18'Di'
+'sableIfNoHandler'#9#9'OnExecute'#7#22'accExportToHtmlExecute'#0#0#7'TAction'
+#13'accOpenReport'#8'Category'#6#5'Files'#7'Caption'#6#11'Open Report'#18'Di'
+'sableIfNoHandler'#9#9'OnExecute'#7#20'accOpenReportExecute'#0#0#7'TAction'
+#14'accExportToCSV'#8'Category'#6#6'Export'#7'Caption'#6#13'Export to CSV'#18
+'DisableIfNoHandler'#9#9'OnExecute'#7#21'accExportToCSVExecute'#0#0#0#11'TOp'
+'enDialog'#11'OpenDialog1'#6'Filter'#6':LazReport Files|*.lrf|FreeReport Fil'
+'es|*.frf|All Files|*.*'#11'FilterIndex'#2#0#4'left'#2'd'#3'top'#3#16#1#0#0
+#12'TfrCSVExport'#12'frCSVExport1'#4'left'#3#140#0#3'top'#2'('#0#0#0
]);

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

@ -87,6 +87,7 @@ type
procedure accPreviewReportExecute(Sender: TObject);
procedure accPrintGridExecute(Sender: TObject);
procedure accPrintReportExecute(Sender: TObject);
procedure dbGrid1TitleClick(Column: TColumn);
procedure frmMainCreate(Sender: TObject);
private
{ private declarations }
@ -195,6 +196,20 @@ begin
ShowMessage(cerPrepareFailed);
end;
procedure TfrmMain.dbGrid1TitleClick(Column: TColumn);
begin
if CompareText(Column.FieldName,'year')=0 then
dbf1.IndexName := 'ByYear'
else
if CompareText(Column.FieldName,'company')=0 then
dbf1.IndexName := 'ByCompany'
else
if CompareText(Column.FieldName,'country')=0 then
dbf1.IndexName := 'ByCountry'
else
dbf1.IndexName := '';
end;
procedure TfrmMain.frmMainCreate(Sender: TObject);
begin

18
components/lazreport/source/lazreport.lpk
View File

@ -25,7 +25,7 @@ Lazarus Port: Olivier Guilbaud, Jesus Reyes A.
See license.txt and license-lazreport.txt for details.
"/>
<Version Minor="9" Release="5"/>
<Files Count="43">
<Files Count="47">
<Item1>
<Filename Value="lr_class.pas"/>
<UnitName Value="LR_Class"/>
@ -199,6 +199,22 @@ See license.txt and license-lazreport.txt for details.
<Filename Value="lr_gedit.pas"/>
<UnitName Value="LR_GEdit"/>
</Item43>
<Item44>
<Filename Value="lr_utils.pas"/>
<UnitName Value="LR_Utils"/>
</Item44>
<Item45>
<Filename Value="lr_grped.lfm"/>
<Type Value="LFM"/>
</Item45>
<Item46>
<Filename Value="lr_grped.lrs"/>
<Type Value="LRS"/>
</Item46>
<Item47>
<Filename Value="lr_grped.pas"/>
<UnitName Value="LR_GrpEd"/>
</Item47>
</Files>
<i18n>
<EnableI18N Value="True"/>

2
components/lazreport/source/lazreport.pas
View File

@ -10,7 +10,7 @@ uses
LR_Class, LR_Desgn, LR_Register, LR_Flds, LR_DBSet, LR_BarC, LR_BndEd,
LR_PGrid, LR_View, lr_expres, lr_funct_editor_unit, lr_funct_editor_unit1,
LR_Prntr, LR_Edit, LR_Pars, LR_fmted, LR_Const, LR_pgopt, LR_Dopt,
LR_GEdit, LazarusPackageIntf;
LR_GEdit, LR_Utils, LR_GrpEd, LazarusPackageIntf;
implementation

6
components/lazreport/source/lr_class.pas
View File

@ -8378,12 +8378,18 @@ begin
end;
if dk <> dkNone then
begin
if dk = dkCount then
DataSet := frGetDataSet(lrGetUnBrackedStr(p1))
else
frGetDataSetAndField(lrGetUnBrackedStr(p1), DataSet, Field);
if (DataSet <> nil) and AggrBand.Visible then
begin
// NOTE: this will probably work only when iterating detail records
// for non master-detail relationships like simple grouping on
// single datasets it will iterate over all records and not only
// over group records.
min := 1e200; max := -1e200; sum := 0; count := 0; avg := 0;
BM:=DataSet.GetBookMark;
DataSet.DisableControls;

4996
components/lazreport/source/lr_desgn.lfm
View File

File diff suppressed because it is too large Load Diff

5304
components/lazreport/source/lr_desgn.lrs
View File

File diff suppressed because it is too large Load Diff

3
components/lazreport/source/lr_desgn.pas
View File

@ -1503,7 +1503,9 @@ begin
SelNum := 1;
if t.Typ = gtBand then begin
{$IFDEF DebugLR}
DebugLn('A new band was inserted');
{$ENDIF}
Draw(10000, t.GetClipRgn(rtExtended))
end else
begin
@ -4079,6 +4081,7 @@ var
i: Integer;
bt: TfrBandType;
begin
SetCaptureControl(nil);
t := TfrView(Objects[TopSelected]);
if t.Typ = gtMemo then
ShowMemoEditor

3
components/lazreport/source/lr_funct_editor_unit.lfm
View File

@ -12,8 +12,8 @@ object LR_FunctEditorForm: TLR_FunctEditorForm
ClientWidth = 420
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
Position = poDesktopCenter
LCLVersion = '0.9.25'
object ListBox1: TListBox
Height = 216
Width = 181
@ -51,6 +51,7 @@ object LR_FunctEditorForm: TLR_FunctEditorForm
Color = clInfoBk
ParentColor = False
Transparent = False
WordWrap = True
end
end
object Splitter1: TSplitter

44
components/lazreport/source/lr_funct_editor_unit.lrs
View File

@ -6,27 +6,27 @@ LazarusResources.Add('TLR_FunctEditorForm','FORMDATA',[
+'rtScrollBar.Page'#3'?'#1#13'ActiveControl'#7#8'ListBox1'#11'BorderIcons'#11
+#12'biSystemMenu'#6'biHelp'#0#7'Caption'#6#18'LR_FunctEditorForm'#12'ClientH'
+'eight'#3'@'#1#11'ClientWidth'#3#164#1#7'OnClose'#7#9'FormClose'#8'OnCreate'
+#7#10'FormCreate'#13'PixelsPerInch'#2'`'#8'Position'#7#15'poDesktopCenter'#0
+#8'TListBox'#8'ListBox1'#6'Height'#3#216#0#5'Width'#3#181#0#5'Align'#7#6'alL'
+'eft'#7'OnClick'#7#13'ListBox1Click'#8'TabOrder'#2#0#0#0#6'TPanel'#6'Panel1'
+#6'Height'#2'@'#3'Top'#3#216#0#5'Width'#3#164#1#5'Align'#7#8'alBottom'#10'Be'
+'velOuter'#7#9'bvLowered'#12'ClientHeight'#2'@'#11'ClientWidth'#3#164#1#8'Ta'
+'bOrder'#2#1#0#6'TLabel'#6'Label1'#4'Left'#2#1#6'Height'#2#14#3'Top'#2#1#5'W'
+'idth'#3#162#1#5'Align'#7#5'alTop'#7'Caption'#6#6'Label1'#5'Color'#7#7'clWhi'
+'te'#11'ParentColor'#8#11'Transparent'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#1
+#7#10'FormCreate'#8'Position'#7#15'poDesktopCenter'#10'LCLVersion'#6#6'0.9.2'
+'5'#0#8'TListBox'#8'ListBox1'#6'Height'#3#216#0#5'Width'#3#181#0#5'Align'#7#6
+'alLeft'#7'OnClick'#7#13'ListBox1Click'#8'TabOrder'#2#0#0#0#6'TPanel'#6'Pane'
+'l1'#6'Height'#2'@'#3'Top'#3#216#0#5'Width'#3#164#1#5'Align'#7#8'alBottom'#10
+'BevelOuter'#7#9'bvLowered'#12'ClientHeight'#2'@'#11'ClientWidth'#3#164#1#8
+'TabOrder'#2#1#0#6'TLabel'#6'Label1'#4'Left'#2#1#6'Height'#2#14#3'Top'#2#1#5
+'Width'#3#162#1#5'Align'#7#5'alTop'#7'Caption'#6#6'Label1'#5'Color'#7#7'clWh'
+'ite'#11'ParentColor'#8#11'Transparent'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#1
+#6'Height'#2'0'#3'Top'#2#15#5'Width'#3#162#1#5'Align'#7#8'alClient'#7'Captio'
+'n'#6#6'Label2'#5'Color'#7#8'clInfoBk'#11'ParentColor'#8#11'Transparent'#8#0
+#0#0#9'TSplitter'#9'Splitter1'#4'Left'#3#181#0#6'Height'#3#216#0#5'Width'#2#5
+#0#0#8'TListBox'#8'ListBox2'#4'Left'#3#186#0#6'Height'#3#216#0#5'Width'#3#234
+#0#5'Align'#7#8'alClient'#7'OnClick'#7#13'ListBox2Click'#10'OnDblClick'#7#16
+'ListBox2DblClick'#8'TabOrder'#2#2#0#0#6'TPanel'#6'Panel2'#6'Height'#2'('#3
+'Top'#3#24#1#5'Width'#3#164#1#5'Align'#7#8'alBottom'#10'BevelOuter'#7#6'bvNo'
+'ne'#12'ClientHeight'#2'('#11'ClientWidth'#3#164#1#8'TabOrder'#2#3#0#7'TBitB'
+'tn'#7'BitBtn1'#4'Left'#3#1#1#6'Height'#2#30#3'Top'#2#6#5'Width'#2'K'#7'Anch'
+'ors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6
+#3'&Ok'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8
+'TabOrder'#2#0#0#0#7'TBitBtn'#7'BitBtn2'#4'Left'#3'R'#1#6'Height'#2#30#3'Top'
+#2#6#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.Inne'
+'rBorder'#2#2#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11'ModalResult'#2
+#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#0#0
+'n'#6#6'Label2'#5'Color'#7#8'clInfoBk'#11'ParentColor'#8#11'Transparent'#8#8
+'WordWrap'#9#0#0#0#9'TSplitter'#9'Splitter1'#4'Left'#3#181#0#6'Height'#3#216
+#0#5'Width'#2#5#0#0#8'TListBox'#8'ListBox2'#4'Left'#3#186#0#6'Height'#3#216#0
+#5'Width'#3#234#0#5'Align'#7#8'alClient'#7'OnClick'#7#13'ListBox2Click'#10'O'
+'nDblClick'#7#16'ListBox2DblClick'#8'TabOrder'#2#2#0#0#6'TPanel'#6'Panel2'#6
+'Height'#2'('#3'Top'#3#24#1#5'Width'#3#164#1#5'Align'#7#8'alBottom'#10'Bevel'
+'Outer'#7#6'bvNone'#12'ClientHeight'#2'('#11'ClientWidth'#3#164#1#8'TabOrder'
+#2#3#0#7'TBitBtn'#7'BitBtn1'#4'Left'#3#1#1#6'Height'#2#30#3'Top'#2#6#5'Width'
+#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#2#7
+'Caption'#6#3'&Ok'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumG'
+'lyphs'#2#0#8'TabOrder'#2#0#0#0#7'TBitBtn'#7'BitBtn2'#4'Left'#3'R'#1#6'Heigh'
+'t'#2#30#3'Top'#2#6#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'Bor'
+'derSpacing.InnerBorder'#2#2#7'Caption'#6#6'Cancel'#4'Kind'#7#8'bkCancel'#11
+'ModalResult'#2#2#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#0#0
]);

8
components/lazreport/source/lr_funct_editor_unit1.pas
View File

@ -39,7 +39,7 @@ type
end;
implementation
uses lr_expres, StrUtils;
uses lr_expres, lr_utils;
{ TLR_FunctEditor1Form }
@ -99,13 +99,13 @@ function TLR_FunctEditor1Form.ResultText: string;
begin
Result:='';
if FParCount>0 then
Result:=Result + '[' + Edit1.Text + ']';
Result:=Result + '[' + lrGetUnBrackedStr(Edit1.Text) + ']';
if FParCount>1 then
Result:=Result + ', [' + Edit2.Text + ']';
Result:=Result + ', [' + lrGetUnBrackedStr(Edit2.Text) + ']';
if FParCount>2 then
Result:=Result + ', [' + Edit3.Text + ']';
Result:=Result + ', [' + lrGetUnBrackedStr(Edit3.Text) + ']';
if FParCount>0 then
Result:='('+Result+')';

10
components/lazreport/source/lr_grped.lfm
View File

@ -14,6 +14,7 @@ object frGroupEditorForm: TfrGroupEditorForm
OnCreate = FormCreate
Position = poScreenCenter
ShowHint = True
LCLVersion = '0.9.25'
object GB1: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
@ -21,13 +22,13 @@ object frGroupEditorForm: TfrGroupEditorForm
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = ButtonPanel1
Left = 6
Height = 66
Height = 64
Top = 6
Width = 481
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6
Caption = 'Condition'
ClientHeight = 48
ClientHeight = 47
ClientWidth = 477
TabOrder = 0
object Edit1: TEditButton
@ -46,14 +47,15 @@ object frGroupEditorForm: TfrGroupEditorForm
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777700
0000700700700700000070070070070000007777777777000000
}
OnButtonClick = frSpeedButton1Click
ParentColor = False
TabOrder = 0
end
end
object ButtonPanel1: TButtonPanel
Left = 6
Height = 40
Top = 78
Height = 42
Top = 76
Width = 481
Align = alBottom
AutoSize = True

39
components/lazreport/source/lr_grped.lrs
View File

@ -6,23 +6,24 @@ LazarusResources.Add('TfrGroupEditorForm','FORMDATA',[
+'ScrollBar.Page'#2'u'#11'BorderIcons'#11#12'biSystemMenu'#6'biHelp'#0#7'Capt'
+'ion'#6#5'Group'#12'ClientHeight'#2'v'#11'ClientWidth'#3#237#1#11'Font.Heigh'
+'t'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'FormCreate'#8'Po'
+'sition'#7#14'poScreenCenter'#8'ShowHint'#9#0#9'TGroupBox'#3'GB1'#22'AnchorS'
+'ideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorS'
+'ideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'Anc'
+'horSideBottom.Control'#7#12'ButtonPanel1'#4'Left'#2#6#6'Height'#2'B'#3'Top'
+#2#6#5'Width'#3#225#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'
+#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#9'Condition'#12'ClientHeight'#2
+'0'#11'ClientWidth'#3#221#1#8'TabOrder'#2#0#0#11'TEditButton'#5'Edit1'#20'An'
+'chorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#23#3'Top'#2#6#5
+'Width'#3#179#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpaci'
+'ng.Around'#2#6#11'ButtonWidth'#2#23#10'Glyph.Data'#10#154#0#0#0#150#0#0#0'B'
+'M'#150#0#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#10#0#0#0#4#0#0#0#1#0#4#0#0#0#0#0' '#0
+#0#0#206#14#0#0#196#14#0#0#16#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128
+#128#0#128#0#0#0#128#0#128#0#128#128#0#0#192#192#192#0#128#128#128#0#0#0#255
+#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0'www'
+'ww'#0#0#0'p'#7#0'p'#7#0#0#0'p'#7#0'p'#7#0#0#0'wwwww'#0#0#0#11'ParentColor'#8
+#8'TabOrder'#2#0#0#0#0#12'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6#6'Heigh'
+'t'#2'('#3'Top'#2'N'#5'Width'#3#225#1#5'Align'#7#8'alBottom'#8'AutoSize'#9#8
+'TabOrder'#2#1#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0#10'ShowGly'
+'phs'#11#4'pbOK'#8'pbCancel'#7'pbClose'#6'pbHelp'#0#0#0#0
+'sition'#7#14'poScreenCenter'#8'ShowHint'#9#10'LCLVersion'#6#6'0.9.25'#0#9'T'
+'GroupBox'#3'GB1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Con'
+'trol'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.'
+'Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#12'ButtonPanel1'#4'Left'
+#2#6#6'Height'#2'@'#3'Top'#2#6#5'Width'#3#225#1#7'Anchors'#11#5'akTop'#6'akL'
+'eft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Caption'#6#9'C'
+'ondition'#12'ClientHeight'#2'/'#11'ClientWidth'#3#221#1#8'TabOrder'#2#0#0#11
+'TEditButton'#5'Edit1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#6#6
+'Height'#2#23#3'Top'#2#6#5'Width'#3#179#1#7'Anchors'#11#5'akTop'#6'akLeft'#7
+'akRight'#0#20'BorderSpacing.Around'#2#6#11'ButtonWidth'#2#23#10'Glyph.Data'
+#10#154#0#0#0#150#0#0#0'BM'#150#0#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#10#0#0#0#4#0
+#0#0#1#0#4#0#0#0#0#0' '#0#0#0#206#14#0#0#196#14#0#0#16#0#0#0#0#0#0#0#0#0#0#0
+#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#192#192
+#192#0#128#128#128#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0
+#255#255#0#0#255#255#255#0'wwwww'#0#0#0'p'#7#0'p'#7#0#0#0'p'#7#0'p'#7#0#0#0
+'wwwww'#0#0#0#13'OnButtonClick'#7#19'frSpeedButton1Click'#11'ParentColor'#8#8
+'TabOrder'#2#0#0#0#0#12'TButtonPanel'#12'ButtonPanel1'#4'Left'#2#6#6'Height'
+#2'*'#3'Top'#2'L'#5'Width'#3#225#1#5'Align'#7#8'alBottom'#8'AutoSize'#9#8'Ta'
+'bOrder'#2#1#11'ShowButtons'#11#4'pbOK'#8'pbCancel'#6'pbHelp'#0#10'ShowGlyph'
+'s'#11#4'pbOK'#8'pbCancel'#7'pbClose'#6'pbHelp'#0#0#0#0
]);