10 de octubre de 2016

Tooltiptext multilinea

La propiedad Tooltiptext que ya conocemos pero mostrando varias líneas de texto.

LOCAL CRLF
CRLF = CHR(13) + CHR(10)
This.ToolTipText = "TITULO:" + CRLF + ;
     "Este es un ejemplo de la propiedad tooltiptext" + CRLF + ;
     "que ya conocemos pero con esto la habilitamos" + CRLF + ;
     "para mostrar varias lineas."

Ahora un formulario de ejemplo con tres controles CommandButton con la propiedad ToolTip "multilinea".

PUBLIC oMiForm
oMiForm = NEWOBJECT("MiForm")
oMiForm.SHOW
RETURN

DEFINE CLASS MiForm AS FORM
  AUTOCENTER = .T.
  SHOWTIPS = .T.
  CAPTION = "Ejemplo de tooltip multilinea"
  NAME = "MiForm"

  ADD OBJECT Command1 AS COMMANDBUTTON WITH ;
    TOP = 36, LEFT = 132, HEIGHT = 27, WIDTH = 84, ;
    CAPTION = "Boton 1", NAME = "Command1"

  ADD OBJECT Command2 AS COMMANDBUTTON WITH ;
    TOP = 96, LEFT = 132, HEIGHT = 27, WIDTH = 84, ;
    CAPTION = "Boton 2", NAME = "Command2"

  ADD OBJECT command3 AS COMMANDBUTTON WITH ;
    TOP = 156, LEFT = 132, HEIGHT = 27, WIDTH = 84, ;
    CAPTION = "Boton 3", NAME = "Command3"

  PROCEDURE Command1.INIT
    LOCAL CRLF
    CRLF = CHR(13) + CHR(10)
    THIS.TOOLTIPTEXT = "Ud. esta sobre el Boton 1." + CRLF + ;
      "Esto es un ejemplo de un" + CRLF + ;
      "ToolTip multilineas."
  ENDPROC

  PROCEDURE Command2.INIT
    LOCAL CRLF
    CRLF = CHR(13) + CHR(10)
    THIS.TOOLTIPTEXT = "Ahora el cursor esta sobre el Boton 2." + CRLF + ;
      "Esto es un ejemplo de un ToolTip multilineas."
  ENDPROC

  PROCEDURE Command3.INIT
    LOCAL CRLF
    CRLF = CHR(13) + CHR(10)
    THIS.TOOLTIPTEXT = "Este es el ultimo boton." + CRLF + ;
      "Esto es un ejemplo de un" + CRLF + ;
      "ToolTip multilineas."
  ENDPROC
ENDDEFINE

Saludos.

Jesus Caro V

No hay comentarios. :

Publicar un comentario