index 84ae12138b5de86079efd98c67a04f8056169049..c3b4b23e0ee43fbacdec4756a62f4bdd782c4dcd 100644 (file)
procedure sys_Delay (ms: Integer);
(* --- Graphics --- *)
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_EnableVSync (yes: Boolean);
procedure sys_Repaint;
implementation
implementation
+ uses SysUtils;
+
(* --------- Utils --------- *)
function sys_GetTicks (): Int64;
begin
(* --------- Utils --------- *)
function sys_GetTicks (): Int64;
begin
- Result := 0
+ Result := Round(TimeStampToMSecs(DateTimeToTimeStamp(Now())))
end;
procedure sys_Delay (ms: Integer);
begin
end;
procedure sys_Delay (ms: Integer);
begin
+ Sleep(ms)
end;
(* --------- Graphics --------- *)
end;
(* --------- Graphics --------- *)
begin
end;
begin
end;
- function sys_GetDispalyModes (bpp: Integer): SSArray;
+ function sys_GetDisplayModes (bpp: Integer): SSArray;
begin
begin
- SetLength(result, 0);
+ result := nil
end;
end;
- function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen: Boolean): Boolean;
+ function sys_SetDisplayMode (w, h, bpp: Integer; fullscreen, maximized: Boolean): Boolean;
begin
begin
- result := True
+ result := true
end;
(* --------- Input --------- *)
end;
(* --------- Input --------- *)