File: pfc_w_about.srw
Size: 8631
Date: Sat, 23 Mar 2013 16:23:03 +0100
HA$PBExportHeader$pfc_w_about.srw
$PBExportComments$PFC About window
forward
global type pfc_w_about from w_response
end type
type p_about from u_p within pfc_w_about
end type
type st_application from u_st within pfc_w_about
end type
type st_version from u_st within pfc_w_about
end type
type cb_ok from u_cb within pfc_w_about
end type
type st_copyright from u_st within pfc_w_about
end type
end forward

global type pfc_w_about from w_response
integer x = 997
integer y = 540
integer width = 1701
integer height = 836
string title = "About"
long backcolor = 80263328
p_about p_about
st_application st_application
st_version st_version
cb_ok cb_ok
st_copyright st_copyright
end type
global pfc_w_about pfc_w_about

type variables
Protected:
n_cst_aboutattrib inv_aboutattrib
end variables

event pfc_default;call w_response::pfc_default;//////////////////////////////////////////////////////////////////////////////
//
// Event:  pfc_default
//
// (Arguments: None)
//
// (Returns:  None)
//
// Description:  Performs the default operation.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0    Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

//Close the About window
Close (this)
end event

on pfc_w_about.create
int iCurrent
call super::create
this.p_about=create p_about
this.st_application=create st_application
this.st_version=create st_version
this.cb_ok=create cb_ok
this.st_copyright=create st_copyright
iCurrent=UpperBound(this.Control)
this.Control[iCurrent+1]=this.p_about
this.Control[iCurrent+2]=this.st_application
this.Control[iCurrent+3]=this.st_version
this.Control[iCurrent+4]=this.cb_ok
this.Control[iCurrent+5]=this.st_copyright
end on

on pfc_w_about.destroy
call super::destroy
destroy(this.p_about)
destroy(this.st_application)
destroy(this.st_version)
destroy(this.cb_ok)
destroy(this.st_copyright)
end on

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.
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

//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

event pfc_cancel;call super::pfc_cancel;//////////////////////////////////////////////////////////////////////////////
//
// Event:  pfc_credits
//
// Arguments:  Powersoft Companion Products development
//
// Returns:  PFC
//
// Description:
// Lists the PFC development team members
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
// 6.0   Second version
//
//////////////////////////////////////////////////////////////////////////////
//
// PFC Development team
//
// Project leaders:
// Mark Overbey
// Claudio Quant
//
// Companion Products manager:
// Robert Burgess
//
// Other developers:
// Brian Grimm
// Jane Cantz
// Tim Christodolopolous
// Chris Hester
// Rollin Morris
// Alex Whitney
//
// Special thanks also to everyone who contributed to the 
// design and development of PFC.
//
//////////////////////////////////////////////////////////////////////////////
end event

type p_about from u_p within pfc_w_about
integer x = 23
integer y = 24
integer width = 274
integer height = 244
boolean originalsize = true
end type

type st_application from u_st within pfc_w_about
integer x = 402
integer y = 56
integer width = 1216
integer height = 72
long backcolor = 79741120
string text = "Application name..."
end type

type st_version from u_st within pfc_w_about
integer x = 402
integer y = 128
integer width = 1216
integer height = 72
long backcolor = 79741120
string text = "Version message..."
end type

type cb_ok from u_cb within pfc_w_about
integer x = 1280
integer y = 612
integer taborder = 20
string text = "OK"
boolean cancel = true
boolean default = true
end type

event clicked;call u_cb::clicked;//////////////////////////////////////////////////////////////////////////////
//
// Event:         Clicked
//
// (Arguments:    None)
//
// (Returns:      None)
//
// Description:   Execute the default functionality.
//
//////////////////////////////////////////////////////////////////////////////
// 
// Revision History
//
// Version
// 5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
/*
 * Open Source PowerBuilder Foundation Class Libraries
 *
 * Copyright (c) 2004-2005, All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted in accordance with the GNU Lesser General
 * Public License Version 2.1, February 1999
 *
 * http://www.gnu.org/copyleft/lesser.html
 *
 * ====================================================================
 *
 * This software consists of voluntary contributions made by many
 * individuals and was originally based on software copyright (c) 
 * 1996-2004 Sybase, Inc. http://www.sybase.com.  For more
 * information on the Open Source PowerBuilder Foundation Class
 * Libraries see http://pfc.codexchange.sybase.com
*/
//
//////////////////////////////////////////////////////////////////////////////

parent.Event pfc_default ()
end event

type st_copyright from u_st within pfc_w_about
integer x = 402
integer y = 200
integer width = 1216
integer height = 224
long backcolor = 79741120
string text = "Copyright message..."
end type