of_refreshcolors

pfcwnsrv.pbl   >   pfc_w_statusbar   >   of_refreshcolors

Name	Datatype
lnv_string	n_cst_string
ls_allobjects	string
ls_modifyexp	string
ls_object	string
ls_rc	string

protected function integer of_refreshcolors ();//////////////////////////////////////////////////////////////////////////////
//
//	Function:  of_RefreshColors
//
//	Access:  Protected
//
//	Arguments:	None
//	
//	Returns:  Integer
//	1 if it succeeds and -1 if an error occurs.
//
//	Description:
//	Refreshes the colors of all the appropriate objects to match the desired
//	background color.
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 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.
//
//////////////////////////////////////////////////////////////////////////////

string 		ls_allobjects
string		ls_object
string		ls_modifyexp
string		ls_rc
n_cst_string	lnv_string

// Get the datawindow objects.
ls_allobjects = dw_statusbar.Describe('DataWindow.Objects')

// Set window background to match buttonface.
this.backcolor = il_buttonface

// Set each datawindow object background to match buttonface.
DO UNTIL Len(ls_allobjects) <= 0
	ls_object = lnv_string.of_gettoken(ls_allobjects,'~t')
	ls_modifyexp =	ls_object+".Background.Color='"+string(il_buttonface)+"' "
	ls_rc = dw_statusbar.Modify (ls_modifyexp)	
LOOP

Return 1
end function

Name	Owner
pfc_w_statusbar.of_createvisuals	pfc_w_statusbar
pfc_w_statusbar.wininichange	pfc_w_statusbar

Name	Owner
datawindow.describe	datawindow
datawindow.modify	datawindow
systemfunctions.len	systemfunctions
systemfunctions.string	systemfunctions
pfc_n_cst_string.of_gettoken	pfc_n_cst_string

Full name
pfc_w_statusbar