Eduardo
the code bellow is not working xharbour
using last xharbour cvs
just press ALT+A or ALT+E keys.
it apear that nextkey() function is not working properly or dbedit function is
not intercepting the keys that was added to keyboard via __KEYBOARD function
//descomente de esta compilado com HB_EXT_INKEY
// #define HB_EXT_INKEY
#include "inkey.ch"
#include "dbedit.ch"
#ifndef DE_INIT
#define DE_INIT -1
#endif
PROCEDURE Main
LOCAL bColor := {|x| IIf( Recno() % 2 == 0, {1,2}, {3,4} ) }
Local aCols := { ;
{ "LAST" , bColor }, ;
{ "FIRST", bColor }, ;
{ "CITY" , bColor }, ;
{ "ZIP" , bColor } ;
}
dbcreate("customer",{{ "Last","C",30,0},{"First",
"C",20,0},{"City","C",20,0},{ "Zip","C",8,0}})
USE customer NEW
DbEdit(,,,, aCols, "UserFunc", ,{ "Last","First", "City", "Zip"} )
CLOSE ALL
RETURN
FUNCTION UserFunc( nMode, nCol, oTBrowse )
LOCAL GetList := {}
LOCAL nReturn := DE_CONT
DO CASE
CASE nMode == DE_INIT
oTBrowse:colorSpec := "n/bg,w+/r,w+/bg,w+/r,w+/gr"
CASE nMode == DE_HITTOP
Tone(1000)
CASE nMode == DE_HITBOTTOM
Tone(500)
CASE LastKey() == K_ESC
nReturn := DE_ABORT
CASE nMode == DE_EXCEPT
if lastkey()==K_ALT_A
keyboard chr(K_ALT_B)
alert('here')
return 1
elseif lastkey()==K_ALT_E
keyboard chr(K_ALT_B)
return 1
elseif lastkey()==K_ALT_B
alert("hello")
endif
ENDCASE
RETURN nReturn
Atenciosamente
Luiz Rafael Culik Guimaraes
Suporte Xharbour
www.xharbour.com.br
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
xHarbour-developers mailing list
xHarbour-developers@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/xharbour-developers
