¿ No funciona cToolTip con :Disable() ?

[JoseAlvarez]

Hola a todos amigos de FiveWin

Tengo la necesidad de mostrar TOOLTIP de un objeto GET deshabilitado, pero no funciona.

oGetNombre:cToolTip:='prueba'
funciona bien

pero si lo acompaño de un disable(), no se muestra

oGetNombre:cToolTip:='prueba'
oGetNombre:Disable()

NO funciona.

¿Alguna idea del por que sucede esto?

Uso FW17.01 + xHarbour + BCC7

Gracias por la ayuda.

[karinha]

Mira se ayuda. La idea és la misma:

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=40455&sid=ec9d67293fee8295e761744d4d4382b3

Saludos.

[leandro]

Hola buenas tardes?

Alguien pudo solucionar esto?, que aparezca el tooltip aun con el get deshabilitado, desde recursos?

Intente lo que mencionaron en ese post, pero no funciona.

De antemano gracias.

[FiveWiDi]

Hola buenas tardes?

Alguien pudo solucionar esto?, que aparezca el tooltip aun con el get deshabilitado, desde recursos?

Intente lo que mencionaron en ese post, pero no funciona.

De antemano gracias.

Yo en vez de deshabilitar lo que hago es:

oGet:lReadOnly := .T.
oGet:lUpdate := .T.

y el Tooltip funciona y no permite modificar el oGet.

[karinha]

FiveWidi, Esto no Funciona con Recursos Usando Folderex:

Code: Select all  Expand view

   REDEFINE GET aGet[25] VAR cEmailPaisa PICTURE "@KR" ID 44 OF oFld:aDialogs[ 1 ] ;
      WHEN( .F. ) UPDATE COLORS CLR_BLACK, CLR_WHITE FONT oFont

   aGet[25]:lReadOnly := .T.
   aGet[25]:lUpdate   := .T.

   aGet[25]:cTooltip := "Email do Paisagista"
 

Regards, saludos.

[FiveWiDi]

FiveWidi, Esto no Funciona con Recursos Usando Folderex:

Code: Select all  Expand view

   REDEFINE GET aGet[25] VAR cEmailPaisa PICTURE "@KR" ID 44 OF oFld:aDialogs[ 1 ] ;
      WHEN( .F. ) UPDATE COLORS CLR_BLACK, CLR_WHITE FONT oFont

   aGet[25]:lReadOnly := .T.
   aGet[25]:lUpdate   := .T.

   aGet[25]:cTooltip := "Email do Paisagista"
 

Regards, saludos.

Hola,

Prueba:

   REDEFINE GET aGet[25] VAR cEmailPaisa PICTURE "@KR" ID 44 OF oFld:aDialogs[ 1 ] ;
      /* WHEN( .F. ) */ UPDATE COLORS CLR_BLACK, CLR_WHITE FONT oFont

[karinha]

Asi, no funciona. Se vuelve editable. Gracias.

Regards, saludos.

[Antonio Linares]

Asi parece funcionar. Es esto lo que se busca ? o me perdí ?

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

Dlg_Grad()

return nil

procedure Dlg_Grad

   local oDlg, oSay, oBrush, lTest := .T., oCbx
   local oGet, cName := Space( 20 )
   
      define brush oBrush gradient { { 0.4, nRGB( 75, 144, 223 ), nRGB( 41, 85, 145 ) },;
                                     { 0.6, nRGB( 24,  61, 118 ), nRGB( 50, 95, 158 ) } }
   
      define dialog odlg title "Test Say With Gradient Brush" ;
         size 400,400 pixel brush oBrush transparent
   
      @ 2,2 GROUP TO 100,100 of odlg pixel
   
      @ 25,15 say oSay prompt "This a Test" of oDlg SIZE 40, 40 COLOR CLR_WHITE PIXEL  transparent adjust
      @ 25.5,15 GET oGet VAR cName OF oDlg SIZE 30, 10 PIXEL
   
      @ 10,120 button "Test" pixel action oSay:SetText( "Change Text" )
   
      ACTIVATE DIALOG oDlg CENTERED ;
         ON INIT ( oGet:Disable(), oSay:lWantClick := .T., oSay:cTooltip := "this is a test", oSay:ShowToolTip(), .T. )
   
      release brush oBrush
   
   return

 

[cnavarro]

Creo que se refiere a este problema al estar el GET Disable por efecto de la clausula WHEN

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

Dlg_Grad()

return nil

procedure Dlg_Grad

   local oDlg, oSay, oBrush, lTest := .T., oCbx, , oSay1
   local oGet, cName := Space( 20 )
   local oGet1, cVar1 := Space( 30 )
   local lEdit   := .F.
   
      define brush oBrush gradient { { 0.4, nRGB( 75, 144, 223 ), nRGB( 41, 85, 145 ) },;
                                     { 0.6, nRGB( 24,  61, 118 ), nRGB( 50, 95, 158 ) } }
   
      define dialog odlg title "Test Say With Gradient Brush" ;
         size 400,400 pixel brush oBrush transparent
   
      @ 2,2 GROUP TO 100,100 of odlg pixel
   
      @ 25,15 say oSay prompt "Name" of oDlg SIZE 40, 40 COLOR CLR_WHITE PIXEL  transparent adjust
      @ 25.5,15 GET oGet VAR cName OF oDlg SIZE 30, 10 PIXEL WHEN lEdit
      oGet:cToolTip    := "ToolTip of Name"

      @ 27,15 say oSay1 prompt "Other" of oDlg SIZE 40, 40 COLOR CLR_WHITE PIXEL  transparent adjust
      @ 27.5,15 GET oGet1 VAR cVar1 OF oDlg SIZE 30, 10 PIXEL
      oGet1:cToolTip    := "ToolTip of Name"
   
      @ 10,120 button "Test" pixel action oSay:SetText( "Change Text" )
   
      ACTIVATE DIALOG oDlg CENTERED
   
      release brush oBrush
   
   return
 

[karinha]

Asi parece funcionar. Es esto lo que se busca ? o me perdí ?

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

Dlg_Grad()

return nil

procedure Dlg_Grad

   local oDlg, oSay, oBrush, lTest := .T., oCbx
   local oGet, cName := Space( 20 )
   
      define brush oBrush gradient { { 0.4, nRGB( 75, 144, 223 ), nRGB( 41, 85, 145 ) },;
                                     { 0.6, nRGB( 24,  61, 118 ), nRGB( 50, 95, 158 ) } }
   
      define dialog odlg title "Test Say With Gradient Brush" ;
         size 400,400 pixel brush oBrush transparent
   
      @ 2,2 GROUP TO 100,100 of odlg pixel
   
      @ 25,15 say oSay prompt "This a Test" of oDlg SIZE 40, 40 COLOR CLR_WHITE PIXEL  transparent adjust
      @ 25.5,15 GET oGet VAR cName OF oDlg SIZE 30, 10 PIXEL
   
      @ 10,120 button "Test" pixel action oSay:SetText( "Change Text" )
   
      ACTIVATE DIALOG oDlg CENTERED ;
         ON INIT ( oGet:Disable(), oSay:lWantClick := .T., oSay:cTooltip := "this is a test", oSay:ShowToolTip(), .T. )
   
      release brush oBrush
   
   return

 

Code: Select all  Expand view

// C:\FWH1905\SAMPLES\WHENGET.PRG

#include "FiveWin.ch"

FUNCTION Main()

   Dlg_Get_When()

RETURN NIL

FUNCTION Dlg_Get_When() // .F.

   LOCAL oDlg, oSay, oBrush, lTest := .T. , oCbx, oFont, oSay2, oSay3
   LOCAL oGet, cName := "ToolTip: como llamar con WHEN( .F. )?"

   DEFINE FONT oFont  NAME "Ms Sans Serif"  SIZE 00, -26 BOLD
   
   DEFINE BRUSH oBrush GRADIENT { { 0.4, nRGB( 75, 144, 223 ), nRGB( 41, 85, 145 ) }, ;
      { 0.6, nRGB( 24,  61, 118 ), nRGB( 50, 95, 158 ) } }
   
   DEFINE DIALOG oDlg TITLE "This a Test de ToolTip con GET .F." ;
      SIZE 400, 400 PIXEL BRUSH oBrush TRANSPARENT

   oDlg:lHelpIcon := .F.
   
   @ 2, 2 GROUP TO 100, 130 of oDlg pixel COLOR CLR_YELLOW, CLR_BLACK ;
      PROMPT "ToolTip: como llamar con WHEN( .F. )?"
   
   @ 25, 15 SAY oSay PROMPT "This a Test de ToolTip con GET .F." of oDlg ;
      SIZE 140, 12 COLOR CLR_WHITE PIXEL transparent adjust

   @ 35.5, 15 GET oGet VAR cName OF oDlg SIZE 110, 10 PIXEL

   oGet:Disable()
   oGet:lBtnTransparent := .t.       // transparent button get oGet3
   oGet:lAdjustBtn      := .t.       // Button Get Adjust Witdh oGet3
   oGet:lDisColors      := .f.       // Deactive disable color
   oGet:nClrTextDis     := CLR_WHITE // Color text disable status
   oGet:nClrPaneDis     := CLR_BLUE  // Color Pane disable status

   oGet:lReadOnly := .T.
   oGet:lUpdate   := .T.

   oGet:cToolTip := OemToAnsi( "ToolTip de Antonio Linares Ca¤as con WHEN(.F.) no Muestra" )

   @ 125, 15 SAY oSay2 PROMPT "Fuerza Linares jájájájá" OF oDlg FONT oFont   ;
      SIZE 150, 20 COLOR CLR_YELLOW, CLR_BLACK PIXEL TRANSPARENT ADJUST

   @ 145, 15 SAY oSay2 PROMPT "TooTip con GET .F., Como?" OF oDlg FONT oFont ;
      SIZE 150, 20 COLOR CLR_HRED, CLR_BLACK PIXEL TRANSPARENT ADJUST
   
   @ 10, 150 button "Test" pixel action( oDlg:End() ) CANCEL

   ACTIVATE DIALOG oDlg CENTERED

   oBrush:End()
   oFont:End()
   
RETURN NIL

// FIN
 

Regards, saludos.

[karinha]

Creo que se refiere a este problema al estar el GET Disable por efecto de la clausula WHEN

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

Dlg_Grad()

return nil

procedure Dlg_Grad

   local oDlg, oSay, oBrush, lTest := .T., oCbx, , oSay1
   local oGet, cName := Space( 20 )
   local oGet1, cVar1 := Space( 30 )
   local lEdit   := .F.
   
      define brush oBrush gradient { { 0.4, nRGB( 75, 144, 223 ), nRGB( 41, 85, 145 ) },;
                                     { 0.6, nRGB( 24,  61, 118 ), nRGB( 50, 95, 158 ) } }
   
      define dialog odlg title "Test Say With Gradient Brush" ;
         size 400,400 pixel brush oBrush transparent
   
      @ 2,2 GROUP TO 100,100 of odlg pixel
   
      @ 25,15 say oSay prompt "Name" of oDlg SIZE 40, 40 COLOR CLR_WHITE PIXEL  transparent adjust
      @ 25.5,15 GET oGet VAR cName OF oDlg SIZE 30, 10 PIXEL WHEN lEdit
      oGet:cToolTip    := "ToolTip of Name"

      @ 27,15 say oSay1 prompt "Other" of oDlg SIZE 40, 40 COLOR CLR_WHITE PIXEL  transparent adjust
      @ 27.5,15 GET oGet1 VAR cVar1 OF oDlg SIZE 30, 10 PIXEL
      oGet1:cToolTip    := "ToolTip of Name"
   
      @ 10,120 button "Test" pixel action oSay:SetText( "Change Text" )
   
      ACTIVATE DIALOG oDlg CENTERED
   
      release brush oBrush
   
   return
 

No funciona. Está EDITABLE.

Regards, saludos.

[karinha]

Resuelto. Resolvido. Gracias, many thanks.

Code: Select all  Expand view

// C:\FWH1905\SAMPLES\WHENGET.PRG - 25/09/2022 - kapiabafw@gmail.com

#include "FiveWin.ch"

FUNCTION Main()

   Dlg_Get_When()

RETURN NIL

FUNCTION Dlg_Get_When() // .F.

   LOCAL oDlg, oSay, oBrush, lTest := .T. , oCbx, oFont, oSay2, oSay3
   LOCAL oGet, cName := "ToolTip: como llamar con WHEN( .F. )?"

   DEFINE FONT oFont  NAME "Ms Sans Serif"  SIZE 00, -26 BOLD
   
   DEFINE BRUSH oBrush GRADIENT { { 0.4, nRGB( 75, 144, 223 ), nRGB( 41, 85, 145 ) }, ;
      { 0.6, nRGB( 24,  61, 118 ), nRGB( 50, 95, 158 ) } }
   
   DEFINE DIALOG oDlg TITLE "This a Test de ToolTip con GET .F." ;
      SIZE 400, 400 PIXEL BRUSH oBrush TRANSPARENT

   oDlg:lHelpIcon := .F.
   
   @ 2, 2 GROUP TO 100, 130 of oDlg pixel COLOR CLR_YELLOW, CLR_BLACK ;
      PROMPT "ToolTip: como llamar con WHEN( .F. )?"
   
   @ 25, 15 SAY oSay PROMPT "This a Test de ToolTip con GET .F." of oDlg ;
      SIZE 140, 12 COLOR CLR_WHITE PIXEL transparent adjust

   @ 35.5, 15 GET oGet VAR cName OF oDlg SIZE 110, 10 PIXEL

   oGet:Disable()
   oGet:lBtnTransparent := .t.       // transparent button get oGet3
   oGet:lAdjustBtn      := .t.       // Button Get Adjust Witdh oGet3
   oGet:lDisColors      := .f.       // Deactive disable color
   oGet:nClrTextDis     := CLR_WHITE // Color text disable status
   oGet:nClrPaneDis     := CLR_BLUE  // Color Pane disable status

   oGet:lReadOnly := .T.
   oGet:lUpdate   := .T.

   // con GET .F. no funciona
   // oGet:cToolTip := OemToAnsi( "ToolTip de Antonio Linares Ca¤as con WHEN(.F.) no Muestra" )

   // Asi, funciona con GET .F.
   oDlg:cToolTip := { || MyToolTip( 1 ) } // funciona

   @ 125, 15 SAY oSay2 PROMPT "Fuerza Linares jájájájá" OF oDlg FONT oFont   ;
      SIZE 150, 20 COLOR CLR_YELLOW, CLR_BLACK PIXEL TRANSPARENT ADJUST

   @ 145, 15 SAY oSay2 PROMPT "TooTip con GET .F., Como?" OF oDlg FONT oFont ;
      SIZE 150, 20 COLOR CLR_HRED, CLR_BLACK PIXEL TRANSPARENT ADJUST
   
   @ 10, 150 button "Test" pixel action( oDlg:End() ) CANCEL

   ACTIVATE DIALOG oDlg CENTERED

   oBrush:End()
   oFont:End()
   
RETURN NIL

FUNCTION MyToolTip( nOpt ) // funciona perfecto

   LOCAL cRet // := SPACE(20)

   FWLOG nOpt

   Do Case
   Case nOpt = 1
      cRet := "ToolTip de Antonio Linares Canas con WHEN(.F.) Asi funciona"
   Case nOpt = 2
      cRet := "Produtos da área 02 GET 2" // etc...
   Case nOpt = 3
      cRet := "Produtos da área 03"
   Case nOpt = 4
      cRet := "Produtos da área 04"
   Case nOpt = 5
      cRet := "Produtos da área 05"
   Case nOpt = 6
      cRet := "Produtos da área 06"
   Case nOpt = 7
      cRet := "Produtos da área 07"
   Case nOpt = 8
      cRet := "Produtos da área 08"
   Case nOpt = 9
      cRet := "Produtos da área 09"
   Case nOpt = 10
      cRet := "Produtos da área 10"
   Case nOpt = 11
      cRet := "Produtos da área 11"
   Case nOpt = 12
      cRet := "Produtos da área 12"
   Case nOpt = 13
      cRet := "Produtos da área 13"
   Case nOpt = 14
      cRet := "Produtos da área 14"
   Case nOpt = 15
      cRet := "Produtos da área 15"
   Case nOpt = 16
      cRet := "Produtos da área 16"
   Case nOpt = 17
      cRet := "Produtos da área 17"
   Case nOpt = 18
      cRet := "Produtos da área 18"
   Case nOpt = 19
      cRet := "Produtos da área 19"
   Case nOpt = 20
      cRet := "Produtos da área 20"
   EndCase

RETURN( cRet )

// FIN
 

Regards, saludos.

[Antonio Linares]

Querido João,

No se si será el efecto que se busca, pero decirte que eres un maestrazo de FWH

mis respetos

[karinha]

Gracias mi super Maestro.

Para Folder / Folderex:

Code: Select all  Expand view

   oFld:aDialogs[1]:cToolTip := { || MyToolTip_Fld( 1 ) } // funciona

FUNCTION MyToolTip_Fld( nOpt ) // funciona perfecto

   LOCAL cRet // := SPACE(20)

   FWLOG nOpt

   Do Case
   Case nOpt = 1
      cRet := "Fones do Paisagista"
   EndCase

RETURN( cRet )
 

Regards, saludos.