Changing the toolbar on an open form

[MoGrace]

Does anyone have a script for how to do this? I want to change the toolbar on my Home form without closing and reopening the form. I am using the same button on 2 toolbars to toggle the user log on and log off (based on global variable USERID = "" or not), and would like to change the toolbar in each case.

If I open another form, then I can use the OnActivate event for the Home form to show the toolbar change, otherwise I get no toolbar. I tried a msgbox but that didn't trigger the OnActivate event when it closed since it is a dialog. I found a function in the wiki for <object>.toolbarchange(toolbarname) but the example seems to be lacking more info on how to use it outside the IW.

Here is my toolbar button script:

dim frm as p
dim tbar as c
dim msg as c
frm = topparent.this
with global_variables()
msg  = "User :"+u_name

select
	case userid <> ""
		msg  = "Logged off User :"+u_name
		LogOff()
		if ui_modeless_dlg_exist("Action Menu")then
			ui_modeless_dlg_close("Action Menu")						
		end if	
		tbar = "LogIn Tbar"
	case else		
		msg  = "Logged on User :"+u_name
		Log_In(.t.)
		ActMenu()		
		tbar = "Home Tbar"			
end select

frm.toolbarchange(Tbar)
frm:u_login.refresh()      [COLOR="#0000FF"]'form level calc field to show the user name[/COLOR]
frm.window_position("fill","fill")
[COLOR="#0000FF"]'this didn't help[/COLOR]
response = msgbox("",msg,0)
if response = 0
	:home.activate()
end if	
end with

I also set the form's dynamic property for the toolbar based on userid - didn't seem to help either. I tried adding form.resynch() and form.refresh_layout() - still no toolbar shows, unless I display the control panel or open another form. Then when I come back to the Home form all is well.

loggedoff.jpg loggedin.jpg

[MoGrace]

Re: Changing the toolbar on an open form

So does no response mean this isn't doable?

[Stan Mathews]

Re: Changing the toolbar on an open form

The example for .toolbarchange() suggests that the usage would be

select
	case userid <> ""
		msg  = "Logged off User :"+u_name
		LogOff()
		if ui_modeless_dlg_exist("Action Menu")then
			ui_modeless_dlg_close("Action Menu")						
		end if	
		frm.toolbarchange("LogIn Tbar") 
	case else		
		msg  = "Logged on User :"+u_name
		Log_In(.t.)
		ActMenu()		
		frm.toolbarchange("Home Tbar") 			
end select

That may just be a variation on what you tried. Don't do much with toolbars.

[Al Buchholz]

Re: Changing the toolbar on an open form

So does no response mean this isn't doable?

You are playing in the deep end of the pool. Not sure many have been there....

[Stan Mathews]

Re: Changing the toolbar on an open form

I created a function to switch toolbars.

FUNCTION tbarchg AS L (name AS C )
	tbarchg = .F.
	if name = "MainMenu"
		other = "Mine"
	else
		other = "MainMenu"
	end if
	parentform.toolbarchange(other)
	tbarchg = .T.
END FUNCTION

I placed buttons on the form with tbarchg("MainMenu") and tbarchg("mine"). They work as expected and change the visible toolbar.

I placed a button on each toolbar with the same code. Pressing either button causes the toolbar to disappear.

[Stan Mathews]

Re: Changing the toolbar on an open form

This seems to work.

FUNCTION tbarchg AS L (name AS C )
	tbarchg = .F.
	if name = "MainMenu"
		other = "Mine"
	else
		other = "MainMenu"
	end if
	tbarnow = toolbar.get(name)
	tbarnow.close()
	dim vl as P
	dim tbar as P
	vl = local_variables()
	tbar = a5_toolbar_def_load(other)
	a5_system_toolbar_show(vl,tbar)
	tbarchg = .T.
END FUNCTION

The toolbar button code is

tbarchg("name_of_current_toolbar")

[MoGrace]

Re: Changing the toolbar on an open form

Thank you Stan. I was trying to do it as a global script and hadn't gotten to making a function yet. UDF's always seem to work better. What did work but seemed contrived, was to minimize the control panel, activate it then activate the loaded form and hide the control panel.

Edit:

This line: a5_system_toolbar_show(vl,tbar) was the one thing I hadn't tried!

I adapted the function to my toolbar buttons and it worked twice successfully but on the 3rd try the toolbar did not change. So what I did was, after calling the new function added these lines to the OnActivate event for the Home form:

this.toolbar = var->t2
this.refresh_layout()

This is the script the toolbar buttons call:

'toolbar button script used to toggle toolbar display based on global var USERID
dim frm as p
dim t1 as c
dim t2 as c

frm = topparent.this

with global_variables()

'dynamic property is also set to display Home form toolbar based on userid
select
	case userid <> ""		
		'Home Tbar is current toolbar
		LogOff()		
		if ui_modeless_dlg_exist("Action Menu")then
			ui_modeless_dlg_close("Action Menu")						
		end if	
		t1 = "Home Tbar"
		t2 = "Login Tbar"
	case else				
		Log_In(.t.)		
		ActMenu()	
		t1 = "Login Tbar"
		t2 = "Home Tbar"						
end select

cx_tbar(t1,t2)
[COLOR="#0000FF"]controlpanel.Minimize()    'without this section no toolbar showed after the change
controlpanel.Activate()
frm.activate()
controlpanel.Hide()[/COLOR]
frm:u_login.refresh()
frm.window_position("fill","fill")

end with

And this is my modified function:

FUNCTION cx_tbar AS L (cur_tbar AS C, new_tbar as c )
'DESCRIPTION: Change the default form toolbar to display a different one	
'Thanks to Stan Matthew
	cx_tbar = .F.
	dim lv as p
	dim tbar1 as p		
	dim tbar2 as p	
	
	lv = local_variables()
	
	tbar1 = toolbar.get(cur_tbar)
	tbar1.close()	
	
	tbar2 = a5_toolbar_def_load(new_tbar)
	a5_system_toolbar_show(lv,tbar2)
	
	cx_tbar = .T.
END FUNCTION

My HOME OnActivate script:

dim shared timer_flag as L = .t.
'OnDeactivate turns timer_flag to .f. and timer_interval to 0
Home.timer_interval = .25
if controlpanel.IsVisible() then
	controlpanel.Hide()
end if
statusbar.Hide()
a5_windowbar_close()

dim global userid as c
dim t1 as c
dim t2 as c
if userid = "" then	
	t1 = "Home Tbar"	
	t2 = "LogIn Tbar"
	if ui_modeless_dlg_exist("Action Menu") then
		ui_modeless_dlg_close("Action Menu")
	end if
else
	t1 = "Login Tbar"
	t2 = "Home Tbar"
	if .not. ui_modeless_dlg_exist("Action Menu") then
		ActMenu()
	end if
end if
c[COLOR="#0000FF"]x_tbar(t1, t2)
this.toolbar = var->t2
this.refresh_layout()[/COLOR]
this.window_position("fill","fill")
this.ZOrder("bottom")

[MoGrace]

Re: Changing the toolbar on an open form

This has been working but am now getting this error from the OnActivate event:

Script:a5_dictionary_read() line:139
Cannot create a file when that file already exists.
C:\Users\r\AppData

I don't know what file AA is looking for in that directory. I didn't find anything.

[Stan Mathews]

Re: Changing the toolbar on an open form

Have you updated to a new build recently? Possibly something is broken there.

[MoGrace]

Re: Changing the toolbar on an open form

Actually something did break and I'm trying to figure out how to fix it. Do you know if I can use the a5bak files to restore form changes to a different copy of my database that is 3 days old? The most recent files are missing forms but the back up zips are still there. I was working on network optimization for shadow files and did something to my developer adb. That dictionary read error was my first clue...

I used another tool to look at the tables and the data in them appears fine. I tried dropping the errant tables from the adb and re adding them but the error with the forms persists. The DD* files appear to be about the same size as my backup. I made modifications to 15 tables/ forms & field rules in the past 3 days and would hate to have to try to redo all that. HELP!

[Stan Mathews]

Re: Changing the toolbar on an open form

You restore a prior version of a form by right clicking on it in the control panel and choose Restore Prior Version. You should be able to copy the a5bak files from one machine to another and use them to restore as long as they reference the same table. I would rename the file being copied so as not to overwrite anything.

[MoGrace]

Re: Changing the toolbar on an open form

Well what seems to be missing after creating the shadow files is the *.sex files from my development directory. They do however exist in the runtime folder. Are these files the same as the original? The wiki doesn't mention sets under the info on network optimization or whether they are copied in full like the .dd* files or not. The sets were dropped in the dev. adb and I was not able to add them back even though they appeared in the selection list for adding a table/set.

Edit: Whew - they are the same so I copied the *.sex files from the shadow to the development copy and all my forms are back! The Wiki mentions being able to edit forms in the shadow copy, but adds they are local only. So that was my clue it would work.