Changeset 58 for trunk

Timestamp:

Sep 5, 2020, 8:12:43 PM (4 years ago)

Author:

chronos

Message:

• Fixed: Build under Lazarus 2.0.10.

Location:

trunk

Files:

• Forms/UFormMain.lfm (modified) (1 diff)
• Packages/Common (modified) (1 prop)
• Packages/Common/URegistry.pas (modified) (5 diffs)
• Read me.txt (added)

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 611
+  Left = 263
   Height = 823
-  Top = 333
+  Top = 102
   Width = 1139
   Caption = 'Big Metro'
   ClientHeight = 823
   ClientWidth = 1139
+  DesignTimePPI = 128
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   OnKeyPress = FormKeyPress
   OnShow = FormShow
-  LCLVersion = '1.6.2.0'
+  LCLVersion = '1.9.0.0'
   WindowState = wsMaximized
   object PaintBox1: TPaintBox

trunk/Packages/Common/URegistry.pas

@@ -1 +1 @@
 unit URegistry;
 
-{$MODE Delphi}
+{$MODE delphi}
 
 interface
@@ -17 +17 @@
     RootKey: HKEY;
     Key: string;
+    class function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; static; overload;
+    class function Create(RootKey: HKEY; Key: string): TRegistryContext; static; overload;
     class operator Equal(A, B: TRegistryContext): Boolean;
-    function Create(RootKey: TRegistryRoot; Key: string): TRegistryContext; overload;
-    function Create(RootKey: HKEY; Key: string): TRegistryContext; overload;
   end;
 
@@ -58 +58 @@
 end;
 
-function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
+class function TRegistryContext.Create(RootKey: TRegistryRoot; Key: string): TRegistryContext;
 begin
   Result.RootKey := RegistryRootHKEY[RootKey];
@@ -64 +64 @@
 end;
 
-function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
+class function TRegistryContext.Create(RootKey: HKEY; Key: string): TRegistryContext;
 begin
   Result.RootKey := RootKey;
@@ -133 +133 @@
 begin
   {$IFDEF Linux}
-  CloseKey;
+  //CloseKey;
   {$ENDIF}
   Result := inherited OpenKey(Key, CanCreate);