Changeset 211 for trunk/Forms/UFormClient.pas

Timestamp:

May 23, 2018, 8:53:58 PM (6 years ago)

Author:

chronos

Message:

• Modified: Each client form is redrawn by itself, not by Core.

File:

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

trunk/Forms/UFormClient.pas

@@ -79 +79 @@
     procedure SetClient(AValue: TClient);
     procedure DoClientChange(Sender: TObject);
+    procedure DoGameEnd(Sender: TObject);
     procedure DoTurnStart(Sender: TObject);
     procedure DoMove(CellFrom, CellTo: TCell; var CountOnce,
@@ -231 +232 @@
     FClient.OnTurnStart := DoTurnStart;
     FClient.OnDestroy := DoClientDestroy;
+    FClient.OnGameEnd := DoGameEnd;
     FClient.View.DestRect := TRect.CreateBounds(TPoint.Create(0, 0), TPoint.Create(PaintBox1.Width, PaintBox1.Height));
   end;
@@ -237 +239 @@
 
 procedure TFormClient.DoClientChange(Sender: TObject);
+begin
+  Redraw;
+end;
+
+procedure TFormClient.DoGameEnd(Sender: TObject);
 begin
   Redraw;
@@ -245 +252 @@
   TurnActive := True;
   Synchronize(UpdateInterface);
+  Synchronize(Redraw);
 end;