cTooltip em Folderex

[kapiaba]

Very good Master,

#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