Small bug in class TBTNBMP

[ADutheil]

A friend of mine noticed a small problem with TBTNBMP class. If an accelerator key if defined for a button it works even the button is disabled. I patched adding

.AND. aControls[ n ]:lActive

to line (1631 in FWH 11.12)

if Upper( SubStr( cPrompt, nAt + 1, 1 ) ) == Upper( Chr( nKey ) )

in CallClick function in class TControl but I don´t know if it is the best way.

[Antonio Linares]

André,

Very good, thanks

Just a minor change to your code:

if Upper( SubStr( cPrompt, nAt + 1, 1 ) ) == Upper( Chr( nKey ) ) .and. IsWindowEnabled( aControls[ n ]:hWnd )