Changeset 465 for branches/highdpi/Network/NetworkClient.pas

Timestamp:

Nov 30, 2023, 10:16:14 PM (6 months ago)

Author:

chronos

Message:

• Modified: Updated high dpi branch from trunk.
• Modified: Use generics.collections instead of fgl.
• Modified: Compile with Delphi syntax.

File:

• branches/highdpi/Network/NetworkClient.pas (moved) (moved from branches/highdpi/Network/UNetworkClient.pas ) (4 diffs)

branches/highdpi/Network/NetworkClient.pas

@@ -1 @@
-unit UNetworkClient;
-
-{$mode delphi}
+unit NetworkClient;
 
 interface
 
 uses
-  Classes, SysUtils{$IFDEF LINUX}, fpAsync, fpsock{$ENDIF}, Protocol;
+  Classes, SysUtils{$IFDEF UNIX}, fpAsync, fpsock{$ENDIF}, Protocol;
 
-{$IFDEF LINUX}
+{$IFDEF UNIX}
 type
   { TTCPClientThread }
@@ -48 +46 @@
 
 uses
-  LocalPlayer{$IFDEF LINUX}, Global, UNetworkCommon{$ENDIF};
+  LocalPlayer{$IFDEF UNIX}, Global, NetworkCommon{$ENDIF};
 
 procedure Client(Command, Player: Integer; var Data);
-{$IFDEF LINUX}
+{$IFDEF UNIX}
 var
   Cmd: TCommand;
 {$ENDIF}
 begin
-  {$IFDEF LINUX}
+  {$IFDEF UNIX}
   Cmd := TCommand(Command);
   case Cmd of
@@ -73 +71 @@
 end;
 
-{$IFDEF LINUX}
+{$IFDEF UNIX}
 function LocalServer(Command, Player, Subject: Integer; var Data): Integer; stdcall;
 begin
@@ -178 +176 @@
 end.
 
+