paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 22:58:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@56363 -
This commit is contained in:
mattias 2017-11-11 14:21:11 +00:00
parent 0233b6c0c8
commit be3e98c7ab
25 changed files with 102 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/languages/lclstrconsts.ca.po
View File

@ -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 ""

4
lcl/languages/lclstrconsts.cs.po
View File

@ -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"

4
lcl/languages/lclstrconsts.de.po
View File

@ -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"

4
lcl/languages/lclstrconsts.es.po
View File

@ -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"

4
lcl/languages/lclstrconsts.fi.po
View File

@ -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 ""

4
lcl/languages/lclstrconsts.fr.po
View File

@ -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"

4
lcl/languages/lclstrconsts.he.po
View File

@ -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 "פורמט מתוייג של קובץ דמות"

4
lcl/languages/lclstrconsts.hu.po
View File

@ -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"

4
lcl/languages/lclstrconsts.id.po
View File

@ -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 ""

4
lcl/languages/lclstrconsts.it.po
View File

@ -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"

4
lcl/languages/lclstrconsts.ja.po
View File

@ -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 ファイル"

4
lcl/languages/lclstrconsts.lt.po
View File

@ -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“"

4
lcl/languages/lclstrconsts.nl.po
View File

@ -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"

4
lcl/languages/lclstrconsts.no.po
View File

@ -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 ""

4
lcl/languages/lclstrconsts.pl.po
View File

@ -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 ""

4
lcl/languages/lclstrconsts.po
View File

@ -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 ""

4
lcl/languages/lclstrconsts.pt.po
View File

@ -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\""

4
lcl/languages/lclstrconsts.pt_BR.po
View File

@ -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\""

4
lcl/languages/lclstrconsts.ru.po
View File

@ -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"

4
lcl/languages/lclstrconsts.sk.po
View File

@ -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"

4
lcl/languages/lclstrconsts.tr.po
View File

@ -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 ""

4
lcl/languages/lclstrconsts.uk.po
View File

@ -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 "Тегований формат файлу зображення"

4
lcl/languages/lclstrconsts.zh_CN.po
View File

@ -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 ""

8
lcl/lazhelphtml.pas
View File

@ -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;

2
lcl/lclstrconsts.pas
View File

@ -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.'