Changeset 108 for trunk/Packages

Timestamp:

Dec 10, 2024, 12:06:43 AM (3 months ago)

Author:

chronos

Message:

• Added: Tools - Score menu action to show history of previously played games with score information.

Location:

trunk/Packages/Common

Files:

• Common.pas (modified) (1 diff)
• Forms/FormKeyShortcuts.lfm (added)
• Forms/FormKeyShortcuts.lrj (added)
• Forms/FormKeyShortcuts.pas (added)
• Languages/FormKeyShortcuts.cs.po (added)
• RegistryEx.pas (modified) (2 diffs)

trunk/Packages/Common/Common.pas

@@ -190 +190 @@
   I: Integer;
 begin
+  Result := Default(TStringArray);
   SetLength(Result, GetEnvironmentVariableCount);
   for I := 0 to GetEnvironmentVariableCount - 1 do

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