Ignore regional settings and enforce '.' as decimal separator for num…

…eric parameters on the command-line
EricGrange · Dec 23, 2021 · ccf532a · ccf532a
1 parent 1a49528
commit ccf532a
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/cefHtmlSnapshot.dpr b/cefHtmlSnapshot.dpr
@@ -124,6 +124,8 @@ end;
 var
    parameters : TSnapshotParameters;
 begin
+   FormatSettings.DecimalSeparator := '.';
+
    if (ParamCount > 0) and (Copy(ParamStr(1), 1, 6) = '--type') then begin
       RunAsSubProcess;
       Exit;