Changeset 105 for trunk/Tile.pas

Timestamp:

Dec 9, 2024, 4:40:34 PM (5 weeks ago)

Author:

chronos

Message:

• Added: Set number of randomly generated disabled tiles in new game form.

File:

• trunk/Tile.pas (modified) (3 diffs)

trunk/Tile.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Generics.Collections;
+  Classes, SysUtils, Generics.Collections, RegistryEx;
 
 type
@@ -18 +18 @@
     Action: TTileAction;
     Shift: TPoint;
+    Disabled: Boolean;
+    procedure Clear;
     procedure Assign(Source: TTile);
+    procedure SaveToRegistry(Reg: TRegistryEx; RegContext: TRegistryContext);
+    procedure LoadFromRegistry(Reg: TRegistryEx; RegContext: TRegistryContext);
   end;
 
@@ -29 +33 @@
 { TTile }
 
+procedure TTile.Clear;
+begin
+  Value := 0;
+  Action := taNone;;
+  Disabled := False;
+end;
+
 procedure TTile.Assign(Source: TTile);
 begin
+  Index := Source.Index;
   Value := Source.Value;
   Merged := Source.Merged;
+  Disabled := Source.Disabled;
 end;
 
+procedure TTile.SaveToRegistry(Reg: TRegistryEx; RegContext: TRegistryContext);
+begin
+  with Reg do begin
+    CurrentContext := RegContext;
+
+    WriteInteger('Value', Value);
+    WriteBool('Disabled', Disabled);
+  end;
+end;
+
+procedure TTile.LoadFromRegistry(Reg: TRegistryEx; RegContext: TRegistryContext
+  );
+begin
+  with Reg do begin
+    CurrentContext := RegContext;
+
+    Value := ReadIntegerWithDefault('Value', Value);
+    Disabled := ReadBoolWithDefault('Disabled', Disabled);
+  end;
+end;
 
 end.