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
File: pfc_w_about.srw
Size: 8631
Date: Sat, 23 Mar 2013 16:23:03 +0100
Size: 8631
Date: Sat, 23 Mar 2013 16:23:03 +0100
- w_response pfc_w_about(srw)
- u_p p_about
- u_st st_application
- u_st st_version
- u_cb cb_ok
- u_st st_copyright