View previous topic :: View next topic |
Author |
Message |
acw
Joined: 04 Nov 2005 Posts: 165 Location: Darkest Devon
|
Posted: Tue Sep 11, 2012 10:27 am Post subject: %ac[Ins] not working |
|
|
Hi. I've just noticed that the Ins accelerator key (%ac[Ins]) appears to have stopped working. I'm not sure on which version of the compiler it stopped, but code compiled a year or two back works okay. The window is getting WM_KEYDOWN events for the Ins key but the accelerator doesn't work. Other keys like Home and End are okay. I get the same issue when tested on XP and Win 7.
Code: |
! Demonstrate failure of Insert hotkey
winapp
use mswin
external OnHome, OnIns, OnEnd
i = winio@('%ca[Test Hotkey - Press Home, Insert or End]&')
i = winio@('%ac[Home]&', OnHome)
i = winio@('%ac[Ins]&', OnIns) ! doesn't work
i = winio@('%ac[End]', OnEnd)
end program
! Handle hotkey presses - notify which key was pressed
integer function OnHome()
i = winio@('%ca[Home]')
OnHome = 2
end function OnHome
integer function OnIns()
i = winio@('%ca[Ins]')
OnIns = 2
end function OnIns
integer function OnEnd()
i = winio@('%ca[End]')
OnEnd = 2
end function OnEnd
| [/code] |
|
Back to top |
|
|
IanLambley
Joined: 17 Dec 2006 Posts: 490 Location: Sunderland
|
Posted: Tue Sep 11, 2012 11:35 am Post subject: |
|
|
Quick workaround.
Code: | ! Temporary workaround for failure of Insert hotkey
winapp
use mswin
external OnHome, OnIns, OnEnd, KB_func
call ADD_KEYBOARD_MONITOR@( KB_func)
i = winio@('%ca[Test Hotkey - Press Home, Insert or End]&')
i = winio@('%ac[Home]&', OnHome)
i = winio@('%ac[INS]&', OnIns) ! doesn't work
i = winio@('%ac[End]', OnEnd)
end program
! Handle hotkey presses - notify which key was pressed
integer function OnHome()
i = winio@('%ca[Home]')
OnHome = 2
end function OnHome
integer function OnIns()
i = winio@('%ca[Insert]')
OnIns = 2
end function OnIns
integer function OnEnd()
i = winio@('%ca[End]')
OnEnd = 2
end function OnEnd
integer function KB_func()
include <windows.ins>
integer OnIns
KB_func = 2
IF(clearwin_info@('keyboard_key') .eq. 338)then
KB_func = OnIns()
endif
end function KB_func |
|
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Tue Sep 11, 2012 4:30 pm Post subject: |
|
|
I have logged this for investigation. |
|
Back to top |
|
|
PaulLaidler Site Admin
Joined: 21 Feb 2005 Posts: 7925 Location: Salford, UK
|
Posted: Thu Sep 13, 2012 8:00 am Post subject: |
|
|
This regression has now been fixed. |
|
Back to top |
|
|
|