I found this is a workaround for the problem of sbKEYCAPS, sbKEYINSERT and sbKEYNUMLOCK
------------------------------------------------------------ --------------------
METHOD Update( lOnlyTimer ) CLASS XStatusPanel
DEFAULT lOnlyTimer TO .F.
DO CASE
CASE ::nType == sbTEXT
IF ! lOnlyTimer
::SetText()
ENDIF
CASE ::nType == sbDATE
::SetText( DToC( Date() ) )
CASE ::nType == sbTIME
::SetText( Time() )
CASE ::nType == sbKEYCAPS
::SetText( IIf( GetKeyBoardState( VK_CAPITAL ) == 1, LT( XA_MSG_KEY_CAP -1 ), "" ) ) <<< Changed
CASE ::nType == sbKEYINSERT
::SetText( IIf( GetKeyBoardState( VK_INSERT ) == 1, LT( XA_MSG_KEY_INS -1 ), "" ) ) <<< Changed
CASE ::nType == sbKEYNUMLOCK
::SetText( IIf( GetKeyBoardState( VK_NUMLOCK ) == 1, LT( XA_MSG_KEY_NUM -1), "" ) ) <<< Changed
ENDCASE
------------------------------------------------------------ --------------------
Best Regards
Dionisis
Ο "Dionisis Divaris" <
info@sgs-soft.gr> ÎγÏαψε στο μήνυμα news:[email=4a506ab4@svctag-j7w3v3j....]4a506ab4@svctag-j7w3v3j....[/email]
> Please make a permanent fix.
>
> TIA
> Dionisis
--