Page 1 of 1
EDICION POR COLUMNA
Posted: Mon Jul 09, 2007 8:43 pm
by Marco Augusto
COMO PUEDO SIMULAR EL KEYBOARD DE CLIPPER
ALGO ASI COMO KEYBOARD K_ENTER+KEY
LO QUE NECESITO ES PODER EDITAR UNA COLUMNA DE LISTBOX UTILIZANDO LA FUNCION EDITCOL
DE TAL FORMA QUE AL ESCRIBIR SOBRE LA COLUMNA EL NUMERO 85
APAREZCA DIRECTAMENTE
SIN TENER QUE DAR "ENTER" PRIMERO, DESPUES "85" Y "ENTER" AL FINAL
ALGO ASI
oBrw:bkeydown={| nkey |iif(nkey>47 .and. nkey<58,modifica(nkey),nil)}
function modifica(nkey)
xvalor:=cantidad
if oBrw:editcol(3,@xvalor,'99,999',,,,,)
cantidad:=valor
endif
return nil
No se como hacer para que al escribir 8, aparezca el 8 en la columna y el cursor se quede despues del 8, y posteriormente solo escriba el 5 y asi quede grabado el 85
Saludos
Posted: Mon Jul 09, 2007 9:46 pm
by Marcelo Via Giglio
Hola,
aumente
una data
DATA nkey
luego en el metodo
METHOD KeyChar( nKey, nFlags ) CLASS TWBrowse
:
CASE ::LAutoedit
::edit( :::nColAct,, nKey )
otherwise
:
Luego el metodo queda asi
METHOD Edit( nCol, lModal, nkey ) CLASS TWBrowse
:
::nKey := nKey
:
y por ultimo en el metodo
STATIC Function __Edit(Self, nCol, lModal )
:
:
despues de la linea
oGet:bValid:= {|| ValidlEditCol( Self, oGet, oDlg, bOldValid, bValid, bAction, @lOk ) }
añadi
oGet:bGotFocus := {|| IF( ::nKey != NIL .AND. ::nKey != 13, __keyboard(CHR(::nKey)), ) }
Por ahora no podria publicar la clase ya que hay algunas cosas mas que la hacen dependiente, espero darme tiempo para poder hacerla
Tienes que hacer lo mismo de siempre para asignar los datos a la columna, como lo muestras en tu ejemplo
Espero te sirva
saludos
Marcelo
Posted: Mon Jul 09, 2007 9:58 pm
by Patricio Avalos Aguirre
Code: Select all
How can mimic CA-Clipper's Keyboard command?
Use this function:
Function fwKeyboard(oWnd,nKey)
oWnd:SetFocus()
oWnd:PostMsg( WM_KEYDOWN, nKey, 0)
Return NIL
sacado de los tip de CD-Utilidades
Posted: Tue Jul 10, 2007 12:50 am
by Marco Augusto
gracias
la funcion __keyboard fue la solucion
Posted: Tue Jul 10, 2007 4:52 am
by Francisco Horta
Marco,
me pudieras poner un ejemplo de como usas la funcion _keyboard, ya que me gustaria implementarlo en mi edicion con wbrowse.
gracias
salu2
paco
Posted: Wed Jul 11, 2007 12:55 am
by Marco Augusto
FRANCISCO, TE ENVIO EL EJEMPLO, OJALA TE SIRVA
EL PROCEDIMIENTO ES UN POCO ARCAICO, PERO ME FUNCIONO PARA
RESOLVER ESTA NECESIDAD DE EDICION DE UN CAMPO NUMERICO
( SEGURAMENTE SE PUEDE MEJORAR )
1. MODIFIQUE EL METODO LEDITCOL DE LA CLASE WBROWSE.PRG
AÑADIENDO EL ULTIMO RENGLON
@ 0, 0 GET oGet VAR uVar ; // we have to use here uVar to use VALID !!!
SIZE aDim[ 4 ] - aDim[ 2 ] - If( bAction != nil, 12, 0 ),;
aDim[ 3 ] - aDim[ 1 ] OF oDlg ;
FONT aFONT[1] COLOR nClrFore, nClrBack
oGet:oGet:Picture = cPicture
OJO=> oGet:bGotFocus = { || oGet:SetSel( 0, 0 ),__Keyboard( STR(uVar,1) ) }
2. EN MI PROGRAMA LO LLAMO DE LA SIGUIENTE MANERA
REDEFINE LISTBOX oBRW .....
.......ETC
oBRW:bKeyDOWN={ | NKEY | IIF(NKEY>47.AND.NKEY<58,MODRESURM(oBRW,NKEY),NIL) }
FUNCTION MODRESUR(oOBJ,NKEY)
XVALOR1=NKEY-48
IF oOBJ:LEDITCOL(5,@XVALOR1,'99,999',,RGB(0,0,0),RGB(0,250,0),,)
CANTIDADE:=XVALOR1
ENDIF
oOBJ:REFRESH()
RETURN NIL
Posted: Wed Jul 11, 2007 1:38 am
by Francisco Horta
gracias marco,
lo configuro y pruebo
salu2
paco