Changeset 341 for trunk/Packages/Common/RegistryEx.pas

Timestamp:

Dec 21, 2024, 12:47:18 PM (27 hours ago)

Author:

chronos

Message:

• Modified: Improved dark theme support on Windows.

File:

• trunk/Packages/Common/RegistryEx.pas (modified) (2 diffs)

trunk/Packages/Common/RegistryEx.pas

@@ -36 +36 @@
     function ReadFloatWithDefault(const Name: string;
       DefaultValue: Double): Double;
+    function ReadDateTimeWithDefault(const Name: string; DefaultValue: TDateTime): TDateTime;
     function DeleteKeyRecursive(const Key: string): Boolean;
     function OpenKey(const Key: string; CanCreate: Boolean): Boolean;
@@ -110 +111 @@
 end;
 
+function TRegistryEx.ReadDateTimeWithDefault(const Name: string;
+  DefaultValue: TDateTime): TDateTime;
+begin
+  if ValueExists(Name) then Result := ReadDateTime(Name)
+    else begin
+      WriteDateTime(Name, DefaultValue);
+      Result := DefaultValue;
+    end;
+end;
+
 function TRegistryEx.DeleteKeyRecursive(const Key: string): Boolean;
 var