FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour ¿ No funciona cToolTip con :Disable() ?
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM
¿ No funciona cToolTip con :Disable() ?
Posted: Mon May 31, 2021 04:19 PM

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.

"Los errores en programación, siempre están entre la silla y el teclado..."



Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin



Carora, Estado Lara, Venezuela.
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ¿ No funciona cToolTip con :Disable() ?
Posted: Mon May 31, 2021 04:24 PM
Mira se ayuda. La idea és la misma:

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

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: ¿ No funciona cToolTip con :Disable() ?
Posted: Thu Sep 22, 2022 08:06 PM

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.

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: ¿ No funciona cToolTip con :Disable() ?
Posted: Thu Sep 22, 2022 08:25 PM
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.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ¿ No funciona cToolTip con :Disable() ?
Posted: Fri Sep 23, 2022 11:14 AM
FiveWidi, Esto no Funciona con Recursos Usando Folderex:

Code (fw): Select all Collapse
   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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
FiveWiDi
Posts: 1445
Joined: Mon Oct 10, 2005 02:38 PM
Re: ¿ No funciona cToolTip con :Disable() ?
Posted: Fri Sep 23, 2022 05:53 PM
karinha wrote:FiveWidi, Esto no Funciona con Recursos Usando Folderex:

Code (fw): Select all Collapse
   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

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ¿ No funciona cToolTip con :Disable() ?
Posted: Sat Sep 24, 2022 10:08 PM

Asi, no funciona. Se vuelve editable. Gracias.

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ¿ No funciona cToolTip con :Disable() ?
Posted: Sun Sep 25, 2022 09:11 AM
Asi parece funcionar. Es esto lo que se busca ? o me perdí ? :-)
Code (fw): Select all Collapse
#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
regards, saludos

Antonio Linares
www.fivetechsoft.com
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: ¿ No funciona cToolTip con :Disable() ?
Posted: Sun Sep 25, 2022 01:58 PM
Creo que se refiere a este problema al estar el GET Disable por efecto de la clausula WHEN

Code (fw): Select all Collapse
#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
Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ¿ No funciona cToolTip con :Disable() ?
Posted: Sun Sep 25, 2022 02:31 PM
Antonio Linares wrote:Asi parece funcionar. Es esto lo que se busca ? o me perdí ? :-)
Code (fw): Select all Collapse
#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 (fw): Select all Collapse
// 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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ¿ No funciona cToolTip con :Disable() ?
Posted: Sun Sep 25, 2022 02:34 PM
cnavarro wrote:Creo que se refiere a este problema al estar el GET Disable por efecto de la clausula WHEN

Code (fw): Select all Collapse
#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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ¿ No funciona cToolTip con :Disable() ?
Posted: Sun Sep 25, 2022 03:35 PM
Resuelto. Resolvido. Gracias, many thanks.

Code (fw): Select all Collapse
// C:\FWH1905\SAMPLES\WHENGET.PRG - 25/09/2022 - <!-- e --><a href="mailto:kapiabafw@gmail.com">kapiabafw@gmail.com</a><!-- e -->

#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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ¿ No funciona cToolTip con :Disable() ?
Posted: Sun Sep 25, 2022 07:18 PM

Querido João,

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

mis respetos

regards, saludos

Antonio Linares
www.fivetechsoft.com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: ¿ No funciona cToolTip con :Disable() ?
Posted: Mon Sep 26, 2022 03:33 PM
Gracias mi super Maestro.

Para Folder / Folderex:

Code (fw): Select all Collapse
   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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Continue the discussion

Static archive · New replies & topics via GitHub Discussions