HMGforum.com

Posted: **Thu Nov 11, 2021 8:24 am**

hi,

i have create a TIMER

   DEFINE TIMER Timer_1 OF KbStatus INTERVAL 300 ACTION DoUpdateImage()

which does show Status of Keyboard

Code: Select all

PROCEDURE DoUpdateImage()
   IF KSETNUM()
      KbStatus.Image_1.PICTURE := "KBGREEN"
   ELSE
      KbStatus.Image_1.PICTURE := "KBRED"
   ENDIF
   IF KSETCAPS()
      KbStatus.Image_2.PICTURE := "KBGREEN"
   ELSE
      KbStatus.Image_2.PICTURE := "KBRED"
   ENDIF
   IF KSETINS()
      KbStatus.Image_3.PICTURE := "KBGREEN"
   ELSE
      KbStatus.Image_3.PICTURE := "KBRED"
   ENDIF
RETURN

that work perfect ... when App have Focus !
why does it not work in Background

i can "see" NumLock of Statusbar is working in Background
so what do i miss

p.s. under Windows 11 DEV 10.0.22499.1000 LED of "NUM","CAPS" and "INSERT" does still not work which confuse me
so i need a small App just to "show" "NUM","CAPS" and "INSERT" Status

Posted: **Thu Nov 11, 2021 11:39 am**

Try:

Code: Select all

PROCEDURE DoUpdateImage()
   IF IsNumLockActive()
      KbStatus.Image_1.PICTURE := "KBGREEN"
   ELSE
      KbStatus.Image_1.PICTURE := "KBRED"
   ENDIF
   IF IsCapsLockActive()
      KbStatus.Image_2.PICTURE := "KBGREEN"
   ELSE
      KbStatus.Image_2.PICTURE := "KBRED"
   ENDIF
   IF IsInsertActive()
      KbStatus.Image_3.PICTURE := "KBGREEN"
   ELSE
      KbStatus.Image_3.PICTURE := "KBRED"
   ENDIF
RETURN

HMGforum.com

does KSET* Keyborad Function work in Background ?

does KSET* Keyborad Function work in Background ?

Re: does KSET* Keyborad Function work in Background ?