update config

2024-11-13 17:42:29 +08:00
parent 797101d1f3
commit 5a5906a636
20 changed files with 806 additions and 73 deletions
@@ -5,6 +5,7 @@ interface
    function HalfPointToPoints(value): real;
    function PercentToNumber(value): real;
    function ToInt(value): integer;
+    function EighthPointToPoints(value): real;

 implementation

@@ -44,5 +45,12 @@ uses TSUnitConverter;
        return tryStrtoInt(value, r) ? r : 0;
    end;

+    function EighthPointToPoints(value): real;
+    begin
+        if ifNil(value) then return 0;
+        new_value := ifString(value) ? strToFloat(value) : value;
+        return TSUnitConverter.EighthPointToPoints(new_value);
+    end;
+
 end.

@@ -3,6 +3,7 @@ interface
    function TwipsToPoints(value: real): real;
    function EmusToPoints(value: real): real;
    function HalfPointToPoints(value: real): real;
+    function EighthPointToPoints(value: real): real;
    function PercentToNumber(value: real): real;

 implementation
@@ -25,7 +26,12 @@ implementation
    function PercentToNumber(value: real): real;
    begin
        return value / 100;
-    end
+    end;
+
+    function EighthPointToPoints(value: real): real;
+    begin
+        return value / 8;
+    end;

 end.