Module StdAbout.pkg

************************************************************************ Confidential Trade Secret. Copyright (c) 1997 Data Access Corporation, Miami Florida as an unpublished work. All rights reserved. DataFlex is a registered trademark of Data Access Corporation. ************************************************************************ ************************************************************************ $File name : StdAbout.pkg $File title : Standard about object package for VDF Notice : $Author(s) : John Tuohy $Rev History JT 06/27/97 File created ************************************************************************ This provides a quick and simple way to create an about package for a program. You need to create a message inside you client area called Activate_About. Within this message you should send the message DoAbout passing needed string information. Procedure Activate_About Send DoAbout sTitle sVersion sCopyright sAuthor sBitmap End_Procedure where: sTitle = Name of application. If none provided, uses caption bar title sVersion = Version Line. If none provided, will be blank sCopyRight = Copyright Line. If none provided, will be blank sAuthor = Author name, blank if none provided sBitMap = Bitmap logo. If none provided, standard VDF bitmap is used. It is expected that you will place this in your own object package. For example an order about package may look like this: // OrderAbout.pkg Use StdAbout.pkg Procedure Activate_About String sTitle sCopyright sVersion sAuthor Move "My Order Entry System" to sTitle Move "Version 2.1" to sVersion Move "Copyright 1997, Super Software Inc." to sCopyright Move "John Smith" to sAuthor Send DoAbout sTitle sVersion sCopyright sAuthor "" end_procedure // end of file.

StdAbout.pkg (view source)
• import declarations
  • Dfabout.pkg (view source)
• Activate_About()
  ************************************************************************* Public message. This is the default message. It is expected that you will create your own message to override this *************************************************************************
• DoAbout(string sTitle string sVersion string sCopyRight string sAuthor string sBitmap)
  ************************************************************************* Public message. It is expected that you will send this message (most likely from Activate_About. This creates an about object, activates it and destroys it when done. It is not exepected that you will augment this. *************************************************************************
  • IntegerhoObj
  • IntegerhoMain
  • About : AboutDialog
    create object

References (1):

Field References (0):