[Hwgui-developers] Browse not detect numeric keypad

[Itamar M. L. J. L. <ita...@gm...>]

Hi!

With <Num Lock> on, while press keypad numeric -> 1=a,2=b...

#include "hwgui.ch"

Procedure main
LOCAL aDbS:={}, oDlg,oBrw
PRIVATE oSeek,cSeek:=""

AADD(aDbS, {"test","C",1,0})

DBCREATE("_test.dbf",aDbS)
USE _test

INIT DIALOG oDlg CLIPPER AT 100,100 SIZE 300,400

   @ 10,10 Browse oBrw DATABASE of oDlg SIZE 200,80 append ;
   On KeyDown {|oBrw,nKey|fKeyDown(oBrw,nKey)} ;

   Add column FieldBlock("Test") to oBrw Editable ;
   Header 'Test' Type 'C' Length 2 picture 'L' ;
   Justify Line DT_LEFT  Justify Head DT_LEFT

   @ 05,100 SAY oSeek CAPTION cSeek size 200,25 OF oDlg STYLE WS_BORDER


oDlg:Activate()

close all

Function fKeyDown(oBrw,nKey)

oSeek:SetText(chr(nKey))

Return .T.