open

pfcapsrv.pbl   >   pfc_w_splash   >   open

event open;call super::open;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  Open
//
//	Description:  Get splash object and display splash window
//	with appropriate settings that were specified
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	5.0    Initial version
//	5.0.03	Use timer event for window close
// 5.0.04	Center splash window.
// 6.0.01 Hide the picture if there is no application bitmap.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996 Powersoft Corporation
//
//////////////////////////////////////////////////////////////////////////////

// Get the splash object
inv_splashattrib = Message.PowerObjectParm

// Allow window to close without the CloseQuery checks being performed.
ib_disableclosequery = True

// Center the splash window.
of_SetBase(True)
inv_base.of_Center()

// Positioning
this.SetPosition (TopMost!)
gb_allaround.SetPosition(ToBottom!)

// Display the Application bitmap
If Len(inv_splashattrib.is_logo) > 0 Then
	p_splash.PictureName = inv_splashattrib.is_logo
Else
	p_splash.Visible = False
End If

// Copyright
If Len(inv_splashattrib.is_copyright) > 0 Then
	st_copyright.text = inv_splashattrib.is_copyright
Else
	st_copyright.text = ''
End If

// Application display name
If Len(inv_splashattrib.is_application) > 0 Then
	st_application.text = inv_splashattrib.is_application
Else
	st_application.text = ''
End If

// Application version
If Len(inv_splashattrib.is_version) > 0 Then
	st_version.text = inv_splashattrib.is_version
Else
	st_version.text = ''
End If

// Set length of time for window to close
Timer (inv_splashattrib.ii_secondsvisible)
end event

Name	Owner
window.setposition	window
dragobject.setposition	dragobject
systemfunctions.len	systemfunctions
systemfunctions.timer	systemfunctions
pfc_w_master.of_setbase	pfc_w_master
pfc_n_cst_winsrv.of_center	pfc_n_cst_winsrv
pfc_w_master.open	pfc_w_master

Full name
pfc_w_splash
pfc_w_splash.st_copyright
pfc_w_splash.st_version
pfc_w_splash.st_application
demopfc