Changeset 183 for trunk/Forms/UFormNew.pas

Timestamp:

Feb 9, 2018, 10:33:18 AM (7 years ago)

Author:

chronos

Message:

• Modified: Units move handling was moved from Core to FormClient as it is game client related functionality.

File:

• trunk/Forms/UFormNew.pas (modified) (1 diff)

trunk/Forms/UFormNew.pas

@@ -319 +319 @@
 procedure TFormNew.APlayerModifyExecute(Sender: TObject);
 begin
-  if Assigned(ListViewPlayers.Selected) then begin
-    FormPlayer.Load(TPlayer(ListViewPlayers.Selected.Data));
-    if FormPlayer.ShowModal = mrOk then begin
-      FormPlayer.Save(TPlayer(ListViewPlayers.Selected.Data));
-      ReloadView;
+  FormPlayer := TFormPlayer.Create(nil);
+  try
+    if Assigned(ListViewPlayers.Selected) then begin
+      FormPlayer.Load(TPlayer(ListViewPlayers.Selected.Data));
+       if FormPlayer.ShowModal = mrOk then begin
+         FormPlayer.Save(TPlayer(ListViewPlayers.Selected.Data));
+         ReloadView;
+      end;
     end;
+  finally
+    FormPlayer.Free;
   end;
 end;