Tooltip for tabs folderex

[Natter]

Hi? all !

How to set tooltip for tabs folderex ?

[Silvio.Falconi]

try with
oApp():oFolder:bPopup := { | o | MenuTabs( oApp():oFolder ) }

[cnavarro]

Code: Select all  Expand view

      oFld:cToolTip       := "Hola"    // or   oFld:cToolTip       := { ||  MyFunction() }
 

[Natter]

Tnank for you help !
But I need to make your tooltip for each bookmark of folderex

[karinha]

Debria funcionar, más no funciona. no hay referência a cTooltip en FOLDER.CH

Code: Select all  Expand view

   oFld:aDialogs[2]:cToolTip := "Esta es la Pestaña 2"
 

Saludos.

[cnavarro]

Tnank for you help !
But I need to make your tooltip for each bookmark of folderex

Try with

Code: Select all  Expand view

       oFld1:cToolTip       := { || MyToolTip( oFld1:nOver ) }
 

Code: Select all  Expand view

Function MyToolTip( nOpt )

   local cRet  := ""
   FWLOG nOpt
   Do Case
      Case nOpt = 1
         cRet := "Tab 1"
      Case nOpt = 2
         cRet := "Tab 2"
   
   EndCase
   
Return cRet

 

[karinha]

Very good Master,

Code: Select all  Expand view

#include "fivewin.ch"

Function errorFolderex()

   local oDlg, oFld //, nOption := Array(5)

   DEFINE DIALOG oDlg TITLE "I am a DialogBox" ;
          STYLE nOr( WS_POPUP, WS_THICKFRAME ) FROM 0,0 TO 300, 400 PIXEL

   /*
   @ 15, 20 FOLDEREX oFld SIZE 120, 100 OF oDlg PIXEL ROUND 5 UPDATE ;    
     PROMPT  "Option 1", "Option 2", "Option 3", "Option 2", "Option 2"
   */

   @ 15, 20 FOLDEREX oFld SIZE 120, 100 OF oDlg PIXEL ROUND 5        ;
     PROMPT  "Option 1", "Option 2", "Option 3", "Option 2", "Option 2"

   //oFld:aDialogs[ 2 ]:cToolTip := "Tooltip en folder 1" // no funciona
   oFld:cToolTip := { || MyToolTip( oFld:nOver ) } // funciona

   @ 1, 1 BUTTON "&Botón que desaparecerá" SIZE 100, 20 OF oFld:aDialogs[1] PIXEL

   ACTIVATE DIALOG oDlg CENTERED ;
      ON CLICK oFld:aDialogs[ 1 ]:Refresh()

return nil

Function MyToolTip( nOpt )

   local cRet  := ""

   FWLOG nOpt

   Do Case
   Case nOpt = 1
      cRet := "Tab 1 Tooltip en folderex 1"
   Case nOpt = 2
      cRet := "Tab 2 Tooltip en folderex 2"
   Case nOpt = 3
      cRet := "Tab 3 Tooltip en folderex 3"
   Case nOpt = 4
      cRet := "Tab 4 Tooltip en folderex 4"
   Case nOpt = 5
      cRet := "Tab 5 Tooltip en folderex 5"
   EndCase
   
Return cRet
 



[Natter]

Thank you, works perfectly !

[ukoenig]

I included the solution to my test

it is not 100 % working !
moving from one tab to another ( left / right ) inside the tab-area, it is not working
the new focused tab still shows the tooltop of the old tab
In my sample moving from tab 3 to 4, the tooltip of tab 3 is still visible.

Leaving the tabarea and moving from the main page-area to the tabs it works



regards
Uwe

[cnavarro]

Uwe, you are right
Tooltip is not destroyed when move mouse from one tab to other, this is why I do not show the new tooltip