FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour ToolTip en Get
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
ToolTip en Get
Posted: Thu May 26, 2016 10:00 PM
Hola,

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

Por ejemplo, usamos el prg samples\get.prg, variando lo siguiente:
Code (fw): Select all Collapse
   @  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"
Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ToolTip en Get
Posted: Fri May 27, 2016 06:43 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 694
Joined: Fri Oct 07, 2005 06:58 AM
Re: ToolTip en Get
Posted: Fri May 27, 2016 10:46 AM
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

Un saludo

Fernando González Diez

ALSIS Sistemas Informáticos
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ToolTip en Get
Posted: Sat May 28, 2016 08:17 AM
Fernando,

En METHOD KeyDown( nKey, nFlags ) CLASS TGet

Hay que mover estas líneas:
Code (fw): Select all Collapse
      case ::lUnicode .and. ::oGet:Type == 'C'
           return ::KeyWDown( nKey, nFlags )


hacia abajo, y situarlas justo encima de:

Code (fw): Select all Collapse
      case nKey == VK_DELETE .or. nKey == VK_BACK


Con ese cambio parece estar solucionado :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion