index 97e346e9005950ed3a9d98fe5b1e9abf34ace1fe..daec5d954e8ecc1885f9e8f5d5b2360ccfb83bc7 100644 (file)
{$IFDEF ENABLE_HOLMES}
sdlcarcass,
{$ENDIF}
{$IFDEF ENABLE_HOLMES}
sdlcarcass,
{$ENDIF}
- {$IFNDEF HEADLESS}
+ {$IFDEF ENABLE_RENDER}
r_render,
{$ENDIF}
{$IFDEF ENABLE_MENU}
r_render,
{$ENDIF}
{$IFDEF ENABLE_MENU}
procedure sys_ShowKeyboard (yes: Boolean);
begin
procedure sys_ShowKeyboard (yes: Boolean);
begin
- {$IFNDEF HEADLESS}
- if g_dbg_input then
- e_LogWritefln('g_Touch_ShowKeyboard(%s)', [yes]);
- (* on desktop we always receive text (needed for cheats) *)
- if yes or (SDL_HasScreenKeyboardSupport() = SDL_FALSE) then
- SDL_StartTextInput
- else
- SDL_StopTextInput
- {$ENDIF}
+ if g_dbg_input then
+ e_LogWritefln('g_Touch_ShowKeyboard(%s)', [yes]);
+ (* on desktop we always receive text (needed for cheats) *)
+ if yes or (SDL_HasScreenKeyboardSupport() = SDL_FALSE) then
+ SDL_StartTextInput
+ else
+ SDL_StopTextInput
end;
procedure HandleTouch (const ev: TSDL_TouchFingerEvent);
end;
procedure HandleTouch (const ev: TSDL_TouchFingerEvent);
x, y, i, finger: Integer;
function IntersectControl(ctl, xx, yy: Integer): Boolean;
x, y, i, finger: Integer;
function IntersectControl(ctl, xx, yy: Integer): Boolean;
- var x, y, w, h: Integer; founded: Boolean;
+ {$IFDEF ENABLE_RENDER}
+ var x, y, w, h: Integer; founded: Boolean;
+ {$ENDIF}
begin
begin
- r_Render_GetKeyRect(ctl, x, y, w, h, founded);
- result := founded and (xx >= x) and (yy >= y) and (xx <= x + w) and (yy <= y + h);
+ {$IFDEF ENABLE_RENDER}
+ r_Render_GetKeyRect(ctl, x, y, w, h, founded);
+ Result := founded and (xx >= x) and (yy >= y) and (xx <= x + w) and (yy <= y + h);
+ {$ELSE}
+ Result := False
+ {$ENDIF}
end;
procedure KeyUp (finger, i: Integer);
end;
procedure KeyUp (finger, i: Integer);