Pequeno BUG na classe TCONTROL
Posted: Wed Jan 11, 2012 12:22 am
Ola Antonio
portugues
Encontrei um pequeno BUG na classe TControl, no qual quando o botao da BTNBMP esta DISABLED o mesmo ainda funcionava quando precionado ALT + a letra sublinhada
vai logo abaixo
English
Found a small BUG in TControl class, in which when the button of the BTNBMP this DISABLED the same still worked when precionado ALT the underlined letter
will just below
Espero ter ajudado
portugues
Encontrei um pequeno BUG na classe TControl, no qual quando o botao da BTNBMP esta DISABLED o mesmo ainda funcionava quando precionado ALT + a letra sublinhada
vai logo abaixo
English
Found a small BUG in TControl class, in which when the button of the BTNBMP this DISABLED the same still worked when precionado ALT the underlined letter
will just below
Code: Select all
Static function CallClick( nKey, aControls, Self )
local n, cPrompt, nAt, oControl
for n = 1 to Len( aControls )
oControl = aControls[ n ]
if oControl:Classname() == "TBTNBMP" .OR. oControl:Classname() == "TRBTN"
cPrompt := aControls[ n ]:cCaption
nAt = At( "&", cPrompt )
if nAt != 0 //> JACKSON 10/01/2012 <//
if Upper( SubStr( cPrompt, nAt + 1, 1 ) ) == Upper( Chr( nKey ) ) .and. IsWindowEnabled( aControls[ n ]:hWnd )
SetFocus( aControls[ n ]:hWnd )
aControls[ n ]:Click()
return 0 // msg processed
endif
endif
endif
next
return nil