Changeset 211 for trunk/UGameClient.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/UGameClient.pas (modified) (5 diffs)

trunk/UGameClient.pas

@@ -21 +21 @@
     FOnChange: TNotifyEvent;
     FOnDestroy: TNotifyEvent;
+    FOnGameEnd: TNotifyEvent;
     FOnReceive: TCommandEvent;
     FOnMove: TMoveEvent;
@@ -35 +36 @@
     procedure ReceiveCmd(Command: TCommand; DataOut, DataIn: TStream); virtual;
     procedure DoTurnStart(Sender: TObject); virtual;
+    procedure DoGameEnd(Sender: TObject);
   public
     Name: string;
@@ -54 +56 @@
     property OnChange: TNotifyEvent read FOnChange write FOnChange;
     property OnTurnStart: TNotifyEvent read FOnTurnStart write FOnTurnStart;
+    property OnGameEnd: TNotifyEvent read FOnGameEnd write FOnGameEnd;
     property Active: Boolean read FActive write SetActive;
   end;
@@ -134 +137 @@
   if Assigned(FOnTurnStart) then
     FOnTurnStart(Self);
+end;
+
+procedure TClient.DoGameEnd(Sender: TObject);
+begin
+  if Assigned(FOnGameEnd) then
+    FOnGameEnd(Self);
 end;
 
@@ -191 +200 @@
   Protocol := TGameProtocolClient.Create;
   Protocol.OnTurnStart := DoTurnStart;
+  Protocol.OnGameEnd := DoGameEnd;
 end;