Changeset 17 for trunk/LocalPlayer/MessgEx.pas

Timestamp:

Jan 8, 2017, 11:21:02 AM (7 years ago)

Author:

chronos

Message:

• Fixed: Build under Linux.

File:

• trunk/LocalPlayer/MessgEx.pas (modified) (6 diffs)

trunk/LocalPlayer/MessgEx.pas

@@ -1 @@
-{$INCLUDE switches.pas}
+{$INCLUDE Switches.pas}
 unit MessgEx;
 
@@ -5 +5 @@
 
 uses
-  Messg, Protocol, ScreenTools, Windows,
+  Messg, Protocol, ScreenTools, Platform, DateUtils,
 
   LCLIntf, LCLType, LMessages, Messages, SysUtils, Classes, Graphics, Controls, Forms, ButtonA,
@@ -82 +82 @@
   LostUnitsPerLine = 6;
 
-var
-  PerfFreq: int64;
-
 procedure TMessgExDlg.FormCreate(Sender: TObject);
 begin
@@ -203 +200 @@
 function TMessgExDlg.ShowModal: integer;
 var
-  Ticks0, Ticks: int64;
+  Ticks0, Ticks: TDateTime;
 begin
   if GameMode = cMovie then
@@ -211 +208 @@
       MovieCancelled := false;
       Show;
-      QueryPerformanceCounter(Ticks0);
+      Ticks0 := NowPrecise;
       repeat
         Application.ProcessMessages;
         Sleep(1);
-        QueryPerformanceCounter(Ticks);
-      until MovieCancelled or ((Ticks - Ticks0) * 1000 >= 1500 * PerfFreq);
+        Ticks := NowPrecise;
+      until MovieCancelled or (MillisecondOf(Ticks - Ticks0) >= 1500);
       Hide;
     end;
@@ -563 +560 @@
 initialization
 
-QueryPerformanceFrequency(PerfFreq);
-
 end.