X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fstub%2Fg_system.pas;h=6202cb43dc1c95636fd242e62da2ea71c6feb0bb;hb=5ff315211d9cab4ed4b38c339857a06611d9b0ed;hp=9d14f24fcaa45a3740b1f74a551b418bcd236c62;hpb=e4186a2f4f35eec5321707bdc4eb2cbc94edccd0;p=d2df-sdl.git

diff --git a/src/game/stub/g_system.pas b/src/game/stub/g_system.pas
index 9d14f24..6202cb4 100644
--- a/src/game/stub/g_system.pas
+++ b/src/game/stub/g_system.pas
@@ -19,10 +19,6 @@ interface
 
   uses Utils;
 
-  (* --- Utils --- *)
-  function sys_GetTicks (): Int64;
-  procedure sys_Delay (ms: Integer);
-
   (* --- Graphics --- *)
   function sys_GetDisplayModes (bpp: Integer): SSArray;
   function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen, maximized: Boolean): Boolean;
@@ -33,6 +29,11 @@ interface
   function sys_HandleInput (): Boolean;
   procedure sys_RequestQuit;
 
+{$IFDEF ENABLE_TOUCH}
+  function sys_IsTextInputActive (): Boolean;
+  procedure sys_ShowKeyboard (yes: Boolean);
+{$ENDIF}
+
   (* --- Init --- *)
   procedure sys_Init;
   procedure sys_Final;
@@ -45,18 +46,6 @@ implementation
 
   uses SysUtils;
 
-  (* --------- Utils --------- *)
-
-  function sys_GetTicks (): Int64;
-  begin
-    Result := Round(TimeStampToMSecs(DateTimeToTimeStamp(Now())))
-  end;
-
-  procedure sys_Delay (ms: Integer);
-  begin
-    Sleep(ms)
-  end;
-
   (* --------- Graphics --------- *)
 
   procedure sys_Repaint;
@@ -79,6 +68,17 @@ implementation
 
   (* --------- Input --------- *)
 
+{$IFDEF ENABLE_TOUCH}
+  function sys_IsTextInputActive (): Boolean;
+  begin
+    Result := false
+  end;
+
+  procedure sys_ShowKeyboard (yes: Boolean);
+  begin
+  end;
+{$ENDIF}
+
   function sys_HandleInput (): Boolean;
   begin
     result := false