Search the Community
Showing results for tags 'folderex'.
-
Pessoal, Meu sistema inteiro está com Folder e eu quero mudar para FolderEx. Vai dar muito trabalho? Alguém fez isso? Valeu a pena? Obrigado,
-
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