Changeset 308 for trunk/Packages/Common/UPrefixMultiplier.pas

Timestamp:

Aug 18, 2021, 11:50:13 AM (3 years ago)

Author:

chronos

Message:

• Modified: Updated Common package to newer version.
• Modified: About dialog is now part of Common package.
• Modified: CoolTranslator is now part of Common package.

File:

• trunk/Packages/Common/UPrefixMultiplier.pas (modified) (3 diffs)

trunk/Packages/Common/UPrefixMultiplier.pas

@@ -21 +21 @@
   { TPrefixMultiplier }
 
-  TPrefixMultiplier = class
+  TPrefixMultiplier = class(TComponent)
   private
-    function TruncateDigits(Value:Double;Digits:Integer=3):Double;
+    function TruncateDigits(Value: Double; Digits: Integer = 3): Double;
   public
     function Add(Value: Double; PrefixMultipliers: TPrefixMultiplierDef;
@@ -72 +72 @@
   );
 
+procedure Register;
+
+
 implementation
+
+procedure Register;
+begin
+  RegisterComponents('Common', [TPrefixMultiplier]);
+end;
 
 { TPrefixMultiplier }
@@ -92 +100 @@
 end;
 
-function TPrefixMultiplier.Add(Value:Double;PrefixMultipliers:TPrefixMultiplierDef
-  ;UnitText:string;Digits:Integer):string;
+function TPrefixMultiplier.Add(Value: Double; PrefixMultipliers: TPrefixMultiplierDef
+  ; UnitText:string; Digits: Integer): string;
 var
   I: Integer;