lazreport, updated editor sample (indices and current report)

git-svn-id: trunk@15291 -
2025-04-18 09:29:35 +02:00 · 2008-06-02 15:41:58 +00:00 · 2008-06-02 15:41:58 +00:00 · 6aa7877586
commit 6aa7877586
parent b0f0710df2
18 changed files with 981 additions and 371 deletions
--- a/.gitattributes
+++ b/.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/maincalleditor.es.po svneol=native#text/plain
-components/lazreport/samples/editor/languages/maincalleditor.lt.po svneol=native#text/plain
-components/lazreport/samples/editor/languages/maincalleditor.po svneol=native#text/plain
-components/lazreport/samples/editor/languages/maincalleditor.ru.po svneol=native#text/plain
+components/lazreport/samples/editor/languages/calleditorwithpkg.de.po svneol=native#text/plain
+components/lazreport/samples/editor/languages/calleditorwithpkg.es.po svneol=native#text/plain
+components/lazreport/samples/editor/languages/calleditorwithpkg.lt.po svneol=native#text/plain
+components/lazreport/samples/editor/languages/calleditorwithpkg.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
--- a/components/lazreport/samples/editor/albumsbycountry.lrf
+++ b/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"/>
-        <Height Value="720" PageType="0"/>
-        <PgSize Value="1"/>
+        <Width Value="4800"/>
+        <Height Value="6258" PageType="0"/>
+        <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>
--- a/components/lazreport/samples/editor/calleditorwithpkg.lpi
+++ b/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"/>
-        <TopLine Value="24"/>
+        <CursorPos X="3" Y="116"/>
+        <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"/>
--- a/components/lazreport/samples/editor/db/disco.dbf
+++ b/components/lazreport/samples/editor/db/disco.dbf
--- a/components/lazreport/samples/editor/db/disco.mdx
+++ b/components/lazreport/samples/editor/db/disco.mdx
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.de.po
+++ b/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 ""
+
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.es.po
+++ b/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"
+
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.lt.po
+++ b/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 ""
+
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.po
+++ b/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 ""
+
--- a/components/lazreport/samples/editor/languages/calleditorwithpkg.ru.po
+++ b/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 ""
+
--- a/components/lazreport/samples/editor/languages/maincalleditor.de.po
+++ b/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!"
-
--- a/components/lazreport/samples/editor/languages/maincalleditor.es.po
+++ b/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"
-
--- a/components/lazreport/samples/editor/languages/maincalleditor.lt.po
+++ b/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!"
-
--- a/components/lazreport/samples/editor/languages/maincalleditor.po
+++ b/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 ""
-
--- a/components/lazreport/samples/editor/languages/maincalleditor.ru.po
+++ b/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 "Эта функция ещё не реализована!"
-
--- a/components/lazreport/samples/editor/maincalleditor.lfm
+++ b/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'
-  ClientHeight = 381
+  Caption = 'LazReport Test Suite'
+  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
-    Top = 40
+    Height = 294
+    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
-    Height = 20
-    Top = 361
+  object sbar: TStatusBar
+    Height = 23
+    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
-    top = 40
+    left = 128
+    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
-    top = 40
+    left = 188
+    top = 72
  end
 end
--- a/components/lazreport/samples/editor/maincalleditor.lrs
+++ b/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
-  +#5'Width'#3'='#2#18'HorzScrollBar.Page'#3'<'#2#18'VertScrollBar.Page'#3'|'#1
-  +#13'ActiveControl'#7#13'btnCallEditor'#7'Caption'#6#24'Testing LazReport Edi'
-  +'tor'#12'ClientHeight'#3'}'#1#11'ClientWidth'#3'='#2#4'Menu'#7#9'MainMenu1'#8
-  +'OnCreate'#7#13'frmMainCreate'#8'ShowHint'#9#10'LCLVersion'#6#6'0.9.25'#0#7
-  +'TButton'#13'btnCallEditor'#4'Left'#2'p'#6'Height'#2#25#4'Hint'#6#30'Create '
-  +'and edit a empty report'#3'Top'#2#8#5'Width'#2'P'#6'Action'#7#12'accNewRepo'
-  +'rt'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#0#0#0#7'TDBGrid'#7'dbGr'
-  +'id1'#6'Height'#3'A'#1#3'Top'#2'('#5'Width'#3'='#2#5'Align'#7#8'alBottom'#7
-  +'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#5'Color'#7#7'clWhit'
-  +'e'#10'DataSource'#7#11'Datasource1'#10'FixedColor'#7#9'clBtnFace'#13'FixedH'
-  +'otColor'#7#9'cl3DLight'#7'Options'#11#9'dgEditing'#8'dgTitles'#11'dgIndicat'
-  +'or'#14'dgColumnResize'#10'dgColLines'#10'dgRowLines'#6'dgTabs'#21'dgAlwaysS'
-  +'howSelection'#15'dgConfirmDelete'#14'dgCancelOnExit'#0#12'OptionsExtra'#11
-  +#14'dgeAutoColumns'#17'dgeCheckboxColumn'#0#11'ParentColor'#8#8'TabOrder'#2#5
-  +#12'OnTitleClick'#7#17'dbGrid1TitleClick'#0#0#7'TButton'#7'Button1'#4'Left'#3
-  +#232#1#6'Height'#2#25#4'Hint'#6'$Print preview current DbGrid content'#3'Top'
-  +#2#8#5'Width'#2'K'#6'Action'#7#12'accPrintGrid'#25'BorderSpacing.InnerBorder'
-  +#2#4#8'TabOrder'#2#1#0#0#7'TButton'#7'Button2'#4'Left'#3#24#1#6'Height'#2#25
-  +#4'Hint'#6#26'Preview an existing report'#3'Top'#2#8#5'Width'#2'`'#6'Action'
-  +#7#16'accPreviewReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#2#0#0
-  +#10'TStatusBar'#10'StatusBar1'#6'Height'#2#20#3'Top'#3'i'#1#5'Width'#3'='#2#6
-  +'Panels'#14#0#0#0#7'TButton'#7'Button3'#4'Left'#3#200#0#6'Height'#2#25#4'Hin'
-  +'t'#6#23'Edit an existing report'#3'Top'#2#8#5'Width'#2'K'#6'Action'#7#13'ac'
-  +'cEditReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#3#0#0#7'TButto'
-  +'n'#7'Button4'#4'Left'#3#128#1#6'Height'#2#25#4'Hint'#6'8Print directly an e'
-  +'xisting report (i.e. without preview)'#3'Top'#2#8#5'Width'#2'S'#6'Action'#7
-  +#14'accPrintReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#7
-  +'TButton'#13'btnOpenReport'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2
-  +'`'#6'Action'#7#13'accOpenReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrd'
-  +'er'#2#6#0#0#9'TfrReport'#9'TheReport'#7'Dataset'#7#12'frDBDataSet1'#14'Prev'
-  +'iewButtons'#11#6'pbZoom'#6'pbLoad'#6'pbSave'#7'pbPrint'#6'pbFind'#6'pbHelp'
-  +#6'pbExit'#0#4'left'#2'`'#3'top'#2'p'#10'ReportForm'#10#4#0#0#0#24#0#0#0#0#0
-  +#4'TDbf'#4'Dbf1'#9'IndexDefs'#14#0#10'TableLevel'#2#3#4'left'#2'`'#3'top'#2
-  +'('#0#0#11'TDatasource'#11'Datasource1'#7'DataSet'#7#4'Dbf1'#4'left'#2'`'#3
-  +'top'#2'H'#0#0#12'TfrDBDataSet'#12'frDBDataSet1'#7'DataSet'#7#4'Dbf1'#4'left'
-  +#2'`'#3'top'#3#144#0#0#0#12'TFrPrintGrid'#2'PG'#6'DBGrid'#7#7'dbGrid1'#11'Or'
-  +'ientation'#7#11'poLandscape'#7'Caption'#6#4'Grid'#11'ShowCaption'#9#4'left'
-  +#2'`'#3'top'#3#176#0#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2#8#3'top'#2'`'#0
-  +#9'TMenuItem'#9'MenuItem1'#7'Caption'#6#5'Files'#0#9'TMenuItem'#9'MenuItem2'
-  +#6'Action'#7#8'accClose'#7'OnClick'#7#15'accCloseExecute'#0#0#0#9'TMenuItem'
-  +#9'MenuItem3'#7'Caption'#6#5'Tests'#0#9'TMenuItem'#9'MenuItem4'#6'Action'#7
-  +#12'accNewReport'#7'OnClick'#7#19'accNewReportExecute'#0#0#9'TMenuItem'#9'Me'
-  +'nuItem5'#6'Action'#7#13'accEditReport'#7'OnClick'#7#20'accEditReportExecute'
-  +#0#0#9'TMenuItem'#9'MenuItem6'#6'Action'#7#16'accPreviewReport'#7'OnClick'#7
-  +#23'accPreviewReportExecute'#0#0#9'TMenuItem'#9'MenuItem7'#6'Action'#7#14'ac'
-  +'cPrintReport'#7'OnClick'#7#21'accPrintReportExecute'#0#0#9'TMenuItem'#9'Men'
-  +'uItem8'#6'Action'#7#12'accPrintGrid'#7'OnClick'#7#19'accPrintGridExecute'#0
-  +#0#0#9'TMenuItem'#9'MenuItem9'#7'Caption'#6#6'Export'#0#9'TMenuItem'#10'Menu'
-  +'Item10'#6'Action'#7#15'accExportToText'#7'OnClick'#7#22'accExportToTextExec'
-  +'ute'#0#0#9'TMenuItem'#10'MenuItem11'#6'Action'#7#15'accExportToHtml'#7'OnCl'
-  +'ick'#7#22'accExportToHtmlExecute'#0#0#9'TMenuItem'#10'MenuItem12'#6'Action'
-  +#7#14'accExportToCSV'#7'OnClick'#7#21'accExportToCSVExecute'#0#0#0#0#22'TApp'
-  +'licationProperties'#22'ApplicationProperties1'#17'CaptureExceptions'#9#9'Hi'
-  +'ntColor'#7#8'clInfoBk'#13'HintHidePause'#3#196#9#9'HintPause'#2#10#13'HintS'
-  +'hortCuts'#9#8'ShowHint'#9#10'OnShowHint'#7#30'ApplicationProperties1ShowHin'
-  +'t'#4'left'#2'`'#3'top'#3#240#0#0#0#11'TActionList'#11'ActionList1'#4'left'#2
-  +'0'#3'top'#2'`'#0#7'TAction'#12'accNewReport'#8'Category'#6#5'Tests'#7'Capti'
-  +'on'#6#10'New Report'#18'DisableIfNoHandler'#9#4'Hint'#6#30'Create and edit '
-  +'a empty report'#9'OnExecute'#7#19'accNewReportExecute'#0#0#7'TAction'#13'ac'
-  +'cEditReport'#8'Category'#6#5'Tests'#7'Caption'#6#11'Edit Report'#18'Disable'
-  +'IfNoHandler'#9#4'Hint'#6#23'Edit an existing report'#9'OnExecute'#7#20'accE'
-  +'ditReportExecute'#0#0#7'TAction'#16'accPreviewReport'#8'Category'#6#5'Tests'
-  +#7'Caption'#6#14'Preview Report'#18'DisableIfNoHandler'#9#4'Hint'#6#26'Previ'
-  ,'ew an existing report'#9'OnExecute'#7#23'accPreviewReportExecute'#0#0#7'TAc'
-  +'tion'#12'accPrintGrid'#8'Category'#6#5'Tests'#7'Caption'#6#10'Print Grid'#18
-  +'DisableIfNoHandler'#9#4'Hint'#6'$Print preview current DbGrid content'#9'On'
-  +'Execute'#7#19'accPrintGridExecute'#0#0#7'TAction'#14'accPrintReport'#8'Cate'
-  +'gory'#6#5'Tests'#7'Caption'#6#12'Print Report'#18'DisableIfNoHandler'#9#4'H'
-  +'int'#6'8Print directly an existing report (i.e. without preview)'#9'OnExecu'
-  +'te'#7#21'accPrintReportExecute'#0#0#7'TAction'#8'accClose'#8'Category'#6#5
-  +'Files'#7'Caption'#6#5'Close'#18'DisableIfNoHandler'#9#4'Hint'#6#17'Close ap'
-  +'plication'#9'OnExecute'#7#15'accCloseExecute'#0#0#7'TAction'#15'accExportTo'
-  +'Text'#8'Category'#6#6'Export'#7'Caption'#6#14'Export to text'#18'DisableIfN'
-  +'oHandler'#9#9'OnExecute'#7#22'accExportToTextExecute'#0#0#7'TAction'#15'acc'
-  +'ExportToHtml'#8'Category'#6#6'Export'#7'Caption'#6#14'Export to html'#18'Di'
-  +'sableIfNoHandler'#9#9'OnExecute'#7#22'accExportToHtmlExecute'#0#0#7'TAction'
-  +#13'accOpenReport'#8'Category'#6#5'Files'#7'Caption'#6#11'Open Report'#18'Di'
-  +'sableIfNoHandler'#9#9'OnExecute'#7#20'accOpenReportExecute'#0#0#7'TAction'
-  +#14'accExportToCSV'#8'Category'#6#6'Export'#7'Caption'#6#13'Export to CSV'#18
-  +'DisableIfNoHandler'#9#9'OnExecute'#7#21'accExportToCSVExecute'#0#0#0#11'TOp'
-  +'enDialog'#11'OpenDialog1'#6'Filter'#6':LazReport Files|*.lrf|FreeReport Fil'
-  +'es|*.frf|All Files|*.*'#11'FilterIndex'#2#0#4'left'#2'd'#3'top'#3#16#1#0#0
-  +#12'TfrCSVExport'#12'frCSVExport1'#4'left'#3#140#0#3'top'#2'('#0#0#0
+  'TPF0'#8'TfrmMain'#7'frmMain'#4'Left'#3#21#1#6'Height'#3#149#1#3'Top'#2''#5
+  +'Width'#3'='#2#18'HorzScrollBar.Page'#3'<'#2#18'VertScrollBar.Page'#3#128#1
+  +#13'ActiveControl'#7#13'btnCallEditor'#7'Caption'#6#20'LazReport Test Suite'
+  +#12'ClientHeight'#3#129#1#11'ClientWidth'#3'='#2#4'Menu'#7#9'MainMenu1'#8'On'
+  +'Create'#7#13'frmMainCreate'#8'ShowHint'#9#10'LCLVersion'#6#6'0.9.25'#0#6'TL'
+  +'abel'#8'lblIndex'#4'Left'#2#12#6'Height'#2#14#3'Top'#2','#5'Width'#2#1#11'P'
+  +'arentColor'#8#0#0#6'TLabel'#7'lblExpr'#4'Left'#3#235#0#6'Height'#2#14#3'Top'
+  +#2','#5'Width'#2#1#11'ParentColor'#8#0#0#7'TButton'#13'btnCallEditor'#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'TDBGrid'#7'dbGrid1'#6
+  +'Height'#3'&'#1#3'Top'#2'D'#5'Width'#3'='#2#5'Align'#7#8'alBottom'#7'Anchors'
+  +#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#5'Color'#7#7'clWhite'#10'Dat'
+  +'aSource'#7#11'Datasource1'#10'FixedColor'#7#9'clBtnFace'#13'FixedHotColor'#7
+  +#9'cl3DLight'#7'Options'#11#9'dgEditing'#8'dgTitles'#11'dgIndicator'#14'dgCo'
+  +'lumnResize'#10'dgColLines'#10'dgRowLines'#6'dgTabs'#21'dgAlwaysShowSelectio'
+  +'n'#15'dgConfirmDelete'#14'dgCancelOnExit'#0#12'OptionsExtra'#11#14'dgeAutoC'
+  +'olumns'#17'dgeCheckboxColumn'#0#11'ParentColor'#8#8'TabOrder'#2#5#12'OnTitl'
+  +'eClick'#7#17'dbGrid1TitleClick'#0#0#7'TButton'#7'Button1'#4'Left'#3#223#1#6
+  +'Height'#2#25#3'Top'#2#8#5'Width'#2'K'#6'Action'#7#12'accPrintGrid'#25'Borde'
+  +'rSpacing.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'Width'#2'`'#6'Action'#7#16'accPreviewRep'
+  +'ort'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#2#0#0#10'TStatusBar'#4
+  +'sbar'#6'Height'#2#23#3'Top'#3'j'#1#5'Width'#3'='#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'Hei'
+  +'ght'#2#25#3'Top'#2#8#5'Width'#2'K'#6'Action'#7#13'accEditReport'#25'BorderS'
+  +'pacing.InnerBorder'#2#4#8'TabOrder'#2#3#0#0#7'TButton'#7'Button4'#4'Left'#3
+  +#135#1#6'Height'#2#25#3'Top'#2#8#5'Width'#2'S'#6'Action'#7#14'accPrintReport'
+  +#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#4#0#0#7'TButton'#13'btnOpen'
+  +'Report'#4'Left'#2'm'#6'Height'#2#25#3'Top'#2#8#5'Width'#2'`'#6'Action'#7#13
+  +'accOpenReport'#25'BorderSpacing.InnerBorder'#2#4#8'TabOrder'#2#6#0#0#9'TCom'
+  +'boBox'#10'comboIndex'#4'Left'#2'L'#6'Height'#2#21#3'Top'#2'('#5'Width'#3#148
+  +#0#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscendin'
+  +'g'#0#10'ItemHeight'#2#13#8'OnSelect'#7#16'comboIndexSelect'#8'TabOrder'#2#8
+  +#0#0#9'TfrReport'#9'TheReport'#7'Dataset'#7#12'frDBDataSet1'#14'PreviewButto'
+  +'ns'#11#6'pbZoom'#6'pbLoad'#6'pbSave'#7'pbPrint'#6'pbFind'#6'pbHelp'#6'pbExi'
+  +'t'#0#4'left'#2'`'#3'top'#2'p'#10'ReportForm'#10#4#0#0#0#24#0#0#0#0#0#4'TDbf'
+  +#4'Dbf1'#9'IndexDefs'#14#0#10'TableLevel'#2#3#4'left'#3#128#0#3'top'#2'H'#0#0
+  +#11'TDatasource'#11'Datasource1'#7'DataSet'#7#4'Dbf1'#4'left'#2'`'#3'top'#2
+  +'H'#0#0#12'TfrDBDataSet'#12'frDBDataSet1'#7'DataSet'#7#4'Dbf1'#4'left'#2'`'#3
+  +'top'#3#144#0#0#0#12'TFrPrintGrid'#2'PG'#6'DBGrid'#7#7'dbGrid1'#11'Orientati'
+  +'on'#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'TMen'
+  +'uItem'#9'MenuItem1'#7'Caption'#6#5'Files'#0#9'TMenuItem'#9'MenuItem2'#6'Act'
+  +'ion'#7#8'accClose'#7'OnClick'#7#15'accCloseExecute'#0#0#0#9'TMenuItem'#9'Me'
+  +'nuItem3'#7'Caption'#6#5'Tests'#0#9'TMenuItem'#9'MenuItem4'#6'Action'#7#12'a'
+  +'ccNewReport'#7'OnClick'#7#19'accNewReportExecute'#0#0#9'TMenuItem'#9'MenuIt'
+  +'em5'#6'Action'#7#13'accEditReport'#7'OnClick'#7#20'accEditReportExecute'#0#0
+  +#9'TMenuItem'#9'MenuItem6'#6'Action'#7#16'accPreviewReport'#7'OnClick'#7#23
+  +'accPreviewReportExecute'#0#0#9'TMenuItem'#9'MenuItem7'#6'Action'#7#14'accPr'
+  +'intReport'#7'OnClick'#7#21'accPrintReportExecute'#0#0#9'TMenuItem'#9'MenuIt'
+  +'em8'#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'MenuItem'
+  +'10'#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'accExportToHtmlExecute'#0#0#9'TMenuItem'#10'MenuItem12'#6'Action'#7#14'a'
+  +'ccExportToCSV'#7'OnClick'#7#21'accExportToCSVExecute'#0#0#0#0#22'TApplicati'
+  +'onProperties'#22'ApplicationProperties1'#17'CaptureExceptions'#9#9'HintColo'
+  +'r'#7#8'clInfoBk'#13'HintHidePause'#3#196#9#9'HintPause'#2#10#13'HintShortCu'
+  +'ts'#9#8'ShowHint'#9#10'OnShowHint'#7#30'ApplicationProperties1ShowHint'#4'l'
+  +'eft'#2'`'#3'top'#3#240#0#0#0#11'TActionList'#11'ActionList1'#4'left'#2'0'#3
+  +'top'#2'`'#0#7'TAction'#12'accNewReport'#8'Category'#6#5'Tests'#7'Caption'#6
+  +#10'New Report'#18'DisableIfNoHandler'#9#9'OnExecute'#7#19'accNewReportExecu'
+  +'te'#0#0#7'TAction'#13'accEditReport'#8'Category'#6#5'Tests'#7'Caption'#6#11
+  +'Edit Report'#18'DisableIfNoHandler'#9#9'OnExecute'#7#20'accEditReportExecut'
+  ,'e'#0#0#7'TAction'#16'accPreviewReport'#8'Category'#6#5'Tests'#7'Caption'#6
+  +#14'Preview Report'#18'DisableIfNoHandler'#9#9'OnExecute'#7#23'accPreviewRep'
+  +'ortExecute'#0#0#7'TAction'#12'accPrintGrid'#8'Category'#6#5'Tests'#7'Captio'
+  +'n'#6#10'Print Grid'#18'DisableIfNoHandler'#9#9'OnExecute'#7#19'accPrintGrid'
+  +'Execute'#0#0#7'TAction'#14'accPrintReport'#8'Category'#6#5'Tests'#7'Caption'
+  +#6#12'Print Report'#18'DisableIfNoHandler'#9#9'OnExecute'#7#21'accPrintRepor'
+  +'tExecute'#0#0#7'TAction'#8'accClose'#8'Category'#6#5'Files'#7'Caption'#6#5
+  +'Close'#18'DisableIfNoHandler'#9#9'OnExecute'#7#15'accCloseExecute'#0#0#7'TA'
+  +'ction'#15'accExportToText'#8'Category'#6#6'Export'#7'Caption'#6#14'Export t'
+  +'o text'#18'DisableIfNoHandler'#9#9'OnExecute'#7#22'accExportToTextExecute'#0
+  +#0#7'TAction'#15'accExportToHtml'#8'Category'#6#6'Export'#7'Caption'#6#14'Ex'
+  +'port to html'#18'DisableIfNoHandler'#9#9'OnExecute'#7#22'accExportToHtmlExe'
+  +'cute'#0#0#7'TAction'#13'accOpenReport'#8'Category'#6#5'Files'#7'Caption'#6
+  +#11'Open Report'#18'DisableIfNoHandler'#9#9'OnExecute'#7#20'accOpenReportExe'
+  +'cute'#0#0#7'TAction'#14'accExportToCSV'#8'Category'#6#6'Export'#7'Caption'#6
+  +#13'Export to CSV'#18'DisableIfNoHandler'#9#9'OnExecute'#7#21'accExportToCSV'
+  +'Execute'#0#0#0#11'TOpenDialog'#11'OpenDialog1'#6'Filter'#6':LazReport Files'
+  +'|*.lrf|FreeReport Files|*.frf|All Files|*.*'#11'FilterIndex'#2#0#4'left'#2
+  +'d'#3'top'#3#16#1#0#0#12'TfrCSVExport'#12'frCSVExport1'#4'left'#3#188#0#3'to'
+  +'p'#2'H'#0#0#0
 ]);
--- a/components/lazreport/samples/editor/maincalleditor.pas
+++ b/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);
-    TheReport.DesignReport;
+    OpenReport(OpenDialog1.FileName);
  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;
-  accNewReport.Caption := cerNewReport;
-  accEditReport.Caption := cerEditReport;
-  accPreviewReport.Caption := cerPreviewReport;
-  accPrintReport.Caption := cerPrintReport;
-  accPrintGrid.Caption := cerPrintGrid;
+  dbf1.IndexName := aIndexName;
+  lblExpr.Caption:= format(cerIndexFields, [dbf1.IndexFieldNames]);
+end;
+
+procedure TfrmMain.OpenReport(const aFileName: string);
+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;