Page 1 of 1

ToolTip en Get

Posted: Thu May 26, 2016 10:00 pm
by 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

   @  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"

Re: ToolTip en Get

Posted: Fri May 27, 2016 6:43 am
by 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

Re: ToolTip en Get

Posted: Fri May 27, 2016 10:46 am
by 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

Image

Re: ToolTip en Get

Posted: Sat May 28, 2016 8:17 am
by Antonio Linares
Fernando,

En METHOD KeyDown( nKey, nFlags ) CLASS TGet

Hay que mover estas líneas:

Code: Select all

      case ::lUnicode .and. ::oGet:Type == 'C'
           return ::KeyWDown( nKey, nFlags )
 
hacia abajo, y situarlas justo encima de:

Code: Select all

      case nKey == VK_DELETE .or. nKey == VK_BACK
 
Con ese cambio parece estar solucionado :-)