lcl: THTMLHelpDatabase: added published readonly property BuiltInBaseURL to show the default in the IDE options

git-svn-id: trunk@56363 -

lcl/languages/lclstrconsts.ca.po

@@ -1270,6 +1270,10 @@ msgstr ""
 msgid "Text"
 msgstr "Text"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr ""

lcl/languages/lclstrconsts.cs.po

@@ -1232,6 +1232,10 @@ msgstr "Hluboká zelenomodrá"
 msgid "Text"
 msgstr "Text"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "Označkovaný obrazový formát souboru"

lcl/languages/lclstrconsts.de.po

@@ -1231,6 +1231,10 @@ msgstr "Türkis"
 msgid "Text"
 msgstr "Text"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "Tagged Image File Format"

lcl/languages/lclstrconsts.es.po

@@ -1229,6 +1229,10 @@ msgstr "Turquesa"
 msgid "Text"
 msgstr "Texto"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "Formato de Archivo de Imagen Etiquetado"

lcl/languages/lclstrconsts.fi.po

@@ -1228,6 +1228,10 @@ msgstr "Sinivihreä"
 msgid "Text"
 msgstr "Teksti"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr ""

lcl/languages/lclstrconsts.fr.po

@@ -1230,6 +1230,10 @@ msgstr "Sarcelle"
 msgid "Text"
 msgstr "Texte"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "Tagged Image File Format"

lcl/languages/lclstrconsts.he.po

@@ -1277,6 +1277,10 @@ msgstr "כחלחל ירקרק"
 msgid "Text"
 msgstr "טקסט"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "פורמט מתוייג של קובץ דמות"

lcl/languages/lclstrconsts.hu.po

@@ -1230,6 +1230,10 @@ msgstr "Kékeszöld"
 msgid "Text"
 msgstr "Szöveg"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "Tagged Image File Format"

lcl/languages/lclstrconsts.id.po

@@ -1269,6 +1269,10 @@ msgstr ""
 msgid "Text"
 msgstr "Teks"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr ""

lcl/languages/lclstrconsts.it.po

@@ -1234,6 +1234,10 @@ msgstr "Ocra"
 msgid "Text"
 msgstr "Testo"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "Formato del file immagine marcato"

lcl/languages/lclstrconsts.ja.po

@@ -1231,6 +1231,10 @@ msgstr "暗青緑色"
 msgid "Text"
 msgstr "テキスト"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "TIFF ファイル"

lcl/languages/lclstrconsts.lt.po

@@ -1232,6 +1232,10 @@ msgstr "Tamsiai žydra"
 msgid "Text"
 msgstr "Tekstas"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "„Tagged Image File Format“"

lcl/languages/lclstrconsts.nl.po

@@ -1242,6 +1242,10 @@ msgstr "Blauwachtig groen (teal)"
 msgid "Text"
 msgstr "Tekst"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "Tagged Image File Format"

lcl/languages/lclstrconsts.no.po

@@ -1274,6 +1274,10 @@ msgstr ""
 msgid "Text"
 msgstr "Tekst"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr ""

lcl/languages/lclstrconsts.pl.po

@@ -1242,6 +1242,10 @@ msgstr "Morski"
 msgid "Text"
 msgstr ""
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr ""

lcl/languages/lclstrconsts.po

@@ -1223,6 +1223,10 @@ msgstr ""
 msgid "Text"
 msgstr ""
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr ""

lcl/languages/lclstrconsts.pt.po

@@ -1250,6 +1250,10 @@ msgstr "Verde Musgo"
 msgid "Text"
 msgstr "Texto"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "Formato Arquivo Imagem \"Tagged\""

lcl/languages/lclstrconsts.pt_BR.po

@@ -1258,6 +1258,10 @@ msgstr "Verde Musgo"
 msgid "Text"
 msgstr "Texto"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "Formato Arquivo Imagem \"Tagged\""

lcl/languages/lclstrconsts.ru.po

@@ -1230,6 +1230,10 @@ msgstr "Бирюзовый"
 msgid "Text"
 msgstr "Текст"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "Формат Tagged Image File"

lcl/languages/lclstrconsts.sk.po

@@ -1233,6 +1233,10 @@ msgstr "Hlboká zelenomodrá"
 msgid "Text"
 msgstr "Text"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "Označkovať obrazový formát súboru"

lcl/languages/lclstrconsts.tr.po

@@ -1269,6 +1269,10 @@ msgstr ""
 msgid "Text"
 msgstr "Metin"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr ""

lcl/languages/lclstrconsts.uk.po

@@ -1232,6 +1232,10 @@ msgstr "Синьо-зелений"
 msgid "Text"
 msgstr "Текст"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr "Тегований формат файлу зображення"

lcl/languages/lclstrconsts.zh_CN.po

@@ -1273,6 +1273,10 @@ msgstr "青"
 msgid "Text"
 msgstr "文本"
 
+#: lclstrconsts.rsthebuiltinurlisreadonlychangethebaseurlinstead
+msgid "The built-in URL is read only. Change the BaseURL instead."
+msgstr ""
+
 #: lclstrconsts.rstiff
 msgid "Tagged Image File Format"
 msgstr ""

lcl/lazhelphtml.pas

@@ -56,6 +56,7 @@ type
     FKeywordPrefixNode: THelpNode;
     function IsBaseURLStored: boolean;
     procedure SetBaseURL(const AValue: string);
+    procedure SetBuiltInBaseURL(const AValue: string);
     procedure SetDefaultBaseURL(const AValue: string);
   public
     constructor Create(TheOwner: TComponent); override;
@@ -73,6 +74,7 @@ type
     procedure Save(Storage: TConfigStorage); override;
     property DefaultBaseURL: string read FDefaultBaseURL write SetDefaultBaseURL;// used, if BaseURL is empty
   published
+    property BuiltInBaseURL: string read FDefaultBaseURL write SetBuiltInBaseURL;// read only, shown in the IDE help options
     property BaseURL: string read FBaseURL write SetBaseURL stored IsBaseURLStored;
     property AutoRegister;
     property KeywordPrefix: string read FKeywordPrefix write FKeywordPrefix;// see above
@@ -132,6 +134,12 @@ begin
     FBaseURL:=AValue;
 end;
 
+procedure THTMLHelpDatabase.SetBuiltInBaseURL(const AValue: string);
+begin
+  if AValue=BuiltInBaseURL then exit;
+  raise Exception.Create(rsTheBuiltInURLIsReadOnlyChangeTheBaseURLInstead);
+end;
+
 procedure THTMLHelpDatabase.SetDefaultBaseURL(const AValue: string);
 begin
   if FDefaultBaseURL=AValue then exit;

lcl/lclstrconsts.pas

@@ -430,6 +430,8 @@ resourceString
 
   hhsHelpTheHelpDatabaseWasUnableToFindFile = 'The help database "%s" was '
     +'unable to find file "%s".';
+  rsTheBuiltInURLIsReadOnlyChangeTheBaseURLInstead = 'The built-in URL is read'
+    +' only. Change the BaseURL instead.';
   hhsHelpTheMacroSInBrowserParamsWillBeReplacedByTheURL = 'The macro %s in '
     +'BrowserParams will be replaced by the URL.';
   hhsHelpNoHTMLBrowserFoundPleaseDefineOne = 'No HTML Browser found.'