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

LCLTranslator: clean up

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-06-15 03:04:09 +03:00
parent 74446557f6
commit b949b1d54f
1 changed files with 0 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/lcltranslator.pas
View File

@ -84,13 +84,9 @@ function SetDefaultLang(Lang: string; Dir: string = ''; LocaleFileName: string =
implementation
type
TPersistentAccess = class(TPersistent);
var
DefaultLang: String = '';
function FindLang(var Lang: string): TLanguageID;
var
CurParam: string;
@ -592,8 +588,6 @@ begin
lcfn := '';
end;
DefaultLang := Result;
if lcfn<>'' then
TranslateLCLResourceStrings(Lang, lcfn);