Folder check

[TimStone]

Consider the following:

Code: Select all  Expand view

DEFINE DIALOG oWdlg1 BRUSH oBrush RESOURCE "WOMAINw" OF oWnd TITLE cTitle
REDEFINE FOLDEREX oEditWork:oFld ID 356 OF oWdlg1 ;
    PROMPT "   General   ", "   Parts   ", "   Labor   ", "   Recommend   ", "   Totals   ", "   Inspect   ", "   Costing   ", "  Services  ", "   Attachments   " ;
    DIALOGS "WOGENw", "WOPARw", "WOLABw", "WORECw", "WOTOTw", "WOINSw", "WOCSTw", "WOSVCw", "WOATTw" ;
    ON CHANGE ( oEditWork:FolderCheck( ), oWdlg1:update() ) ROUND 5 TRANSPARENT
 

I have a "security" file with flags for access to various elements of the program. In the example above, I want to be able to show, but not activate, some of the folder prompts. That means, although the Totals Folder tab is shown, if they click on it, nothing happens.

Is there a setting in the folders control that allows me to do this ? I realize I could simply filter which tabs are shown, but those folders are all defined in the program, and eliminating some will cause a multitude of problems.

Thanks ... I'll be someone has this answer ....

[cnavarro]

Tim
This control has a DATA aEnable ( array, len( aEnable ) equal len( aDialogs ) )
This DATA contains logicals values state of each dialog: .T. -> Enable, .F. .> Disable
oFldEx:aEnable := { .T., .F. }
In this case, second dialog is disabled

[TimStone]

Thank you. That works perfectly for me.