KEYBOARD command not working (solved)

KEYBOARD command not working (solved)

Postby hua » Thu May 30, 2024 5:16 am

Just a FYI.

I noticed my function below doesn't work when I compiled with FWH+Harbour
Code: Select all  Expand view  RUN

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
 


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.
Code: Select all  Expand view  RUN
#xtranslate xhb__Keyboard( => ___Keyboard(
FWH 11.08/FWH 19.12
BCC5.82/BCC7.3
xHarbour/Harbour
hua
 
Posts: 1072
Joined: Fri Oct 28, 2005 2:27 am

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 55 guests