KEYBOARD command not working (solved)
Posted: Thu May 30, 2024 5:16 am
Just a FYI.
I noticed my function below doesn't work when I compiled with FWH+Harbour
Turns out because in fivewin.ch, I included xhb.ch that translates KEYBOARD to xhb__keyboard()
So after the #include ""xhb.ch" I have added another translate command as below and that seems to fixed it.
I noticed my function below doesn't work when I compiled with FWH+Harbour
Code: Select all | Expand
FUNC UD_KeyPress( nKey)
DO CASE
CASE nKey == VK_F3 && F3 - System date
KEYBOARD DTOC( DATE() )
CASE nKey == VK_F4 && F3 - System time
KEYBOARD TIME()
ENDCASE
RETURN
So after the #include ""xhb.ch" I have added another translate command as below and that seems to fixed it.
Code: Select all | Expand
#xtranslate xhb__Keyboard( => ___Keyboard(