FiveTech Software tech support forums

... no hace la corrección, indica que es correcto. 2- En algunos puestos la ventana de ortografía no me la saca visible, hay que buscarla con alt+tabulador para hacerla visible. He visto en la documentación de CheckSpelling() https://learn.microsoft.com/en-us/office/vba/api/word.document.checkspelling ...

...         MsgInfo("Validando!")RETURN(.T.)  El problema es que si salgo del get con la tecla TAB (Tabulador) la función ValPro no se ejecuta, por consecuencia no se muestra el mensaje "Validando!", peeeero, si salgo del GET con la tecla ...

... cosa que creo no se debería hacer ya que si pulsamos INTRO no cambia nada solo aceptamos lo que hay y por el mismo motivo quite el ON CHANGE del TABULADOR. Lo del punto decimal lo he dejado por no afectarme, pero creo que sería fácil ya que bastaría chequear si el campo es Númerico y se ha pulsado ...

Y si añadimos estas líneas en el método KeyDown() de TRichEdit(), vemos que la tecla VK_TAB llega, faltaría solo intercalar Tab en el texto (usando el método SetText()), pero el foco sigue saltando al siguiente control. Eso es lo que nos falta solucionar: METHOD KeyDown( nKey, nFlags ) CLASS...

Falta añadir este método en la Clase TRichEdit:

Code: Select all  Expand view

  METHOD GetDlgCode( nLastKey ) INLINE ::nDlgCode

y esta línea en nuestro código:

#define DLGC_WANTCHARS 0x0080

oRich:nDlgCode = DLGC_WANTALLKEYS

aún asi, sigue sin comportarse como debiera.

Rolando, Buscando en google he encontrado que se trata de un error de los controles RichEdit, ya que si se devuelve el valor DLGC_WANTALLKEYS desde el Método GetDlgCode() de TRichEdit, Windows no debería darle el foco a otro control. La solución usada para saltarse esta limitación es interceptar el ...

Antonio, Justamente probé "detectar" la tecla TAB de la manera que indicas, colocando también un msginfo() para confirmarlo, pero no logro salir de ahí pasando ese evento a la TRichedit. Estuve buscando dentro de la clase y probando con todos los "send" que tiene pero no doy pié ...

Si añadimos estas tres líneas en la Clase TRichEdit ya conseguimos interceptar la tecla VK_TAB: METHOD KeyDown( nKey, nFlags ) CLASS TRichEdit   if nKey == VK_TAB      MsgInfo( "VK_TAB" )      return 0   endif   Ahora f...

De momento con el ejemplo de FWH testrich.prg de la carpeta samples, añadiendo estas dos líneas:

oRich:bKeyDown = { | nKey | MsgInfo( nKey ) }
oRich:nDlgCode = DLGC_WANTALLKEYS

sigue sin detectar la tecla de tabulación...

Rolando,

Te pido disculpas por mi retraso en atenderte pero he estado ocupado con FWH 64 bits y atendiendo a Lucas en ese tema.

Voy a construir un ejemplo y probamos con él

+1

arriba

... y comento que probé con lo que indicas agregando al METHOD KeyDown: if nKey == VK_TAB      return nilendif Esto no hace ningún efecto y el tabulador hace lo mismo (sale del richedit). Por otro lado, estuve también viendo esto de incluir una data oRichEdit:lWantTab = .T. Y lo hice (aunque ...

Aunque lo más práctico sería añadir una nueva DATA a la Clase TRichEdit lWantTab para que sea tan sencillo como:

oRichEdit:lWantTab = .T.

sin necesidad de tocar los fuentes de FWH

Rolando,

La solución es modificar el Método KeyDown() de la Clase TRichEdit, para que no haga nada con VK_TAB:

Code: Select all  Expand view

METHOD KeyDown( nKey, nFlags ) CLASS TRichEdit

   if nKey == VK_TAB
      return nil
   endif

   ...