How can I save/restore control settings in a toolbar

Should you need to temporarily disable controls in a custom toolbar class, [color blue].SetAll([Enabled],.F.)[/color] provides a simple solution.

If you wish to retain the original settings and only re-enable controls that were previously enabled, try the following.

Add a two dimensional array to the class named [color blue]aControls[1,2][/color]

Add two methods named [color blue].mSaveForm()[/color] and [color blue].mRestForm()[/color].

In [color blue].mSaveForm()[/color] put :-
[color blue]
WITH THISFORM
[tab]DIMENSION .aControls[.ControlCount,2]
[tab]FOR i = 1 TO .ControlCount
[tab][tab].aControls[i,1] = .Controls(i).Name
[tab][tab].aControls[i,2] = IIF(.Controls(i).Enabled,.T.,.F.)
[tab]ENDF
[tab].SetAll([Enabled],.F.)
ENDW
[/color]
In [color blue].mRestForm()[/color] put :-
[color blue]
WITH THISFORM
[tab]FOR i = 1 TO .ControlCount
[tab][tab]IF .aControls[i,2] = .T.
[tab][tab][tab]lcExpr = [THISFORM] + .aControls[i,1] + [.Enabled = .T.]
[tab][tab][tab]&lcExpr
[tab][tab]ENDI
[tab]ENDF
ENDW
[/color]
To use, put :-
[color blue]
tbrMain.mSaveForm()
[color green]
* Code
* Code
[color blue]
tbrMain.mRestForm()
[color black]
Have fun!