X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fstub%2Fg_system.pas;h=9d14f24fcaa45a3740b1f74a551b418bcd236c62;hb=f8c006bbcbec547e9a3beda8372076a10ed049ae;hp=4b6201d7c649424198b718a8449b6a15a70e10fb;hpb=ff17260e083bdf4461154b916a716cd9b61126b1;p=d2df-sdl.git diff --git a/src/game/stub/g_system.pas b/src/game/stub/g_system.pas index 4b6201d..9d14f24 100644 --- a/src/game/stub/g_system.pas +++ b/src/game/stub/g_system.pas @@ -24,8 +24,8 @@ interface 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,6 +37,10 @@ interface procedure sys_Init; procedure sys_Final; + var (* hooks *) + sys_CharPress: procedure (ch: AnsiChar) = nil; + sys_ScreenResize: procedure (w, h: Integer) = nil; + implementation uses SysUtils; @@ -63,12 +67,12 @@ implementation begin end; - function sys_GetDispalyModes (bpp: Integer): SSArray; + function sys_GetDisplayModes (bpp: Integer): SSArray; begin 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 end;