Changeset 18 for trunk

Timestamp:

Jan 8, 2017, 11:30:16 AM (8 years ago)

Author:

chronos

Message:

• Fixed: Build on Windows.

Location:

trunk

Files:

• GameServer.pas (modified) (1 diff)
• LocalPlayer/PVSB.pas (modified) (1 diff)
• LocalPlayer/Term.pas (modified) (2 diffs)
• ScreenTools.pas (modified) (1 diff)
• Sound.pas (modified) (2 diffs)

trunk/GameServer.pas

@@ -324 +324 @@
   T := NowPrecise;
   PutMessage(1 shl 16 + 2, Format('CLIENT: took %.1f ms',
-    [MilliSecondOf(T - LastClientTime)]));
+    [(T - LastClientTime) / OneMillisecond]));
   LastClientTime := T;
   PutMessage(1 shl 16 + 2, Format('CLIENT: calling %d (%s)',

trunk/LocalPlayer/PVSB.pas

@@ -5 +5 @@
 
 uses
+  {$IFDEF WINDOWS}
+  Windows,
+  {$ENDIF}
   LCLIntf, LCLType, LMessages, Messages, SysUtils;
 

trunk/LocalPlayer/Term.pas

@@ -5 +5 @@
 
 uses
+  {$IFDEF Windows}
+  Windows,
+  {$ENDIF}
   Protocol, Tribes, PVSB, ClientTools, ScreenTools, BaseWin, Messg, ButtonBase,
 
@@ -6107 +6110 @@
           end;
           Ticks := NowPrecise;
-        until MillisecondOf(Ticks - Ticks0) * 12 >= MoveTime;
+        until (Ticks - Ticks0) / OneMillisecond * 12 >= MoveTime;
         Ticks0 := Ticks
       end;

trunk/ScreenTools.pas

@@ -5 +5 @@
 
 uses
+  {$IFDEF WINDOWS}
+  Windows,
+  {$ENDIF}
   StringTables,
   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls,

trunk/Sound.pas

@@ -13 +13 @@
   private
     {$IFDEF WINDOWS}
-    procedure OnMCI(var m: TMessage); message MM_MCINOTIFY;}
+    procedure OnMCI(var m: TMessage); message MM_MCINOTIFY;
     {$ENDIF}
   end;
@@ -58 +58 @@
   {$IFDEF WINDOWS}
   if FDeviceID <> 0 then
-    mciSendCommand(FDeviceID, MCI_CLOSE, MCI_WAIT, 0);}
+    mciSendCommand(FDeviceID, MCI_CLOSE, MCI_WAIT, 0);
   {$ENDIF}
   inherited Destroy;