mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: Capability to set custom decimal separator

Browse source
This commit is contained in:
Alexander Koblov 2024-04-04 21:17:36 +03:00
commit fea28f382b
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/uglobs.pas
View file

@ -763,6 +763,7 @@ var
// loaded from configuration file
gPreviousVersion: String = '';
FInitList: array of TProcedure;
CustomDecimalSeparator: String = #$EF#$BF#$BD;
function LoadConfigCheckErrors(LoadConfigProc: TLoadConfigProc;
ConfigFileName: String;
@ -2536,6 +2537,7 @@ procedure LoadXmlConfig;
end;
end;
var
DecimalSeparator: String;
Root, Node, SubNode: TXmlNode;
LoadedConfigVersion, iIndexContextMode: Integer;
oldQuickSearch: Boolean = True;
@ -3080,6 +3082,13 @@ begin
{$IF DEFINED(UNIX) AND NOT (DEFINED(DARWIN) OR DEFINED(HAIKU))}
gSystemItemProperties := GetValue(Node, 'SystemItemProperties', gSystemItemProperties);
{$ENDIF}
DecimalSeparator:= GetValue(Node, 'DecimalSeparator', FormatSettings.DecimalSeparator);
if (Length(DecimalSeparator) > 0) and (Ord(DecimalSeparator[1]) < $80) and
(DecimalSeparator[1] <> FormatSettings.DecimalSeparator) then
begin
CustomDecimalSeparator:= DecimalSeparator;
FormatSettings.DecimalSeparator:= CustomDecimalSeparator[1];
end;
end;
{ Thumbnails }
@ -3694,6 +3703,7 @@ begin
{$IF DEFINED(UNIX) AND NOT (DEFINED(DARWIN) OR DEFINED(HAIKU))}
SetValue(Node, 'SystemItemProperties', gSystemItemProperties);
{$ENDIF}
SetValue(Node, 'DecimalSeparator', CustomDecimalSeparator);
{ Thumbnails }
Node := FindNode(Root, 'Thumbnails', True);