pfc_apply

pfcwnsrv.pbl   >   pfc_w_toolbars   >   pfc_apply

Name	Datatype
li_arraysize	integer
li_cnt	integer

event pfc_apply;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  pfc_apply
//
//	Arguments:  none
//
//	Returns:  none
//
//	Description:  Apply the changes to the toolbar properties
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1999 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////

integer	li_cnt
integer	li_arraysize

// Set toolbar settings
li_arraysize = UpperBound (inv_toolbar[])
for li_cnt = 1 to li_arraysize
	inv_toolbar[li_cnt].iw_owner.SetToolbar (inv_toolbar[li_cnt].i_barindex, &
			inv_toolbar[li_cnt].b_visible, inv_toolbar[li_cnt].e_alignment, inv_toolbar[li_cnt].s_title)
next

// Set application toolbar settings
if IsValid (iapp_object) then
	iapp_object.ToolbarText = cbx_text.checked
	iapp_object.ToolbarTips = cbx_tips.checked
end if

cb_apply.Enabled = False

end event

Name	Owner
pfc_w_toolbars.cb_apply.clicked	cb_apply
pfc_w_toolbars.pfc_default	pfc_w_toolbars

Name	Owner
window.settoolbar	window
systemfunctions.isvalid	systemfunctions
systemfunctions.upperbound	systemfunctions

Full name
pfc_w_toolbars
pfc_w_toolbars.cb_apply