Changeset 211 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• UFormClient.lfm (modified) (4 diffs)
• UFormClient.pas (modified) (4 diffs)

trunk/Forms/UFormClient.lfm

@@ -7 +7 @@
   ClientHeight = 621
   ClientWidth = 775
-  DesignTimePPI = 120
+  DesignTimePPI = 144
   OnClose = FormClose
   OnCreate = FormCreate
@@ -17 +17 @@
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 28
-    Top = 593
+    Height = 30
+    Top = 591
     Width = 775
     Panels = <    
@@ -34 +34 @@
   object ToolBar1: TToolBar
     Left = 0
-    Height = 593
+    Height = 591
     Top = 0
     Width = 32
@@ -75 +75 @@
   object PaintBox1: TPaintBox
     Left = 32
-    Height = 593
+    Height = 591
     Top = 0
     Width = 743

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;