Changeset 123 for trunk/Packages/Common/URegistry.pas

Timestamp:

Jul 24, 2020, 11:06:31 PM (4 years ago)

Author:

chronos

Message:

• Added: IPTV channels for channel packages.
• Added: Used network interfaces specification document.
• Modified: Updated IPTV manual.
• Fixed: Build under Lazarus 2.0.10.

File:

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

trunk/Packages/Common/URegistry.pas

@@ -18 +18 @@
     Key: string;
     class operator Equal(A, B: TRegistryContext): Boolean;
-    function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; overload;
-    function Create(RootKey: HKEY; Key: string): TRegistryContext; overload;
+    class function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; static; overload;
+    class function Create(RootKey: HKEY; Key: string): TRegistryContext; static; overload;
   end;
 
@@ -55 +55 @@
 end;
 
-function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
+class function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
 begin
   Result.RootKey := RegistryRootHKEY[RootKey];
@@ -61 +61 @@
 end;
 
-function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
+class function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
 begin
   Result.RootKey := RootKey;