Changeset 276 for trunk/Forms/UFormGameSystems.pas

Timestamp:

Feb 3, 2019, 11:55:30 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Load/save game syste name correctly from/to file.

File:

• trunk/Forms/UFormGameSystems.pas (modified) (5 diffs)

trunk/Forms/UFormGameSystems.pas

@@ -67 +67 @@
   SRemoveItems = 'Remove items';
   SRemoveItemsQuery = 'Do you want to remove selected items?';
-
+  SNewGameSystem = 'New game system';
 
 { TFormGameSystems }
@@ -96 +96 @@
   with TGameSystem(ListView1.Selected.Data) do begin
     TempEntry := TGameSystem.Create;
+    TempEntry.Assign(TGameSystem(ListView1.Selected.Data));
     FormGameSystem := TFormGameSystem.Create(Self);
     try
@@ -101 +102 @@
       if FormGameSystem.ShowModal = mrOk then begin
         FormGameSystem.SaveData(TempEntry);
+        TGameSystem(ListView1.Selected.Data).Assign(TempEntry);
         UpdateList;
         UpdateInterface;
@@ -118 +120 @@
   FormGameSystem := TFormGameSystem.Create(Self);
   try
+    TempEntry.FileName := SNewGameSystem + GameSystemExt;
     FormGameSystem.LoadData(TempEntry);
     if FormGameSystem.ShowModal = mrOk then begin
       FormGameSystem.SaveData(TempEntry);
+      TGameSystem(ListView1.Selected.Data).Assign(TempEntry);
       UpdateList;
       UpdateInterface;
@@ -165 +169 @@
   if Item.Index < ListView1.Items.Count then
   with TGameSystem(GameSystems[Item.Index]) do begin
-    Item.Caption := Name;
+    Item.Caption := GetName;
     Item.Data := GameSystems[Item.Index];
   end;