Changeset 64 for trunk/UEngine.pas

Timestamp:

Jan 7, 2023, 12:10:51 AM (17 months ago)

Author:

chronos

Message:

• Modified: Store app settings in registry.
• Fixed: Full screen initialization.
• Fixed: Automatic language detection.

File:

• trunk/UEngine.pas (modified) (9 diffs)

trunk/UEngine.pas

@@ -4 +4 @@
 
 uses
-  Dialogs, Classes, SysUtils, Graphics, SpecializedMatrix,
+  Dialogs, Classes, SysUtils, Graphics, SpecializedMatrix, URegistry,
   IntfGraphics, FPImage, LCLType, SpecializedBitmap, GraphType, Math, URectangle,
   Syncobjs, UThreading, Forms, DateUtils, UAudioSystem, XMLConf, DOM,
@@ -143 +143 @@
     destructor Destroy; override;
     procedure Assign(Source: TPlayer);
-    procedure LoadConfig(Config: TXMLConfig; Path: string);
-    procedure SaveConfig(Config: TXMLConfig; Path: string);
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
     property Exploded: Boolean read FExploded write SetExploded;
   end;
@@ -154 +154 @@
     function AddNew: TPlayer;
     procedure Assign(Players: TPlayers);
-    procedure LoadConfig(Config: TXMLConfig; Path: string);
-    procedure SaveConfig(Config: TXMLConfig; Path: string);
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
     function GetAliveCount: Integer;
     function GetWinner: TPlayer;
@@ -210 +210 @@
     procedure Redraw;
     function IsInsideHouses(Pos: TPoint): Boolean;
-    procedure InitPlayerPool;
     procedure InitPlayers;
     procedure CheckGameEnd;
@@ -243 +242 @@
     procedure NewGame;
     procedure NewRound;
-    procedure LoadConfig(Config: TXMLConfig; Path: string);
-    procedure SaveConfig(Config: TXMLConfig; Path: string);
     procedure KeyUp(Key: Word);
     procedure KeyDown(Key: Word);
+    procedure LoadFromRegistry(Context: TRegistryContext);
+    procedure SaveToRegistry(Context: TRegistryContext);
+    procedure InitPlayerPool;
     property Bitmap: TBitmap read FBitmap write SetBitmap;
     property Active: Boolean read FActive write SetActive;
@@ -317 +317 @@
 end;
 
-procedure TPlayers.SaveConfig(Config: TXMLConfig; Path: string);
-var
-  I: Integer;
-begin
-  Config.SetValue(DOMString(Path + '/Count'), Count);
-  for I := 0 to Count - 1 do
-    Items[I].SaveConfig(Config, Path + '/Player' + IntToStr(I));
+procedure TPlayers.LoadFromRegistry(Context: TRegistryContext);
+var
+  Player: TPlayer;
+begin
+  for Player in Self do begin
+    Player.LoadFromRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '\' + IntToStr(Player.Id)));
+  end;
+end;
+
+procedure TPlayers.SaveToRegistry(Context: TRegistryContext);
+var
+  Player: TPlayer;
+begin
+  for Player in Self do begin
+    Player.SaveToRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '\' + IntToStr(Player.Id)));
+  end;
 end;
 
@@ -348 +357 @@
     TopScore := Score;
     Result := Items[I];
-  end;
-end;
-
-procedure TPlayers.LoadConfig(Config: TXMLConfig; Path: string);
-var
-  I: Integer;
-  NewCount: Integer;
-begin
-  NewCount := Config.GetValue(DOMString(Path + '/Count'), 0);
-  while Count > NewCount do Delete(Count - 1);
-  while Count < NewCount do Add(TPlayer.Create);
-  for I := 0 to Count - 1 do begin
-    Items[I].Engine := Engine;
-    Items[I].Id := I;
-    Items[I].LoadConfig(Config, Path + '/Player' + IntToStr(I));
   end;
 end;
@@ -965 +959 @@
 end;
 
-procedure TPlayer.LoadConfig(Config: TXMLConfig; Path: string);
-begin
-  with Config do begin
-    Self.Name := string(GetValue(DOMString(Path + '/Name'), UnicodeString(Name)));
-    Color1 := GetValue(DOMString(Path + '/Color1'), Color1);
-    Color2 := GetValue(DOMString(Path + '/Color2'), Color2);
-    Enabled := GetValue(DOMString(Path + '/Enabled'), Enabled);
-    Keys.Left := GetValue(DOMString(Path + '/Keys/Left'), Keys.Left);
-    Keys.Right := GetValue(DOMString(Path + '/Keys/Right'), Keys.Right);
-    Keys.Down := GetValue(DOMString(Path + '/Keys/Down'), Keys.Down);
-    Keys.Up := GetValue(DOMString(Path + '/Keys/Up'), Keys.Up);
-    Keys.Shoot := GetValue(DOMString(Path + '/Keys/Shoot'), Keys.Shoot);
-  end;
-  InitTanks;
-end;
-
-procedure TPlayer.SaveConfig(Config: TXMLConfig; Path: string);
-begin
-  with Config do begin
-    SetValue(DOMString(Path + '/Name'), DOMString(Self.Name));
-    SetValue(DOMString(Path + '/Color1'), Color1);
-    SetValue(DOMString(Path + '/Color2'), Color2);
-    SetValue(DOMString(Path + '/Enabled'), Enabled);
-    SetValue(DOMString(Path + '/Keys/Left'), Keys.Left);
-    SetValue(DOMString(Path + '/Keys/Right'), Keys.Right);
-    SetValue(DOMString(Path + '/Keys/Down'), Keys.Down);
-    SetValue(DOMString(Path + '/Keys/Up'), Keys.Up);
-    SetValue(DOMString(Path + '/Keys/Shoot'), Keys.Shoot);
+procedure TPlayer.LoadFromRegistry(Context: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := Context;
+    Name := ReadStringWithDefault('Name', Name);
+    Color1 := ReadIntegerWithDefault('Color1', Color1);
+    Color2 := ReadIntegerWithDefault('Color2', Color2);
+    Enabled := ReadBoolWithDefault('Enabled', Enabled);
+    Keys.Left := ReadIntegerWithDefault('KeysLeft', Keys.Left);
+    Keys.Right := ReadIntegerWithDefault('KeyRight', Keys.Right);
+    Keys.Down := ReadIntegerWithDefault('KeyDown', Keys.Down);
+    Keys.Up := ReadIntegerWithDefault('KeyUp', Keys.Up);
+    Keys.Shoot := ReadIntegerWithDefault('KeyShoot', Keys.Shoot);
+  finally
+    Free;
+  end;
+end;
+
+procedure TPlayer.SaveToRegistry(Context: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := Context;
+    WriteString('Name', Name);
+    WriteInteger('Color1', Color1);
+    WriteInteger('Color2', Color2);
+    WriteBool('Enabled', Enabled);
+    WriteInteger('KeysLeft', Keys.Left);
+    WriteInteger('KeyRight', Keys.Right);
+    WriteInteger('KeyDown', Keys.Down);
+    WriteInteger('KeyUp', Keys.Up);
+    WriteInteger('KeyShoot', Keys.Shoot);
+  finally
+    Free;
   end;
 end;
@@ -1728 +1729 @@
 end;
 
-procedure TEngine.LoadConfig(Config: TXMLConfig; Path: string);
-begin
-  PlayerPool.LoadConfig(Config, Path + '/Players');
-end;
-
-procedure TEngine.SaveConfig(Config: TXMLConfig; Path: string);
-begin
-  PlayerPool.SaveConfig(Config, Path + '/Players');
+procedure TEngine.LoadFromRegistry(Context: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := Context;
+    PlayerPool.LoadFromRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '\Players'));
+  finally
+    Free;
+  end;
+end;
+
+procedure TEngine.SaveToRegistry(Context: TRegistryContext);
+begin
+  with TRegistryEx.Create do
+  try
+    CurrentContext := Context;
+
+    PlayerPool.SaveToRegistry(TRegistryContext.Create(Context.RootKey, Context.Key + '\Players'));
+  finally
+    Free;
+  end;
 end;