open

pfcwnsrv.pbl   >   pfc_w_statusbar   >   open

Name	Datatype
li_rc	integer

event open;//////////////////////////////////////////////////////////////////////////////
//
//	Object Name:  pfc_w_statusbar
//
//	Description:
//	Status bar window that 'floats' over the microhelp area of a MDI frame.
//
//	Note:  This window opens with the Visible Setting = False.
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	5.0   Initial version
// 5.0.02 Updated check for Operating system.
// 5.0.03 Added checks for WindowsNT 4.0.
// 7.0	 Added InsertRow to StatusBar dw
//
//////////////////////////////////////////////////////////////////////////////
//
//	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_rc

// Get the parent window.
iw_parentwindow = ParentWindow()

// Disable the CloserQuery process.
ib_disableclosequery = true

// Create an instance of the platform service.
f_setplatform(inv_platform, true)  

// Determine the environment.
GetEnvironment(ienv_object)
ib_win95 = (ienv_object.ostype = Windows! and  & 
				(ienv_object.osMajorRevision = 4 or & 
					(ienv_object.osMajorRevision = 3 and &
						ienv_object.osMinorRevision >= 95))) or &
				(ienv_object.ostype = WindowsNT! and & 
				 ienv_object.osMajorRevision >= 4)

// Get the Current System settings prior to Creating the visuals.
li_rc = of_GetSystemSettings() 

// Create the visuals.
li_rc = of_CreateVisuals()
If li_rc <> 1 Then
	Close(this)
End If

// Set the initial position.
this.of_SetPosition() 

dw_statusbar.InsertRow (0)

// Go every 'n' seconds to refresh the items.
timer(ii_secondstorefresh,this) 

// Make sure focus is on the Frame.
If IsValid(iw_parentwindow) Then
	iw_parentwindow.SetFocus()
End If
end event

Name	Owner
window.parentwindow	window
window.setfocus	window
datawindow.insertrow	datawindow
systemfunctions.close	systemfunctions
systemfunctions.getenvironment	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.timer	systemfunctions
f_setplatform.f_setplatform	f_setplatform
pfc_w_statusbar.of_createvisuals	pfc_w_statusbar
pfc_w_statusbar.of_setposition	pfc_w_statusbar
pfc_w_statusbar.of_getsystemsettings	pfc_w_statusbar

Full name
pfc_w_statusbar