X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fstub%2Fg_system.pas;h=a1e3473e9b613c0b4b624957ae78da2b47840e59;hb=e29288453fa69bd586c70120e148ff85e4b24df2;hp=84ae12138b5de86079efd98c67a04f8056169049;hpb=0e101bd452c40da601236aaa2dd4106be47ddce1;p=d2df-sdl.git

diff --git a/src/game/stub/g_system.pas b/src/game/stub/g_system.pas
index 84ae121..a1e3473 100644
--- a/src/game/stub/g_system.pas
+++ b/src/game/stub/g_system.pas
@@ -19,13 +19,9 @@ interface
 
   uses Utils;
 
-  (* --- Utils --- *)
-  function sys_GetTicks (): Int64;
-  procedure sys_Delay (ms: Integer);
-
   (* --- Graphics --- *)
-  function sys_GetDispalyModes (bpp: Integer): SSArray;
-  function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen: Boolean): Boolean;
+  function sys_GetDisplayModes (bpp: Integer): SSArray;
+  function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen, maximized: Boolean): Boolean;
   procedure sys_EnableVSync (yes: Boolean);
   procedure sys_Repaint;
 
@@ -37,18 +33,13 @@ interface
   procedure sys_Init;
   procedure sys_Final;
 
-implementation
-
-  (* --------- Utils --------- *)
+  var (* hooks *)
+    sys_CharPress: procedure (ch: AnsiChar) = nil;
+    sys_ScreenResize: procedure (w, h: Integer) = nil;
 
-  function sys_GetTicks (): Int64;
-  begin
-    Result := 0
-  end;
+implementation
 
-  procedure sys_Delay (ms: Integer);
-  begin
-  end;
+  uses SysUtils;
 
   (* --------- Graphics --------- *)
 
@@ -60,14 +51,14 @@ implementation
   begin
   end;
 
-  function sys_GetDispalyModes (bpp: Integer): SSArray;
+  function sys_GetDisplayModes (bpp: Integer): SSArray;
   begin
-    SetLength(result, 0);
+    result := nil
   end;
 
-  function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen: Boolean): Boolean;
+  function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen, maximized: Boolean): Boolean;
   begin
-    result := True
+    result := true
   end;
 
   (* --------- Input --------- *)