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