equal
deleted
inserted
replaced
38 procedure InitTouchInterface; |
38 procedure InitTouchInterface; |
39 procedure SetUtilityWidgetState(ammoType: TAmmoType); |
39 procedure SetUtilityWidgetState(ammoType: TAmmoType); |
40 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean); |
40 procedure animateWidget(widget: POnScreenWidget; fade, showWidget: boolean); |
41 procedure MoveCamera; |
41 procedure MoveCamera; |
42 procedure onFocusStateChanged; |
42 procedure onFocusStateChanged; |
|
43 procedure updateCursorVisibility; |
43 |
44 |
44 implementation |
45 implementation |
45 uses |
46 uses |
46 uStore |
47 uStore |
47 , uMisc |
48 , uMisc |
2052 if (not cHasFocus) then DampenAudio() |
2053 if (not cHasFocus) then DampenAudio() |
2053 else UndampenAudio(); |
2054 else UndampenAudio(); |
2054 end; |
2055 end; |
2055 end; |
2056 end; |
2056 |
2057 |
|
2058 procedure updateCursorVisibility; |
|
2059 begin |
|
2060 if isPaused or isAFK then |
|
2061 SDL_ShowCursor(1) |
|
2062 else |
|
2063 SDL_ShowCursor(ord(GameState = gsConfirm)) |
|
2064 end; |
|
2065 |
2057 procedure SetUtilityWidgetState(ammoType: TAmmoType); |
2066 procedure SetUtilityWidgetState(ammoType: TAmmoType); |
2058 begin |
2067 begin |
2059 {$IFDEF USE_TOUCH_INTERFACE} |
2068 {$IFDEF USE_TOUCH_INTERFACE} |
2060 if(ammoType = amNothing)then |
2069 if(ammoType = amNothing)then |
2061 ammoType:= CurrentHedgehog^.CurAmmoType; |
2070 ammoType:= CurrentHedgehog^.CurAmmoType; |