Replaced GetTickCount with SDL_GetTicks

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@994 b956fd51-792f-4845-bead-9b4dfca2ff2c

3 files changed, 10 insertions, 9 deletions

diff --git a/Game/Code/Menu/UDisplay.pas b/Game/Code/Menu/UDisplay.pas
index 7ac5f9b2..74a55ea7 100644
--- a/Game/Code/Menu/UDisplay.pas
+++ b/Game/Code/Menu/UDisplay.pas
@@ -247,13 +247,13 @@ begin
           if not BlackScreen then
             NextScreen.onShow;
 
-          lastTime:=GetTickCount; // TODO: use cross-plattform SDL_GetTicks() instead
+          lastTime:=SDL_GetTicks();
           if (S=2) or (Screens = 1) then
             myfade:=myfade+1;
         end; // end texture creation in first fading step
 
         //do some time-based fading
-        currentTime:=GetTickCount; // TODO: use cross-plattform SDL_GetTicks() instead
+        currentTime:=SDL_GetTicks();
         if (currentTime > lastTime+30) and (S=1) then
         begin
           myfade:=myfade+4;
@@ -462,7 +462,7 @@ begin
   glColor4f(0, 0, 0, 1);
 
   //Calculate FPS
-  Ticks := GetTickCount; // TODO: use cross-plattform SDL_GetTicks() instead
+  Ticks := SDL_GetTicks();
   if (Ticks >= NextFPSSwap) then
   begin
     LastFPS := FPSCounter * 4;
diff --git a/Game/Code/Menu/UMenuButton.pas b/Game/Code/Menu/UMenuButton.pas
index 93b987b7..e5a6d45b 100644
--- a/Game/Code/Menu/UMenuButton.pas
+++ b/Game/Code/Menu/UMenuButton.pas
@@ -4,7 +4,7 @@ interface
 
 {$I switches.inc}
 
-uses TextGL, UTexture, OpenGL12, UMenuText;
+uses TextGL, UTexture, OpenGL12, UMenuText,SDL;
 
 type
   CButton = class of TButton;
@@ -291,7 +291,7 @@ begin
     begin
       if (FadeProgress < 1) and (FadeProgress > 0) then
       begin
-        Tick := GetTickCount div 16;
+        Tick := SDL_GetTicks() div 16;
         if (Tick <> FadeLastTick) then
         begin
           FadeLastTick := Tick;
diff --git a/Game/Code/Menu/UMenuText.pas b/Game/Code/Menu/UMenuText.pas
index f180a41b..3dff321a 100644
--- a/Game/Code/Menu/UMenuText.pas
+++ b/Game/Code/Menu/UMenuText.pas
@@ -11,7 +11,8 @@ interface
 uses TextGL,
      UTexture,
      OpenGL12,
-     SysUtils;
+     SysUtils,
+     SDL;
 
 type
   TText = class
@@ -102,7 +103,7 @@ begin
   
   //Set Cursor Visible
   SelectBlink := True;
-  STicks := GettickCount div 550;
+  STicks := SDL_GetTicks() div 550;
 end;
 
 procedure TText.SetText(Value: String);
@@ -175,7 +176,7 @@ begin
 
   //Set Cursor Visible
   SelectBlink := True;
-  STicks := GettickCount div 550;
+  STicks := SDL_GetTicks() div 550;
 
   //Exit if there is no Need to Create Tiles
   If (W <= 0) and (Pos('\n', Value) = 0) then
@@ -283,7 +284,7 @@ begin
     //If Selected Set Blink...
     if SelectBool then
     begin
-      I := Gettickcount div 550;
+      I := SDL_GetTicks() div 550;
       if I <> STicks then
       begin //Change Visability
         STicks := I;