switch Numlock ON / OFF

[AUGE_OHR]

hi,

when use a Statusbar i can use $KEYBOARD to get Status of NumLock

Question : how can i "switch" Numlock itself

Idea : when have a TEXTBOX Type NUMERIC i want to be sure that NumPad is "Workimg" = NumLock ON

[karweru]

Try _pushKey( VK_NUMLOCK )

[AUGE_OHR]

hi,

is there a other Way than Statusbar to detect "IF" Numlock is ON or OFF

[karweru]

Try IsNumLockActive()

[AUGE_OHR]

now i got all Parts and use GOTFOCUS to switch Numlock this Way

Code: Select all

FUNCTION SetNumLock(lOnOff)                  // -> lOldLocked
LOCAL lNumLock := IsNumLockActive()

   DO CASE
      CASE lOnOff = NIL                      // no Parameter -> RETURN Status
         RETURN lNumLock
      CASE lOnOff = .T.  .AND. !lNumLock     // Turn NumLock ON
       _pushKey( VK_NUMLOCK )
      CASE lOnOff = .F. .AND. lNumLock       // Turn NumLock OFF
       _pushKey( VK_NUMLOCK )
   ENDCASE

RETURN lNumLock

[andyglezl]

Y porqué no de esta manera... (solo lo pensé, no lo probé)
*---------------------------------------
And why not this way ... (I just thought about it, I didn't try it)

Code: Select all

	DEFINE STATUSBAR 
            CLOCK 
            DATE 
            STATUSITEM IF(IsNumLockActive(),"YES","NO")   WIDTH 10 ACTION  _pushKey( VK_NUMLOCK ) TOOLTIP "NumLock"
        END STATUSBAR

Or

Code: Select all

STATUSITEM " "  WIDTH 10 ACTION  SetNumLock(lOnOff) TOOLTIP "NumLock"

Code: Select all

FUNCTION SetNumLock(lOnOff)                  // -> lOldLocked
LOCAL lNumLock := IsNumLockActive()
    Form_1.StatusBar.Item(1) := IF(lNumLock,"YES","NO")
   DO CASE
        CASE lOnOff = NIL                      // no Parameter -> RETURN Status
         RETURN lNumLock
      CASE lOnOff = .T.  .AND. !lNumLock     // Turn NumLock ON
       _pushKey( VK_NUMLOCK )
       lNumLock := .T.
      CASE lOnOff = .F. .AND. lNumLock       // Turn NumLock OFF
       _pushKey( VK_NUMLOCK )
              lNumLock := .F.
   ENDCASE
   Form_1.StatusBar.Item(1) := IF(lNumLock,"YES","NO")
RETURN lNumLock

[AUGE_OHR]

hi,

as i understand STATUSITEM are part to Statusbar.

i do have 6 x Textbox Type "D","C","N","N","N","C"
my (old) Notebook have no NumPad. i have to switch it using Fn + SCROLL -> NUM On/Off

when using GOTFOCUS Event it will switch NUM On/Off automatic so it is much comfortable this Way