index abae19018304c4f3ea470920d987319b0212fcab..6202cb43dc1c95636fd242e62da2ea71c6feb0bb 100644 (file)
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: Boolean): Boolean;
+ function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen, maximized: Boolean): Boolean;
procedure sys_EnableVSync (yes: Boolean);
procedure sys_Repaint;
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;
+ var (* hooks *)
+ sys_CharPress: procedure (ch: AnsiChar) = nil;
+ sys_ScreenResize: procedure (w, h: Integer) = nil;
+
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;
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;
(* --------- 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