From aae4334209b920912266d24bfc4d4df9cfd15f81 Mon Sep 17 00:00:00 2001
From: maxim <maxim@lazarus-ide.org>
Date: Tue, 28 Apr 2015 23:00:57 +0000
Subject: [PATCH] LHelp: i18n-ed Open Dialog (bug #27977) and updated Russian
 translation

git-svn-id: trunk@48885 -
---
 components/chmhelp/lhelp/languages/lhelp.fi.po | 8 ++++++++
 components/chmhelp/lhelp/languages/lhelp.fr.po | 9 +++++++++
 components/chmhelp/lhelp/languages/lhelp.hu.po | 9 +++++++++
 components/chmhelp/lhelp/languages/lhelp.po    | 8 ++++++++
 components/chmhelp/lhelp/languages/lhelp.ru.po | 8 ++++++++
 components/chmhelp/lhelp/lhelp.lpi             | 4 ++++
 components/chmhelp/lhelp/lhelpcore.lfm         | 2 +-
 components/chmhelp/lhelp/lhelpcore.pas         | 3 +++
 components/chmhelp/lhelp/lhelpstrconsts.pas    | 2 ++
 9 files changed, 52 insertions(+), 1 deletion(-)

diff --git a/components/chmhelp/lhelp/languages/lhelp.fi.po b/components/chmhelp/lhelp/languages/lhelp.fi.po
index 4bbf140fed..d6648ff66b 100644
--- a/components/chmhelp/lhelp/languages/lhelp.fi.po
+++ b/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"
diff --git a/components/chmhelp/lhelp/languages/lhelp.fr.po b/components/chmhelp/lhelp/languages/lhelp.fr.po
index 1f512bb0e9..db044165d0 100644
--- a/components/chmhelp/lhelp/languages/lhelp.fr.po
+++ b/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"
+
diff --git a/components/chmhelp/lhelp/languages/lhelp.hu.po b/components/chmhelp/lhelp/languages/lhelp.hu.po
index a08991ed88..60a80a295f 100644
--- a/components/chmhelp/lhelp/languages/lhelp.hu.po
+++ b/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"
+
diff --git a/components/chmhelp/lhelp/languages/lhelp.po b/components/chmhelp/lhelp/languages/lhelp.po
index f14b4e3e53..6dea66deb7 100644
--- a/components/chmhelp/lhelp/languages/lhelp.po
+++ b/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 ""
diff --git a/components/chmhelp/lhelp/languages/lhelp.ru.po b/components/chmhelp/lhelp/languages/lhelp.ru.po
index 8a64519afe..5bfa55d8bf 100644
--- a/components/chmhelp/lhelp/languages/lhelp.ru.po
+++ b/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 "Открыть недавний"
diff --git a/components/chmhelp/lhelp/lhelp.lpi b/components/chmhelp/lhelp/lhelp.lpi
index 595d01bdbe..3959fa376c 100644
--- a/components/chmhelp/lhelp/lhelp.lpi
+++ b/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"/>
diff --git a/components/chmhelp/lhelp/lhelpcore.lfm b/components/chmhelp/lhelp/lhelpcore.lfm
index c01abca9ad..1fade94672 100644
--- a/components/chmhelp/lhelp/lhelpcore.lfm
+++ b/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
diff --git a/components/chmhelp/lhelp/lhelpcore.pas b/components/chmhelp/lhelp/lhelpcore.pas
index c89d6e1d67..d7e670800d 100644
--- a/components/chmhelp/lhelp/lhelpcore.pas
+++ b/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;
diff --git a/components/chmhelp/lhelp/lhelpstrconsts.pas b/components/chmhelp/lhelp/lhelpstrconsts.pas
index afa01a79f1..6c9496a737 100644
--- a/components/chmhelp/lhelp/lhelpstrconsts.pas
+++ b/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';