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

IDE: setup: after changing lazarusdir: fetch translations and translate

Browse Source 
git-svn-id: trunk@38132 -
This commit is contained in:
mattias 2012-08-03 22:03:19 +00:00
parent 6e24b4839c
commit 0b1f7486f2
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/main.pp
View File

@ -15040,6 +15040,7 @@ var
InteractiveSetup: boolean;
Note: string;
CfgCache: TFPCTargetConfigCache;
OldLazDir: String;
begin
Result:=true;
InteractiveSetup:=true;
@ -15109,9 +15110,16 @@ begin
ShowSetupDialog:=true;
end;
end;
if ShowSetupDialog then
if ShowSetupDialog then begin
OldLazDir:=EnvironmentOptions.LazarusDirectory;
if ShowInitialSetupDialog<>mrOk then
exit(false);
if OldLazDir<>EnvironmentOptions.LazarusDirectory then begin
CollectTranslations(EnvironmentOptions.GetParsedLazarusDirectory);
TranslateResourceStrings(EnvironmentOptions.GetParsedLazarusDirectory,
EnvironmentOptions.LanguageID);
end;
end;
end;
// set global macros