lazreport, updated editor sample (indices and current report)

git-svn-id: trunk@15291 -

.gitattributes

@@ -445,11 +445,11 @@ components/lazreport/samples/editor/calleditorwithpkg.lpi svneol=native#text/pla
 components/lazreport/samples/editor/calleditorwithpkg.lpr svneol=native#text/pascal
 components/lazreport/samples/editor/db/disco.dbf -text
 components/lazreport/samples/editor/db/disco.mdx -text
-components/lazreport/samples/editor/languages/maincalleditor.de.po svneol=native#text/plain
+components/lazreport/samples/editor/languages/calleditorwithpkg.de.po svneol=native#text/plain
-components/lazreport/samples/editor/languages/maincalleditor.es.po svneol=native#text/plain
+components/lazreport/samples/editor/languages/calleditorwithpkg.es.po svneol=native#text/plain
-components/lazreport/samples/editor/languages/maincalleditor.lt.po svneol=native#text/plain
+components/lazreport/samples/editor/languages/calleditorwithpkg.lt.po svneol=native#text/plain
-components/lazreport/samples/editor/languages/maincalleditor.po svneol=native#text/plain
+components/lazreport/samples/editor/languages/calleditorwithpkg.po svneol=native#text/plain
-components/lazreport/samples/editor/languages/maincalleditor.ru.po svneol=native#text/plain
+components/lazreport/samples/editor/languages/calleditorwithpkg.ru.po svneol=native#text/plain
 components/lazreport/samples/editor/maincalleditor.lfm svneol=native#text/plain
 components/lazreport/samples/editor/maincalleditor.lrs svneol=native#text/plain
 components/lazreport/samples/editor/maincalleditor.pas svneol=native#text/pascal

components/lazreport/samples/editor/albumsbycountry.lrf

@@ -14,15 +14,15 @@
     <Pages>
       <PrintToDefault Value="False"/>
       <DoublePass Value="False"/>
-      <SelectedPrinter Value="HP1100"/>
+      <SelectedPrinter Value="hp psc 1310 series"/>
       <PageCount Value="1"/>
       <Page1>
         <Name Value="Page1"/>
         <ClassName Value="TfrPageReport"/>
         <Visible Value="1"/>
-        <Width Value="564"/>
+        <Width Value="4800"/>
-        <Height Value="720" PageType="0"/>
+        <Height Value="6258" PageType="0"/>
-        <PgSize Value="1"/>
+        <PgSize Value="119"/>
         <Margins>
           <left Value="0"/>
           <Top Value="0"/>
@@ -138,7 +138,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="[Dbf1.&quot;COUNTRY&quot;]&#xA;"/>
+            <Memo Value="[Dbf1.&quot;COUNTRY&quot;]&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -181,7 +181,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="[Dbf1.&quot;AUTHOR&quot;]&#xA;"/>
+            <Memo Value="[Dbf1.&quot;AUTHOR&quot;]&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -224,7 +224,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="[Dbf1.&quot;TITLE&quot;]&#xA;"/>
+            <Memo Value="[Dbf1.&quot;TITLE&quot;]&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -267,7 +267,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="[Dbf1.&quot;COMPANY&quot;]&#xA;"/>
+            <Memo Value="[Dbf1.&quot;COMPANY&quot;]&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -310,7 +310,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="[Dbf1.&quot;YEAR&quot;]&#xA;"/>
+            <Memo Value="[Dbf1.&quot;YEAR&quot;]&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -353,7 +353,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="[COUNT(MasterData1)] Albums for this country&#xA;&#x9;&#xA;"/>
+            <Memo Value="[COUNT(MasterData1)] Albums for this country&#xD;&#xA;&#x9;&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -396,7 +396,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="[Dbf1.&quot;QTY&quot;]&#xA;"/>
+            <Memo Value="[Dbf1.&quot;QTY&quot;]&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -439,7 +439,7 @@
           <Data>
             <Format Value="17039918"/>
             <FormatStr Value="$#,###.00"/>
-            <Memo Value="[Dbf1.&quot;PRICE&quot;]&#xA;"/>
+            <Memo Value="[Dbf1.&quot;PRICE&quot;]&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -496,7 +496,7 @@
           <Data>
             <Format Value="17039918"/>
             <FormatStr Value="$#,###.00"/>
-            <Memo Value="[[Dbf1.&quot;QTY&quot;]*[Dbf1.&quot;PRICE&quot;]]&#xA;"/>
+            <Memo Value="[[Dbf1.&quot;QTY&quot;]*[Dbf1.&quot;PRICE&quot;]]&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -539,7 +539,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="Year&#xA;"/>
+            <Memo Value="Year&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -582,7 +582,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="Author&#xA;"/>
+            <Memo Value="Author&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -625,7 +625,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="Title&#xA;"/>
+            <Memo Value="Title&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -668,7 +668,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="Company&#xA;"/>
+            <Memo Value="Company&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -711,7 +711,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="Qty&#xA;"/>
+            <Memo Value="Qty&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -754,7 +754,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="Price&#xA;"/>
+            <Memo Value="Price&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>
@@ -797,7 +797,7 @@
           <Data>
             <Format Value="558"/>
             <FormatStr Value=""/>
-            <Memo Value="Subtotal&#xA;"/>
+            <Memo Value="Subtotal&#xD;&#xA;"/>
             <Script Value=""/>
           </Data>
           <Font>

components/lazreport/samples/editor/calleditorwithpkg.lpi

@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
-    <PathDelim Value="/"/>
+    <PathDelim Value="\"/>
     <Version Value="6"/>
     <General>
       <Flags>
@@ -9,7 +9,7 @@
         <SaveOnlyProjectUnits Value="True"/>
       </Flags>
       <MainUnit Value="0"/>
-      <IconPath Value="./"/>
+      <IconPath Value=".\"/>
       <TargetFileExt Value=""/>
       <Title Value="LazReport Designer"/>
       <ActiveEditorIndexAtStart Value="0"/>
@@ -20,6 +20,7 @@
     </i18n>
     <PublishOptions>
       <Version Value="2"/>
+      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
       <IgnoreBinaries Value="False"/>
       <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
       <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
@@ -27,7 +28,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="5">
@@ -62,20 +63,25 @@
         <Filename Value="maincalleditor.pas"/>
         <ComponentName Value="frmMain"/>
         <IsPartOfProject Value="True"/>
+        <ResourceBaseClass Value="Form"/>
         <ResourceFilename Value="maincalleditor.lrs"/>
         <UnitName Value="maincalleditor"/>
-        <CursorPos X="27" Y="30"/>
+        <CursorPos X="3" Y="116"/>
-        <TopLine Value="24"/>
+        <TopLine Value="110"/>
         <EditorIndex Value="0"/>
         <UsageCount Value="200"/>
+        <Bookmarks Count="1">
+          <Item0 X="5" Y="220" ID="0"/>
+        </Bookmarks>
         <Loaded Value="True"/>
       </Unit1>
     </Units>
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="5"/>
+    <PathDelim Value="\"/>
     <SearchPaths>
-      <SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
+      <SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
     </SearchPaths>
     <CodeGeneration>
       <Generate Value="Faster"/>

components/lazreport/samples/editor/languages/calleditorwithpkg.de.po

@@ -0,0 +1,147 @@
+msgid ""
+msgstr ""
+"Project-Id-Version: \n"
+"POT-Creation-Date: \n"
+"PO-Revision-Date: 2008-05-31 14:24-0600\n"
+"Last-Translator: Joerg Braun <jb@toolbox-mag.de>\n"
+"Language-Team: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=utf-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: TFRMMAIN.CAPTION
+msgid "Testing LazReport Editor"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM1.CAPTION
+msgid "Files"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM3.CAPTION
+msgid "Tests"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM9.CAPTION
+msgid "Export"
+msgstr ""
+
+#: TFRMMAIN.ACCNEWREPORT.CAPTION
+msgid "New Report"
+msgstr "Neuer Report"
+
+#: TFRMMAIN.ACCEDITREPORT.CAPTION
+msgid "Edit Report"
+msgstr "Report bearbeiten"
+
+#: TFRMMAIN.ACCPREVIEWREPORT.CAPTION
+msgid "Preview Report"
+msgstr ""
+
+#: TFRMMAIN.ACCPRINTGRID.CAPTION
+msgid "Print Grid"
+msgstr ""
+
+#: TFRMMAIN.ACCPRINTREPORT.CAPTION
+msgid "Print Report"
+msgstr ""
+
+#: TFRMMAIN.ACCCLOSE.CAPTION
+msgid "Close"
+msgstr ""
+
+#: TFRMMAIN.ACCEXPORTTOTEXT.CAPTION
+msgid "Export to text"
+msgstr ""
+
+#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
+msgid "Export to html"
+msgstr ""
+
+#: TFRMMAIN.ACCOPENREPORT.CAPTION
+msgid "Open Report"
+msgstr "Report öffnen"
+
+#: TFRMMAIN.ACCEXPORTTOCSV.CAPTION
+msgid "Export to CSV"
+msgstr ""
+
+#: maincalleditor.ceropenreport
+msgid "Open report"
+msgstr "Report öffnen"
+
+#: maincalleditor.cernewreport
+msgid "New report"
+msgstr ""
+
+#: maincalleditor.cerpreviewreport
+msgid "Preview report"
+msgstr "Report-Vorschau"
+
+#: maincalleditor.cerprintreport
+msgid "Print report"
+msgstr "Report drucken"
+
+#: maincalleditor.cerprintgrid
+msgid "Print grid"
+msgstr "Gitter drucken"
+
+#: maincalleditor.cernotimplemented
+msgid "This feature is not yet implemented!"
+msgstr "Diese Funktion ist noch nicht implementiert!"
+
+#: maincalleditor.cerpreparefailed
+msgid "PrepareReport Failed!"
+msgstr "PrepareReport fehlgeschlagen!"
+
+#: maincalleditor.cerindex
+msgid "Index"
+msgstr ""
+
+#: maincalleditor.cernone
+msgid "none"
+msgstr ""
+
+#: maincalleditor.cerindexfields
+msgid "Index Fields: \%s"
+msgstr ""
+
+#: maincalleditor.ceropenreportfirst
+msgid "Open report first"
+msgstr ""
+
+#: maincalleditor.ceractivereport
+msgid "Active report: \%s"
+msgstr ""
+
+#: maincalleditor.cerhintnewreport
+msgid "Create and edit a empty report"
+msgstr ""
+
+#: maincalleditor.cerhintopenreport
+msgid "Open an existing report"
+msgstr ""
+
+#: maincalleditor.cerhinteditreport
+msgid "Edit active report"
+msgstr ""
+
+#: maincalleditor.cerhintprevreport
+msgid "Preview active report"
+msgstr ""
+
+#: maincalleditor.cerhintprevgrid
+msgid "Print preview current DbGrid content"
+msgstr ""
+
+#: maincalleditor.cerhintprnreport
+msgid "Print directly the active report (i.e. without preview)"
+msgstr ""
+
+#: maincalleditor.cerhintcloseapp
+msgid "Close application"
+msgstr ""
+
+#: TFRMMAIN.CAPTION
+msgid "LazReport Test Suite"
+msgstr ""
+

components/lazreport/samples/editor/languages/calleditorwithpkg.es.po

@@ -0,0 +1,143 @@
+msgid ""
+msgstr ""
+"Project-Id-Version: \n"
+"POT-Creation-Date: \n"
+"PO-Revision-Date: 2008-04-22 03:05-0600\n"
+"Last-Translator: Jesus Reyes A. <jesusrmx@yahoo.com.mx>\n"
+"Language-Team: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=iso-8859-1\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: TFRMMAIN.CAPTION
+msgid "Testing LazReport Editor"
+msgstr "Banco de pruebas de LazReport"
+
+#: TFRMMAIN.MENUITEM1.CAPTION
+msgid "Files"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM3.CAPTION
+msgid "Tests"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM9.CAPTION
+msgid "Export"
+msgstr ""
+
+#: TFRMMAIN.ACCNEWREPORT.CAPTION
+msgid "New Report"
+msgstr ""
+
+#: TFRMMAIN.ACCEDITREPORT.CAPTION
+msgid "Edit Report"
+msgstr ""
+
+#: TFRMMAIN.ACCPREVIEWREPORT.CAPTION
+msgid "Preview Report"
+msgstr ""
+
+#: TFRMMAIN.ACCPRINTGRID.CAPTION
+msgid "Print Grid"
+msgstr ""
+
+#: TFRMMAIN.ACCPRINTREPORT.CAPTION
+msgid "Print Report"
+msgstr ""
+
+#: TFRMMAIN.ACCCLOSE.CAPTION
+msgid "Close"
+msgstr ""
+
+#: TFRMMAIN.ACCEXPORTTOTEXT.CAPTION
+msgid "Export to text"
+msgstr ""
+
+#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
+msgid "Export to html"
+msgstr ""
+
+#: TFRMMAIN.ACCOPENREPORT.CAPTION
+msgid "Open Report"
+msgstr "Open Report"
+
+#: TFRMMAIN.ACCEXPORTTOCSV.CAPTION
+msgid "Export to CSV"
+msgstr ""
+
+#: maincalleditor.ceropenreport
+msgid "Open report"
+msgstr "Abrir Informe"
+
+#: maincalleditor.cernewreport
+msgid "New report"
+msgstr "Nuevo informe"
+
+#: maincalleditor.cerpreviewreport
+msgid "Preview report"
+msgstr "Vista Previa"
+
+#: maincalleditor.cerprintreport
+msgid "Print report"
+msgstr "Imprimir Informe"
+
+#: maincalleditor.cerprintgrid
+msgid "Print grid"
+msgstr "Imprimir Rejilla"
+
+#: maincalleditor.cernotimplemented
+msgid "This feature is not yet implemented!"
+msgstr "¡Esta función aún no se ha implementado!"
+
+#: maincalleditor.cerpreparefailed
+msgid "PrepareReport Failed!"
+msgstr "¡PrepareReport ha fallado!"
+
+#: maincalleditor.cerindex
+msgid "Index"
+msgstr "Indice"
+
+#: maincalleditor.cernone
+msgid "none"
+msgstr "Ninguno"
+
+#: maincalleditor.cerindexfields
+msgid "Index Fields: \%s"
+msgstr "Campos del índice: \%s"
+
+#: maincalleditor.ceropenreportfirst
+msgid "Open report first"
+msgstr "Primero necesita abrir un informe"
+
+#: maincalleditor.ceractivereport
+msgid "Active report: \%s"
+msgstr "Informe Activo: \%s"
+
+#: maincalleditor.cerhintnewreport
+msgid "Create and edit a empty report"
+msgstr "Crear y editar un informe vacio"
+
+#: maincalleditor.cerhintopenreport
+msgid "Open an existing report"
+msgstr "Abrir un informe existente"
+
+#: maincalleditor.cerhinteditreport
+msgid "Edit active report"
+msgstr "Editar el informe active"
+
+#: maincalleditor.cerhintprevreport
+msgid "Preview active report"
+msgstr "Vista previa del informe activo"
+
+#: maincalleditor.cerhintprevgrid
+msgid "Print preview current DbGrid content"
+msgstr "Vista previa del contenido actual del DBGrid"
+
+#: maincalleditor.cerhintprnreport
+msgid "Print directly the active report (i.e. without preview)"
+msgstr "Imprimir directamente el informe activo (o sea, sin vista previa)"
+
+#: maincalleditor.cerhintcloseapp
+msgid "Close application"
+msgstr "Cerrar Aplicación"
+

components/lazreport/samples/editor/languages/calleditorwithpkg.lt.po

@@ -0,0 +1,147 @@
+msgid ""
+msgstr ""
+"Project-Id-Version: \n"
+"POT-Creation-Date: \n"
+"PO-Revision-Date: 2008-05-31 14:14-0600\n"
+"Last-Translator: Valdas Jankūnas <skroblas@erdves.lt>\n"
+"Language-Team: Lithuanian\n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=UTF-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: TFRMMAIN.CAPTION
+msgid "Testing LazReport Editor"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM1.CAPTION
+msgid "Files"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM3.CAPTION
+msgid "Tests"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM9.CAPTION
+msgid "Export"
+msgstr ""
+
+#: TFRMMAIN.ACCNEWREPORT.CAPTION
+msgid "New Report"
+msgstr "Naujas pranešimas"
+
+#: TFRMMAIN.ACCEDITREPORT.CAPTION
+msgid "Edit Report"
+msgstr "Keisti pranešimą"
+
+#: TFRMMAIN.ACCPREVIEWREPORT.CAPTION
+msgid "Preview Report"
+msgstr ""
+
+#: TFRMMAIN.ACCPRINTGRID.CAPTION
+msgid "Print Grid"
+msgstr ""
+
+#: TFRMMAIN.ACCPRINTREPORT.CAPTION
+msgid "Print Report"
+msgstr ""
+
+#: TFRMMAIN.ACCCLOSE.CAPTION
+msgid "Close"
+msgstr ""
+
+#: TFRMMAIN.ACCEXPORTTOTEXT.CAPTION
+msgid "Export to text"
+msgstr ""
+
+#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
+msgid "Export to html"
+msgstr ""
+
+#: TFRMMAIN.ACCOPENREPORT.CAPTION
+msgid "Open Report"
+msgstr "Atverti pranešimą"
+
+#: TFRMMAIN.ACCEXPORTTOCSV.CAPTION
+msgid "Export to CSV"
+msgstr ""
+
+#: maincalleditor.ceropenreport
+msgid "Open report"
+msgstr "Atverti pranešimą"
+
+#: maincalleditor.cernewreport
+msgid "New report"
+msgstr ""
+
+#: maincalleditor.cerpreviewreport
+msgid "Preview report"
+msgstr "Pranešimo peržiūra"
+
+#: maincalleditor.cerprintreport
+msgid "Print report"
+msgstr "Spausdinti pranešimą"
+
+#: maincalleditor.cerprintgrid
+msgid "Print grid"
+msgstr "Spausdinti tinklelį"
+
+#: maincalleditor.cernotimplemented
+msgid "This feature is not yet implemented!"
+msgstr "Ši funkcija dar neįgyvendinta!"
+
+#: maincalleditor.cerpreparefailed
+msgid "PrepareReport Failed!"
+msgstr "PrepareReport nepavyko!"
+
+#: maincalleditor.cerindex
+msgid "Index"
+msgstr ""
+
+#: maincalleditor.cernone
+msgid "none"
+msgstr ""
+
+#: maincalleditor.cerindexfields
+msgid "Index Fields: \%s"
+msgstr ""
+
+#: maincalleditor.ceropenreportfirst
+msgid "Open report first"
+msgstr ""
+
+#: maincalleditor.ceractivereport
+msgid "Active report: \%s"
+msgstr ""
+
+#: maincalleditor.cerhintnewreport
+msgid "Create and edit a empty report"
+msgstr ""
+
+#: maincalleditor.cerhintopenreport
+msgid "Open an existing report"
+msgstr ""
+
+#: maincalleditor.cerhinteditreport
+msgid "Edit active report"
+msgstr ""
+
+#: maincalleditor.cerhintprevreport
+msgid "Preview active report"
+msgstr ""
+
+#: maincalleditor.cerhintprevgrid
+msgid "Print preview current DbGrid content"
+msgstr ""
+
+#: maincalleditor.cerhintprnreport
+msgid "Print directly the active report (i.e. without preview)"
+msgstr ""
+
+#: maincalleditor.cerhintcloseapp
+msgid "Close application"
+msgstr ""
+
+#: TFRMMAIN.CAPTION
+msgid "LazReport Test Suite"
+msgstr ""
+

components/lazreport/samples/editor/languages/calleditorwithpkg.po

@@ -0,0 +1,136 @@
+#: TFRMMAIN.CAPTION
+msgid "Testing LazReport Editor"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM1.CAPTION
+msgid "Files"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM3.CAPTION
+msgid "Tests"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM9.CAPTION
+msgid "Export"
+msgstr ""
+
+#: TFRMMAIN.ACCNEWREPORT.CAPTION
+msgid "New Report"
+msgstr ""
+
+#: TFRMMAIN.ACCEDITREPORT.CAPTION
+msgid "Edit Report"
+msgstr ""
+
+#: TFRMMAIN.ACCPREVIEWREPORT.CAPTION
+msgid "Preview Report"
+msgstr ""
+
+#: TFRMMAIN.ACCPRINTGRID.CAPTION
+msgid "Print Grid"
+msgstr ""
+
+#: TFRMMAIN.ACCPRINTREPORT.CAPTION
+msgid "Print Report"
+msgstr ""
+
+#: TFRMMAIN.ACCCLOSE.CAPTION
+msgid "Close"
+msgstr ""
+
+#: TFRMMAIN.ACCEXPORTTOTEXT.CAPTION
+msgid "Export to text"
+msgstr ""
+
+#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
+msgid "Export to html"
+msgstr ""
+
+#: TFRMMAIN.ACCOPENREPORT.CAPTION
+msgid "Open Report"
+msgstr ""
+
+#: TFRMMAIN.ACCEXPORTTOCSV.CAPTION
+msgid "Export to CSV"
+msgstr ""
+
+#: maincalleditor.ceropenreport
+msgid "Open report"
+msgstr ""
+
+#: maincalleditor.cernewreport
+msgid "New report"
+msgstr ""
+
+#: maincalleditor.cerpreviewreport
+msgid "Preview report"
+msgstr ""
+
+#: maincalleditor.cerprintreport
+msgid "Print report"
+msgstr ""
+
+#: maincalleditor.cerprintgrid
+msgid "Print grid"
+msgstr ""
+
+#: maincalleditor.cernotimplemented
+msgid "This feature is not yet implemented!"
+msgstr ""
+
+#: maincalleditor.cerpreparefailed
+msgid "PrepareReport Failed!"
+msgstr ""
+
+#: maincalleditor.cerindex
+msgid "Index"
+msgstr ""
+
+#: maincalleditor.cernone
+msgid "none"
+msgstr ""
+
+#: maincalleditor.cerindexfields
+msgid "Index Fields: \%s"
+msgstr ""
+
+#: maincalleditor.ceropenreportfirst
+msgid "Open report first"
+msgstr ""
+
+#: maincalleditor.ceractivereport
+msgid "Active report: \%s"
+msgstr ""
+
+#: maincalleditor.cerhintnewreport
+msgid "Create and edit a empty report"
+msgstr ""
+
+#: maincalleditor.cerhintopenreport
+msgid "Open an existing report"
+msgstr ""
+
+#: maincalleditor.cerhinteditreport
+msgid "Edit active report"
+msgstr ""
+
+#: maincalleditor.cerhintprevreport
+msgid "Preview active report"
+msgstr ""
+
+#: maincalleditor.cerhintprevgrid
+msgid "Print preview current DbGrid content"
+msgstr ""
+
+#: maincalleditor.cerhintprnreport
+msgid "Print directly the active report (i.e. without preview)"
+msgstr ""
+
+#: maincalleditor.cerhintcloseapp
+msgid "Close application"
+msgstr ""
+
+#: TFRMMAIN.CAPTION
+msgid "LazReport Test Suite"
+msgstr ""
+

components/lazreport/samples/editor/languages/calleditorwithpkg.ru.po

@@ -0,0 +1,147 @@
+msgid ""
+msgstr ""
+"Project-Id-Version: \n"
+"POT-Creation-Date: \n"
+"PO-Revision-Date: 2008-05-31 14:19-0600\n"
+"Last-Translator: Maxim Ganetsky <maxkill@mail.ru>\n"
+"Language-Team: \n"
+"MIME-Version: 1.0\n"
+"Content-Type: text/plain; charset=utf-8\n"
+"Content-Transfer-Encoding: 8bit\n"
+
+#: TFRMMAIN.CAPTION
+msgid "Testing LazReport Editor"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM1.CAPTION
+msgid "Files"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM3.CAPTION
+msgid "Tests"
+msgstr ""
+
+#: TFRMMAIN.MENUITEM9.CAPTION
+msgid "Export"
+msgstr ""
+
+#: TFRMMAIN.ACCNEWREPORT.CAPTION
+msgid "New Report"
+msgstr "Новый отчёт"
+
+#: TFRMMAIN.ACCEDITREPORT.CAPTION
+msgid "Edit Report"
+msgstr "Редактировать отчёт"
+
+#: TFRMMAIN.ACCPREVIEWREPORT.CAPTION
+msgid "Preview Report"
+msgstr ""
+
+#: TFRMMAIN.ACCPRINTGRID.CAPTION
+msgid "Print Grid"
+msgstr ""
+
+#: TFRMMAIN.ACCPRINTREPORT.CAPTION
+msgid "Print Report"
+msgstr ""
+
+#: TFRMMAIN.ACCCLOSE.CAPTION
+msgid "Close"
+msgstr ""
+
+#: TFRMMAIN.ACCEXPORTTOTEXT.CAPTION
+msgid "Export to text"
+msgstr ""
+
+#: TFRMMAIN.ACCEXPORTTOHTML.CAPTION
+msgid "Export to html"
+msgstr ""
+
+#: TFRMMAIN.ACCOPENREPORT.CAPTION
+msgid "Open Report"
+msgstr "Открыть отчёт"
+
+#: TFRMMAIN.ACCEXPORTTOCSV.CAPTION
+msgid "Export to CSV"
+msgstr ""
+
+#: maincalleditor.ceropenreport
+msgid "Open report"
+msgstr "Открыть отчёт"
+
+#: maincalleditor.cernewreport
+msgid "New report"
+msgstr ""
+
+#: maincalleditor.cerpreviewreport
+msgid "Preview report"
+msgstr "Предварительный просмотр отчёта"
+
+#: maincalleditor.cerprintreport
+msgid "Print report"
+msgstr "Печать отчёта"
+
+#: maincalleditor.cerprintgrid
+msgid "Print grid"
+msgstr "Печать сетки"
+
+#: maincalleditor.cernotimplemented
+msgid "This feature is not yet implemented!"
+msgstr "Эта функция ещё не реализована!"
+
+#: maincalleditor.cerpreparefailed
+msgid "PrepareReport Failed!"
+msgstr "Ошибка PrepareReport!"
+
+#: maincalleditor.cerindex
+msgid "Index"
+msgstr ""
+
+#: maincalleditor.cernone
+msgid "none"
+msgstr ""
+
+#: maincalleditor.cerindexfields
+msgid "Index Fields: \%s"
+msgstr ""
+
+#: maincalleditor.ceropenreportfirst
+msgid "Open report first"
+msgstr ""
+
+#: maincalleditor.ceractivereport
+msgid "Active report: \%s"
+msgstr ""
+
+#: maincalleditor.cerhintnewreport
+msgid "Create and edit a empty report"
+msgstr ""
+
+#: maincalleditor.cerhintopenreport
+msgid "Open an existing report"
+msgstr ""
+
+#: maincalleditor.cerhinteditreport
+msgid "Edit active report"
+msgstr ""
+
+#: maincalleditor.cerhintprevreport
+msgid "Preview active report"
+msgstr ""
+
+#: maincalleditor.cerhintprevgrid
+msgid "Print preview current DbGrid content"
+msgstr ""
+
+#: maincalleditor.cerhintprnreport
+msgid "Print directly the active report (i.e. without preview)"
+msgstr ""
+
+#: maincalleditor.cerhintcloseapp
+msgid "Close application"
+msgstr ""
+
+#: TFRMMAIN.CAPTION
+msgid "LazReport Test Suite"
+msgstr ""
+

components/lazreport/samples/editor/languages/maincalleditor.de.po

@@ -1,43 +0,0 @@
-msgid ""
-msgstr ""
-"MIME-Version: 1.0\n"
-"Content-Type: text/plain; charset=UTF-8\n"
-"Content-Transfer-Encoding: 8bit\n"
-"Project-Id-Version: \n"
-"POT-Creation-Date: \n"
-"PO-Revision-Date: 2007-09-19 12:57+0100\n"
-"Last-Translator: Joerg Braun <jb@toolbox-mag.de>\n"
-"Language-Team: \n"
-
-#: maincalleditor:cereditreport
-msgid "Edit Report"
-msgstr "Report bearbeiten"
-
-#: maincalleditor:cernewreport
-msgid "New report"
-msgstr "Neuer Report"
-
-#: maincalleditor:ceropenreport
-msgid "Open report"
-msgstr "Report öffnen"
-
-#: maincalleditor:cerpreparefailed
-msgid "PrepareReport Failed!"
-msgstr "PrepareReport fehlgeschlagen!"
-
-#: maincalleditor:cerpreviewreport
-msgid "Preview report"
-msgstr "Report-Vorschau"
-
-#: maincalleditor:cerprintgrid
-msgid "Print grid"
-msgstr "Gitter drucken"
-
-#: maincalleditor:cerprintreport
-msgid "Print report"
-msgstr "Report drucken"
-
-#: maincalleditor:cernotimplemented
-msgid "This feature is not yet implemented!"
-msgstr "Diese Funktion ist noch nicht implementiert!"
-

components/lazreport/samples/editor/languages/maincalleditor.es.po

@@ -1,38 +0,0 @@
-msgid ""
-msgstr ""
-"MIME-Version: 1.0\n"
-"Content-Type: text/plain; charset=UTF-8\n"
-"Content-Transfer-Encoding: 8bit\n"
-
-#: maincalleditor:cereditreport
-msgid "Edit Report"
-msgstr "Editar Informe"
-
-#: maincalleditor:cernewreport
-msgid "New report"
-msgstr "Nuevo Informe"
-
-#: maincalleditor:ceropenreport
-msgid "Open report"
-msgstr "Abrir Informe"
-
-#: maincalleditor:cerpreparefailed
-msgid "PrepareReport Failed!"
-msgstr "¡Falló PrepareReport!"
-
-#: maincalleditor:cerpreviewreport
-msgid "Preview report"
-msgstr "Vista previa"
-
-#: maincalleditor:cerprintgrid
-msgid "Print grid"
-msgstr "Imprimir rejilla"
-
-#: maincalleditor:cerprintreport
-msgid "Print report"
-msgstr "Imprimir informe"
-
-#: maincalleditor:cernotimplemented
-msgid "This feature is not yet implemented!"
-msgstr "Esta característica no está implementada todavía"
-

components/lazreport/samples/editor/languages/maincalleditor.lt.po

@@ -1,43 +0,0 @@
-msgid ""
-msgstr ""
-"MIME-Version: 1.0\n"
-"Content-Type: text/plain; charset=UTF-8\n"
-"Content-Transfer-Encoding: 8bit\n"
-"Last-Translator: Valdas Jankūnas <skroblas@erdves.lt>\n"
-"PO-Revision-Date: 2007-09-29 14:51+0300\n"
-"Project-Id-Version: maincalleditor\n"
-"Language-Team: Lithuanian\n"
-"X-Generator: KBabel 1.11.4\n"
-
-#: maincalleditor:cereditreport
-msgid "Edit Report"
-msgstr "Keisti pranešimą"
-
-#: maincalleditor:cernewreport
-msgid "New report"
-msgstr "Naujas pranešimas"
-
-#: maincalleditor:ceropenreport
-msgid "Open report"
-msgstr "Atverti pranešimą"
-
-#: maincalleditor:cerpreparefailed
-msgid "PrepareReport Failed!"
-msgstr "PrepareReport nepavyko!"
-
-#: maincalleditor:cerpreviewreport
-msgid "Preview report"
-msgstr "Pranešimo peržiūra"
-
-#: maincalleditor:cerprintgrid
-msgid "Print grid"
-msgstr "Spausdinti tinklelį"
-
-#: maincalleditor:cerprintreport
-msgid "Print report"
-msgstr "Spausdinti pranešimą"
-
-#: maincalleditor:cernotimplemented
-msgid "This feature is not yet implemented!"
-msgstr "Ši funkcija dar neįgyvendinta!"
-

components/lazreport/samples/editor/languages/maincalleditor.po

@@ -1,38 +0,0 @@
-msgid ""
-msgstr ""
-"MIME-Version: 1.0\n"
-"Content-Type: text/plain; charset=UTF-8\n"
-"Content-Transfer-Encoding: 8bit\n"
-
-#: maincalleditor:cereditreport
-msgid "Edit Report"
-msgstr ""
-
-#: maincalleditor:cernewreport
-msgid "New report"
-msgstr ""
-
-#: maincalleditor:ceropenreport
-msgid "Open report"
-msgstr ""
-
-#: maincalleditor:cerpreparefailed
-msgid "PrepareReport Failed!"
-msgstr ""
-
-#: maincalleditor:cerpreviewreport
-msgid "Preview report"
-msgstr ""
-
-#: maincalleditor:cerprintgrid
-msgid "Print grid"
-msgstr ""
-
-#: maincalleditor:cerprintreport
-msgid "Print report"
-msgstr ""
-
-#: maincalleditor:cernotimplemented
-msgid "This feature is not yet implemented!"
-msgstr ""
-

components/lazreport/samples/editor/languages/maincalleditor.ru.po

@@ -1,43 +0,0 @@
-msgid ""
-msgstr ""
-"MIME-Version: 1.0\n"
-"Content-Type: text/plain; charset=UTF-8\n"
-"Content-Transfer-Encoding: 8bit\n"
-"Project-Id-Version: \n"
-"POT-Creation-Date: \n"
-"PO-Revision-Date: 2007-09-17 01:36+0300\n"
-"Last-Translator: Maxim Ganetsky <maxkill@mail.ru>\n"
-"Language-Team: \n"
-
-#: maincalleditor:cereditreport
-msgid "Edit Report"
-msgstr "Редактировать отчёт"
-
-#: maincalleditor:cernewreport
-msgid "New report"
-msgstr "Новый отчёт"
-
-#: maincalleditor:ceropenreport
-msgid "Open report"
-msgstr "Открыть отчёт"
-
-#: maincalleditor:cerpreparefailed
-msgid "PrepareReport Failed!"
-msgstr "Ошибка PrepareReport!"
-
-#: maincalleditor:cerpreviewreport
-msgid "Preview report"
-msgstr "Предварительный просмотр отчёта"
-
-#: maincalleditor:cerprintgrid
-msgid "Print grid"
-msgstr "Печать сетки"
-
-#: maincalleditor:cerprintreport
-msgid "Print report"
-msgstr "Печать отчёта"
-
-#: maincalleditor:cernotimplemented
-msgid "This feature is not yet implemented!"
-msgstr "Эта функция ещё не реализована!"
-

components/lazreport/samples/editor/maincalleditor.lfm

@@ -1,22 +1,35 @@
 object frmMain: TfrmMain
-  Left = 200
+  Left = 277
   Height = 405
-  Top = 144
+  Top = 127
   Width = 573
   HorzScrollBar.Page = 572
-  VertScrollBar.Page = 380
+  VertScrollBar.Page = 384
   ActiveControl = btnCallEditor
-  Caption = 'Testing LazReport Editor'
+  Caption = 'LazReport Test Suite'
-  ClientHeight = 381
+  ClientHeight = 385
   ClientWidth = 573
   Menu = MainMenu1
   OnCreate = frmMainCreate
   ShowHint = True
   LCLVersion = '0.9.25'
+  object lblIndex: TLabel
+    Left = 12
+    Height = 14
+    Top = 44
+    Width = 1
+    ParentColor = False
+  end
+  object lblExpr: TLabel
+    Left = 235
+    Height = 14
+    Top = 44
+    Width = 1
+    ParentColor = False
+  end
   object btnCallEditor: TButton
-    Left = 112
+    Left = 24
     Height = 25
-    Hint = 'Create and edit a empty report'
     Top = 8
     Width = 80
     Action = accNewReport
@@ -24,8 +37,8 @@ object frmMain: TfrmMain
     TabOrder = 0
   end
   object dbGrid1: TDBGrid
-    Height = 321
+    Height = 294
-    Top = 40
+    Top = 68
     Width = 573
     Align = alBottom
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -40,9 +53,8 @@ object frmMain: TfrmMain
     OnTitleClick = dbGrid1TitleClick
   end
   object Button1: TButton
-    Left = 488
+    Left = 479
     Height = 25
-    Hint = 'Print preview current DbGrid content'
     Top = 8
     Width = 75
     Action = accPrintGrid
@@ -50,25 +62,27 @@ object frmMain: TfrmMain
     TabOrder = 1
   end
   object Button2: TButton
-    Left = 280
+    Left = 290
     Height = 25
-    Hint = 'Preview an existing report'
     Top = 8
     Width = 96
     Action = accPreviewReport
     BorderSpacing.InnerBorder = 4
     TabOrder = 2
   end
-  object StatusBar1: TStatusBar
+  object sbar: TStatusBar
-    Height = 20
+    Height = 23
-    Top = 361
+    Top = 362
     Width = 573
-    Panels = <>
+    Panels = <    
+      item
+        Width = 250
+      end>
+    SimplePanel = False
   end
   object Button3: TButton
-    Left = 200
+    Left = 210
     Height = 25
-    Hint = 'Edit an existing report'
     Top = 8
     Width = 75
     Action = accEditReport
@@ -76,9 +90,8 @@ object frmMain: TfrmMain
     TabOrder = 3
   end
   object Button4: TButton
-    Left = 384
+    Left = 391
     Height = 25
-    Hint = 'Print directly an existing report (i.e. without preview)'
     Top = 8
     Width = 83
     Action = accPrintReport
@@ -86,7 +99,7 @@ object frmMain: TfrmMain
     TabOrder = 4
   end
   object btnOpenReport: TButton
-    Left = 8
+    Left = 109
     Height = 25
     Top = 8
     Width = 96
@@ -94,6 +107,16 @@ object frmMain: TfrmMain
     BorderSpacing.InnerBorder = 4
     TabOrder = 6
   end
+  object comboIndex: TComboBox
+    Left = 76
+    Height = 21
+    Top = 40
+    Width = 148
+    AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
+    ItemHeight = 13
+    OnSelect = comboIndexSelect
+    TabOrder = 8
+  end
   object TheReport: TfrReport
     Dataset = frDBDataSet1
     PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
@@ -106,8 +129,8 @@ object frmMain: TfrmMain
   object Dbf1: TDbf
     IndexDefs = <>
     TableLevel = 3
-    left = 96
+    left = 128
-    top = 40
+    top = 72
   end
   object Datasource1: TDatasource
     DataSet = Dbf1
@@ -194,42 +217,36 @@ object frmMain: TfrmMain
       Category = 'Tests'
       Caption = 'New Report'
       DisableIfNoHandler = True
-      Hint = 'Create and edit a empty report'
       OnExecute = accNewReportExecute
     end
     object accEditReport: TAction
       Category = 'Tests'
       Caption = 'Edit Report'
       DisableIfNoHandler = True
-      Hint = 'Edit an existing report'
       OnExecute = accEditReportExecute
     end
     object accPreviewReport: TAction
       Category = 'Tests'
       Caption = 'Preview Report'
       DisableIfNoHandler = True
-      Hint = 'Preview an existing report'
       OnExecute = accPreviewReportExecute
     end
     object accPrintGrid: TAction
       Category = 'Tests'
       Caption = 'Print Grid'
       DisableIfNoHandler = True
-      Hint = 'Print preview current DbGrid content'
       OnExecute = accPrintGridExecute
     end
     object accPrintReport: TAction
       Category = 'Tests'
       Caption = 'Print Report'
       DisableIfNoHandler = True
-      Hint = 'Print directly an existing report (i.e. without preview)'
       OnExecute = accPrintReportExecute
     end
     object accClose: TAction
       Category = 'Files'
       Caption = 'Close'
       DisableIfNoHandler = True
-      Hint = 'Close application'
       OnExecute = accCloseExecute
     end
     object accExportToText: TAction
@@ -264,7 +281,7 @@ object frmMain: TfrmMain
     top = 272
   end
   object frCSVExport1: TfrCSVExport
-    left = 140
+    left = 188
-    top = 40
+    top = 72
   end
 end

components/lazreport/samples/editor/maincalleditor.lrs

@@ -1,88 +1,88 @@
 { Este es un archivo de recurso de Lazarus generado automáticamente }
 
 LazarusResources.Add('TfrmMain','FORMDATA',[
-  'TPF0'#8'TfrmMain'#7'frmMain'#4'Left'#3#200#0#6'Height'#3#149#1#3'Top'#3#144#0
+  'TPF0'#8'TfrmMain'#7'frmMain'#4'Left'#3#21#1#6'Height'#3#149#1#3'Top'#2''#5
-  +#5'Width'#3'='#2#18'HorzScrollBar.Page'#3'<'#2#18'VertScrollBar.Page'#3'|'#1
+  +'Width'#3'='#2#18'HorzScrollBar.Page'#3'<'#2#18'VertScrollBar.Page'#3#128#1
-  +#13'ActiveControl'#7#13'btnCallEditor'#7'Caption'#6#24'Testing LazReport Edi'
+  +#13'ActiveControl'#7#13'btnCallEditor'#7'Caption'#6#20'LazReport Test Suite'
-  +'tor'#12'ClientHeight'#3'}'#1#11'ClientWidth'#3'='#2#4'Menu'#7#9'MainMenu1'#8
+  +#12'ClientHeight'#3#129#1#11'ClientWidth'#3'='#2#4'Menu'#7#9'MainMenu1'#8'On'
-  +'OnCreate'#7#13'frmMainCreate'#8'ShowHint'#9#10'LCLVersion'#6#6'0.9.25'#0#7
+  +'Create'#7#13'frmMainCreate'#8'ShowHint'#9#10'LCLVersion'#6#6'0.9.25'#0#6'TL'
-  +'TButton'#13'btnCallEditor'#4'Left'#2'p'#6'Height'#2#25#4'Hint'#6#30'Create '
+  +'abel'#8'lblIndex'#4'Left'#2#12#6'Height'#2#14#3'Top'#2','#5'Width'#2#1#11'P'
-  +'and edit a empty report'#3'Top'#2#8#5'Width'#2'P'#6'Action'#7#12'accNewRepo'
+  +'arentColor'#8#0#0#6'TLabel'#7'lblExpr'#4'Left'#3#235#0#6'Height'#2#14#3'Top'
-  +'rt'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#0#0#0#7'TDBGrid'#7'dbGr'
+  +#2','#5'Width'#2#1#11'ParentColor'#8#0#0#7'TButton'#13'btnCallEditor'#4'Left'
-  +'id1'#6'Height'#3'A'#1#3'Top'#2'('#5'Width'#3'='#2#5'Align'#7#8'alBottom'#7
+  +#2#24#6'Height'#2#25#3'Top'#2#8#5'Width'#2'P'#6'Action'#7#12'accNewReport'#25
-  +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#5'Color'#7#7'clWhit'
+  +'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#0#0#0#7'TDBGrid'#7'dbGrid1'#6
-  +'e'#10'DataSource'#7#11'Datasource1'#10'FixedColor'#7#9'clBtnFace'#13'FixedH'
+  +'Height'#3'&'#1#3'Top'#2'D'#5'Width'#3'='#2#5'Align'#7#8'alBottom'#7'Anchors'
-  +'otColor'#7#9'cl3DLight'#7'Options'#11#9'dgEditing'#8'dgTitles'#11'dgIndicat'
+  +#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#5'Color'#7#7'clWhite'#10'Dat'
-  +'or'#14'dgColumnResize'#10'dgColLines'#10'dgRowLines'#6'dgTabs'#21'dgAlwaysS'
+  +'aSource'#7#11'Datasource1'#10'FixedColor'#7#9'clBtnFace'#13'FixedHotColor'#7
-  +'howSelection'#15'dgConfirmDelete'#14'dgCancelOnExit'#0#12'OptionsExtra'#11
+  +#9'cl3DLight'#7'Options'#11#9'dgEditing'#8'dgTitles'#11'dgIndicator'#14'dgCo'
-  +#14'dgeAutoColumns'#17'dgeCheckboxColumn'#0#11'ParentColor'#8#8'TabOrder'#2#5
+  +'lumnResize'#10'dgColLines'#10'dgRowLines'#6'dgTabs'#21'dgAlwaysShowSelectio'
-  +#12'OnTitleClick'#7#17'dbGrid1TitleClick'#0#0#7'TButton'#7'Button1'#4'Left'#3
+  +'n'#15'dgConfirmDelete'#14'dgCancelOnExit'#0#12'OptionsExtra'#11#14'dgeAutoC'
-  +#232#1#6'Height'#2#25#4'Hint'#6'$Print preview current DbGrid content'#3'Top'
+  +'olumns'#17'dgeCheckboxColumn'#0#11'ParentColor'#8#8'TabOrder'#2#5#12'OnTitl'
-  +#2#8#5'Width'#2'K'#6'Action'#7#12'accPrintGrid'#25'BorderSpacing.InnerBorder'
+  +'eClick'#7#17'dbGrid1TitleClick'#0#0#7'TButton'#7'Button1'#4'Left'#3#223#1#6
-  +#2#4#8'TabOrder'#2#1#0#0#7'TButton'#7'Button2'#4'Left'#3#24#1#6'Height'#2#25
+  +'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#6'Action'#7#12'accPrintGrid'#25'Borde'
-  +#4'Hint'#6#26'Preview an existing report'#3'Top'#2#8#5'Width'#2'`'#6'Action'
+  +'rSpacing.InnerBorder'#2#4#8'TabOrder'#2#1#0#0#7'TButton'#7'Button2'#4'Left'
-  +#7#16'accPreviewReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#2#0#0
+  +#3'"'#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'`'#6'Action'#7#16'accPreviewRep'
-  +#10'TStatusBar'#10'StatusBar1'#6'Height'#2#20#3'Top'#3'i'#1#5'Width'#3'='#2#6
+  +'ort'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#2#0#0#10'TStatusBar'#4
-  +'Panels'#14#0#0#0#7'TButton'#7'Button3'#4'Left'#3#200#0#6'Height'#2#25#4'Hin'
+  +'sbar'#6'Height'#2#23#3'Top'#3'j'#1#5'Width'#3'='#2#6'Panels'#14#1#5'Width'#3
-  +'t'#6#23'Edit an existing report'#3'Top'#2#8#5'Width'#2'K'#6'Action'#7#13'ac'
+  +#250#0#0#0#11'SimplePanel'#8#0#0#7'TButton'#7'Button3'#4'Left'#3#210#0#6'Hei'
-  +'cEditReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#3#0#0#7'TButto'
+  +'ght'#2#25#3'Top'#2#8#5'Width'#2'K'#6'Action'#7#13'accEditReport'#25'BorderS'
-  +'n'#7'Button4'#4'Left'#3#128#1#6'Height'#2#25#4'Hint'#6'8Print directly an e'
+  +'pacing.InnerBorder'#2#4#8'TabOrder'#2#3#0#0#7'TButton'#7'Button4'#4'Left'#3
-  +'xisting report (i.e. without preview)'#3'Top'#2#8#5'Width'#2'S'#6'Action'#7
+  +#135#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'S'#6'Action'#7#14'accPrintReport'
-  +#14'accPrintReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#7
+  +#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#7'TButton'#13'btnOpen'
-  +'TButton'#13'btnOpenReport'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2
+  +'Report'#4'Left'#2'm'#6'Height'#2#25#3'Top'#2#8#5'Width'#2'`'#6'Action'#7#13
-  +'`'#6'Action'#7#13'accOpenReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrd'
+  +'accOpenReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#6#0#0#9'TCom'
-  +'er'#2#6#0#0#9'TfrReport'#9'TheReport'#7'Dataset'#7#12'frDBDataSet1'#14'Prev'
+  +'boBox'#10'comboIndex'#4'Left'#2'L'#6'Height'#2#21#3'Top'#2'('#5'Width'#3#148
-  +'iewButtons'#11#6'pbZoom'#6'pbLoad'#6'pbSave'#7'pbPrint'#6'pbFind'#6'pbHelp'
+  +#0#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscendin'
-  +#6'pbExit'#0#4'left'#2'`'#3'top'#2'p'#10'ReportForm'#10#4#0#0#0#24#0#0#0#0#0
+  +'g'#0#10'ItemHeight'#2#13#8'OnSelect'#7#16'comboIndexSelect'#8'TabOrder'#2#8
-  +#4'TDbf'#4'Dbf1'#9'IndexDefs'#14#0#10'TableLevel'#2#3#4'left'#2'`'#3'top'#2
+  +#0#0#9'TfrReport'#9'TheReport'#7'Dataset'#7#12'frDBDataSet1'#14'PreviewButto'
-  +'('#0#0#11'TDatasource'#11'Datasource1'#7'DataSet'#7#4'Dbf1'#4'left'#2'`'#3
+  +'ns'#11#6'pbZoom'#6'pbLoad'#6'pbSave'#7'pbPrint'#6'pbFind'#6'pbHelp'#6'pbExi'
-  +'top'#2'H'#0#0#12'TfrDBDataSet'#12'frDBDataSet1'#7'DataSet'#7#4'Dbf1'#4'left'
+  +'t'#0#4'left'#2'`'#3'top'#2'p'#10'ReportForm'#10#4#0#0#0#24#0#0#0#0#0#4'TDbf'
-  +#2'`'#3'top'#3#144#0#0#0#12'TFrPrintGrid'#2'PG'#6'DBGrid'#7#7'dbGrid1'#11'Or'
+  +#4'Dbf1'#9'IndexDefs'#14#0#10'TableLevel'#2#3#4'left'#3#128#0#3'top'#2'H'#0#0
-  +'ientation'#7#11'poLandscape'#7'Caption'#6#4'Grid'#11'ShowCaption'#9#4'left'
+  +#11'TDatasource'#11'Datasource1'#7'DataSet'#7#4'Dbf1'#4'left'#2'`'#3'top'#2
-  +#2'`'#3'top'#3#176#0#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2#8#3'top'#2'`'#0
+  +'H'#0#0#12'TfrDBDataSet'#12'frDBDataSet1'#7'DataSet'#7#4'Dbf1'#4'left'#2'`'#3
-  +#9'TMenuItem'#9'MenuItem1'#7'Caption'#6#5'Files'#0#9'TMenuItem'#9'MenuItem2'
+  +'top'#3#144#0#0#0#12'TFrPrintGrid'#2'PG'#6'DBGrid'#7#7'dbGrid1'#11'Orientati'
-  +#6'Action'#7#8'accClose'#7'OnClick'#7#15'accCloseExecute'#0#0#0#9'TMenuItem'
+  +'on'#7#11'poLandscape'#7'Caption'#6#4'Grid'#11'ShowCaption'#9#4'left'#2'`'#3
-  +#9'MenuItem3'#7'Caption'#6#5'Tests'#0#9'TMenuItem'#9'MenuItem4'#6'Action'#7
+  +'top'#3#176#0#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2#8#3'top'#2'`'#0#9'TMen'
-  +#12'accNewReport'#7'OnClick'#7#19'accNewReportExecute'#0#0#9'TMenuItem'#9'Me'
+  +'uItem'#9'MenuItem1'#7'Caption'#6#5'Files'#0#9'TMenuItem'#9'MenuItem2'#6'Act'
-  +'nuItem5'#6'Action'#7#13'accEditReport'#7'OnClick'#7#20'accEditReportExecute'
+  +'ion'#7#8'accClose'#7'OnClick'#7#15'accCloseExecute'#0#0#0#9'TMenuItem'#9'Me'
-  +#0#0#9'TMenuItem'#9'MenuItem6'#6'Action'#7#16'accPreviewReport'#7'OnClick'#7
+  +'nuItem3'#7'Caption'#6#5'Tests'#0#9'TMenuItem'#9'MenuItem4'#6'Action'#7#12'a'
-  +#23'accPreviewReportExecute'#0#0#9'TMenuItem'#9'MenuItem7'#6'Action'#7#14'ac'
+  +'ccNewReport'#7'OnClick'#7#19'accNewReportExecute'#0#0#9'TMenuItem'#9'MenuIt'
-  +'cPrintReport'#7'OnClick'#7#21'accPrintReportExecute'#0#0#9'TMenuItem'#9'Men'
+  +'em5'#6'Action'#7#13'accEditReport'#7'OnClick'#7#20'accEditReportExecute'#0#0
-  +'uItem8'#6'Action'#7#12'accPrintGrid'#7'OnClick'#7#19'accPrintGridExecute'#0
+  +#9'TMenuItem'#9'MenuItem6'#6'Action'#7#16'accPreviewReport'#7'OnClick'#7#23
-  +#0#0#9'TMenuItem'#9'MenuItem9'#7'Caption'#6#6'Export'#0#9'TMenuItem'#10'Menu'
+  +'accPreviewReportExecute'#0#0#9'TMenuItem'#9'MenuItem7'#6'Action'#7#14'accPr'
-  +'Item10'#6'Action'#7#15'accExportToText'#7'OnClick'#7#22'accExportToTextExec'
+  +'intReport'#7'OnClick'#7#21'accPrintReportExecute'#0#0#9'TMenuItem'#9'MenuIt'
-  +'ute'#0#0#9'TMenuItem'#10'MenuItem11'#6'Action'#7#15'accExportToHtml'#7'OnCl'
+  +'em8'#6'Action'#7#12'accPrintGrid'#7'OnClick'#7#19'accPrintGridExecute'#0#0#0
-  +'ick'#7#22'accExportToHtmlExecute'#0#0#9'TMenuItem'#10'MenuItem12'#6'Action'
+  +#9'TMenuItem'#9'MenuItem9'#7'Caption'#6#6'Export'#0#9'TMenuItem'#10'MenuItem'
-  +#7#14'accExportToCSV'#7'OnClick'#7#21'accExportToCSVExecute'#0#0#0#0#22'TApp'
+  +'10'#6'Action'#7#15'accExportToText'#7'OnClick'#7#22'accExportToTextExecute'
-  +'licationProperties'#22'ApplicationProperties1'#17'CaptureExceptions'#9#9'Hi'
+  +#0#0#9'TMenuItem'#10'MenuItem11'#6'Action'#7#15'accExportToHtml'#7'OnClick'#7
-  +'ntColor'#7#8'clInfoBk'#13'HintHidePause'#3#196#9#9'HintPause'#2#10#13'HintS'
+  +#22'accExportToHtmlExecute'#0#0#9'TMenuItem'#10'MenuItem12'#6'Action'#7#14'a'
-  +'hortCuts'#9#8'ShowHint'#9#10'OnShowHint'#7#30'ApplicationProperties1ShowHin'
+  +'ccExportToCSV'#7'OnClick'#7#21'accExportToCSVExecute'#0#0#0#0#22'TApplicati'
-  +'t'#4'left'#2'`'#3'top'#3#240#0#0#0#11'TActionList'#11'ActionList1'#4'left'#2
+  +'onProperties'#22'ApplicationProperties1'#17'CaptureExceptions'#9#9'HintColo'
-  +'0'#3'top'#2'`'#0#7'TAction'#12'accNewReport'#8'Category'#6#5'Tests'#7'Capti'
+  +'r'#7#8'clInfoBk'#13'HintHidePause'#3#196#9#9'HintPause'#2#10#13'HintShortCu'
-  +'on'#6#10'New Report'#18'DisableIfNoHandler'#9#4'Hint'#6#30'Create and edit '
+  +'ts'#9#8'ShowHint'#9#10'OnShowHint'#7#30'ApplicationProperties1ShowHint'#4'l'
-  +'a empty report'#9'OnExecute'#7#19'accNewReportExecute'#0#0#7'TAction'#13'ac'
+  +'eft'#2'`'#3'top'#3#240#0#0#0#11'TActionList'#11'ActionList1'#4'left'#2'0'#3
-  +'cEditReport'#8'Category'#6#5'Tests'#7'Caption'#6#11'Edit Report'#18'Disable'
+  +'top'#2'`'#0#7'TAction'#12'accNewReport'#8'Category'#6#5'Tests'#7'Caption'#6
-  +'IfNoHandler'#9#4'Hint'#6#23'Edit an existing report'#9'OnExecute'#7#20'accE'
+  +#10'New Report'#18'DisableIfNoHandler'#9#9'OnExecute'#7#19'accNewReportExecu'
-  +'ditReportExecute'#0#0#7'TAction'#16'accPreviewReport'#8'Category'#6#5'Tests'
+  +'te'#0#0#7'TAction'#13'accEditReport'#8'Category'#6#5'Tests'#7'Caption'#6#11
-  +#7'Caption'#6#14'Preview Report'#18'DisableIfNoHandler'#9#4'Hint'#6#26'Previ'
+  +'Edit Report'#18'DisableIfNoHandler'#9#9'OnExecute'#7#20'accEditReportExecut'
-  ,'ew an existing report'#9'OnExecute'#7#23'accPreviewReportExecute'#0#0#7'TAc'
+  ,'e'#0#0#7'TAction'#16'accPreviewReport'#8'Category'#6#5'Tests'#7'Caption'#6
-  +'tion'#12'accPrintGrid'#8'Category'#6#5'Tests'#7'Caption'#6#10'Print Grid'#18
+  +#14'Preview Report'#18'DisableIfNoHandler'#9#9'OnExecute'#7#23'accPreviewRep'
-  +'DisableIfNoHandler'#9#4'Hint'#6'$Print preview current DbGrid content'#9'On'
+  +'ortExecute'#0#0#7'TAction'#12'accPrintGrid'#8'Category'#6#5'Tests'#7'Captio'
-  +'Execute'#7#19'accPrintGridExecute'#0#0#7'TAction'#14'accPrintReport'#8'Cate'
+  +'n'#6#10'Print Grid'#18'DisableIfNoHandler'#9#9'OnExecute'#7#19'accPrintGrid'
-  +'gory'#6#5'Tests'#7'Caption'#6#12'Print Report'#18'DisableIfNoHandler'#9#4'H'
+  +'Execute'#0#0#7'TAction'#14'accPrintReport'#8'Category'#6#5'Tests'#7'Caption'
-  +'int'#6'8Print directly an existing report (i.e. without preview)'#9'OnExecu'
+  +#6#12'Print Report'#18'DisableIfNoHandler'#9#9'OnExecute'#7#21'accPrintRepor'
-  +'te'#7#21'accPrintReportExecute'#0#0#7'TAction'#8'accClose'#8'Category'#6#5
+  +'tExecute'#0#0#7'TAction'#8'accClose'#8'Category'#6#5'Files'#7'Caption'#6#5
-  +'Files'#7'Caption'#6#5'Close'#18'DisableIfNoHandler'#9#4'Hint'#6#17'Close ap'
+  +'Close'#18'DisableIfNoHandler'#9#9'OnExecute'#7#15'accCloseExecute'#0#0#7'TA'
-  +'plication'#9'OnExecute'#7#15'accCloseExecute'#0#0#7'TAction'#15'accExportTo'
+  +'ction'#15'accExportToText'#8'Category'#6#6'Export'#7'Caption'#6#14'Export t'
-  +'Text'#8'Category'#6#6'Export'#7'Caption'#6#14'Export to text'#18'DisableIfN'
+  +'o text'#18'DisableIfNoHandler'#9#9'OnExecute'#7#22'accExportToTextExecute'#0
-  +'oHandler'#9#9'OnExecute'#7#22'accExportToTextExecute'#0#0#7'TAction'#15'acc'
+  +#0#7'TAction'#15'accExportToHtml'#8'Category'#6#6'Export'#7'Caption'#6#14'Ex'
-  +'ExportToHtml'#8'Category'#6#6'Export'#7'Caption'#6#14'Export to html'#18'Di'
+  +'port to html'#18'DisableIfNoHandler'#9#9'OnExecute'#7#22'accExportToHtmlExe'
-  +'sableIfNoHandler'#9#9'OnExecute'#7#22'accExportToHtmlExecute'#0#0#7'TAction'
+  +'cute'#0#0#7'TAction'#13'accOpenReport'#8'Category'#6#5'Files'#7'Caption'#6
-  +#13'accOpenReport'#8'Category'#6#5'Files'#7'Caption'#6#11'Open Report'#18'Di'
+  +#11'Open Report'#18'DisableIfNoHandler'#9#9'OnExecute'#7#20'accOpenReportExe'
-  +'sableIfNoHandler'#9#9'OnExecute'#7#20'accOpenReportExecute'#0#0#7'TAction'
+  +'cute'#0#0#7'TAction'#14'accExportToCSV'#8'Category'#6#6'Export'#7'Caption'#6
-  +#14'accExportToCSV'#8'Category'#6#6'Export'#7'Caption'#6#13'Export to CSV'#18
+  +#13'Export to CSV'#18'DisableIfNoHandler'#9#9'OnExecute'#7#21'accExportToCSV'
-  +'DisableIfNoHandler'#9#9'OnExecute'#7#21'accExportToCSVExecute'#0#0#0#11'TOp'
+  +'Execute'#0#0#0#11'TOpenDialog'#11'OpenDialog1'#6'Filter'#6':LazReport Files'
-  +'enDialog'#11'OpenDialog1'#6'Filter'#6':LazReport Files|*.lrf|FreeReport Fil'
+  +'|*.lrf|FreeReport Files|*.frf|All Files|*.*'#11'FilterIndex'#2#0#4'left'#2
-  +'es|*.frf|All Files|*.*'#11'FilterIndex'#2#0#4'left'#2'd'#3'top'#3#16#1#0#0
+  +'d'#3'top'#3#16#1#0#0#12'TfrCSVExport'#12'frCSVExport1'#4'left'#3#188#0#3'to'
-  +#12'TfrCSVExport'#12'frCSVExport1'#4'left'#3#140#0#3'top'#2'('#0#0#0
+  +'p'#2'H'#0#0#0
 ]);

components/lazreport/samples/editor/maincalleditor.pas

@@ -53,11 +53,14 @@ type
     Button3: TButton;
     Button4: TButton;
     btnOpenReport: TButton;
+    comboIndex: TComboBox;
     Datasource1: TDatasource;
     Dbf1: TDbf;
     dbGrid1: TdbGrid;
     frCSVExport1: TfrCSVExport;
     frDBDataSet1: TfrDBDataSet;
+    lblExpr: TLabel;
+    lblIndex: TLabel;
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
     MenuItem10: TMenuItem;
@@ -73,7 +76,7 @@ type
     MenuItem9: TMenuItem;
     OpenDialog1: TOpenDialog;
     PG: TfrPrintGrid;
-    StatusBar1: TStatusBar;
+    sbar: TStatusBar;
     TheReport: TfrReport;
     procedure accExportToCSVExecute(Sender: TObject);
     procedure accExportToHtmlExecute(Sender: TObject);
@@ -87,11 +90,15 @@ type
     procedure accPreviewReportExecute(Sender: TObject);
     procedure accPrintGridExecute(Sender: TObject);
     procedure accPrintReportExecute(Sender: TObject);
+    procedure comboIndexSelect(Sender: TObject);
     procedure dbGrid1TitleClick(Column: TColumn);
     procedure frmMainCreate(Sender: TObject);
   private
     { private declarations }
     procedure UpdateAppTranslation;
+    procedure SetIndex(const aIndexName: string);
+    procedure OpenReport(const aFileName:string);
+    procedure UpdateActiveReport;
   public
     { public declarations }
   end; 
@@ -112,14 +119,50 @@ resourcestring
   cerPrintGrid      = 'Print grid';
   cerNotImplemented = 'This feature is not yet implemented!';
   cerPrepareFailed  = 'PrepareReport Failed!';
+  cerIndex          = 'Index';
+  cerNone           = 'none';
+  cerIndexFields    = 'Index Fields: %s';
+  cerOpenReportFirst= 'Open report first';
+  cerActiveReport   = 'Active report: %s';
+  cerHintNewReport  = 'Create and edit a empty report';
+  cerHintOpenReport = 'Open an existing report';
+  cerHintEditReport = 'Edit active report';
+  cerHintPrevReport = 'Preview active report';
+  cerHintPrevGrid   = 'Print preview current DbGrid content';
+  cerHintPrnReport  = 'Print directly the active report (i.e. without preview)';
+  cerHintCloseApp   = 'Close application';
+  cerAppCaption     = 'LazReport Test Suite';
+  
 
 { TfrmMain }
 
+procedure TfrmMain.UpdateAppTranslation;
+begin
+  accOpenReport.Caption := cerOpenReport;
+  accNewReport.Caption := cerNewReport;
+  accEditReport.Caption := cerEditReport;
+  accPreviewReport.Caption := cerPreviewReport;
+  accPrintReport.Caption := cerPrintReport;
+  accPrintGrid.Caption := cerPrintGrid;
+  lblIndex.Caption:=cerIndex;
+
+  accNewReport.Hint := cerHintNewReport;
+  accOpenReport.Hint := cerHintOpenReport;
+  accEditReport.Hint := cerHintEditReport;
+  accPreviewReport.Hint := cerHintPrevReport;
+  accPrintGrid.Hint := cerHintPrevGrid;
+  accPrintReport.Hint := cerHintPrnReport;
+  accClose.Hint := cerHintCloseApp;
+
+  caption := cerAppCaption;
+end;
+
 procedure TfrmMain.ApplicationProperties1ShowHint(var HintStr: string;
   var CanShow: Boolean; var HintInfo: THintInfo);
 begin
-  StatusBar1.SimpleText := HintStr;
+  sbar.SimpleText := HintStr;
   CanShow := False;
+  sbar.SimplePanel := HintStr<>'';
 end;
 
 procedure TfrmMain.accExportToTextExecute(Sender: TObject);
@@ -158,7 +201,8 @@ end;
 
 procedure TfrmMain.accEditReportExecute(Sender: TObject);
 begin
-  TheReport.LoadFromFile(ExtractFilePath(ParamStr(0))+'salida.lrf');
+  if TheReport.FileName='' then
+    raise Exception.Create(cerOpenReportFirst);
   TheReport.DesignReport;
 end;
 
@@ -166,19 +210,18 @@ procedure TfrmMain.accNewReportExecute(Sender: TObject);
 begin
   TheReport.Pages.Clear;
   TheReport.DesignReport;
+  UpdateActiveReport;
 end;
 
 procedure TfrmMain.accOpenReportExecute(Sender: TObject);
 begin
   if OpenDialog1.Execute then begin
-    TheReport.LoadFromFile(OpenDialog1.FileName);
+    OpenReport(OpenDialog1.FileName);
-    TheReport.DesignReport;
   end;
 end;
 
 procedure TfrmMain.accPreviewReportExecute(Sender: TObject);
 begin
-  TheReport.LoadFromFile(ExtractFilePath(ParamStr(0))+'salida.lrf');
   TheReport.ShowReport;
 end;
 
@@ -189,28 +232,41 @@ end;
 
 procedure TfrmMain.accPrintReportExecute(Sender: TObject);
 begin
-  TheReport.LoadFromFile(ExtractFilePath(ParamStr(0))+'salida.lrf');
   if TheReport.PrepareReport then
     TheReport.PrintPreparedReport('1',1)
   else
     ShowMessage(cerPrepareFailed);
 end;
 
+procedure TfrmMain.comboIndexSelect(Sender: TObject);
+var
+  i: Integer;
+begin
+  i := comboIndex.ItemIndex;
+  if i<=0 then begin
+    SetIndex('');
+  end else begin
+    SetIndex(comboIndex.Items[i]);
+  end;
+end;
+
 procedure TfrmMain.dbGrid1TitleClick(Column: TColumn);
 begin
   if CompareText(Column.FieldName,'year')=0 then
-    dbf1.IndexName := 'ByYear'
+    SetIndex('ByYear')
   else
   if CompareText(Column.FieldName,'company')=0 then
-    dbf1.IndexName := 'ByCompany'
+    SetIndex('ByCompany')
   else
   if CompareText(Column.FieldName,'country')=0 then
-    dbf1.IndexName := 'ByCountry'
+    SetIndex('ByCountry')
   else
-    dbf1.IndexName := '';
+    SetIndex('');
 end;
 
 procedure TfrmMain.frmMainCreate(Sender: TObject);
+var
+  i: integer;
 begin
 
   UpdateAppTranslation;
@@ -219,16 +275,32 @@ begin
   dbf1.FilePath := 'db/';
   dbf1.TableName := 'disco.dbf';
   dbf1.open;
+  
+  comboIndex.Clear;
+  comboIndex.Items.Add(cerNone);
+  for i:=0 to Dbf1.Indexes.Count-1 do
+    comboIndex.Items.Add(Dbf1.Indexes[i].Name);
+  SetIndex('');
+  
+  if fileexists(ExtractFilePath(ParamStr(0))+'salida.lrf') then
+    OpenReport(ExtractFilePath(ParamStr(0))+'salida.lrf');
 end;
 
-procedure TfrmMain.UpdateAppTranslation;
+procedure TfrmMain.SetIndex(const aIndexName: string);
 begin
-  accOpenReport.Caption := cerOpenReport;
+  dbf1.IndexName := aIndexName;
-  accNewReport.Caption := cerNewReport;
+  lblExpr.Caption:= format(cerIndexFields, [dbf1.IndexFieldNames]);
-  accEditReport.Caption := cerEditReport;
+end;
-  accPreviewReport.Caption := cerPreviewReport;
+
-  accPrintReport.Caption := cerPrintReport;
+procedure TfrmMain.OpenReport(const aFileName: string);
-  accPrintGrid.Caption := cerPrintGrid;
+begin
+  TheReport.LoadFromFile(aFileName);
+  UpdateActiveReport;
+end;
+
+procedure TfrmMain.UpdateActiveReport;
+begin
+  SBar.Panels[0].Text:= format(cerActiveReport, [TheReport.FileName]);
 end;
 
 procedure TranslateResStrings;
@@ -237,7 +309,7 @@ var
 begin
   GetLanguageIDs(Lang,FallbackLang); // in unit gettext
   TranslateUnitResourceStrings('LCLStrConsts','../../../../lcl/languages/lclstrconsts.%s.po', Lang,FallbackLang);
-  TranslateUnitResourceStrings('MaincallEditor','languages/maincalleditor.%s.po', Lang,FallbackLang);
+  TranslateUnitResourceStrings('MainCallEditor','languages/calleditorwithpkg.%s.po', Lang,FallbackLang);
   TranslateUnitResourceStrings('Lr_const','../../languages/lr_const.%s.po', Lang,FallbackLang);
 end;