index 4e9fcedc40989b2414655f8572f1881a5daeacbf..a1e3473e9b613c0b4b624957ae78da2b47840e59 100644 (file)
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;
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 --------- *)
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;