FiveTech Software tech support forums

www.FiveTechSoft.com
https://forums.fivetechsupport.com/

¿ No funciona cToolTip con :Disable() ?

https://forums.fivetechsupport.com/viewtopic.php?t=40473

Page 1 of 1

¿ No funciona cToolTip con :Disable() ?

Posted: Mon May 31, 2021 4:19 pm
by 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.

Re: ¿ No funciona cToolTip con :Disable() ?

Posted: Mon May 31, 2021 4:24 pm
by karinha
Mira se ayuda. La idea és la misma:

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

Saludos.

Re: ¿ No funciona cToolTip con :Disable() ?

Posted: Thu Sep 22, 2022 8:06 pm
by 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.

Re: ¿ No funciona cToolTip con :Disable() ?

Posted: Thu Sep 22, 2022 8:25 pm
by FiveWiDi
leandro wrote: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.

Re: ¿ No funciona cToolTip con :Disable() ?

Posted: Fri Sep 23, 2022 11:14 am
by karinha
FiveWidi, Esto no Funciona con Recursos Usando Folderex:

Code: Select all | Expand


   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.

Re: ¿ No funciona cToolTip con :Disable() ?

Posted: Fri Sep 23, 2022 5:53 pm
by FiveWiDi
karinha wrote:FiveWidi, Esto no Funciona con Recursos Usando Folderex:

Code: Select all | Expand


   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

Re: ¿ No funciona cToolTip con :Disable() ?

Posted: Sat Sep 24, 2022 10:08 pm
by karinha
Asi, no funciona. Se vuelve editable. Gracias.

Regards, saludos.

Re: ¿ No funciona cToolTip con :Disable() ?

Posted: Sun Sep 25, 2022 9:11 am
by Antonio Linares
Asi parece funcionar. Es esto lo que se busca ? o me perdí ? :-)

Code: Select all | Expand

#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

 

Re: ¿ No funciona cToolTip con :Disable() ?

Posted: Sun Sep 25, 2022 1:58 pm
by cnavarro
Creo que se refiere a este problema al estar el GET Disable por efecto de la clausula WHEN

Code: Select all | Expand


#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
 

Re: ¿ No funciona cToolTip con :Disable() ?

Posted: Sun Sep 25, 2022 2:31 pm
by karinha
Antonio Linares wrote:Asi parece funcionar. Es esto lo que se busca ? o me perdí ? :-)

Code: Select all | Expand

#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


// 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.

Re: ¿ No funciona cToolTip con :Disable() ?

Posted: Sun Sep 25, 2022 2:34 pm
by karinha
cnavarro wrote:Creo que se refiere a este problema al estar el GET Disable por efecto de la clausula WHEN

Code: Select all | Expand


#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.

Re: ¿ No funciona cToolTip con :Disable() ?

Posted: Sun Sep 25, 2022 3:35 pm
by karinha
Resuelto. Resolvido. Gracias, many thanks.

Code: Select all | Expand


// 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.

Re: ¿ No funciona cToolTip con :Disable() ?

Posted: Sun Sep 25, 2022 7:18 pm
by Antonio Linares
Querido João,

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

mis respetos

Re: ¿ No funciona cToolTip con :Disable() ?

Posted: Mon Sep 26, 2022 3:33 pm
by karinha
Gracias mi super Maestro.

Para Folder / Folderex:

Code: Select all | Expand


   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.
All times are UTC
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited