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

LazReport, editor sample updated with export filters tests

Browse Source 
git-svn-id: trunk@23142 -
This commit is contained in:
jesus 2009-12-14 19:39:19 +00:00
parent e1c8d7a751
commit 02d536437e
14 changed files with 1088 additions and 298 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -1282,6 +1282,7 @@ components/lazreport/samples/barcode/reports/codigobarras.lrf svneol=native#text
components/lazreport/samples/editor/albumsbycountry.lrf svneol=LF#text/xml eol=lf 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.lpi svneol=native#text/plain
components/lazreport/samples/editor/calleditorwithpkg.lpr svneol=native#text/pascal components/lazreport/samples/editor/calleditorwithpkg.lpr svneol=native#text/pascal
components/lazreport/samples/editor/csvtest.lrf svneol=LF#text/xml eol=lf
components/lazreport/samples/editor/db/disco.dbf -text components/lazreport/samples/editor/db/disco.dbf -text
components/lazreport/samples/editor/db/disco.mdx -text components/lazreport/samples/editor/db/disco.mdx -text
components/lazreport/samples/editor/languages/calleditorwithpkg.de.po svneol=native#text/plain components/lazreport/samples/editor/languages/calleditorwithpkg.de.po svneol=native#text/plain

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

@ -5,12 +5,13 @@
<General> <General>
<Flags> <Flags>
<SaveClosedFiles Value="False"/> <SaveClosedFiles Value="False"/>
<SaveOnlyProjectUnits Value="True"/>
<LRSInOutputDirectory Value="False"/> <LRSInOutputDirectory Value="False"/>
</Flags> </Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/> <MainUnit Value="0"/>
<TargetFileExt Value=""/> <TargetFileExt Value=""/>
<Title Value="LazReport Designer"/> <Title Value="LazReport Designer"/>
<ActiveEditorIndexAtStart Value="0"/>
</General> </General>
<i18n> <i18n>
<EnableI18N Value="True"/> <EnableI18N Value="True"/>
@ -28,33 +29,35 @@
<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="5"> <RequiredPackages Count="6">
<Item1> <Item1>
<PackageName Value="Printer4Lazarus"/> <PackageName Value="lazreport"/>
<MinVersion Minor="9" Release="6" Valid="True"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="LCL"/> <PackageName Value="lazreportpdfexport"/>
<MinVersion Minor="5" Valid="True"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="lazreport"/> <PackageName Value="Printer4Lazarus"/>
</Item3> </Item3>
<Item4> <Item4>
<PackageName Value="FCL"/> <PackageName Value="LCL"/>
<MinVersion Major="1" Valid="True"/>
</Item4> </Item4>
<Item5> <Item5>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
</Item5>
<Item6>
<PackageName Value="DBFLaz"/> <PackageName Value="DBFLaz"/>
<MinVersion Minor="1" Release="1" Valid="True"/> <MinVersion Minor="1" Release="1" Valid="True"/>
</Item5> </Item6>
</RequiredPackages> </RequiredPackages>
<Units Count="7"> <Units Count="2">
<Unit0> <Unit0>
<Filename Value="calleditorwithpkg.lpr"/> <Filename Value="calleditorwithpkg.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="calleditorwithpkg"/> <UnitName Value="calleditorwithpkg"/>
<CursorPos X="29" Y="10"/>
<TopLine Value="1"/>
<UsageCount Value="200"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="maincalleditor.pas"/> <Filename Value="maincalleditor.pas"/>
@ -62,192 +65,8 @@
<ComponentName Value="frmMain"/> <ComponentName Value="frmMain"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="maincalleditor"/> <UnitName Value="maincalleditor"/>
<CursorPos X="49" Y="356"/>
<TopLine Value="340"/>
<EditorIndex Value="0"/>
<UsageCount Value="200"/>
<Bookmarks Count="1">
<Item0 X="3" Y="327" ID="9"/>
</Bookmarks>
<Loaded Value="True"/>
</Unit1> </Unit1>
<Unit2>
<Filename Value="../../source/lr_class.pas"/>
<ComponentName Value="frReportDesigner"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="LR_Class"/>
<CursorPos X="22" Y="1909"/>
<TopLine Value="1906"/>
<EditorIndex Value="5"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="../../source/lr_desgn.pas"/>
<ComponentName Value="frDesignerForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="LR_Desgn"/>
<CursorPos X="18" Y="1014"/>
<TopLine Value="1006"/>
<EditorIndex Value="1"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="../../../../lcl/controls.pp"/>
<UnitName Value="Controls"/>
<CursorPos X="14" Y="1373"/>
<TopLine Value="1362"/>
<EditorIndex Value="4"/>
<UsageCount Value="14"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="../../source/lr_edit.pas"/>
<ComponentName Value="frEditorForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="LR_Edit"/>
<CursorPos X="36" Y="254"/>
<TopLine Value="243"/>
<EditorIndex Value="2"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
<Filename Value="../../source/lr_const.pas"/>
<UnitName Value="LR_Const"/>
<CursorPos X="36" Y="73"/>
<TopLine Value="61"/>
<EditorIndex Value="3"/>
<UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit6>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29">
<Position1>
<Filename Value="maincalleditor.pas"/>
<Caret Line="231" Column="13" TopLine="228"/>
</Position1>
<Position2>
<Filename Value="maincalleditor.pas"/>
<Caret Line="186" Column="65" TopLine="173"/>
</Position2>
<Position3>
<Filename Value="maincalleditor.pas"/>
<Caret Line="188" Column="21" TopLine="173"/>
</Position3>
<Position4>
<Filename Value="maincalleditor.pas"/>
<Caret Line="192" Column="16" TopLine="173"/>
</Position4>
<Position5>
<Filename Value="maincalleditor.pas"/>
<Caret Line="202" Column="19" TopLine="176"/>
</Position5>
<Position6>
<Filename Value="maincalleditor.pas"/>
<Caret Line="304" Column="39" TopLine="278"/>
</Position6>
<Position7>
<Filename Value="maincalleditor.pas"/>
<Caret Line="87" Column="35" TopLine="87"/>
</Position7>
<Position8>
<Filename Value="maincalleditor.pas"/>
<Caret Line="324" Column="48" TopLine="305"/>
</Position8>
<Position9>
<Filename Value="maincalleditor.pas"/>
<Caret Line="141" Column="14" TopLine="130"/>
</Position9>
<Position10>
<Filename Value="maincalleditor.pas"/>
<Caret Line="169" Column="42" TopLine="149"/>
</Position10>
<Position11>
<Filename Value="maincalleditor.pas"/>
<Caret Line="165" Column="1" TopLine="176"/>
</Position11>
<Position12>
<Filename Value="maincalleditor.pas"/>
<Caret Line="62" Column="40" TopLine="41"/>
</Position12>
<Position13>
<Filename Value="maincalleditor.pas"/>
<Caret Line="66" Column="44" TopLine="45"/>
</Position13>
<Position14>
<Filename Value="maincalleditor.pas"/>
<Caret Line="67" Column="36" TopLine="46"/>
</Position14>
<Position15>
<Filename Value="../../source/lr_class.pas"/>
<Caret Line="234" Column="29" TopLine="223"/>
</Position15>
<Position16>
<Filename Value="../../source/lr_class.pas"/>
<Caret Line="1520" Column="33" TopLine="1509"/>
</Position16>
<Position17>
<Filename Value="../../source/lr_class.pas"/>
<Caret Line="313" Column="27" TopLine="310"/>
</Position17>
<Position18>
<Filename Value="../../source/lr_class.pas"/>
<Caret Line="299" Column="31" TopLine="288"/>
</Position18>
<Position19>
<Filename Value="maincalleditor.pas"/>
<Caret Line="30" Column="45" TopLine="16"/>
</Position19>
<Position20>
<Filename Value="../../source/lr_desgn.pas"/>
<Caret Line="670" Column="6" TopLine="668"/>
</Position20>
<Position21>
<Filename Value="../../source/lr_desgn.pas"/>
<Caret Line="1043" Column="29" TopLine="1030"/>
</Position21>
<Position22>
<Filename Value="../../source/lr_desgn.pas"/>
<Caret Line="1014" Column="18" TopLine="1006"/>
</Position22>
<Position23>
<Filename Value="../../source/lr_class.pas"/>
<Caret Line="1907" Column="19" TopLine="1903"/>
</Position23>
<Position24>
<Filename Value="maincalleditor.pas"/>
<Caret Line="123" Column="16" TopLine="112"/>
</Position24>
<Position25>
<Filename Value="../../source/lr_edit.pas"/>
<Caret Line="20" Column="10" TopLine="1"/>
</Position25>
<Position26>
<Filename Value="../../source/lr_edit.pas"/>
<Caret Line="41" Column="12" TopLine="30"/>
</Position26>
<Position27>
<Filename Value="../../source/lr_edit.pas"/>
<Caret Line="51" Column="22" TopLine="40"/>
</Position27>
<Position28>
<Filename Value="../../source/lr_edit.pas"/>
<Caret Line="135" Column="6" TopLine="123"/>
</Position28>
<Position29>
<Filename Value="../../source/lr_edit.pas"/>
<Caret Line="175" Column="51" TopLine="163"/>
</Position29>
<Position30>
<Filename Value="../../source/lr_edit.pas"/>
<Caret Line="253" Column="34" TopLine="240"/>
</Position30>
</JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
<Version Value="8"/> <Version Value="8"/>
@ -258,27 +77,4 @@
<CompilerPath Value="$(CompPath)"/> <CompilerPath Value="$(CompPath)"/>
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging>
<Watches Count="5">
<Item1>
<Expression Value="FieldDef.FDataType"/>
<Enabled Value="False"/>
</Item1>
<Item2>
<Expression Value="FieldDef.FSize"/>
<Enabled Value="False"/>
</Item2>
<Item3>
<Expression Value="IsSeq"/>
<Enabled Value="False"/>
</Item3>
<Item4>
<Expression Value="TIBCURSOR(CURSOR).SQLDA^"/>
<Enabled Value="False"/>
</Item4>
<Item5>
<Expression Value="x"/>
</Item5>
</Watches>
</Debugging>
</CONFIG> </CONFIG>

2
components/lazreport/samples/editor/calleditorwithpkg.lpr
View File

@ -5,7 +5,7 @@ program calleditorwithpkg;
uses uses
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms Forms
{ add your units here }, maincalleditor; { add your units here }, maincalleditor, lazreportpdfexport, lazreport;
begin begin
Application.Title:='LazReport Designer'; Application.Title:='LazReport Designer';

847
components/lazreport/samples/editor/csvtest.lrf Normal file
View File

@ -0,0 +1,847 @@
<?xml version="1.0"?>
<CONFIG>
<LazReport>
<Version Value="25"/>
<Title Value=""/>
<Subject Value=""/>
<KeyWords Value=""/>
<Comments Value=""/>
<ReportVersionBuild Value=""/>
<ReportVersionMajor Value=""/>
<ReportVersionMinor Value=""/>
<ReportVersionRelease Value=""/>
<ReportAutor Value=""/>
<Pages>
<PrintToDefault Value="False"/>
<DoublePass Value="True"/>
<SelectedPrinter Value="LaserJet1100"/>
<PageCount Value="1"/>
<Page1>
<Name Value="Page1"/>
<ClassName Value="TfrPageReport"/>
<Visible Value="1"/>
<Width Value="1"/>
<Height Value="1" PageType="0"/>
<PgSize Value="9"/>
<Margins>
<left Value="0"/>
<Top Value="0"/>
<Right Value="0"/>
<Bottom Value="0"/>
</Margins>
<Orientation Value="poLandscape"/>
<UseMargins Value="True"/>
<PrintToPrevPage Value="False"/>
<ColCount Value="1"/>
<ColGap Value="0"/>
<LayoutOrder Value="loColumns"/>
<ObjectCount Value="21"/>
<Object1>
<Name Value="EncabezadoDe página1"/>
<ClassName Value="TfrBandView"/>
<Visible Value="1"/>
<Typ Value="gtBand"/>
<StreamMode Value="0"/>
<Size>
<Left Value="0"/>
<Top Value="36"/>
<Width Value="1064"/>
<Height Value="28"/>
</Size>
<Flags Value="48"/>
<Data>
<Script Value=""/>
</Data>
<BandType Value="btPageHeader"/>
<Condition Value=""/>
<DatasetStr Value=""/>
</Object1>
<Object2>
<Name Value="DatosMaestros1"/>
<ClassName Value="TfrBandView"/>
<Visible Value="1"/>
<Typ Value="gtBand"/>
<StreamMode Value="0"/>
<Size>
<Left Value="0"/>
<Top Value="188"/>
<Width Value="1064"/>
<Height Value="52"/>
</Size>
<Flags Value="48"/>
<Data>
<Script Value=""/>
</Data>
<BandType Value="btMasterData"/>
<Condition Value=""/>
<DatasetStr Value="5"/>
</Object2>
<Object3>
<Name Value="EncabezadoMaestro1"/>
<ClassName Value="TfrBandView"/>
<Visible Value="1"/>
<Typ Value="gtBand"/>
<StreamMode Value="0"/>
<Size>
<Left Value="0"/>
<Top Value="116"/>
<Width Value="1064"/>
<Height Value="52"/>
</Size>
<Flags Value="48"/>
<Data>
<Script Value=""/>
</Data>
<BandType Value="btMasterHeader"/>
<Condition Value=""/>
<DatasetStr Value=""/>
</Object3>
<Object4>
<Name Value="PieDe página1"/>
<ClassName Value="TfrBandView"/>
<Visible Value="1"/>
<Typ Value="gtBand"/>
<StreamMode Value="0"/>
<Size>
<Left Value="0"/>
<Top Value="256"/>
<Width Value="1064"/>
<Height Value="40"/>
</Size>
<Flags Value="48"/>
<Data>
<Script Value=""/>
</Data>
<BandType Value="btPageFooter"/>
<Condition Value=""/>
<DatasetStr Value=""/>
</Object4>
<Object5>
<Name Value="Memo1"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="337"/>
<Top Value="40"/>
<Width Value="96"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="TITULO&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<Size Value="10"/>
<Color Value="clBlack"/>
<Charset Value="0"/>
<Style Value="fsBold,fsUnderline"/>
</Font>
<Highlight>
<FontStyle Value="2"/>
<FontColor Value="clBlack"/>
<FillColor Value="clWhite"/>
<HighlightStr Value=""/>
</Highlight>
<Alignment Value="taLeftJustify"/>
<Layout Value="tlTop"/>
<Angle Value="0"/>
</Object5>
<Object6>
<Name Value="Memo2"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="2"/>
<Top Value="124"/>
<Width Value="96"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clLime"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="T1&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<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="tlTop"/>
<Angle Value="0"/>
</Object6>
<Object7>
<Name Value="Memo3"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="187"/>
<Top Value="124"/>
<Width Value="96"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clLime"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="T2&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<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="tlTop"/>
<Angle Value="0"/>
</Object7>
<Object8>
<Name Value="Memo4"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="337"/>
<Top Value="124"/>
<Width Value="76"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clLime"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="t3&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<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="tlTop"/>
<Angle Value="0"/>
</Object8>
<Object9>
<Name Value="Memo5"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="433"/>
<Top Value="124"/>
<Width Value="96"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clLime"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="t4&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<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="tlTop"/>
<Angle Value="0"/>
</Object9>
<Object10>
<Name Value="Memo6"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="547"/>
<Top Value="124"/>
<Width Value="68"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clLime"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="550"/>
<FormatStr Value=""/>
<Memo Value="t5&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<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="tlTop"/>
<Angle Value="0"/>
</Object10>
<Object11>
<Name Value="Memo7"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="647"/>
<Top Value="124"/>
<Width Value="96"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clLime"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="550"/>
<FormatStr Value=""/>
<Memo Value="t6&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<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="tlTop"/>
<Angle Value="0"/>
</Object11>
<Object12>
<Name Value="Memo8"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="757"/>
<Top Value="124"/>
<Width Value="96"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clLime"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="t7&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<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="tlTop"/>
<Angle Value="0"/>
</Object12>
<Object13>
<Name Value="Memo9"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="2"/>
<Top Value="192"/>
<Width Value="96"/>
<Height Value="42"/>
</Size>
<Flags Value="7"/>
<FillColor Value="clFuchsia"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="[vv1]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<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"/>
</Object13>
<Object14>
<Name Value="Memo10"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="187"/>
<Top Value="192"/>
<Width Value="96"/>
<Height Value="42"/>
</Size>
<Flags Value="7"/>
<FillColor Value="clAqua"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="[vv1]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<Size Value="10"/>
<Color Value="clRed"/>
<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"/>
</Object14>
<Object15>
<Name Value="Memo11"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="337"/>
<Top Value="192"/>
<Width Value="76"/>
<Height Value="42"/>
</Size>
<Flags Value="7"/>
<FillColor Value="clYellow"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="[vv1]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<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"/>
</Object15>
<Object16>
<Name Value="Memo12"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="433"/>
<Top Value="192"/>
<Width Value="96"/>
<Height Value="42"/>
</Size>
<Flags Value="7"/>
<FillColor Value="clFuchsia"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="[vv1]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<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="tlTop"/>
<Angle Value="0"/>
</Object16>
<Object17>
<Name Value="Memo13"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="547"/>
<Top Value="192"/>
<Width Value="68"/>
<Height Value="42"/>
</Size>
<Flags Value="7"/>
<FillColor Value="clAqua"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="550"/>
<FormatStr Value=""/>
<Memo Value="[vv1]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<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"/>
</Object17>
<Object18>
<Name Value="Memo14"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="647"/>
<Top Value="192"/>
<Width Value="96"/>
<Height Value="42"/>
</Size>
<Flags Value="7"/>
<FillColor Value="clYellow"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="550"/>
<FormatStr Value=""/>
<Memo Value="[vv1]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<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"/>
</Object18>
<Object19>
<Name Value="Memo15"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="757"/>
<Top Value="192"/>
<Width Value="96"/>
<Height Value="42"/>
</Size>
<Flags Value="7"/>
<FillColor Value="clSilver"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="[vv1]&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<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"/>
</Object19>
<Object20>
<Name Value="Memo16"/>
<ClassName Value="TfrMemoView"/>
<Visible Value="1"/>
<Typ Value="gtMemo"/>
<StreamMode Value="0"/>
<Size>
<Left Value="763"/>
<Top Value="264"/>
<Width Value="96"/>
<Height Value="18"/>
</Size>
<Flags Value="3"/>
<FillColor Value="clNone"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="1"/>
<FrameBorders Value=""/>
</Frames>
<Data>
<Format Value="558"/>
<FormatStr Value=""/>
<Memo Value="PIE Pagina&#xA;"/>
<Script Value=""/>
</Data>
<Font>
<Name Value="Arial"/>
<Size Value="12"/>
<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"/>
</Object20>
<Object21>
<Name Value="Line1"/>
<ClassName Value="TfrLineView"/>
<Visible Value="1"/>
<Typ Value="gtLine"/>
<StreamMode Value="0"/>
<Size>
<Left Value="0"/>
<Top Value="236"/>
<Width Value="928"/>
<Height Value="0"/>
</Size>
<Flags Value="1"/>
<Frames>
<FrameColor Value="clBlack"/>
<FrameStyle Value="frsSolid"/>
<FrameWidth Value="2"/>
</Frames>
</Object21>
</Page1>
<FVal>
<Count Value="2"/>
<Objects1>
<Typ Value="0"/>
<OtherKind Value="0"/>
<Dataset Value=""/>
<Field Value=""/>
<Item Value=""/>
</Objects1>
<Objects2>
<Typ Value="0"/>
<OtherKind Value="0"/>
<Dataset Value=""/>
<Field Value=""/>
<Item Value="vv1"/>
</Objects2>
</FVal>
<ParentVars Value="DeUsuario&#xA; vv1&#xA; &#xA;"/>
</Pages>
</LazReport>
</CONFIG>

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

Binary file not shown.

13
components/lazreport/samples/editor/languages/calleditorwithpkg.de.po
View File

@ -54,6 +54,10 @@ msgstr "Vorschau des aktiven Reports"
msgid "Print directly the active report (i.e. without preview)" msgid "Print directly the active report (i.e. without preview)"
msgstr "Aktiven Report sofort drucken (ohne Vorschau)" msgstr "Aktiven Report sofort drucken (ohne Vorschau)"
#: maincalleditor.cerhintthumbnails
msgid "This Action will Load and Preview a thumbnails Report"
msgstr ""
#: maincalleditor.cerindex #: maincalleditor.cerindex
msgid "Index" msgid "Index"
msgstr "Index" msgstr "Index"
@ -98,6 +102,11 @@ msgstr "Gitter drucken"
msgid "Print report" msgid "Print report"
msgstr "Report drucken" msgstr "Report drucken"
#: maincalleditor.certhumbnails
msgctxt "maincalleditor.certhumbnails"
msgid "Thumbnails"
msgstr "Vorschaubilder"
#: TFRMMAIN.ACCCLOSE.CAPTION #: TFRMMAIN.ACCCLOSE.CAPTION
msgid "Close" msgid "Close"
msgstr "Schließen" msgstr "Schließen"
@ -111,6 +120,10 @@ msgstr "Report bearbeiten"
msgid "Export to CSV" msgid "Export to CSV"
msgstr "Nach CSV exportieren" msgstr "Nach CSV exportieren"
#: TFRMMAIN.ACCEXPORTTODBG.CAPTION
msgid "Export Debug"
msgstr ""
#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION #: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
msgid "Export to html" msgid "Export to html"
msgstr "Nach HTML exportieren" msgstr "Nach HTML exportieren"

13
components/lazreport/samples/editor/languages/calleditorwithpkg.es.po
View File

@ -51,6 +51,10 @@ msgstr "Vista previa del Reporte activo"
msgid "Print directly the active report (i.e. without preview)" msgid "Print directly the active report (i.e. without preview)"
msgstr "Imprimir directamente el Reporte activo (o sea, sin vista previa)" msgstr "Imprimir directamente el Reporte activo (o sea, sin vista previa)"
#: maincalleditor.cerhintthumbnails
msgid "This Action will Load and Preview a thumbnails Report"
msgstr ""
#: maincalleditor.cerindex #: maincalleditor.cerindex
msgid "Index" msgid "Index"
msgstr "Indice" msgstr "Indice"
@ -95,6 +99,11 @@ msgstr "Imprimir Rejilla"
msgid "Print report" msgid "Print report"
msgstr "Imprimir Reporte" msgstr "Imprimir Reporte"
#: maincalleditor.certhumbnails
msgctxt "maincalleditor.certhumbnails"
msgid "Thumbnails"
msgstr "Imágenes"
#: TFRMMAIN.ACCCLOSE.CAPTION #: TFRMMAIN.ACCCLOSE.CAPTION
msgid "Close" msgid "Close"
msgstr "Cerrar" msgstr "Cerrar"
@ -108,6 +117,10 @@ msgstr "Editar Reporte"
msgid "Export to CSV" msgid "Export to CSV"
msgstr "Exportar a CSV" msgstr "Exportar a CSV"
#: TFRMMAIN.ACCEXPORTTODBG.CAPTION
msgid "Export Debug"
msgstr ""
#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION #: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
msgid "Export to html" msgid "Export to html"
msgstr "Exportar a html" msgstr "Exportar a html"

13
components/lazreport/samples/editor/languages/calleditorwithpkg.lt.po
View File

@ -54,6 +54,10 @@ msgstr "Peržiūrėti veikiamąjį pranešimą"
msgid "Print directly the active report (i.e. without preview)" msgid "Print directly the active report (i.e. without preview)"
msgstr "Spausdinti veikiamąjį pranešimą iškart (t.y. praleidžiant peržiūrą)" msgstr "Spausdinti veikiamąjį pranešimą iškart (t.y. praleidžiant peržiūrą)"
#: maincalleditor.cerhintthumbnails
msgid "This Action will Load and Preview a thumbnails Report"
msgstr ""
#: maincalleditor.cerindex #: maincalleditor.cerindex
msgid "Index" msgid "Index"
msgstr "Rodyklė" msgstr "Rodyklė"
@ -98,6 +102,11 @@ msgstr "Spausdinti tinklelį"
msgid "Print report" msgid "Print report"
msgstr "Spausdinti pranešimą" msgstr "Spausdinti pranešimą"
#: maincalleditor.certhumbnails
msgctxt "maincalleditor.certhumbnails"
msgid "Thumbnails"
msgstr "Miniatiūros"
#: TFRMMAIN.ACCCLOSE.CAPTION #: TFRMMAIN.ACCCLOSE.CAPTION
msgid "Close" msgid "Close"
msgstr "Užverti" msgstr "Užverti"
@ -111,6 +120,10 @@ msgstr "Keisti pranešimą"
msgid "Export to CSV" msgid "Export to CSV"
msgstr "Eksportuoti CSV formatu" msgstr "Eksportuoti CSV formatu"
#: TFRMMAIN.ACCEXPORTTODBG.CAPTION
msgid "Export Debug"
msgstr ""
#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION #: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
msgid "Export to html" msgid "Export to html"
msgstr "Eksportuoti html formatu" msgstr "Eksportuoti html formatu"

13
components/lazreport/samples/editor/languages/calleditorwithpkg.pb.po
View File

@ -51,6 +51,10 @@ msgstr "Visualizar relatório ativo"
msgid "Print directly the active report (i.e. without preview)" msgid "Print directly the active report (i.e. without preview)"
msgstr "Imprimir o relatório ativo diretamente (sem visualização)" msgstr "Imprimir o relatório ativo diretamente (sem visualização)"
#: maincalleditor.cerhintthumbnails
msgid "This Action will Load and Preview a thumbnails Report"
msgstr ""
#: maincalleditor.cerindex #: maincalleditor.cerindex
msgid "Index" msgid "Index"
msgstr "Índice" msgstr "Índice"
@ -95,6 +99,11 @@ msgstr "Imprimir grade"
msgid "Print report" msgid "Print report"
msgstr "Imprimir relatório" msgstr "Imprimir relatório"
#: maincalleditor.certhumbnails
msgctxt "maincalleditor.certhumbnails"
msgid "Thumbnails"
msgstr "Miniaturas"
#: TFRMMAIN.ACCCLOSE.CAPTION #: TFRMMAIN.ACCCLOSE.CAPTION
msgid "Close" msgid "Close"
msgstr "Fechar" msgstr "Fechar"
@ -108,6 +117,10 @@ msgstr "Editar Relatório"
msgid "Export to CSV" msgid "Export to CSV"
msgstr "Exportar para \"CSV\"" msgstr "Exportar para \"CSV\""
#: TFRMMAIN.ACCEXPORTTODBG.CAPTION
msgid "Export Debug"
msgstr ""
#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION #: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
msgid "Export to html" msgid "Export to html"
msgstr "Exportar para \"html\"" msgstr "Exportar para \"html\""

13
components/lazreport/samples/editor/languages/calleditorwithpkg.po
View File

@ -46,6 +46,10 @@ msgstr ""
msgid "Print directly the active report (i.e. without preview)" msgid "Print directly the active report (i.e. without preview)"
msgstr "" msgstr ""
#: maincalleditor.cerhintthumbnails
msgid "This Action will Load and Preview a thumbnails Report"
msgstr ""
#: maincalleditor.cerindex #: maincalleditor.cerindex
msgid "Index" msgid "Index"
msgstr "" msgstr ""
@ -90,6 +94,11 @@ msgstr ""
msgid "Print report" msgid "Print report"
msgstr "" msgstr ""
#: maincalleditor.certhumbnails
msgctxt "maincalleditor.certhumbnails"
msgid "Thumbnails"
msgstr ""
#: TFRMMAIN.ACCCLOSE.CAPTION #: TFRMMAIN.ACCCLOSE.CAPTION
msgid "Close" msgid "Close"
msgstr "" msgstr ""
@ -103,6 +112,10 @@ msgstr ""
msgid "Export to CSV" msgid "Export to CSV"
msgstr "" msgstr ""
#: TFRMMAIN.ACCEXPORTTODBG.CAPTION
msgid "Export Debug"
msgstr ""
#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION #: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
msgid "Export to html" msgid "Export to html"
msgstr "" msgstr ""

13
components/lazreport/samples/editor/languages/calleditorwithpkg.ru.po
View File

@ -51,6 +51,10 @@ msgstr "Предварительный просмотр активного от
msgid "Print directly the active report (i.e. without preview)" msgid "Print directly the active report (i.e. without preview)"
msgstr "Прямая печать активного отчёта (без предварительного просмотра)" msgstr "Прямая печать активного отчёта (без предварительного просмотра)"
#: maincalleditor.cerhintthumbnails
msgid "This Action will Load and Preview a thumbnails Report"
msgstr ""
#: maincalleditor.cerindex #: maincalleditor.cerindex
msgid "Index" msgid "Index"
msgstr "Индекс" msgstr "Индекс"
@ -95,6 +99,11 @@ msgstr "Печать таблицы"
msgid "Print report" msgid "Print report"
msgstr "Печать отчёта" msgstr "Печать отчёта"
#: maincalleditor.certhumbnails
msgctxt "maincalleditor.certhumbnails"
msgid "Thumbnails"
msgstr "Эскизы"
#: TFRMMAIN.ACCCLOSE.CAPTION #: TFRMMAIN.ACCCLOSE.CAPTION
msgid "Close" msgid "Close"
msgstr "Закрыть" msgstr "Закрыть"
@ -108,6 +117,10 @@ msgstr "Редактировать отчёт"
msgid "Export to CSV" msgid "Export to CSV"
msgstr "Экспорт в CSV" msgstr "Экспорт в CSV"
#: TFRMMAIN.ACCEXPORTTODBG.CAPTION
msgid "Export Debug"
msgstr ""
#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION #: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
msgid "Export to html" msgid "Export to html"
msgstr "Экспорт в HTML" msgstr "Экспорт в HTML"

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

@ -5,24 +5,24 @@ object frmMain: TfrmMain
Width = 569 Width = 569
ActiveControl = btnCallEditor ActiveControl = btnCallEditor
Caption = 'LazReport Test Suite' Caption = 'LazReport Test Suite'
ClientHeight = 413 ClientHeight = 412
ClientWidth = 569 ClientWidth = 569
Menu = MainMenu1 Menu = MainMenu1
OnCreate = frmMainCreate OnCreate = frmMainCreate
ShowHint = True ShowHint = True
LCLVersion = '0.9.27' LCLVersion = '0.9.29'
object lblIndex: TLabel object lblIndex: TLabel
Left = 12 Left = 12
Height = 14 Height = 23
Top = 44 Top = 44
Width = 1 Width = 10
ParentColor = False ParentColor = False
end end
object lblExpr: TLabel object lblExpr: TLabel
Left = 235 Left = 235
Height = 14 Height = 23
Top = 44 Top = 44
Width = 1 Width = 10
ParentColor = False ParentColor = False
end end
object btnCallEditor: TButton object btnCallEditor: TButton
@ -36,7 +36,7 @@ object frmMain: TfrmMain
end end
object dbGrid1: TDBGrid object dbGrid1: TDBGrid
Left = 0 Left = 0
Height = 322 Height = 325
Top = 68 Top = 68
Width = 569 Width = 569
Align = alBottom Align = alBottom
@ -67,8 +67,8 @@ object frmMain: TfrmMain
end end
object sbar: TStatusBar object sbar: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 19
Top = 390 Top = 393
Width = 569 Width = 569
Panels = < Panels = <
item item
@ -104,11 +104,11 @@ object frmMain: TfrmMain
TabOrder = 6 TabOrder = 6
end end
object comboIndex: TComboBox object comboIndex: TComboBox
Left = 76 Left = 72
Height = 21 Height = 29
Top = 40 Top = 37
Width = 148 Width = 148
ItemHeight = 13 ItemHeight = 0
OnSelect = comboIndexSelect OnSelect = comboIndexSelect
TabOrder = 8 TabOrder = 8
end end
@ -125,11 +125,14 @@ object frmMain: TfrmMain
InitialZoom = pzDefault InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit] PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
DataType = dtDataSet DataType = dtDataSet
OnBeginDoc = TheReportBeginDoc
OnGetValue = TheReportGetValue
OnEnterRect = TheReportEnterRect OnEnterRect = TheReportEnterRect
OnExportFilterSetup = TheReportExportFilterSetup
left = 96 left = 96
top = 112 top = 112
ReportForm = { ReportForm = {
18000000 19000000
} }
end end
object Dbf1: TDbf object Dbf1: TDbf
@ -204,6 +207,10 @@ object frmMain: TfrmMain
Action = accExportToCSV Action = accExportToCSV
OnClick = accExportToCSVExecute OnClick = accExportToCSVExecute
end end
object MenuItem13: TMenuItem
Action = accExportToDbg
OnClick = accExportToDbgExecute
end
end end
end end
object ApplicationProperties1: TApplicationProperties object ApplicationProperties1: TApplicationProperties
@ -270,6 +277,11 @@ object frmMain: TfrmMain
Caption = 'Thumbnails' Caption = 'Thumbnails'
OnExecute = accThumbnailsExecute OnExecute = accThumbnailsExecute
end end
object accExportToDbg: TAction
Category = 'Export'
Caption = 'Export Debug'
OnExecute = accExportToDbgExecute
end
end end
object OpenDialog1: TOpenDialog object OpenDialog1: TOpenDialog
Filter = 'LazReport Files|*.lrf|FreeReport Files|*.frf|All Files|*.*' Filter = 'LazReport Files|*.lrf|FreeReport Files|*.frf|All Files|*.*'

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

@ -1,16 +1,16 @@
{ This is an automatically generated lazarus resource file } { Este es un archivo de recurso de Lazarus generado automáticamente }
LazarusResources.Add('TfrmMain','FORMDATA',[ LazarusResources.Add('TfrmMain','FORMDATA',[
'TPF0'#8'TfrmMain'#7'frmMain'#4'Left'#3#21#1#6'Height'#3#177#1#3'Top'#2''#5 'TPF0'#8'TfrmMain'#7'frmMain'#4'Left'#3#21#1#6'Height'#3#177#1#3'Top'#2#127#5
+'Width'#3'9'#2#13'ActiveControl'#7#13'btnCallEditor'#7'Caption'#6#20'LazRepo' +'Width'#3'9'#2#13'ActiveControl'#7#13'btnCallEditor'#7'Caption'#6#20'LazRepo'
+'rt Test Suite'#12'ClientHeight'#3#157#1#11'ClientWidth'#3'9'#2#4'Menu'#7#9 +'rt Test Suite'#12'ClientHeight'#3#156#1#11'ClientWidth'#3'9'#2#4'Menu'#7#9
+'MainMenu1'#8'OnCreate'#7#13'frmMainCreate'#8'ShowHint'#9#10'LCLVersion'#6#6 +'MainMenu1'#8'OnCreate'#7#13'frmMainCreate'#8'ShowHint'#9#10'LCLVersion'#6#6
+'0.9.27'#0#6'TLabel'#8'lblIndex'#4'Left'#2#12#6'Height'#2#14#3'Top'#2','#5'W' +'0.9.29'#0#6'TLabel'#8'lblIndex'#4'Left'#2#12#6'Height'#2#23#3'Top'#2','#5'W'
+'idth'#2#1#11'ParentColor'#8#0#0#6'TLabel'#7'lblExpr'#4'Left'#3#235#0#6'Heig' +'idth'#2#10#11'ParentColor'#8#0#0#6'TLabel'#7'lblExpr'#4'Left'#3#235#0#6'Hei'
+'ht'#2#14#3'Top'#2','#5'Width'#2#1#11'ParentColor'#8#0#0#7'TButton'#13'btnCa' +'ght'#2#23#3'Top'#2','#5'Width'#2#10#11'ParentColor'#8#0#0#7'TButton'#13'btn'
+'llEditor'#4'Left'#2#24#6'Height'#2#25#3'Top'#2#8#5'Width'#2'P'#6'Action'#7 +'CallEditor'#4'Left'#2#24#6'Height'#2#25#3'Top'#2#8#5'Width'#2'P'#6'Action'#7
+#12'accNewReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#0#0#0#7'TD' +#12'accNewReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#0#0#0#7'TD'
+'BGrid'#7'dbGrid1'#4'Left'#2#0#6'Height'#3'B'#1#3'Top'#2'D'#5'Width'#3'9'#2#5 +'BGrid'#7'dbGrid1'#4'Left'#2#0#6'Height'#3'E'#1#3'Top'#2'D'#5'Width'#3'9'#2#5
+'Align'#7#8'alBottom'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom' +'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'Datasource1'#7'Options'#11#9'dg' +#0#5'Color'#7#7'clWhite'#10'DataSource'#7#11'Datasource1'#7'Options'#11#9'dg'
+'Editing'#8'dgTitles'#11'dgIndicator'#14'dgColumnResize'#10'dgColLines'#10'd' +'Editing'#8'dgTitles'#11'dgIndicator'#14'dgColumnResize'#10'dgColLines'#10'd'
@ -20,8 +20,8 @@ LazarusResources.Add('TfrmMain','FORMDATA',[
+#6'Action'#7#12'accPrintGrid'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2 +#6'Action'#7#12'accPrintGrid'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2
+#1#0#0#7'TButton'#7'Button2'#4'Left'#3'"'#1#6'Height'#2#25#3'Top'#2#8#5'Widt' +#1#0#0#7'TButton'#7'Button2'#4'Left'#3'"'#1#6'Height'#2#25#3'Top'#2#8#5'Widt'
+'h'#2'`'#6'Action'#7#16'accPreviewReport'#25'BorderSpacing.InnerBorder'#2#4#8 +'h'#2'`'#6'Action'#7#16'accPreviewReport'#25'BorderSpacing.InnerBorder'#2#4#8
+'TabOrder'#2#2#0#0#10'TStatusBar'#4'sbar'#4'Left'#2#0#6'Height'#2#23#3'Top'#3 +'TabOrder'#2#2#0#0#10'TStatusBar'#4'sbar'#4'Left'#2#0#6'Height'#2#19#3'Top'#3
+#134#1#5'Width'#3'9'#2#6'Panels'#14#1#5'Width'#3#250#0#0#0#11'SimplePanel'#8 +#137#1#5'Width'#3'9'#2#6'Panels'#14#1#5'Width'#3#250#0#0#0#11'SimplePanel'#8
+#0#0#7'TButton'#7'Button3'#4'Left'#3#210#0#6'Height'#2#25#3'Top'#2#8#5'Width' +#0#0#7'TButton'#7'Button3'#4'Left'#3#210#0#6'Height'#2#25#3'Top'#2#8#5'Width'
+#2'K'#6'Action'#7#13'accEditReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabO' +#2'K'#6'Action'#7#13'accEditReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabO'
+'rder'#2#3#0#0#7'TButton'#7'Button4'#4'Left'#3#135#1#6'Height'#2#25#3'Top'#2 +'rder'#2#3#0#0#7'TButton'#7'Button4'#4'Left'#3#135#1#6'Height'#2#25#3'Top'#2
@ -29,57 +29,62 @@ LazarusResources.Add('TfrmMain','FORMDATA',[
+#2#4#8'TabOrder'#2#4#0#0#7'TButton'#13'btnOpenReport'#4'Left'#2'm'#6'Height' +#2#4#8'TabOrder'#2#4#0#0#7'TButton'#13'btnOpenReport'#4'Left'#2'm'#6'Height'
+#2#25#3'Top'#2#8#5'Width'#2'`'#6'Action'#7#13'accOpenReport'#25'BorderSpacin' +#2#25#3'Top'#2#8#5'Width'#2'`'#6'Action'#7#13'accOpenReport'#25'BorderSpacin'
+'g.InnerBorder'#2#4#8'TabOrder'#2#6#0#0#9'TComboBox'#10'comboIndex'#4'Left'#2 +'g.InnerBorder'#2#4#8'TabOrder'#2#6#0#0#9'TComboBox'#10'comboIndex'#4'Left'#2
+'L'#6'Height'#2#21#3'Top'#2'('#5'Width'#3#148#0#10'ItemHeight'#2#13#8'OnSele' +'H'#6'Height'#2#29#3'Top'#2'%'#5'Width'#3#148#0#10'ItemHeight'#2#0#8'OnSelec'
+'ct'#7#16'comboIndexSelect'#8'TabOrder'#2#8#0#0#7'TButton'#12'btnImageList'#4 +'t'#7#16'comboIndexSelect'#8'TabOrder'#2#8#0#0#7'TButton'#12'btnImageList'#4
+'Left'#3#224#1#6'Height'#2#25#3'Top'#2'$'#5'Width'#2'K'#6'Action'#7#13'accTh' +'Left'#3#224#1#6'Height'#2#25#3'Top'#2'$'#5'Width'#2'K'#6'Action'#7#13'accTh'
+'umbnails'#8'TabOrder'#2#9#0#0#9'TfrReport'#9'TheReport'#7'Dataset'#7#12'frD' +'umbnails'#8'TabOrder'#2#9#0#0#9'TfrReport'#9'TheReport'#7'Dataset'#7#12'frD'
+'BDataSet1'#11'InitialZoom'#7#9'pzDefault'#14'PreviewButtons'#11#6'pbZoom'#6 +'BDataSet1'#11'InitialZoom'#7#9'pzDefault'#14'PreviewButtons'#11#6'pbZoom'#6
+'pbLoad'#6'pbSave'#7'pbPrint'#6'pbFind'#6'pbHelp'#6'pbExit'#0#8'DataType'#7#9 +'pbLoad'#6'pbSave'#7'pbPrint'#6'pbFind'#6'pbHelp'#6'pbExit'#0#8'DataType'#7#9
+'dtDataSet'#11'OnEnterRect'#7#18'TheReportEnterRect'#4'left'#2'`'#3'top'#2'p' +'dtDataSet'#10'OnBeginDoc'#7#17'TheReportBeginDoc'#10'OnGetValue'#7#17'TheRe'
+#10'ReportForm'#10#4#0#0#0#24#0#0#0#0#0#4'TDbf'#4'Dbf1'#9'IndexDefs'#14#0#10 +'portGetValue'#11'OnEnterRect'#7#18'TheReportEnterRect'#19'OnExportFilterSet'
+'TableLevel'#2#3#13'FilterOptions'#11#0#4'left'#3#128#0#3'top'#2'H'#0#0#11'T' +'up'#7#26'TheReportExportFilterSetup'#4'left'#2'`'#3'top'#2'p'#10'ReportForm'
+'Datasource'#11'Datasource1'#7'DataSet'#7#4'Dbf1'#4'left'#2'`'#3'top'#2'H'#0 +#10#4#0#0#0#25#0#0#0#0#0#4'TDbf'#4'Dbf1'#9'IndexDefs'#14#0#10'TableLevel'#2#3
+#0#12'TfrDBDataSet'#12'frDBDataSet1'#7'DataSet'#7#4'Dbf1'#4'left'#2'`'#3'top' +#13'FilterOptions'#11#0#4'left'#3#128#0#3'top'#2'H'#0#0#11'TDatasource'#11'D'
+#3#144#0#0#0#12'TFrPrintGrid'#2'PG'#6'DBGrid'#7#7'dbGrid1'#11'Orientation'#7 +'atasource1'#7'DataSet'#7#4'Dbf1'#4'left'#2'`'#3'top'#2'H'#0#0#12'TfrDBDataS'
+#11'poLandscape'#7'Caption'#6#4'Grid'#11'ShowCaption'#9#4'left'#2'`'#3'top'#3 +'et'#12'frDBDataSet1'#7'DataSet'#7#4'Dbf1'#4'left'#2'`'#3'top'#3#144#0#0#0#12
+#176#0#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2#8#3'top'#2'`'#0#9'TMenuItem'#9 +'TFrPrintGrid'#2'PG'#6'DBGrid'#7#7'dbGrid1'#11'Orientation'#7#11'poLandscape'
+'MenuItem1'#7'Caption'#6#5'Files'#0#9'TMenuItem'#9'MenuItem2'#6'Action'#7#8 +#7'Caption'#6#4'Grid'#11'ShowCaption'#9#4'left'#2'`'#3'top'#3#176#0#0#0#9'TM'
+'accClose'#7'OnClick'#7#15'accCloseExecute'#0#0#0#9'TMenuItem'#9'MenuItem3'#7 +'ainMenu'#9'MainMenu1'#4'left'#2#8#3'top'#2'`'#0#9'TMenuItem'#9'MenuItem1'#7
+'Caption'#6#5'Tests'#0#9'TMenuItem'#9'MenuItem4'#6'Action'#7#12'accNewReport' +'Caption'#6#5'Files'#0#9'TMenuItem'#9'MenuItem2'#6'Action'#7#8'accClose'#7'O'
+#7'OnClick'#7#19'accNewReportExecute'#0#0#9'TMenuItem'#9'MenuItem5'#6'Action' +'nClick'#7#15'accCloseExecute'#0#0#0#9'TMenuItem'#9'MenuItem3'#7'Caption'#6#5
+#7#13'accEditReport'#7'OnClick'#7#20'accEditReportExecute'#0#0#9'TMenuItem'#9 +'Tests'#0#9'TMenuItem'#9'MenuItem4'#6'Action'#7#12'accNewReport'#7'OnClick'#7
+'MenuItem6'#6'Action'#7#16'accPreviewReport'#7'OnClick'#7#23'accPreviewRepor' +#19'accNewReportExecute'#0#0#9'TMenuItem'#9'MenuItem5'#6'Action'#7#13'accEdi'
+'tExecute'#0#0#9'TMenuItem'#9'MenuItem7'#6'Action'#7#14'accPrintReport'#7'On' +'tReport'#7'OnClick'#7#20'accEditReportExecute'#0#0#9'TMenuItem'#9'MenuItem6'
+'Click'#7#21'accPrintReportExecute'#0#0#9'TMenuItem'#9'MenuItem8'#6'Action'#7 +#6'Action'#7#16'accPreviewReport'#7'OnClick'#7#23'accPreviewReportExecute'#0
+#12'accPrintGrid'#7'OnClick'#7#19'accPrintGridExecute'#0#0#0#9'TMenuItem'#9 +#0#9'TMenuItem'#9'MenuItem7'#6'Action'#7#14'accPrintReport'#7'OnClick'#7#21
+'MenuItem9'#7'Caption'#6#6'Export'#0#9'TMenuItem'#10'MenuItem10'#6'Action'#7 +'accPrintReportExecute'#0#0#9'TMenuItem'#9'MenuItem8'#6'Action'#7#12'accPrin'
+#15'accExportToText'#7'OnClick'#7#22'accExportToTextExecute'#0#0#9'TMenuItem' +'tGrid'#7'OnClick'#7#19'accPrintGridExecute'#0#0#0#9'TMenuItem'#9'MenuItem9'
+#10'MenuItem11'#6'Action'#7#15'accExportToHtml'#7'OnClick'#7#22'accExportToH' +#7'Caption'#6#6'Export'#0#9'TMenuItem'#10'MenuItem10'#6'Action'#7#15'accExpo'
+'tmlExecute'#0#0#9'TMenuItem'#10'MenuItem12'#6'Action'#7#14'accExportToCSV'#7 +'rtToText'#7'OnClick'#7#22'accExportToTextExecute'#0#0#9'TMenuItem'#10'MenuI'
+'OnClick'#7#21'accExportToCSVExecute'#0#0#0#0#22'TApplicationProperties'#22 +'tem11'#6'Action'#7#15'accExportToHtml'#7'OnClick'#7#22'accExportToHtmlExecu'
+'ApplicationProperties1'#9'HintPause'#2#10#10'OnShowHint'#7#30'ApplicationPr' +'te'#0#0#9'TMenuItem'#10'MenuItem12'#6'Action'#7#14'accExportToCSV'#7'OnClic'
+'operties1ShowHint'#4'left'#2'`'#3'top'#3#240#0#0#0#11'TActionList'#11'Actio' +'k'#7#21'accExportToCSVExecute'#0#0#9'TMenuItem'#10'MenuItem13'#6'Action'#7
+'nList1'#4'left'#2'0'#3'top'#2'`'#0#7'TAction'#12'accNewReport'#8'Category'#6 +#14'accExportToDbg'#7'OnClick'#7#21'accExportToDbgExecute'#0#0#0#0#22'TAppli'
+#5'Tests'#7'Caption'#6#10'New Report'#9'OnExecute'#7#19'accNewReportExecute' +'cationProperties'#22'ApplicationProperties1'#9'HintPause'#2#10#10'OnShowHin'
+#0#0#7'TAction'#13'accEditReport'#8'Category'#6#5'Tests'#7'Caption'#6#11'Edi' +'t'#7#30'ApplicationProperties1ShowHint'#4'left'#2'`'#3'top'#3#240#0#0#0#11
+'t Report'#9'OnExecute'#7#20'accEditReportExecute'#0#0#7'TAction'#16'accPrev' +'TActionList'#11'ActionList1'#4'left'#2'0'#3'top'#2'`'#0#7'TAction'#12'accNe'
+'iewReport'#8'Category'#6#5'Tests'#7'Caption'#6#14'Preview Report'#9'OnExecu' +'wReport'#8'Category'#6#5'Tests'#7'Caption'#6#10'New Report'#9'OnExecute'#7
+'te'#7#23'accPreviewReportExecute'#0#0#7'TAction'#12'accPrintGrid'#8'Categor' +#19'accNewReportExecute'#0#0#7'TAction'#13'accEditReport'#8'Category'#6#5'Te'
,'y'#6#5'Tests'#7'Caption'#6#10'Print Grid'#9'OnExecute'#7#19'accPrintGridExe' ,'sts'#7'Caption'#6#11'Edit Report'#9'OnExecute'#7#20'accEditReportExecute'#0
+'cute'#0#0#7'TAction'#14'accPrintReport'#8'Category'#6#5'Tests'#7'Caption'#6 +#0#7'TAction'#16'accPreviewReport'#8'Category'#6#5'Tests'#7'Caption'#6#14'Pr'
+#12'Print Report'#9'OnExecute'#7#21'accPrintReportExecute'#0#0#7'TAction'#8 +'eview Report'#9'OnExecute'#7#23'accPreviewReportExecute'#0#0#7'TAction'#12
+'accClose'#8'Category'#6#5'Files'#7'Caption'#6#5'Close'#9'OnExecute'#7#15'ac' +'accPrintGrid'#8'Category'#6#5'Tests'#7'Caption'#6#10'Print Grid'#9'OnExecut'
+'cCloseExecute'#0#0#7'TAction'#15'accExportToText'#8'Category'#6#6'Export'#7 +'e'#7#19'accPrintGridExecute'#0#0#7'TAction'#14'accPrintReport'#8'Category'#6
+'Caption'#6#14'Export to text'#9'OnExecute'#7#22'accExportToTextExecute'#0#0 +#5'Tests'#7'Caption'#6#12'Print Report'#9'OnExecute'#7#21'accPrintReportExec'
+#7'TAction'#15'accExportToHtml'#8'Category'#6#6'Export'#7'Caption'#6#14'Expo' +'ute'#0#0#7'TAction'#8'accClose'#8'Category'#6#5'Files'#7'Caption'#6#5'Close'
+'rt to html'#9'OnExecute'#7#22'accExportToHtmlExecute'#0#0#7'TAction'#13'acc' +#9'OnExecute'#7#15'accCloseExecute'#0#0#7'TAction'#15'accExportToText'#8'Cat'
+'OpenReport'#8'Category'#6#5'Files'#7'Caption'#6#11'Open Report'#9'OnExecute' +'egory'#6#6'Export'#7'Caption'#6#14'Export to text'#9'OnExecute'#7#22'accExp'
+#7#20'accOpenReportExecute'#0#0#7'TAction'#14'accExportToCSV'#8'Category'#6#6 +'ortToTextExecute'#0#0#7'TAction'#15'accExportToHtml'#8'Category'#6#6'Export'
+'Export'#7'Caption'#6#13'Export to CSV'#9'OnExecute'#7#21'accExportToCSVExec' +#7'Caption'#6#14'Export to html'#9'OnExecute'#7#22'accExportToHtmlExecute'#0
+'ute'#0#0#7'TAction'#13'accThumbnails'#8'Category'#6#14'Sample Reports'#7'Ca' +#0#7'TAction'#13'accOpenReport'#8'Category'#6#5'Files'#7'Caption'#6#11'Open '
+'ption'#6#10'Thumbnails'#9'OnExecute'#7#20'accThumbnailsExecute'#0#0#0#11'TO' +'Report'#9'OnExecute'#7#20'accOpenReportExecute'#0#0#7'TAction'#14'accExport'
+'penDialog'#11'OpenDialog1'#6'Filter'#6':LazReport Files|*.lrf|FreeReport Fi' +'ToCSV'#8'Category'#6#6'Export'#7'Caption'#6#13'Export to CSV'#9'OnExecute'#7
+'les|*.frf|All Files|*.*'#11'FilterIndex'#2#0#4'left'#2'd'#3'top'#3#16#1#0#0 +#21'accExportToCSVExecute'#0#0#7'TAction'#13'accThumbnails'#8'Category'#6#14
+'Sample Reports'#7'Caption'#6#10'Thumbnails'#9'OnExecute'#7#20'accThumbnails'
+'Execute'#0#0#7'TAction'#14'accExportToDbg'#8'Category'#6#6'Export'#7'Captio'
+'n'#6#12'Export Debug'#9'OnExecute'#7#21'accExportToDbgExecute'#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#188#0#3'top'#2'H'#0#0#14'TfrUse' +#12'TfrCSVExport'#12'frCSVExport1'#4'left'#3#188#0#3'top'#2'H'#0#0#14'TfrUse'
+'rDataset'#14'frUserDataset1'#8'RangeEnd'#7#7'reCount'#4'left'#3#132#0#3'top' +'rDataset'#14'frUserDataset1'#8'RangeEnd'#7#7'reCount'#4'left'#3#132#0#3'top'
+#3#144#0#0#0#16'TfrBarCodeObject'#16'frBarCodeObject1'#4'left'#3#16#1#3'top' +#3#144#0#0#0#16'TfrBarCodeObject'#16'frBarCodeObject1'#4'left'#3#16#1#3'top'

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

@ -29,7 +29,8 @@ uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs, Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
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_BarC, LR_RRect, LR_Shape, LR_ChBox, lr_e_pdf, lconvencoding, lr_e_gen,
lr_utils, LCLProc;
type type
@ -47,6 +48,7 @@ type
accOpenReport: TAction; accOpenReport: TAction;
accExportToCSV: TAction; accExportToCSV: TAction;
accThumbnails: TAction; accThumbnails: TAction;
accExportToDbg: TAction;
ActionList1: TActionList; ActionList1: TActionList;
ApplicationProperties1: TApplicationProperties; ApplicationProperties1: TApplicationProperties;
btnCallEditor: TButton; btnCallEditor: TButton;
@ -74,6 +76,7 @@ type
MenuItem10: TMenuItem; MenuItem10: TMenuItem;
MenuItem11: TMenuItem; MenuItem11: TMenuItem;
MenuItem12: TMenuItem; MenuItem12: TMenuItem;
MenuItem13: TMenuItem;
MenuItem2: TMenuItem; MenuItem2: TMenuItem;
MenuItem3: TMenuItem; MenuItem3: TMenuItem;
MenuItem4: TMenuItem; MenuItem4: TMenuItem;
@ -87,6 +90,7 @@ type
sbar: TStatusBar; sbar: TStatusBar;
TheReport: TfrReport; TheReport: TfrReport;
procedure accExportToCSVExecute(Sender: TObject); procedure accExportToCSVExecute(Sender: TObject);
procedure accExportToDbgExecute(Sender: TObject);
procedure accExportToHtmlExecute(Sender: TObject); procedure accExportToHtmlExecute(Sender: TObject);
procedure accExportToTextExecute(Sender: TObject); procedure accExportToTextExecute(Sender: TObject);
procedure accThumbnailsExecute(Sender: TObject); procedure accThumbnailsExecute(Sender: TObject);
@ -102,11 +106,15 @@ type
procedure comboIndexSelect(Sender: TObject); procedure comboIndexSelect(Sender: TObject);
procedure dbGrid1TitleClick(Column: TColumn); procedure dbGrid1TitleClick(Column: TColumn);
procedure frmMainCreate(Sender: TObject); procedure frmMainCreate(Sender: TObject);
procedure TheReportBeginDoc;
procedure TheReportEnterRect(Memo: TStringList; View: TfrView); procedure TheReportEnterRect(Memo: TStringList; View: TfrView);
procedure TheReportExportFilterSetup(Sender: TfrExportFilter);
procedure TheReportGetValue(const ParName: String; var ParValue: Variant);
private private
{ private declarations } { private declarations }
FImageList: TStringList; FImageList: TStringList;
FImageListIndex: Integer; FImageListIndex: Integer;
FObjCount: Integer;
procedure UpdateAppTranslation; procedure UpdateAppTranslation;
procedure SetIndex(const aIndexName: string); procedure SetIndex(const aIndexName: string);
procedure OpenReport(const aFileName:string); procedure OpenReport(const aFileName:string);
@ -184,10 +192,8 @@ end;
procedure TfrmMain.accExportToTextExecute(Sender: TObject); procedure TfrmMain.accExportToTextExecute(Sender: TObject);
begin begin
TheReport.LoadFromFile(ExtractFilePath(ParamStrUTF8(0))+'salida.lrf');
if TheReport.PrepareReport then if TheReport.PrepareReport then
ShowMessage(cerNotImplemented) TheReport.ExportTo(TfrTextExportFilter, 'salida.txt')
//TheReport.ExportTo(TfrTextExportFilter, 'salida.txt')
else else
ShowMessage(cerPrepareFailed); ShowMessage(cerPrepareFailed);
end; end;
@ -211,23 +217,28 @@ end;
procedure TfrmMain.accExportToHtmlExecute(Sender: TObject); procedure TfrmMain.accExportToHtmlExecute(Sender: TObject);
begin begin
TheReport.LoadFromFile(ExtractFilePath(ParamStrUTF8(0))+'salida.lrf');
if TheReport.PrepareReport then begin if TheReport.PrepareReport then begin
TheReport.ExportTo(TfrHTMExportFilter, 'salida.html'); TheReport.ExportTo(TfrHTMExportFilter, 'salida.html');
ShowMessage(cerNotImplemented);
end else end else
ShowMessage(cerPrepareFailed); ShowMessage(cerPrepareFailed);
end; end;
procedure TfrmMain.accExportToCSVExecute(Sender: TObject); procedure TfrmMain.accExportToCSVExecute(Sender: TObject);
begin begin
TheReport.LoadFromFile(ExtractFilePath(ParamStrUTF8(0))+'salida.lrf');
if TheReport.PrepareReport then begin if TheReport.PrepareReport then begin
TheReport.ExportTo(TfrCSVExportFilter, 'salida.csv'); TheReport.ExportTo(TfrCSVExportFilter, 'salida.csv');
end else end else
ShowMessage(cerPrepareFailed); ShowMessage(cerPrepareFailed);
end; end;
procedure TfrmMain.accExportToDbgExecute(Sender: TObject);
begin
if TheReport.PrepareReport then begin
TheReport.ExportTo(TfrDbgExportFilter, 'salida.dbg');
end else
ShowMessage(cerPrepareFailed);
end;
procedure TfrmMain.accCloseExecute(Sender: TObject); procedure TfrmMain.accCloseExecute(Sender: TObject);
begin begin
Close; Close;
@ -321,6 +332,11 @@ begin
OpenReport(ExtractFilePath(ParamStrUTF8(0))+'salida.lrf'); OpenReport(ExtractFilePath(ParamStrUTF8(0))+'salida.lrf');
end; end;
procedure TfrmMain.TheReportBeginDoc;
begin
FObjCount := 0;
end;
procedure TfrmMain.TheReportEnterRect(Memo: TStringList; View: TfrView); procedure TfrmMain.TheReportEnterRect(Memo: TStringList; View: TfrView);
begin begin
if (FImageList<>nil) and (View.Name='thumbnail') then begin if (FImageList<>nil) and (View.Name='thumbnail') then begin
@ -329,6 +345,41 @@ begin
end; end;
end; end;
procedure TfrmMain.TheReportExportFilterSetup(Sender: TfrExportFilter);
begin
// parameters that all export filters can change
Sender.UseProgressbar:=false;
//Sender.BandTypes := [btMasterData]; // by default all bandtypes are processed
if sender is TfrHtmExportFilter then begin
//TfrTextExportFilter(sender).UseBOM := true; // false by default
//TfrTextExportFilter(Sender).UsedFont:=0; // force to show used font dialog
TfrHtmExportFilter(Sender).UseCSS:=false; // true by default
end else
if sender is TfrCSVExportFilter then begin
TfrCSVExportFilter(sender).UseBOM := true; // default settings + BOM = excel compatible
//TfrCSVExportFilter(sender).QuoteChar := '''';
//TfrCSVExportFilter(sender).QuoteType := qtNone;
//TfrCSVExportFilter(sender).Separator := ';';
end else
if Sender is TfrTextExportFilter then begin
TfrTextExportFilter(sender).UseBOM := false;
TfrTextExportFilter(Sender).UsedFont:=0; // force to show used font dialog
end;
end;
procedure TfrmMain.TheReportGetValue(const ParName: String;
var ParValue: Variant);
begin
if ParName='vv1' then begin
if FObjCount mod 3 = 0 then
ParValue := 'áñâàÑ€¼2³¤€¼½¾'
else
ParValue := '12345678901234';
Inc(FObjCount);
end;
end;
procedure TfrmMain.SetIndex(const aIndexName: string); procedure TfrmMain.SetIndex(const aIndexName: string);
begin begin
dbf1.IndexName := aIndexName; dbf1.IndexName := aIndexName;