Changeset 277 for trunk/Forms/UFormGameSystems.pas

Timestamp:

Feb 5, 2019, 11:17:27 PM (6 years ago)

Author:

chronos

Message:

• Added: Forms for list of unit kinds and unit kind.

File:

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

trunk/Forms/UFormGameSystems.pas

@@ -124 +124 @@
     if FormGameSystem.ShowModal = mrOk then begin
       FormGameSystem.SaveData(TempEntry);
-      TGameSystem(ListView1.Selected.Data).Assign(TempEntry);
+      GameSystems.Add(TempEntry);
+      TempEntry := nil;
       UpdateList;
       UpdateInterface;
@@ -197 +198 @@
   AModify.Enabled := Assigned(FGameSystems) and Assigned(ListView1.Selected);
   AAdd.Enabled := Assigned(FGameSystems);
-  ASelectAll.Enabled := True;
+  ASelectAll.Enabled := ListView1.Items.Count > 0;
 end;