Merged revision(s) 48885 #aae4334209 from trunk:

LHelp: i18n-ed Open Dialog (bug #27977) and updated Russian translation
........

git-svn-id: branches/fixes_1_4@48886 -

components/chmhelp/lhelp/languages/lhelp.fi.po

@@ -49,6 +49,10 @@ msgstr "Hae"
 msgid "&Help"
 msgstr "Ohje"
 
+#: lhelpstrconsts.slhelp_helpfileschmchmallfiles
+msgid "Help files (*.chm)|*.chm|All files (*.*)|*"
+msgstr ""
+
 #: lhelpstrconsts.slhelp_helpshowthisinformation
 msgid "    --help     :  Show this information"
 msgstr ""
@@ -113,6 +117,10 @@ msgstr ""
 msgid "&Open ..."
 msgstr "Avaa..."
 
+#: lhelpstrconsts.slhelp_openexistingfile
+msgid "Open existing file"
+msgstr ""
+
 #: lhelpstrconsts.slhelp_openrecent
 msgid "Open Recent"
 msgstr "Avaa viimeksi käytetty"

components/chmhelp/lhelp/languages/lhelp.fr.po

@@ -59,6 +59,10 @@ msgstr "Chercher"
 msgid "&Help"
 msgstr "&Aide"
 
+#: lhelpstrconsts.slhelp_helpfileschmchmallfiles
+msgid "Help files (*.chm)|*.chm|All files (*.*)|*"
+msgstr ""
+
 #: lhelpstrconsts.slhelp_helpshowthisinformation
 msgid "    --help     :  Show this information"
 msgstr "    --help     :  Afficher cette information"
@@ -123,6 +127,10 @@ msgstr "Ok"
 msgid "&Open ..."
 msgstr "&Ouvrir..."
 
+#: lhelpstrconsts.slhelp_openexistingfile
+msgid "Open existing file"
+msgstr ""
+
 #: lhelpstrconsts.slhelp_openrecent
 msgid "Open Recent"
 msgstr "Récemment ouvert"
@@ -174,3 +182,4 @@ msgstr "    Utilisation : lhelp [[filename] [--context id] [--hide] [--ipcname l
 #: lhelpstrconsts.slhelp_view
 msgid "&View"
 msgstr "&Afficher"
+

components/chmhelp/lhelp/languages/lhelp.hu.po

@@ -59,6 +59,10 @@ msgstr "Keresés"
 msgid "&Help"
 msgstr "&Súgó"
 
+#: lhelpstrconsts.slhelp_helpfileschmchmallfiles
+msgid "Help files (*.chm)|*.chm|All files (*.*)|*"
+msgstr ""
+
 #: lhelpstrconsts.slhelp_helpshowthisinformation
 msgid "    --help     :  Show this information"
 msgstr "    --help     :  Megjeleníti ezt a súgót"
@@ -123,6 +127,10 @@ msgstr "Ok"
 msgid "&Open ..."
 msgstr "&Megnyitás ..."
 
+#: lhelpstrconsts.slhelp_openexistingfile
+msgid "Open existing file"
+msgstr ""
+
 #: lhelpstrconsts.slhelp_openrecent
 msgid "Open Recent"
 msgstr "Legutóbbi megynyitása"
@@ -174,3 +182,4 @@ msgstr "    Használat: lhelp [[fájlnév] [--context azonosító] [--hide] [--i
 #: lhelpstrconsts.slhelp_view
 msgid "&View"
 msgstr "&Nézet"
+

components/chmhelp/lhelp/languages/lhelp.po

@@ -49,6 +49,10 @@ msgstr ""
 msgid "&Help"
 msgstr ""
 
+#: lhelpstrconsts.slhelp_helpfileschmchmallfiles
+msgid "Help files (*.chm)|*.chm|All files (*.*)|*"
+msgstr ""
+
 #: lhelpstrconsts.slhelp_helpshowthisinformation
 msgid "    --help     :  Show this information"
 msgstr ""
@@ -113,6 +117,10 @@ msgstr ""
 msgid "&Open ..."
 msgstr ""
 
+#: lhelpstrconsts.slhelp_openexistingfile
+msgid "Open existing file"
+msgstr ""
+
 #: lhelpstrconsts.slhelp_openrecent
 msgid "Open Recent"
 msgstr ""

components/chmhelp/lhelp/languages/lhelp.ru.po

@@ -57,6 +57,10 @@ msgstr "Найти"
 msgid "&Help"
 msgstr "&Справка"
 
+#: lhelpstrconsts.slhelp_helpfileschmchmallfiles
+msgid "Help files (*.chm)|*.chm|All files (*.*)|*"
+msgstr "Файлы справки (*.chm)|*.chm|Все файлы (*.*)|*"
+
 #: lhelpstrconsts.slhelp_helpshowthisinformation
 msgid "    --help     :  Show this information"
 msgstr "    --help     :  Вывести данную информацию"
@@ -122,6 +126,10 @@ msgstr "ОК"
 msgid "&Open ..."
 msgstr "О&ткрыть ..."
 
+#: lhelpstrconsts.slhelp_openexistingfile
+msgid "Open existing file"
+msgstr "Открыть существующий файл"
+
 #: lhelpstrconsts.slhelp_openrecent
 msgid "Open Recent"
 msgstr "Открыть недавний"

components/chmhelp/lhelp/lhelp.lpi

@@ -103,6 +103,7 @@
         <ComponentName Value="HelpForm"/>
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
+        <UnitName Value="lhelpcore"/>
       </Unit4>
       <Unit5>
         <Filename Value="lnethttpdataprovider.pas"/>
@@ -111,14 +112,17 @@
       <Unit6>
         <Filename Value="basecontentprovider.pas"/>
         <IsPartOfProject Value="True"/>
+        <UnitName Value="BaseContentProvider"/>
       </Unit6>
       <Unit7>
         <Filename Value="chmcontentprovider.pas"/>
         <IsPartOfProject Value="True"/>
+        <UnitName Value="chmcontentprovider"/>
       </Unit7>
       <Unit8>
         <Filename Value="httpcontentprovider.pas"/>
         <IsPartOfProject Value="True"/>
+        <UnitName Value="HTTPContentProvider"/>
       </Unit8>
       <Unit9>
         <Filename Value="lhelpstrconsts.pas"/>

components/chmhelp/lhelp/lhelpcore.lfm

@@ -299,7 +299,7 @@ object HelpForm: THelpForm
     end
   end
   object OpenDialog1: TOpenDialog
-    Filter = 'HelpFiles(*.chm)|*.chm|All FIles(*.*)|*'
+    Filter = 'Help files (*.chm)|*.chm|All files (*.*)|*'
     FilterIndex = 0
     left = 144
     top = 80

components/chmhelp/lhelp/lhelpcore.pas

@@ -328,6 +328,9 @@ begin
   HelpMenuItem.Caption := slhelp_Help;
   AboutItem.Caption := slhelp_About2;
 
+  OpenDialog1.Title := slhelp_OpenExistingFile;
+  OpenDialog1.Filter := slhelp_HelpFilesChmChmAllFiles;
+
   fContext := -1;
   // Safe default:
   fHide := false;

components/chmhelp/lhelp/lhelpstrconsts.pas

@@ -22,6 +22,8 @@ resourcestring
   slhelp_ShowContents = 'Show contents';
   slhelp_Help = '&Help';
   slhelp_About2 = '&About ...';
+  slhelp_OpenExistingFile = 'Open existing file';
+  slhelp_HelpFilesChmChmAllFiles = 'Help files (*.chm)|*.chm|All files (*.*)|*';
   slhelp_LHelp = 'LHelp';
   slhelp_LHelp2 = 'LHelp - %s';
   slhelp_CannotHandleThisTypeOfContentForUrl = 'Cannot handle this type of content. "%s" for url:%s%s';