Changeset 205 for trunk/Forms/UFormClient.pas

Timestamp:

May 20, 2018, 11:19:57 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Show correctly units move dialog after new game is created.
• Fixed: Missing hints in client form toolbar.
• Fixed: Recalculate players stats after game was loaded from file.

File:

• trunk/Forms/UFormClient.pas (modified) (4 diffs)

trunk/Forms/UFormClient.pas

@@ -82 +82 @@
     procedure DoMove(CellFrom, CellTo: TCell; var CountOnce,
       CountRepeat: Integer; Update: Boolean; var Confirm: Boolean);
+    procedure SetToolbarHints;
+    procedure DoClientDestroy(Sender: TObject);
   public
     procedure LoadConfig(Config: TXmlConfig; Path: string);
@@ -104 +106 @@
 
 { TFormClient }
+
+procedure TFormClient.SetToolbarHints;
+var
+  I: Integer;
+begin
+  for I := 0 to ToolBar1.ButtonCount - 1 do begin
+    ToolBar1.Buttons[I].ShowHint := True;
+    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
+  end;
+end;
+
+procedure TFormClient.DoClientDestroy(Sender: TObject);
+begin
+  Client := nil;
+end;
 
 procedure TFormClient.DoMove(CellFrom, CellTo: TCell; var CountOnce,
@@ -213 +230 @@
     FClient.OnChange := DoClientChange;
     FClient.OnMove := DoMove;
-    FClient.OnTurnStart := DoTurnStart();
+    FClient.OnTurnStart := DoTurnStart;
+    FClient.OnDestroy := DoClientDestroy;
   end;
   Redraw;
@@ -375 +393 @@
 procedure TFormClient.FormShow(Sender: TObject);
 begin
+  SetToolbarHints;
   LoadConfig(Core.XMLConfig1, 'FormClient');
   Core.PersistentForm.Load(Self);