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