open

pfcapsrv.pbl   >   pfc_w_about   >   open

event open;call super::open;//////////////////////////////////////////////////////////////////////////////
//
//	Event:  open
//
//	(Arguments: None)
//
//	(Returns:  None)
//
//	Description:  Open the About window with the appropriate attributes.
//
//////////////////////////////////////////////////////////////////////////////
//	
//	Revision History
//
//	Version
//	5.0    Initial version
// 6.0.01 Hide the picture if there is no application bitmap.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996 Powersoft Corporation
//
//////////////////////////////////////////////////////////////////////////////

//Get the PowerObjectParm.
inv_aboutattrib = Message.PowerObjectParm

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

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

// Display the appropriate application name.
If Len(inv_aboutattrib.is_application) > 0 Then
	st_application.text = inv_aboutattrib.is_application
	this.Title = 'About '+ inv_aboutattrib.is_application
Else
	st_application.text = ''
	this.Title = 'About'
End If

// Display the appropriate application version number.
If Len(inv_aboutattrib.is_version) > 0 Then
	st_version.text = inv_aboutattrib.is_version
Else
	st_version.text = ''
End If

// Display the appropriate copyright message.
If Len(inv_aboutattrib.is_copyright) > 0 Then
	st_copyright.text = inv_aboutattrib.is_copyright
Else
	st_copyright.text = ''
End If

end event

Name	Owner
systemfunctions.len	systemfunctions
pfc_w_master.open	pfc_w_master

Full name
pfc_w_about
pfc_w_about.st_application
pfc_w_about.st_version
pfc_w_about.st_copyright
demopfc