Diff of /bricktools/rcx_link.pas [r189] .. [r190] Maximize Restore

  Switch to side-by-side view

--- a/bricktools/rcx_link.pas
+++ b/bricktools/rcx_link.pas
@@ -194,6 +194,9 @@
 implementation
 
 uses
+{$IFNDEF FPC}
+  Windows,
+{$ENDIF}
   SysUtils, rcx_constants, scout_def, TOWERAPI, Math, uCommonUtils;
 
 const
@@ -1971,8 +1974,9 @@
   tmpStr : string;
 begin
   aIR.Clear;
-  T1 := GetTick;
-  while (GetTick - T1) < Cardinal(aSeconds * 1000) do
+{$IFNDEF FPC}
+  T1 := GetTickCount;
+  while (GetTickCount - T1) < Cardinal(aSeconds * 1000) do
   begin
     bread := NQCSerial.Read(@(buffer[0]), 100, -1);
     if bread > 0 then
@@ -1983,6 +1987,7 @@
       aIR.Add(tmpStr);
     end;
   end;
+{$ENDIF}
   Result := kRCX_OK;
 end;