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

LazUtils: fixed compilation on WinCE by adding somehow missing constants for it

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-06-12 21:32:07 +03:00
parent e79ac027d5
commit 691e47cc00
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazutils/translations.pas
View File

@ -499,6 +499,11 @@ end;
function GetLanguageID: TLanguageID; function GetLanguageID: TLanguageID;
{$IFDEF Windows} {$IFDEF Windows}
procedure GetLanguage; procedure GetLanguage;
{$IFDEF Wince}
const
LOCALE_SISO639LANGNAME = $59;
LOCALE_SISO3166CTRYNAME = $5A;
{$ENDIF}
var var
UserLCID: LCID; UserLCID: LCID;