X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fstub%2Fg_system.pas;h=9d14f24fcaa45a3740b1f74a551b418bcd236c62;hb=f8c006bbcbec547e9a3beda8372076a10ed049ae;hp=abae19018304c4f3ea470920d987319b0212fcab;hpb=96f8e6b190e94847ab2527cc07ee8b19589c05fa;p=d2df-sdl.git diff --git a/src/game/stub/g_system.pas b/src/game/stub/g_system.pas index abae190..9d14f24 100644 --- a/src/game/stub/g_system.pas +++ b/src/game/stub/g_system.pas @@ -25,7 +25,7 @@ interface (* --- Graphics --- *) function sys_GetDisplayModes (bpp: Integer): SSArray; - function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen: Boolean): Boolean; + 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; @@ -68,7 +72,7 @@ implementation 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;