index 4e4f42377e3da2e59abb09b1967ce97add6ad01f..ab42c12025de79afdd2f3921bc38f6b96f93e1a4 100644 (file)
uses Utils;
(* --- Utils --- *)
- function sys_GetTicks (): Int64;
procedure sys_Delay (ms: Integer);
(* --- Graphics --- *)
var (* hooks *)
sys_CharPress: procedure (ch: AnsiChar) = nil;
+ sys_ScreenResize: procedure (w, h: Integer) = nil;
implementation
(* --------- Utils --------- *)
- function sys_GetTicks (): Int64;
- begin
- Result := Round(TimeStampToMSecs(DateTimeToTimeStamp(Now())))
- end;
-
procedure sys_Delay (ms: Integer);
begin
Sleep(ms)