Module Dfabout.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 : DfAbout.pkg $File title : About class support Notice : $Author(s) : Vincent Oorsprong, Ken Ross $Rev History VOO 07/25/2003 Removed OnResize procedure for sysinfo dialog. Replaced logic with anchor technique. Removed unnessary property in the sysinfo dialog. Changed the size Of the about & sysinfo dialog object To better look in Windows XP. Repositioned the close button in the sysinfo dialog To line up with the display area Replaced obsolete code and techniques. Removed dead code. JJT 10/23/2001 removed all ghoworkspace support. Uses app object or nothing SWB 07/19/01 Added support Of the Application object in preference to the global Workspace object, if it is present JJT 11/05/98 Added version information VOO 29/10/98 Replaced the GetFreeSystemResources for the Win32 variant JJT 7/31/97 Registered Enumerate Workspace so dfabout can exist without workspace package. JJT 6/27/97 Turned the sysinfo objects into classes so the AboutDialog class can create this object. Cleaned up the interface (used correct classes and messages) Added workspace reporting support To sys-info. Turned off wrapping in the sys-info editor. KR ??/??/96 File created ************************************************************************

Dfabout.pkg (view source)
• import declarations
  • LanguageText.pkg (view source)
  • Windows.pkg (view source)
  • Dfbitmap.pkg (view source)
  • GlobalFunctionsProcedures.pkg (view source)
• DWordWNetGetUser(Pointer lpName Pointer lpUser_Name Pointer lpLength)
• IntegerGlobalMemoryStatus(Pointer lpsMemoryStatus)
• SysinfoDisplay : Edit
  • Construct_Object()
    Inherited from Edit
  • Add_Line(String sVal)
    **************************************************************************** $Module type: PROCEDURE $Module name: Add_Line $Author : VOO Created : 06-10-96 @ 15:23 Description This method will add a line To this edit object, it should go simpler but it seems To be done this way. $Rev History 07/25/2003 Replaced property retrieval from expression to GET syntax 06-10-1996 Module header created ****************************************************************************
    • IntegeriLine
  • Show_Current_Directory()
    **************************************************************************** $Module type: PROCEDURE $Module name: Show_Current_Directory $Author : VOO Created : 06-10-96 @ 15:24 Description This method will show the name Of the current directory in the system information box $Rev History 06-10-96 Module header created ****************************************************************************
    • StringsDir
  • Show_Windows_Directory()
    • StringsWindir
  • Show_Current_User()
  • Show_Number_Format()
    • IntegeriFormat
    • StringsFormatText
  • Show_Filelist_Name()
    • StringsFilename
  • Show_Lock_Delay()
    • IntegeriLockdelay
  • Show_Lock_Timeout()
    • IntegeriLockTimeout
  • Show_Screen_Size()
    • IntegeriYscreensize
    • IntegeriXscreensize
  • Show_Page_Size()
  • Show_Date()
    • DatedToday
  • Show_Date_Format()
    • IntegeriDateFormat
    • StringsDateFormat
  • Show_Memavail()
    • IntegeriMem
  • Show_Systemresources()
    • StringsMemoryStatus
    • IntegeriVoid
    • IntegerdwMemoryLoad
    • IntegerdwTotalPhys
    • IntegerdwAvailPhys
    • IntegerdwTotalPageFile
    • IntegerdwAvailPageFile
    • IntegerdwTotalVirtual
    • IntegerdwAvailVirtual
  • Show_Registration()
    • StringsRegName
    • IntegeriSN
  • Show_ServicePack()
    • StringsVersion
  • Show_WorkspaceInformation()
    • IntegerhoWorkspace
  • StringVersionStr(Integer iVer Integer iRev Integer iBld)
  • Show_Versions()
    • IntegeriVersion
    • IntegeriRevision
    • IntegeriBuild
  • Show_Drivers()
    *** *** BW *** Procedure: Show_Drivers *** Purpose : Show loaded database drivers ***
    • StringsCurrentDriver
    • StringsLoadedDrivers
    • IntegeriNumberOfDrivers
    • IntegeriCount
  • Show_HelpFile()
    • StringsHelpFile
    • IntegereHelpType
  • Show_EnterAsTab()
    • BooleanbEnterKeyAsTabKey
    • StringsText
  • Add_Focus(Integer hoRoot)
    **************************************************************************** $Module type: PROCEDURE $Module name: Add_Focus $Author : VOO Created : 24-09-96 @ 19:43 Description During activation we will remove the old information and add the newly found systeminformation $Rev History 24-09-96 Module header created ****************************************************************************
• SysInfoDialog : ModalPanel
  **************************************************************************** $Module type: OBJECT $Module name: Sysinfo_Dialog $Author : VOO Created : 24-09-96 @ 18:47 Description This object shows the systeminformation on the screen $Rev History 24-09-96 Module header created ****************************************************************************
  • Construct_Object()
    Inherited from ModalPanel
    • oSysinfoDisplay : SysInfoDisplay
    • oCloseButton : Button
• AboutDialog : ModalPanel
  Purpose: Ken Ross 12/17/96 5:16PM
  • Construct_Object()
    Inherited from ModalPanel
    • StringsVdfRootDir
    • oSysInfoDialog : SysInfoDialog
    • oBox : Container3d
      • oAboutGraphic : BitmapContainer
      • oProductName : TextBox
      • oVersion : TextBox
      • oCopyright : TextBox
      • oAuthor : TextBox
    • oOKButton : Button
    • oSysInfoButton : Button
  • Set(String sProductName)
    Inherited from Standard_Container_Mixin
  • Set(String sVersion)
    Inherited from Standard_Container_Mixin
  • Set(string sCopyright)
    Inherited from Standard_Container_Mixin
  • Set(String sAuthor)
    Inherited from Standard_Container_Mixin
  • Set(string sLogo)
    Inherited from Standard_Container_Mixin
  • Show_Sysinfo()
  • End_Construct_Object()
    Inherited from Standard_Container_Mixin
    • IntegerhoVersionInfo
    • BooleanbIncluded
    • IntegeriMajor
    • IntegeriMinor
    • IntegeriRelease
    • IntegeriBuild
    • StringsLabel

References (1):

Field References (0):