Changeset 303 for branches/highdpi/Direct.pas

Timestamp:

Mar 9, 2021, 9:19:49 AM (4 years ago)

Author:

chronos

Message:

• Modified: Synced code with current trunk version.

File:

• branches/highdpi/Direct.pas (modified) (4 diffs)

branches/highdpi/Direct.pas

@@ -30 +30 @@
     procedure SetInfo(x: string);
     procedure SetState(x: integer);
-    procedure OnGo(var Msg: TMessage); message WM_GO;
-    procedure OnChangeClient(var Msg: TMessage); message WM_CHANGECLIENT;
-    procedure OnNextPlayer(var Msg: TMessage); message WM_NEXTPLAYER;
+    procedure OnGo(var m: TMessage); message WM_GO;
+    procedure OnChangeClient(var m: TMessage); message WM_CHANGECLIENT;
+    procedure OnNextPlayer(var m: TMessage); message WM_NEXTPLAYER;
     procedure OnAIException(var Msg: TMessage); message WM_AIEXCEPTION;
   end;
@@ -208 +208 @@
 end;
 
-procedure TDirectDlg.OnGo(var Msg: TMessage);
+procedure TDirectDlg.OnGo(var m: TMessage);
 var
   i: integer;
@@ -234 +234 @@
         Quick := true;
         DirectHelp(cHelpOnly);
-        Close;
+        Close
       end;
     end
@@ -254 +254 @@
 end;
 
-procedure TDirectDlg.OnChangeClient(var Msg: TMessage);
+procedure TDirectDlg.OnChangeClient(var m: TMessage);
 begin
   ChangeClient;
 end;
 
-procedure TDirectDlg.OnNextPlayer(var Msg: TMessage);
+procedure TDirectDlg.OnNextPlayer(var m: TMessage);
 begin
   NextPlayer;