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

LazResExplorer example: migrated to using GetLanguageID function from Translations unit

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-06-12 17:15:43 +03:00
parent 53bda35072
commit 62623bb589
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/lazresexplorer/reconstsunit.pas
View File

@ -4,7 +4,7 @@ unit reConstsUnit;
interface
uses gettext, translations, LCLPlatformDef, InterfaceBase;
uses Translations, LCLPlatformDef, InterfaceBase;
resourcestring
sResourceExplorer = 'Resource explorer';
@ -58,10 +58,10 @@ end;
procedure TranslateResStrings;
var
Lang, FallbackLang: String;
LangID: TLanguageID;
begin
GetLanguageIDs(Lang,FallbackLang); // in unit gettext
TranslateUnitResourceStrings('reConstsUnit','languages'+DirectorySeparator+'resexplorer.%s.po', Lang,FallbackLang);
LangID := GetLanguageID;
TranslateUnitResourceStrings('reConstsUnit','languages'+DirectorySeparator+'resexplorer.%s.po', LangID.LanguageID, LangID.LanguageCode);
end;
initialization