ToolTip en Get

[fgondi]

Hola,

Hay problemas con ToolTip al añadirlo a un Get.

Por ejemplo, usamos el prg samples\get.prg, variando lo siguiente:

Code: Select all  Expand view

  @  05,  18 GET oGet Var cName1  OF oDlg COLORS "B/BG"
   oGet:cToolTip := "hola"

En definitiva, añadimos un ToolTip a ese objeto.

La variable cName1, tiene una longitud de 13 caracteres ("ONE "), por tanto no debería permitir añadir mas de 13 caracteres.
Sin embargo, al incluir el tooltip, permite añadir bastantes mas caracteres.
Lo único que hay que hacer es pulsar separado del texto ONE:
Primero pulsamos un poco separado y escribimos por ejemplo asdf: "ONE asdf"
Segundo pulsamos al final del get y ya podemos escribir mas caracteres: "ONE asdf asdfasdf"

[Antonio Linares]

Fernando,

buenos dias,

Aqui parece comportarse bien. Por favor una vez hayas escrito de esa forma en el GET,
selecciona con el ratón todo el texto del GET y pon aqui un pantallazo, gracias

[fgondi]

Hola Antonio,


Ya he encontrado donde está el problema.
Para reproducirlo, lo único que hay que hacer es pulsar al final del campo y sin mover el ratón del campo escribir

[Antonio Linares]

Fernando,

En METHOD KeyDown( nKey, nFlags ) CLASS TGet

Hay que mover estas líneas:

Code: Select all  Expand view

     case ::lUnicode .and. ::oGet:Type == 'C'
           return ::KeyWDown( nKey, nFlags )
 

hacia abajo, y situarlas justo encima de:

Code: Select all  Expand view

     case nKey == VK_DELETE .or. nKey == VK_BACK
 

Con ese cambio parece estar solucionado