Changeset 347 for trunk/Direct.pas


Ignore:
Timestamp:
Apr 6, 2021, 7:39:39 PM (8 months ago)
Author:
chronos
Message:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Direct.pas

    r339 r347  
    3131    procedure SetInfo(x: string);
    3232    procedure SetState(x: integer);
    33     procedure OnGo(var m: TMessage); message WM_GO;
    34     procedure OnChangeClient(var m: TMessage); message WM_CHANGECLIENT;
    35     procedure OnNextPlayer(var m: TMessage); message WM_NEXTPLAYER;
     33    procedure OnGo(var Msg: TMessage); message WM_GO;
     34    procedure OnChangeClient(var Msg: TMessage); message WM_CHANGECLIENT;
     35    procedure OnNextPlayer(var Msg: TMessage); message WM_NEXTPLAYER;
    3636    procedure OnAIException(var Msg: TMessage); message WM_AIEXCEPTION;
    3737  end;
     
    200200end;
    201201
    202 procedure TDirectDlg.OnGo(var m: TMessage);
     202procedure TDirectDlg.OnGo(var Msg: TMessage);
    203203var
    204204  i: integer;
     
    255255end;
    256256
    257 procedure TDirectDlg.OnChangeClient(var m: TMessage);
     257procedure TDirectDlg.OnChangeClient(var Msg: TMessage);
    258258begin
    259259  ChangeClient;
    260260end;
    261261
    262 procedure TDirectDlg.OnNextPlayer(var m: TMessage);
     262procedure TDirectDlg.OnNextPlayer(var Msg: TMessage);
    263263begin
    264264  NextPlayer;
Note: See TracChangeset for help on using the changeset viewer.