paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 10:59:29 +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/calleditorwithpkg.lpi svneol=native#text/plain
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.mdx -text
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>
<Flags>
<SaveClosedFiles Value="False"/>
<SaveOnlyProjectUnits Value="True"/>
<LRSInOutputDirectory Value="False"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<TargetFileExt Value=""/>
<Title Value="LazReport Designer"/>
<ActiveEditorIndexAtStart Value="0"/>
</General>
<i18n>
<EnableI18N Value="True"/>
@ -28,33 +29,35 @@
<LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="5">
<RequiredPackages Count="6">
<Item1>
<PackageName Value="Printer4Lazarus"/>
<PackageName Value="lazreport"/>
<MinVersion Minor="9" Release="6" Valid="True"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
<PackageName Value="lazreportpdfexport"/>
<MinVersion Minor="5" Valid="True"/>
</Item2>
<Item3>
<PackageName Value="lazreport"/>
<PackageName Value="Printer4Lazarus"/>
</Item3>
<Item4>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
<PackageName Value="LCL"/>
</Item4>
<Item5>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
</Item5>
<Item6>
<PackageName Value="DBFLaz"/>
<MinVersion Minor="1" Release="1" Valid="True"/>
</Item5>
</Item6>
</RequiredPackages>
<Units Count="7">
<Units Count="2">
<Unit0>
<Filename Value="calleditorwithpkg.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="calleditorwithpkg"/>
<CursorPos X="29" Y="10"/>
<TopLine Value="1"/>
<UsageCount Value="200"/>
</Unit0>
<Unit1>
<Filename Value="maincalleditor.pas"/>
@ -62,192 +65,8 @@
<ComponentName Value="frmMain"/>
<ResourceBaseClass Value="Form"/>
<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>
<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>
<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>
<CompilerOptions>
<Version Value="8"/>
@ -258,27 +77,4 @@
<CompilerPath Value="$(CompPath)"/>
</Other>
</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>

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

@ -5,7 +5,7 @@ program calleditorwithpkg;
uses
Interfaces, // this includes the LCL widgetset
Forms
{ add your units here }, maincalleditor;
{ add your units here }, maincalleditor, lazreportpdfexport, lazreport;
begin
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)"
msgstr "Aktiven Report sofort drucken (ohne Vorschau)"
#: maincalleditor.cerhintthumbnails
msgid "This Action will Load and Preview a thumbnails Report"
msgstr ""
#: maincalleditor.cerindex
msgid "Index"
msgstr "Index"
@ -98,6 +102,11 @@ msgstr "Gitter drucken"
msgid "Print report"
msgstr "Report drucken"
#: maincalleditor.certhumbnails
msgctxt "maincalleditor.certhumbnails"
msgid "Thumbnails"
msgstr "Vorschaubilder"
#: TFRMMAIN.ACCCLOSE.CAPTION
msgid "Close"
msgstr "Schließen"
@ -111,6 +120,10 @@ msgstr "Report bearbeiten"
msgid "Export to CSV"
msgstr "Nach CSV exportieren"
#: TFRMMAIN.ACCEXPORTTODBG.CAPTION
msgid "Export Debug"
msgstr ""
#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
msgid "Export to html"
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)"
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
msgid "Index"
msgstr "Indice"
@ -95,6 +99,11 @@ msgstr "Imprimir Rejilla"
msgid "Print report"
msgstr "Imprimir Reporte"
#: maincalleditor.certhumbnails
msgctxt "maincalleditor.certhumbnails"
msgid "Thumbnails"
msgstr "Imágenes"
#: TFRMMAIN.ACCCLOSE.CAPTION
msgid "Close"
msgstr "Cerrar"
@ -108,6 +117,10 @@ msgstr "Editar Reporte"
msgid "Export to CSV"
msgstr "Exportar a CSV"
#: TFRMMAIN.ACCEXPORTTODBG.CAPTION
msgid "Export Debug"
msgstr ""
#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
msgid "Export to 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)"
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
msgid "Index"
msgstr "Rodyklė"
@ -98,6 +102,11 @@ msgstr "Spausdinti tinklelį"
msgid "Print report"
msgstr "Spausdinti pranešimą"
#: maincalleditor.certhumbnails
msgctxt "maincalleditor.certhumbnails"
msgid "Thumbnails"
msgstr "Miniatiūros"
#: TFRMMAIN.ACCCLOSE.CAPTION
msgid "Close"
msgstr "Užverti"
@ -111,6 +120,10 @@ msgstr "Keisti pranešimą"
msgid "Export to CSV"
msgstr "Eksportuoti CSV formatu"
#: TFRMMAIN.ACCEXPORTTODBG.CAPTION
msgid "Export Debug"
msgstr ""
#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
msgid "Export to html"
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)"
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
msgid "Index"
msgstr "Índice"
@ -95,6 +99,11 @@ msgstr "Imprimir grade"
msgid "Print report"
msgstr "Imprimir relatório"
#: maincalleditor.certhumbnails
msgctxt "maincalleditor.certhumbnails"
msgid "Thumbnails"
msgstr "Miniaturas"
#: TFRMMAIN.ACCCLOSE.CAPTION
msgid "Close"
msgstr "Fechar"
@ -108,6 +117,10 @@ msgstr "Editar Relatório"
msgid "Export to CSV"
msgstr "Exportar para \"CSV\""
#: TFRMMAIN.ACCEXPORTTODBG.CAPTION
msgid "Export Debug"
msgstr ""
#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
msgid "Export to 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)"
msgstr ""
#: maincalleditor.cerhintthumbnails
msgid "This Action will Load and Preview a thumbnails Report"
msgstr ""
#: maincalleditor.cerindex
msgid "Index"
msgstr ""
@ -90,6 +94,11 @@ msgstr ""
msgid "Print report"
msgstr ""
#: maincalleditor.certhumbnails
msgctxt "maincalleditor.certhumbnails"
msgid "Thumbnails"
msgstr ""
#: TFRMMAIN.ACCCLOSE.CAPTION
msgid "Close"
msgstr ""
@ -103,6 +112,10 @@ msgstr ""
msgid "Export to CSV"
msgstr ""
#: TFRMMAIN.ACCEXPORTTODBG.CAPTION
msgid "Export Debug"
msgstr ""
#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
msgid "Export to html"
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)"
msgstr "Прямая печать активного отчёта (без предварительного просмотра)"
#: maincalleditor.cerhintthumbnails
msgid "This Action will Load and Preview a thumbnails Report"
msgstr ""
#: maincalleditor.cerindex
msgid "Index"
msgstr "Индекс"
@ -95,6 +99,11 @@ msgstr "Печать таблицы"
msgid "Print report"
msgstr "Печать отчёта"
#: maincalleditor.certhumbnails
msgctxt "maincalleditor.certhumbnails"
msgid "Thumbnails"
msgstr "Эскизы"
#: TFRMMAIN.ACCCLOSE.CAPTION
msgid "Close"
msgstr "Закрыть"
@ -108,6 +117,10 @@ msgstr "Редактировать отчёт"
msgid "Export to CSV"
msgstr "Экспорт в CSV"
#: TFRMMAIN.ACCEXPORTTODBG.CAPTION
msgid "Export Debug"
msgstr ""
#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
msgid "Export to html"
msgstr "Экспорт в HTML"

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

@ -5,24 +5,24 @@ object frmMain: TfrmMain
Width = 569
ActiveControl = btnCallEditor
Caption = 'LazReport Test Suite'
ClientHeight = 413
ClientHeight = 412
ClientWidth = 569
Menu = MainMenu1
OnCreate = frmMainCreate
ShowHint = True
LCLVersion = '0.9.27'
LCLVersion = '0.9.29'
object lblIndex: TLabel
Left = 12
Height = 14
Height = 23
Top = 44
Width = 1
Width = 10
ParentColor = False
end
object lblExpr: TLabel
Left = 235
Height = 14
Height = 23
Top = 44
Width = 1
Width = 10
ParentColor = False
end
object btnCallEditor: TButton
@ -36,7 +36,7 @@ object frmMain: TfrmMain
end
object dbGrid1: TDBGrid
Left = 0
Height = 322
Height = 325
Top = 68
Width = 569
Align = alBottom
@ -67,8 +67,8 @@ object frmMain: TfrmMain
end
object sbar: TStatusBar
Left = 0
Height = 23
Top = 390
Height = 19
Top = 393
Width = 569
Panels = <
item
@ -104,11 +104,11 @@ object frmMain: TfrmMain
TabOrder = 6
end
object comboIndex: TComboBox
Left = 76
Height = 21
Top = 40
Left = 72
Height = 29
Top = 37
Width = 148
ItemHeight = 13
ItemHeight = 0
OnSelect = comboIndexSelect
TabOrder = 8
end
@ -125,11 +125,14 @@ object frmMain: TfrmMain
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
DataType = dtDataSet
OnBeginDoc = TheReportBeginDoc
OnGetValue = TheReportGetValue
OnEnterRect = TheReportEnterRect
OnExportFilterSetup = TheReportExportFilterSetup
left = 96
top = 112
ReportForm = {
18000000
19000000
}
end
object Dbf1: TDbf
@ -204,6 +207,10 @@ object frmMain: TfrmMain
Action = accExportToCSV
OnClick = accExportToCSVExecute
end
object MenuItem13: TMenuItem
Action = accExportToDbg
OnClick = accExportToDbgExecute
end
end
end
object ApplicationProperties1: TApplicationProperties
@ -270,6 +277,11 @@ object frmMain: TfrmMain
Caption = 'Thumbnails'
OnExecute = accThumbnailsExecute
end
object accExportToDbg: TAction
Category = 'Export'
Caption = 'Export Debug'
OnExecute = accExportToDbgExecute
end
end
object OpenDialog1: TOpenDialog
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',[
'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'
+'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
+'0.9.27'#0#6'TLabel'#8'lblIndex'#4'Left'#2#12#6'Height'#2#14#3'Top'#2','#5'W'
+'idth'#2#1#11'ParentColor'#8#0#0#6'TLabel'#7'lblExpr'#4'Left'#3#235#0#6'Heig'
+'ht'#2#14#3'Top'#2','#5'Width'#2#1#11'ParentColor'#8#0#0#7'TButton'#13'btnCa'
+'llEditor'#4'Left'#2#24#6'Height'#2#25#3'Top'#2#8#5'Width'#2'P'#6'Action'#7
+'0.9.29'#0#6'TLabel'#8'lblIndex'#4'Left'#2#12#6'Height'#2#23#3'Top'#2','#5'W'
+'idth'#2#10#11'ParentColor'#8#0#0#6'TLabel'#7'lblExpr'#4'Left'#3#235#0#6'Hei'
+'ght'#2#23#3'Top'#2','#5'Width'#2#10#11'ParentColor'#8#0#0#7'TButton'#13'btn'
+'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'
+'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'
+#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'
@ -20,8 +20,8 @@ LazarusResources.Add('TfrmMain','FORMDATA',[
+#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'
+'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
+#134#1#5'Width'#3'9'#2#6'Panels'#14#1#5'Width'#3#250#0#0#0#11'SimplePanel'#8
+'TabOrder'#2#2#0#0#10'TStatusBar'#4'sbar'#4'Left'#2#0#6'Height'#2#19#3'Top'#3
+#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'
+#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
@ -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#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
+'L'#6'Height'#2#21#3'Top'#2'('#5'Width'#3#148#0#10'ItemHeight'#2#13#8'OnSele'
+'ct'#7#16'comboIndexSelect'#8'TabOrder'#2#8#0#0#7'TButton'#12'btnImageList'#4
+'H'#6'Height'#2#29#3'Top'#2'%'#5'Width'#3#148#0#10'ItemHeight'#2#0#8'OnSelec'
+'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'
+'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
+'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'
+#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#13'FilterOptions'#11#0#4'left'#3#128#0#3'top'#2'H'#0#0#11'T'
+'Datasource'#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'Orientation'#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'MenuItem5'#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'accPreviewRepor'
+'tExecute'#0#0#9'TMenuItem'#9'MenuItem7'#6'Action'#7#14'accPrintReport'#7'On'
+'Click'#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'accExportToHtml'#7'OnClick'#7#22'accExportToH'
+'tmlExecute'#0#0#9'TMenuItem'#10'MenuItem12'#6'Action'#7#14'accExportToCSV'#7
+'OnClick'#7#21'accExportToCSVExecute'#0#0#0#0#22'TApplicationProperties'#22
+'ApplicationProperties1'#9'HintPause'#2#10#10'OnShowHint'#7#30'ApplicationPr'
+'operties1ShowHint'#4'left'#2'`'#3'top'#3#240#0#0#0#11'TActionList'#11'Actio'
+'nList1'#4'left'#2'0'#3'top'#2'`'#0#7'TAction'#12'accNewReport'#8'Category'#6
+#5'Tests'#7'Caption'#6#10'New Report'#9'OnExecute'#7#19'accNewReportExecute'
+#0#0#7'TAction'#13'accEditReport'#8'Category'#6#5'Tests'#7'Caption'#6#11'Edi'
+'t Report'#9'OnExecute'#7#20'accEditReportExecute'#0#0#7'TAction'#16'accPrev'
+'iewReport'#8'Category'#6#5'Tests'#7'Caption'#6#14'Preview Report'#9'OnExecu'
+'te'#7#23'accPreviewReportExecute'#0#0#7'TAction'#12'accPrintGrid'#8'Categor'
,'y'#6#5'Tests'#7'Caption'#6#10'Print Grid'#9'OnExecute'#7#19'accPrintGridExe'
+'cute'#0#0#7'TAction'#14'accPrintReport'#8'Category'#6#5'Tests'#7'Caption'#6
+#12'Print Report'#9'OnExecute'#7#21'accPrintReportExecute'#0#0#7'TAction'#8
+'accClose'#8'Category'#6#5'Files'#7'Caption'#6#5'Close'#9'OnExecute'#7#15'ac'
+'cCloseExecute'#0#0#7'TAction'#15'accExportToText'#8'Category'#6#6'Export'#7
+'Caption'#6#14'Export to text'#9'OnExecute'#7#22'accExportToTextExecute'#0#0
+#7'TAction'#15'accExportToHtml'#8'Category'#6#6'Export'#7'Caption'#6#14'Expo'
+'rt to html'#9'OnExecute'#7#22'accExportToHtmlExecute'#0#0#7'TAction'#13'acc'
+'OpenReport'#8'Category'#6#5'Files'#7'Caption'#6#11'Open Report'#9'OnExecute'
+#7#20'accOpenReportExecute'#0#0#7'TAction'#14'accExportToCSV'#8'Category'#6#6
+'Export'#7'Caption'#6#13'Export to CSV'#9'OnExecute'#7#21'accExportToCSVExec'
+'ute'#0#0#7'TAction'#13'accThumbnails'#8'Category'#6#14'Sample Reports'#7'Ca'
+'ption'#6#10'Thumbnails'#9'OnExecute'#7#20'accThumbnailsExecute'#0#0#0#11'TO'
+'penDialog'#11'OpenDialog1'#6'Filter'#6':LazReport Files|*.lrf|FreeReport Fi'
+'les|*.frf|All Files|*.*'#11'FilterIndex'#2#0#4'left'#2'd'#3'top'#3#16#1#0#0
+'dtDataSet'#10'OnBeginDoc'#7#17'TheReportBeginDoc'#10'OnGetValue'#7#17'TheRe'
+'portGetValue'#11'OnEnterRect'#7#18'TheReportEnterRect'#19'OnExportFilterSet'
+'up'#7#26'TheReportExportFilterSetup'#4'left'#2'`'#3'top'#2'p'#10'ReportForm'
+#10#4#0#0#0#25#0#0#0#0#0#4'TDbf'#4'Dbf1'#9'IndexDefs'#14#0#10'TableLevel'#2#3
+#13'FilterOptions'#11#0#4'left'#3#128#0#3'top'#2'H'#0#0#11'TDatasource'#11'D'
+'atasource1'#7'DataSet'#7#4'Dbf1'#4'left'#2'`'#3'top'#2'H'#0#0#12'TfrDBDataS'
+'et'#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'Orientation'#7#11'poLandscape'
+#7'Caption'#6#4'Grid'#11'ShowCaption'#9#4'left'#2'`'#3'top'#3#176#0#0#0#9'TM'
+'ainMenu'#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'O'
+'nClick'#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'MenuItem5'#6'Action'#7#13'accEdi'
+'tReport'#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'accPrintReport'#7'OnClick'#7#21
+'accPrintReportExecute'#0#0#9'TMenuItem'#9'MenuItem8'#6'Action'#7#12'accPrin'
+'tGrid'#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'accExpo'
+'rtToText'#7'OnClick'#7#22'accExportToTextExecute'#0#0#9'TMenuItem'#10'MenuI'
+'tem11'#6'Action'#7#15'accExportToHtml'#7'OnClick'#7#22'accExportToHtmlExecu'
+'te'#0#0#9'TMenuItem'#10'MenuItem12'#6'Action'#7#14'accExportToCSV'#7'OnClic'
+'k'#7#21'accExportToCSVExecute'#0#0#9'TMenuItem'#10'MenuItem13'#6'Action'#7
+#14'accExportToDbg'#7'OnClick'#7#21'accExportToDbgExecute'#0#0#0#0#22'TAppli'
+'cationProperties'#22'ApplicationProperties1'#9'HintPause'#2#10#10'OnShowHin'
+'t'#7#30'ApplicationProperties1ShowHint'#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'accNe'
+'wReport'#8'Category'#6#5'Tests'#7'Caption'#6#10'New Report'#9'OnExecute'#7
+#19'accNewReportExecute'#0#0#7'TAction'#13'accEditReport'#8'Category'#6#5'Te'
,'sts'#7'Caption'#6#11'Edit Report'#9'OnExecute'#7#20'accEditReportExecute'#0
+#0#7'TAction'#16'accPreviewReport'#8'Category'#6#5'Tests'#7'Caption'#6#14'Pr'
+'eview Report'#9'OnExecute'#7#23'accPreviewReportExecute'#0#0#7'TAction'#12
+'accPrintGrid'#8'Category'#6#5'Tests'#7'Caption'#6#10'Print Grid'#9'OnExecut'
+'e'#7#19'accPrintGridExecute'#0#0#7'TAction'#14'accPrintReport'#8'Category'#6
+#5'Tests'#7'Caption'#6#12'Print Report'#9'OnExecute'#7#21'accPrintReportExec'
+'ute'#0#0#7'TAction'#8'accClose'#8'Category'#6#5'Files'#7'Caption'#6#5'Close'
+#9'OnExecute'#7#15'accCloseExecute'#0#0#7'TAction'#15'accExportToText'#8'Cat'
+'egory'#6#6'Export'#7'Caption'#6#14'Export to text'#9'OnExecute'#7#22'accExp'
+'ortToTextExecute'#0#0#7'TAction'#15'accExportToHtml'#8'Category'#6#6'Export'
+#7'Caption'#6#14'Export to html'#9'OnExecute'#7#22'accExportToHtmlExecute'#0
+#0#7'TAction'#13'accOpenReport'#8'Category'#6#5'Files'#7'Caption'#6#11'Open '
+'Report'#9'OnExecute'#7#20'accOpenReportExecute'#0#0#7'TAction'#14'accExport'
+'ToCSV'#8'Category'#6#6'Export'#7'Caption'#6#13'Export to CSV'#9'OnExecute'#7
+#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'
+'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'

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

@ -29,7 +29,8 @@ uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
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_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
@ -47,6 +48,7 @@ type
accOpenReport: TAction;
accExportToCSV: TAction;
accThumbnails: TAction;
accExportToDbg: TAction;
ActionList1: TActionList;
ApplicationProperties1: TApplicationProperties;
btnCallEditor: TButton;
@ -74,6 +76,7 @@ type
MenuItem10: TMenuItem;
MenuItem11: TMenuItem;
MenuItem12: TMenuItem;
MenuItem13: TMenuItem;
MenuItem2: TMenuItem;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
@ -87,6 +90,7 @@ type
sbar: TStatusBar;
TheReport: TfrReport;
procedure accExportToCSVExecute(Sender: TObject);
procedure accExportToDbgExecute(Sender: TObject);
procedure accExportToHtmlExecute(Sender: TObject);
procedure accExportToTextExecute(Sender: TObject);
procedure accThumbnailsExecute(Sender: TObject);
@ -102,11 +106,15 @@ type
procedure comboIndexSelect(Sender: TObject);
procedure dbGrid1TitleClick(Column: TColumn);
procedure frmMainCreate(Sender: TObject);
procedure TheReportBeginDoc;
procedure TheReportEnterRect(Memo: TStringList; View: TfrView);
procedure TheReportExportFilterSetup(Sender: TfrExportFilter);
procedure TheReportGetValue(const ParName: String; var ParValue: Variant);
private
{ private declarations }
FImageList: TStringList;
FImageListIndex: Integer;
FObjCount: Integer;
procedure UpdateAppTranslation;
procedure SetIndex(const aIndexName: string);
procedure OpenReport(const aFileName:string);
@ -184,10 +192,8 @@ end;
procedure TfrmMain.accExportToTextExecute(Sender: TObject);
begin
TheReport.LoadFromFile(ExtractFilePath(ParamStrUTF8(0))+'salida.lrf');
if TheReport.PrepareReport then
ShowMessage(cerNotImplemented)
//TheReport.ExportTo(TfrTextExportFilter, 'salida.txt')
TheReport.ExportTo(TfrTextExportFilter, 'salida.txt')
else
ShowMessage(cerPrepareFailed);
end;
@ -211,23 +217,28 @@ end;
procedure TfrmMain.accExportToHtmlExecute(Sender: TObject);
begin
TheReport.LoadFromFile(ExtractFilePath(ParamStrUTF8(0))+'salida.lrf');
if TheReport.PrepareReport then begin
TheReport.ExportTo(TfrHTMExportFilter, 'salida.html');
ShowMessage(cerNotImplemented);
end else
ShowMessage(cerPrepareFailed);
end;
procedure TfrmMain.accExportToCSVExecute(Sender: TObject);
begin
TheReport.LoadFromFile(ExtractFilePath(ParamStrUTF8(0))+'salida.lrf');
if TheReport.PrepareReport then begin
TheReport.ExportTo(TfrCSVExportFilter, 'salida.csv');
end else
ShowMessage(cerPrepareFailed);
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);
begin
Close;
@ -321,6 +332,11 @@ begin
OpenReport(ExtractFilePath(ParamStrUTF8(0))+'salida.lrf');
end;
procedure TfrmMain.TheReportBeginDoc;
begin
FObjCount := 0;
end;
procedure TfrmMain.TheReportEnterRect(Memo: TStringList; View: TfrView);
begin
if (FImageList<>nil) and (View.Name='thumbnail') then begin
@ -329,6 +345,41 @@ begin
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);
begin
dbf1.IndexName := aIndexName;