Changeset 555 for Common/URegistry.pas

Timestamp:

Jan 18, 2022, 12:14:46 PM (3 years ago)

Author:

chronos

Message:

• Modified: Updated language .pot files for Lazarus 2.2.0.
• Modified: Resolved compilation hints.

File:

• Common/URegistry.pas (modified) (2 diffs)

Common/URegistry.pas

@@ -132 +132 @@
 function TRegistryEx.OpenKey(const Key: string; CanCreate: Boolean): Boolean;
 begin
-  {$IFDEF Linux}
+  {$IFDEF UNIX}
   //CloseKey;
   {$ENDIF}
@@ -140 +140 @@
 function TRegistryEx.GetCurrentContext: TRegistryContext;
 begin
-  Result.Key := CurrentPath;
+  Result.Key := String(CurrentPath);
   Result.RootKey := RootKey;
 end;