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

IDE: added system preferred language info to About IDE info dialog

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-06-13 20:23:14 +03:00
parent d0b5fb05f1
commit 60e9f2b984
1 changed files with 17 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/ideinfodlg.pas
View File

@ -59,6 +59,7 @@ type
// general
procedure GatherIDEVersion(sl: TStrings);
procedure GatherParameters(sl: TStrings);
procedure GatherSystemLanguageInfo(sl: TStrings);
procedure GatherEnvironmentVars(sl: TStrings);
procedure GatherGlobalOptions(sl: TStrings);
// modified
@ -87,6 +88,9 @@ function ShowIDEInfo: TModalResult;
implementation
uses
Translations;
function ShowIDEInfo: TModalResult;
var
Dlg: TIDEInfoDialog;
@ -261,6 +265,18 @@ begin
sl.Add('');
end;
procedure TIDEInfoDialog.GatherSystemLanguageInfo(sl: TStrings);
var
LangID: TLanguageID;
begin
LangID:=GetLanguageID;
sl.Add('System preferred language:');
sl.Add('Language ID: '''+LangID.LanguageID+'''');
sl.Add('Language code: '''+LangID.LanguageCode+'''');
sl.Add('Country code: '''+LangID.CountryCode+'''');
sl.Add('');
end;
procedure TIDEInfoDialog.GatherEnvironmentVars(sl: TStrings);
var
i: Integer;
@ -464,6 +480,7 @@ begin
GatherIDEVersion(sl);
GatherGlobalOptions(sl);
GatherParameters(sl);
GatherSystemLanguageInfo(sl);
GatherEnvironmentVars(sl);
GeneralMemo.Lines.Assign(sl);
finally