Download as
Browse Code »

Commit 7f83b0f624bff2f8729aef98c2bf4cb8aa170ea7

Authored by Carlos Picanco
1 parent 4a9d0a08
Exists in master

open, close and network working dump

Showing 3 changed files with 4 additions and 11 deletions   Show diff stats
cultural_matrix.lpi
  Diff comments   View file @7f83b0f
... ... @@ -62,7 +62,7 @@
62 62 <IsPartOfProject Value="True"/>
63 63 </Unit3>
64 64 <Unit4>
65   - <Filename Value="units/zmq_pub_sub.pas"/>
  65 + <Filename Value="units/zmq_network.pas"/>
66 66 <IsPartOfProject Value="True"/>
67 67 </Unit4>
68 68 <Unit5>
... ...
form_matrixgame.lfm
  Diff comments   View file @7f83b0f
... ... @@ -11,7 +11,6 @@ object FormMatrixGame: TFormMatrixGame
11 11 ClientWidth = 1159
12 12 Font.Name = 'Monospace'
13 13 OnActivate = FormActivate
14   - OnClose = FormClose
15 14 OnCreate = FormCreate
16 15 LCLVersion = '1.6.0.4'
17 16 object StringGridMatrix: TStringGrid
... ...
form_matrixgame.pas
  Diff comments   View file @7f83b0f
... ... @@ -75,7 +75,6 @@ type
75 75 procedure Button3Click(Sender: TObject);
76 76 procedure CheckBoxDrawDotsChange(Sender: TObject);
77 77 procedure FormActivate(Sender: TObject);
78   - procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
79 78 procedure FormCreate(Sender: TObject);
80 79 procedure rgMatrixTypeClick(Sender: TObject);
81 80 procedure StringGridMatrixBeforeSelection(Sender: TObject; aCol, aRow: integer);
... ... @@ -253,20 +252,20 @@ procedure TFormMatrixGame.SetGameActor(AValue: TGameActor);
253 252  
254 253 procedure SetZMQAdmin;
255 254 begin
256   - FZMQActor := TZMQAdmin.Create;
  255 + FZMQActor := TZMQAdmin.Create(Self);
257 256 GBAdmin.Visible:= True;
258 257 end;
259 258  
260 259 procedure SetZMQPlayer;
261 260 begin
262   - FZMQActor := TZMQPlayer.Create;
  261 + FZMQActor := TZMQPlayer.Create(Self);
263 262 btnConfirmRow.Visible := True;
264 263 StringGridMatrix.Enabled := True
265 264 end;
266 265  
267 266 procedure SetZMQWatcher;
268 267 begin
269   - FZMQActor := TZMQWatcher.Create;
  268 + FZMQActor := TZMQWatcher.Create(Self);
270 269 end;
271 270  
272 271 begin
... ... @@ -319,11 +318,6 @@ begin
319 318 StringGridMatrix.FocusRectVisible := False;
320 319 end;
321 320  
322   -procedure TFormMatrixGame.FormClose(Sender: TObject;
323   - var CloseAction: TCloseAction);
324   -begin
325   - FZMQActor.Free;
326   -end;
327 321  
328 322 procedure TFormMatrixGame.FormCreate(Sender: TObject);
329 323 begin
... ...