Changeset 183 for trunk/Forms/UFormPlayer.pas

Timestamp:

Feb 9, 2018, 10:33:18 AM (6 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/UFormPlayer.pas (modified) (4 diffs)

trunk/Forms/UFormPlayer.pas

@@ -28 +28 @@
     SpinEditStartUnits: TSpinEdit;
     procedure ComboBoxModeChange(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
   private
@@ -45 +46 @@
 {$R *.lfm}
 
+uses
+  UCore;
+
 resourcestring
   SHuman = 'Human';
@@ -59 +63 @@
 end;
 
+procedure TFormPlayer.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm.Save(Self);
+end;
+
 procedure TFormPlayer.FormShow(Sender: TObject);
 begin
+  Core.PersistentForm.Load(Self);
+  Translate;
   UpdateInterface;
 end;
@@ -68 +79 @@
   LastIndex: Integer;
 begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
   with ComboBoxMode do begin
     LastIndex := ItemIndex;