DfAbout.pkg

// If you get a compile error about a resource. "..\APPSRC\COMPILEHEADER.H", 
// you need to compile the program "WriteDateTimeHeaderFile.src" first!
//
// If you get a compile error: "Can't include resource ..\HELP\ABOUT.RTF",
// you need to create a "About.rtf" file in the Help folder.
// Note that it can be empty, but it needs to exist for the About dialog.
//
Use Windows.pkg
Use Dfclient.pkg
Use DFbitmap.pkg
Use GlobalFunctionsProcedures.pkg
Use cRichEdit.pkg
Use cTextEdit.pkg
Use cRichEdit.pkg
Use gFormatNumbers.pkg

Use cli.pkg
Use DFBTRDRV.PKG
Use MSSqldrv.pkg
Use db2_drv.pkg
Use odbc_drv.pkg

Use RDCCompileDateTime.pkg

#IF (!@ > 210)
    Use WsGlobalFunctions.pkg
#ELSE
    Use GlobalFunctionsProcedures.pkg
    Use seq_chnl.pkg

    // A variant of the ShellExecute Win API, but it waits until the process that is started
    // (the passed program), has finished
    // The DOS box does also _not_ flash briefly.
    Procedure RunProgramWait Global String sProgram String sParameter
//        Handle hProcess
//        Integer iVoid
//        AboutSHELLEXECUTEINFO sInfo
//    
//        Move (SizeOfType(AboutSHELLEXECUTEINFO)) to sInfo.cbSize
//    
//        Move SEE_MASK_NOCLOSEPROCESS to sInfo.fMask
//        Move SW_SHOW                 to sInfo.nShow
//    
//        Move (AddressOf(sProgram))   to sInfo.lpFile
//        Move (AddressOf(sParameter)) to sInfo.lpParameters
//        // This will "hide" the DOS box from showing (no flasing box):
//        Move 0                       to sInfo.nShow
//    
//        Move (AboutShellExecuteEx(AddressOf(sInfo))) to iVoid
//        Move sInfo.hProcess to hProcess
//        If (hProcess) Begin
//            Move (AboutWaitForSingleObject(hProcess, -1)) to iVoid
//            Move (AboutCloseHandle(hProcess)) to iVoid
//        End
    End_Procedure

    Function OpenOutput Global String sFileName Returns Integer
        Integer iCh
    
        Get Seq_New_Channel to iCh
        If (iCh = DF_SEQ_CHANNEL_NOT_AVAILABLE) Begin
            Error DFERR_PROGRAM "DF_SEQ_CHANNEL_NOT_AVAILABLE"
            Function_Return DF_SEQ_CHANNEL_NOT_AVAILABLE
        End
        Direct_Output channel iCh sFileName
        Function_Return iCh
    End_Function
    
    Procedure CloseOutput Global Integer iCh
        Close_Output channel iCh
        Send Seq_Release_Channel iCh
    End_Procedure
    
    Function OpenInput Global String sFileName Returns Integer
        Integer iCh
    
        Get Seq_New_Channel to iCh
        If (iCh = DF_SEQ_CHANNEL_NOT_AVAILABLE) Begin
            Error DFERR_PROGRAM "DF_SEQ_CHANNEL_NOT_AVAILABLE"
            Function_Return DF_SEQ_CHANNEL_NOT_AVAILABLE
        End
        Direct_Input channel iCh sFileName
        Function_Return iCh
    End_Function
    
    Procedure CloseInput Global Integer iCh
        Close_Input channel iCh
        Send Seq_Release_Channel iCh
    End_Procedure
    
    Function OpenAppendOutput Global String sFileName Returns Integer
        Integer iCh
    
        Get Seq_New_Channel to iCh
        If (iCh = DF_SEQ_CHANNEL_NOT_AVAILABLE) Begin
            Error DFERR_PROGRAM "DF_SEQ_CHANNEL_NOT_AVAILABLE"
            Function_Return DF_SEQ_CHANNEL_NOT_AVAILABLE
        End
        Append_Output channel iCh sFileName
        Function_Return iCh
    End_Function
    
    Procedure CloseAppendOutput Global Integer iCh
        Close_Input channel iCh
        Send Seq_Release_Channel iCh
    End_Procedure

#ENDIF    
Use LanguageText.pkg

Register_Function phoWorkspace Returns Handle
Register_Function Help_filename Returns String
Register_Function GetHelpFile Returns String
Register_Function pbEnterKeyAsTabKey Returns Boolean

#IFNDEF CS_CRLF
    Define CS_CRLF for (Character(13) + Character(10))
#ENDIF

#IFNDEF ORAFLEX
    Define ORAFLEX   for "ORA_DRV"
#ENDIF

#IFNDEF SQLFLEX
    Define SQLFLEX   for "SQL_DRV"
#ENDIF

#IFNDEF MDSPgSQL
    Define MDSPgSQL  for "MDSPGSQL"
#ENDIF

#IFNDEF MDSMySQL
    Define MDSMySQL  for "MDSMYSQL"
#ENDIF

// *** Constant Declarations: ***
//
#IFDEF DF_DRIVER_SQLSERVER_CLIENT_VERSION
#ELSE
    #Replace DF_DRIVER_SQLSERVER_CLIENT_VERSION |CI1160
#ENDIF

#IFSame Language$Current = Language$English
    #Replace C_$Computer_Name                     |CS"Computer Name: %1"
    #Replace C_$Current_User_Count                |CS"Current User Count: %1"
    #Replace C_$Max_Licensed_User_Count           |CS"Max Licensed User Count: %1"
    #Replace C_$Max_DbDriver_Licensed_User_Count  |CS"Max dbDriver Licensed User Count: %1"
    #Replace C_$Pervasive_Local_Engine_Version    |CS"Pervasive Local Engine Version: %1"
    #Replace C_$Pervasive_Server_Engine_Version   |CS"Pervasive Server Engine Version: %1"
    #Replace C_$SQLSERVER2016DRVRSTR              |CS"MS-SQL Server 2016 Client ODBC Driver 13 for SQL Server"
    #Replace C_$SQLSERVER2014DRVRSTR              |CS"MS-SQL Server 2014 Client ODBC Driver 11 for SQL Server"
    #Replace C_$SQL_Server_Native_Client_11_0     |CS"SQL Server Native Client 11.0 (SQL Server 2012)"
    #Replace C_$SQL_Server_Native_Client_10_0     |CS"SQL Server Native Client 10.0 (SQL Server 2008)"
    #Replace C_$SQL_Native_Client                 |CS"SQL Native Client (SQL Server 2005)"
    #Replace C_$SQL_Server_SQL_Server_2000_client |CS"SQL Server (SQL Server 2000 client (MDAC))"
    #Replace C_$SQL_Client_Text                   |CS"Client Version:"
    #Replace C_$SQLServerText                     |CS"Server/DSN:"
    #Replace C_$SQL_Driver_Version_Min_Text       |CS"The database driver version should at least be version:"
    #Replace C_$SQL_Client_Version_Min_Text       |CS"and the SQL client version should at least be:"
    #Replace C_$SQL_Versions_Are_Text             |CS"But the current versions are:"
    #Replace C_$PleaseAdjustTxt                   |CS"Please adjust and try again."
    #Replace C_$ProgramWillExit_Text              |CS"The program will now exit."
    #Replace C_$DF_Studio_License_Text            |CS"Program run under Studio license. The Max number of users for database drivers could not be retrieved."
    #Replace C_$Compile_Date                      |CS"Compiled:"
    #IFNDEF C_$CopyToClipboard_Text
    #Replace C_$CopyToClipboard_Text              |CS"Content copied to Windows clipboard. Press Ctrl+V to paste the content in e.g. an e-mail."
    #ENDIF
#ENDIF

#IFSAME Language$Current Language$Nederlands
    #Replace C_$Computer_Name                     |CS"Computer Name: %1"
    #Replace C_$Current_User_Count                |CS"Current User Count: %1"
    #Replace C_$Max_Licensed_User_Count           |CS"Max Licensed User Count: %1"
    #Replace C_$Max_DbDriver_Licensed_User_Count  |CS"Max dbDriver Licensed User Count: %1"
    #Replace C_$Pervasive_Local_Engine_Version    |CS"Pervasive Local Engine Version: %1"
    #Replace C_$Pervasive_Server_Engine_Version   |CS"Pervasive Server Engine Version: %1"
    #Replace C_$SQLSERVER2016DRVRSTR              |CS"MS-SQL Server 2016 Client ODBC Driver 13 for SQL Server"
    #Replace C_$SQLSERVER2014DRVRSTR              |CS"MS-SQL Server 2014 Client ODBC Driver 11 for SQL Server"
    #Replace C_$SQL_Server_Native_Client_11_0     |CS"SQL Server Native Client 11.0 (SQL Server 2012)"
    #Replace C_$SQL_Server_Native_Client_10_0     |CS"SQL Server Native Client 10.0 (SQL Server 2008)"
    #Replace C_$SQL_Native_Client                 |CS"SQL Native Client (SQL Server 2005)"
    #Replace C_$SQL_Server_SQL_Server_2000_client |CS"SQL Server (SQL Server 2000 client (MDAC))"
    #Replace C_$SQLServerText                     |CS"Server/DSN:"
    #Replace C_$SQL_Client_Text                   |CS"Client Version:"
    #Replace C_$SQL_Driver_Version_Min_Text       |CS"The database driver version should at least be version:"
    #Replace C_$SQL_Client_Version_Min_Text       |CS"and the SQL client version should at least be:"
    #Replace C_$SQL_Versions_Are_Text             |CS"But the current versions are:"
    #Replace C_$PleaseAdjustTxt                   |CS"Please adjust and try again."
    #Replace C_$ProgramWillExit_Text              |CS"The program will now exit."
    #Replace C_$DF_Studio_License_Text            |CS"Program run under Studio license. The Max number of users for database drivers could not be retrieved."
    #Replace C_$Compile_Date                      |CS"Compiled:"
    #IFNDEF C_$CopyToClipboard_Text
    #Replace C_$CopyToClipboard_Text              |CS"Content copied to Windows clipboard. Press Ctrl+V to paste the content in e.g. an e-mail."
    #ENDIF
#ENDIF

#IFSame Language$Current = Language$Svenska
    #Replace C_$Computer_Name                     |CS"Datornamn: %1"
    #Replace C_$Current_User_Count                |CS"Aktuellt antal användare: %1"
    #Replace C_$Max_Licensed_User_Count           |CS"Max antal licensierade användare: %1"
    #Replace C_$Max_DbDriver_Licensed_User_Count  |CS"Max antal dbDriver licensierade användare: %1"
    #Replace C_$Pervasive_Local_Engine_Version    |CS"Pervasive Local Engine Version: %1"
    #Replace C_$Pervasive_Server_Engine_Version   |CS"Pervasive Server Engine Version: %1"
    #Replace C_$SQLSERVER2016DRVRSTR              |CS"MS-SQL Server 2016 Client ODBC Driver 13 for SQL Server"
    #Replace C_$SQLSERVER2014DRVRSTR              |CS"MS-SQL Server 2014 Client ODBC Driver 11 for SQL Server"
    #Replace C_$SQL_Server_Native_Client_11_0     |CS"SQL Server Native Client 11.0 (SQL Server 2012)"
    #Replace C_$SQL_Server_Native_Client_10_0     |CS"SQL Server Native Client 10.0 (SQL Server 2008)"
    #Replace C_$SQL_Native_Client                 |CS"SQL Native Client (SQL Server 2005)"
    #Replace C_$SQL_Server_SQL_Server_2000_client |CS"SQL Server (SQL Server 2000 client (MDAC))"
    #Replace C_$SQLServerText                     |CS"Server/DSN:"
    #Replace C_$SQL_Client_Text                   |CS"Client Version:"
    #Replace C_$SQL_Driver_Version_Min_Text       |CS"Databasdrivrutinens version skall som lägst vara:"
    #Replace C_$SQL_Client_Version_Min_Text       |CS"samt SQL Server klientversionen skall som lägst vara:"
    #Replace C_$SQL_Versions_Are_Text             |CS"Men nuvarande versioner är:"
    #Replace C_$PleaseAdjustTxt                   |CS"V├ñnligen justera och f├Ârs├Âk igen."
    #Replace C_$ProgramWillExit_Text              |CS"Programmet kommer nu att avslutas."
    #Replace C_$DF_Studio_License_Text            |CS"Programmet k├Ârs under DataFlex Studio licens. Max antal anv├ñndare f├Âr databas drivrutin kan ej best├ñmmas."
    #Replace C_$Compile_Date                      |CS"Kompilerad:"
    #IFNDEF C_$CopyToClipboard_Text
    #Replace C_$CopyToClipboard_Text              |CS"Inneh├Ñll kopierat till Windows klippbord. Tryck p├Ñ Ctrl+V f├Âr att klistra in inneh├Ñllet i t ex ett e-mejl."
    #ENDIF
#ENDIF

#IFSAME Language$Current Language$Deutsch
    #Replace C_$Computer_Name                     |CS"Computer Name: %1"
    #Replace C_$Current_User_Count                |CS"Current User Count: %1"
    #Replace C_$Max_Licensed_User_Count           |CS"Max Licensed User Count: %1"
    #Replace C_$Max_DbDriver_Licensed_User_Count  |CS"Max dbDriver Licensed User Count: %1"
    #Replace C_$Pervasive_Local_Engine_Version    |CS"Pervasive Local Engine Version: %1"
    #Replace C_$Pervasive_Server_Engine_Version   |CS"Pervasive Server Engine Version: %1"
    #Replace C_$SQLSERVER2016DRVRSTR              |CS"MS-SQL Server 2016 Client ODBC Driver 13 for SQL Server"
    #Replace C_$SQLSERVER2014DRVRSTR              |CS"MS-SQL Server 2014 Client ODBC Driver 11 for SQL Server"
    #Replace C_$SQL_Server_Native_Client_11_0     |CS"SQL Server Native Client 11.0 (SQL Server 2012)"
    #Replace C_$SQL_Server_Native_Client_10_0     |CS"SQL Server Native Client 10.0 (SQL Server 2008)"
    #Replace C_$SQL_Native_Client                 |CS"SQL Native Client (SQL Server 2005)"
    #Replace C_$SQL_Server_SQL_Server_2000_client |CS"SQL Server (SQL Server 2000 client (MDAC))"
    #Replace C_$SQLServerText                     |CS"Server/DSN:"
    #Replace C_$SQL_Client_Text                   |CS"Client Version:"
    #Replace C_$SQL_Driver_Version_Min_Text       |CS"The database driver version should at least be version:"
    #Replace C_$SQL_Client_Version_Min_Text       |CS"and the SQL client version should at least be:"
    #Replace C_$SQL_Versions_Are_Text             |CS"But the current versions are:"
    #Replace C_$PleaseAdjustTxt                   |CS"Please adjust and try again."
    #Replace C_$ProgramWillExit_Text              |CS"The program will now exit."
    #Replace C_$DF_Studio_License_Text            |CS"Program run under Studio license. The Max number of users for database drivers could not be retrieved."
    #Replace C_$Compile_Date                      |CS"Compiled:"
    #IFNDEF C_$CopyToClipboard_Text
    #Replace C_$CopyToClipboard_Text              |CS"Content copied to Windows clipboard. Press Ctrl+V to paste the content in e.g. an e-mail."
    #ENDIF
#ENDIF

#IFSAME Language$Current Language$Dansk
    #Replace C_$Computer_Name                     |CS"Computer Name: %1"
    #Replace C_$Current_User_Count                |CS"Current User Count: %1"
    #Replace C_$Max_Licensed_User_Count           |CS"Max Licensed User Count: %1"
    #Replace C_$Max_DbDriver_Licensed_User_Count  |CS"Max dbDriver Licensed User Count: %1"
    #Replace C_$Pervasive_Local_Engine_Version    |CS"Pervasive Local Engine Version: %1"
    #Replace C_$Pervasive_Server_Engine_Version   |CS"Pervasive Server Engine Version: %1"
    #Replace C_$SQLSERVER2016DRVRSTR              |CS"MS-SQL Server 2016 Client ODBC Driver 13 for SQL Server"
    #Replace C_$SQLSERVER2014DRVRSTR              |CS"MS-SQL Server 2014 Client ODBC Driver 11 for SQL Server"
    #Replace C_$SQL_Server_Native_Client_11_0     |CS"SQL Server Native Client 11.0 (SQL Server 2012)"
    #Replace C_$SQL_Server_Native_Client_10_0     |CS"SQL Server Native Client 10.0 (SQL Server 2008)"
    #Replace C_$SQL_Native_Client                 |CS"SQL Native Client (SQL Server 2005)"
    #Replace C_$SQL_Server_SQL_Server_2000_client |CS"SQL Server (SQL Server 2000 client (MDAC))"
    #Replace C_$SQLServerText                     |CS"Server/DSN:"
    #Replace C_$SQL_Client_Text                   |CS"Client Version:"
    #Replace C_$SQL_Driver_Version_Min_Text       |CS"The database driver version should at least be version:"
    #Replace C_$SQL_Client_Version_Min_Text       |CS"and the SQL client version should at least be:"
    #Replace C_$SQL_Versions_Are_Text             |CS"But the current versions are:"
    #Replace C_$PleaseAdjustTxt                   |CS"Please adjust and try again."
    #Replace C_$ProgramWillExit_Text              |CS"The program will now exit."
    #Replace C_$DF_Studio_License_Text            |CS"Program run under Studio license. The Max number of users for database drivers could not be retrieved."
    #Replace C_$Compile_Date                      |CS"Compiled:"
    #IFNDEF C_$CopyToClipboard_Text
    #Replace C_$CopyToClipboard_Text              |CS"Content copied to Windows clipboard. Press Ctrl+V to paste the content in e.g. an e-mail."
    #ENDIF
#ENDIF

// 2016-12-12, Samuel:  Added section for Portuguese
#IFSame Language$Current = Language$Portugues
    #Replace C_$Computer_Name                     |CS"Nome do Computador: %1"
    #Replace C_$Current_User_Count                |CS"Quantidade atua de Usuários: %1"
    #Replace C_$Max_Licensed_User_Count           |CS"Quantidade máxima de usuários licenciados: %1"
    #Replace C_$Max_DbDriver_Licensed_User_Count  |CS"Quantidade máxima de usuarios licenciados para o dbDriver: %1"
    #Replace C_$Pervasive_Local_Engine_Version    |CS"VersÔûîo do motor Local do Pervasive: %1"
    #Replace C_$Pervasive_Server_Engine_Version   |CS"VersÔûîo do Motor do Servidor Pervasive: %1"
    #Replace C_$SQLSERVER2016DRVRSTR              |CS"MS-SQL Server 2016 Client ODBC Driver 13 for SQL Server"
    #Replace C_$SQLSERVER2014DRVRSTR              |CS"MS-SQL Server 2014 Client ODBC Driver 11 for SQL Server"
    #Replace C_$SQL_Server_Native_Client_11_0     |CS"Cliente Nativo do SQL Server 11.0 (SQL Server 2012)"
    #Replace C_$SQL_Server_Native_Client_10_0     |CS"Cliente Nativo do SQL Server 10.0 (SQL Server 2008)"
    #Replace C_$SQL_Native_Client                 |CS"Cliente Nativo SQL (SQL Server 2005)"
    #Replace C_$SQL_Server_SQL_Server_2000_client |CS"SQL Server (SQL Server 2000 client (MDAC))"
    #Replace C_$SQLServerText                     |CS"Server/DSN:"
    #Replace C_$SQL_Client_Text                   |CS"Client Version:"
    #Replace C_$SQL_Driver_Version_Min_Text       |CS"The database driver version should at least be version:"
    #Replace C_$SQL_Client_Version_Min_Text       |CS"and the SQL client version should at least be:"
    #Replace C_$SQL_Versions_Are_Text             |CS"But the current versions are:"
    #Replace C_$PleaseAdjustTxt                   |CS"Please adjust and try again."
    #Replace C_$ProgramWillExit_Text              |CS"The program will now exit."
    #Replace C_$DF_Studio_License_Text            |CS"Programa rodando sob Licensa do DataFlex Studios. Numero maximo de usuarios para o dbDriver nÔûîo pode ser recuperado."
    #Replace C_$Compile_Date                      |CS"Data de Compila├ºÔûîo:"
    #IFNDEF C_$CopyToClipboard_Text
    #Replace C_$CopyToClipboard_Text              |CS"Conte├║do copiado da Ôûîrea de Transfer├¬ncia do Windows. Pressione Ctrl+V para colar o conte├║do em p. ex. um e-mail."
    #ENDIF
#ENDIF

#IFSAME Language$Current Language$Francais
    #Replace C_$Computer_Name                     |CS"Computer Name: %1"
    #Replace C_$Current_User_Count                |CS"Current User Count: %1"
    #Replace C_$Max_Licensed_User_Count           |CS"Max Licensed User Count: %1"
    #Replace C_$Max_DbDriver_Licensed_User_Count  |CS"Max dbDriver Licensed User Count: %1"
    #Replace C_$Pervasive_Local_Engine_Version    |CS"Pervasive Local Engine Version: %1"
    #Replace C_$Pervasive_Server_Engine_Version   |CS"Pervasive Server Engine Version: %1"
    #Replace C_$SQLSERVER2016DRVRSTR              |CS"MS-SQL Server 2016 Client ODBC Driver 13 for SQL Server"
    #Replace C_$SQLSERVER2014DRVRSTR              |CS"MS-SQL Server 2014 Client ODBC Driver 11 for SQL Server"
    #Replace C_$SQL_Server_Native_Client_11_0     |CS"SQL Server Native Client 11.0 (SQL Server 2012)"
    #Replace C_$SQL_Server_Native_Client_10_0     |CS"SQL Server Native Client 10.0 (SQL Server 2008)"
    #Replace C_$SQL_Native_Client                 |CS"SQL Native Client (SQL Server 2005)"
    #Replace C_$SQL_Server_SQL_Server_2000_client |CS"SQL Server (SQL Server 2000 client (MDAC))"
    #Replace C_$SQLServerText                     |CS"Server/DSN:"
    #Replace C_$SQL_Client_Text                   |CS"Client Version:"
    #Replace C_$SQL_Driver_Version_Min_Text       |CS"The database driver version should at least be version:"
    #Replace C_$SQL_Client_Version_Min_Text       |CS"and the SQL client version should at least be:"
    #Replace C_$SQL_Versions_Are_Text             |CS"But the current versions are:"
    #Replace C_$PleaseAdjustTxt                   |CS"Please adjust and try again."
    #Replace C_$ProgramWillExit_Text              |CS"The program will now exit."
    #Replace C_$DF_Studio_License_Text            |CS"Program run under Studio license. The Max number of users for database drivers could not be retrieved."
    #Replace C_$Compile_Date                      |CS"Compiled:"
    #IFNDEF C_$CopyToClipboard_Text
    #Replace C_$CopyToClipboard_Text              |CS"Content copied to Windows clipboard. Press Ctrl+V to paste the content in e.g. an e-mail."
    #ENDIF
#ENDIF

#IFSAME Language$Current Language$Italiano
    #Replace C_$Computer_Name                     |CS"Computer Name: %1"
    #Replace C_$Current_User_Count                |CS"Current User Count: %1"
    #Replace C_$Max_Licensed_User_Count           |CS"Max Licensed User Count: %1"
    #Replace C_$Max_DbDriver_Licensed_User_Count  |CS"Max dbDriver Licensed User Count: %1"
    #Replace C_$Pervasive_Local_Engine_Version    |CS"Pervasive Local Engine Version: %1"
    #Replace C_$Pervasive_Server_Engine_Version   |CS"Pervasive Server Engine Version: %1"
    #Replace C_$SQLSERVER2016DRVRSTR              |CS"MS-SQL Server 2016 Client ODBC Driver 13 for SQL Server"
    #Replace C_$SQLSERVER2014DRVRSTR              |CS"MS-SQL Server 2014 Client ODBC Driver 11 for SQL Server"
    #Replace C_$SQL_Server_Native_Client_11_0     |CS"SQL Server Native Client 11.0 (SQL Server 2012)"
    #Replace C_$SQL_Server_Native_Client_10_0     |CS"SQL Server Native Client 10.0 (SQL Server 2008)"
    #Replace C_$SQL_Native_Client                 |CS"SQL Native Client (SQL Server 2005)"
    #Replace C_$SQL_Server_SQL_Server_2000_client |CS"SQL Server (SQL Server 2000 client (MDAC))"
    #Replace C_$SQLServerText                     |CS"Server/DSN:"
    #Replace C_$SQL_Client_Text                   |CS"Client Version:"
    #Replace C_$SQL_Driver_Version_Min_Text       |CS"The database driver version should at least be version:"
    #Replace C_$SQL_Client_Version_Min_Text       |CS"and the SQL client version should at least be:"
    #Replace C_$SQL_Versions_Are_Text             |CS"But the current versions are:"
    #Replace C_$PleaseAdjustTxt                   |CS"Please adjust and try again."
    #Replace C_$ProgramWillExit_Text              |CS"The program will now exit."
    #Replace C_$DF_Studio_License_Text            |CS"Program run under Studio license. The Max number of users for database drivers could not be retrieved."
    #Replace C_$Compile_Date                      |CS"Compiled:"
    #IFNDEF C_$CopyToClipboard_Text
    #Replace C_$CopyToClipboard_Text              |CS"Content copied to Windows clipboard. Press Ctrl+V to paste the content in e.g. an e-mail."
    #ENDIF
#ENDIF

#IFSame Language$Current = Language$Espanol
    #Replace C_$Computer_Name                     |CS"Nome do Computador: %1"
    #Replace C_$Current_User_Count                |CS"Quantidade atua de Usuários: %1"
    #Replace C_$Max_Licensed_User_Count           |CS"Quantidade máxima de usuários licenciados: %1"
    #Replace C_$Max_DbDriver_Licensed_User_Count  |CS"Quantidade máxima de usuarios licenciados para o dbDriver: %1"
    #Replace C_$Pervasive_Local_Engine_Version    |CS"VersÔûîo do motor Local do Pervasive: %1"
    #Replace C_$Pervasive_Server_Engine_Version   |CS"VersÔûîo do Motor do Servidor Pervasive: %1"
    #Replace C_$SQLSERVER2016DRVRSTR              |CS"MS-SQL Server 2016 Client ODBC Driver 13 for SQL Server"
    #Replace C_$SQLSERVER2014DRVRSTR              |CS"MS-SQL Server 2014 Client ODBC Driver 11 for SQL Server"
    #Replace C_$SQL_Server_Native_Client_11_0     |CS"Cliente Nativo do SQL Server 11.0 (SQL Server 2012)"
    #Replace C_$SQL_Server_Native_Client_10_0     |CS"Cliente Nativo do SQL Server 10.0 (SQL Server 2008)"
    #Replace C_$SQL_Native_Client                 |CS"Cliente Nativo SQL (SQL Server 2005)"
    #Replace C_$SQL_Server_SQL_Server_2000_client |CS"SQL Server (SQL Server 2000 client (MDAC))"
    #Replace C_$SQLServerText                     |CS"Server/DSN:"
    #Replace C_$SQL_Client_Text                   |CS"Client Version:"
    #Replace C_$SQL_Driver_Version_Min_Text       |CS"The database driver version should at least be version:"
    #Replace C_$SQL_Client_Version_Min_Text       |CS"and the SQL client version should at least be:"
    #Replace C_$SQL_Versions_Are_Text             |CS"But the current versions are:"
    #Replace C_$PleaseAdjustTxt                   |CS"Please adjust and try again."
    #Replace C_$ProgramWillExit_Text              |CS"The program will now exit."
    #Replace C_$DF_Studio_License_Text            |CS"Programa rodando sob Licensa do DataFlex Studios. Numero maximo de usuarios para o dbDriver nÔûîo pode ser recuperado."
    #Replace C_$Compile_Date                      |CS"Data de Compila├ºÔûîo:"
    #IFNDEF C_$CopyToClipboard_Text
    #Replace C_$CopyToClipboard_Text          |CS"Conte├║do copiado da Ôûîrea de Transfer├¬ncia do Windows. Pressione Ctrl+V para colar o conte├║do em p. ex. um e-mail."
    #ENDIF
#ENDIF

#IFSame Language$Current = Language$Norsk
    #Replace C_$Computer_Name                     |CS"Datamaskinnavn: %1"
    #Replace C_$Current_User_Count                |CS"Antall brukere: %1"
    #Replace C_$Max_Licensed_User_Count           |CS"Maks. antall lisensierte brukere: %1"
    #Replace C_$Max_DbDriver_Licensed_User_Count  |CS"Maks. antall lisensierte brukere for databasedriver: %1"
    #Replace C_$Pervasive_Local_Engine_Version    |CS"Pervasive Local Engine Version: %1"
    #Replace C_$Pervasive_Server_Engine_Version   |CS"Pervasive Server Engine Version: %1"
    #Replace C_$SQLSERVER2016DRVRSTR              |CS"MS-SQL Server 2016 Client ODBC Driver 13 for SQL Server"
    #Replace C_$SQLSERVER2014DRVRSTR              |CS"MS-SQL Server 2014 Client ODBC Driver 11 for SQL Server"
    #Replace C_$SQL_Server_Native_Client_11_0     |CS"SQL Server Native Client 11.0 (SQL Server 2012)"
    #Replace C_$SQL_Server_Native_Client_10_0     |CS"SQL Server Native Client 10.0 (SQL Server 2008)"
    #Replace C_$SQL_Native_Client                 |CS"SQL Native Client (SQL Server 2005)"
    #Replace C_$SQL_Server_SQL_Server_2000_client |CS"SQL Server (SQL Server 2000 client (MDAC))"
    #Replace C_$SQLServerText                     |CS"Server/DSN:"
    #Replace C_$SQL_Client_Text                   |CS"Client Version:"
    #Replace C_$SQL_Driver_Version_Min_Text       |CS"The database driver version should at least be version:"
    #Replace C_$SQL_Client_Version_Min_Text       |CS"and the SQL client version should at least be:"
    #Replace C_$SQL_Versions_Are_Text             |CS"But the current versions are:"
    #Replace C_$PleaseAdjustTxt                   |CS"Please adjust and try again."
    #Replace C_$ProgramWillExit_Text              |CS"The program will now exit."
    #Replace C_$DF_Studio_License_Text            |CS"Programmet kj¢res under DataFlex Studio lisens. Maks. antal brukere for databasedriverrutine kan ikke fastsettes."
    #Replace C_$Compile_Date                      |CS"Kompilert:"
    #IFNDEF C_$CopyToClipboard_Text
    #Replace C_$CopyToClipboard_Text              |CS"Innehold kopiert til Windows utklippstavle. Trykk Ctrl+V for å lime inn i for eksempel en e-post."
    #ENDIF
#ENDIF

#IFSame Language$Current = Language$Russian
    #Replace C_$Computer_Name                     |CS"Computer Name: %1"
    #Replace C_$Current_User_Count                |CS"Current User Count: %1"
    #Replace C_$Max_Licensed_User_Count           |CS"Max Licensed User Count: %1"
    #Replace C_$Max_DbDriver_Licensed_User_Count  |CS"Max dbDriver Licensed User Count: %1"
    #Replace C_$Pervasive_Local_Engine_Version    |CS"Pervasive Local Engine Version: %1"
    #Replace C_$Pervasive_Server_Engine_Version   |CS"Pervasive Server Engine Version: %1"
    #Replace C_$SQLSERVER2016DRVRSTR              |CS"MS-SQL Server 2016 Client ODBC Driver 13 for SQL Server"
    #Replace C_$SQLSERVER2014DRVRSTR              |CS"MS-SQL Server 2014 Client ODBC Driver 11 for SQL Server"
    #Replace C_$SQL_Server_Native_Client_11_0     |CS"SQL Server Native Client 11.0 (SQL Server 2012)"
    #Replace C_$SQL_Server_Native_Client_10_0     |CS"SQL Server Native Client 10.0 (SQL Server 2008)"
    #Replace C_$SQL_Native_Client                 |CS"SQL Native Client (SQL Server 2005)"
    #Replace C_$SQL_Server_SQL_Server_2000_client |CS"SQL Server (SQL Server 2000 client (MDAC))"
    #Replace C_$SQLServerText                     |CS"Server/DSN:"
    #Replace C_$SQL_Client_Text                   |CS"Client Version:"
    #Replace C_$SQL_Driver_Version_Min_Text       |CS"The database driver version should at least be version:"
    #Replace C_$SQL_Client_Version_Min_Text       |CS"and the SQL client version should at least be:"
    #Replace C_$SQL_Versions_Are_Text             |CS"But the current versions are:"
    #Replace C_$PleaseAdjustTxt                   |CS"Please adjust and try again."
    #Replace C_$ProgramWillExit_Text              |CS"The program will now exit."
    #Replace C_$DF_Studio_License_Text            |CS"Program run under Studio license. The Max number of users for database drivers could not be retrieved."
    #Replace C_$Compile_Date                      |CS"Compiled:"
    #IFNDEF C_$CopyToClipboard_Text
    #Replace C_$CopyToClipboard_Text              |CS"Content copied to Windows clipboard. Press Ctrl+V to paste the content in e.g. an e-mail."
    #ENDIF
#ENDIF

#IFSame Language$Current = Language$Polish
    #Replace C_$Computer_Name                     |CS"Computer Name: %1"
    #Replace C_$Current_User_Count                |CS"Current User Count: %1"
    #Replace C_$Max_Licensed_User_Count           |CS"Max Licensed User Count: %1"
    #Replace C_$Max_DbDriver_Licensed_User_Count  |CS"Max dbDriver Licensed User Count: %1"
    #Replace C_$Pervasive_Local_Engine_Version    |CS"Pervasive Local Engine Version: %1"
    #Replace C_$Pervasive_Server_Engine_Version   |CS"Pervasive Server Engine Version: %1"
    #Replace C_$SQLSERVER2016DRVRSTR              |CS"MS-SQL Server 2016 Client ODBC Driver 13 for SQL Server"
    #Replace C_$SQLSERVER2014DRVRSTR              |CS"MS-SQL Server 2014 Client ODBC Driver 11 for SQL Server"
    #Replace C_$SQL_Server_Native_Client_11_0     |CS"SQL Server Native Client 11.0 (SQL Server 2012)"
    #Replace C_$SQL_Server_Native_Client_10_0     |CS"SQL Server Native Client 10.0 (SQL Server 2008)"
    #Replace C_$SQL_Native_Client                 |CS"SQL Native Client (SQL Server 2005)"
    #Replace C_$SQL_Server_SQL_Server_2000_client |CS"SQL Server (SQL Server 2000 client (MDAC))"
    #Replace C_$SQLServerText                     |CS"Server/DSN:"
    #Replace C_$SQL_Client_Text                   |CS"Client Version:"
    #Replace C_$SQL_Driver_Version_Min_Text       |CS"The database driver version should at least be version:"
    #Replace C_$SQL_Client_Version_Min_Text       |CS"and the SQL client version should at least be:"
    #Replace C_$SQL_Versions_Are_Text             |CS"But the current versions are:"
    #Replace C_$PleaseAdjustTxt                   |CS"Please adjust and try again."
    #Replace C_$ProgramWillExit_Text              |CS"The program will now exit."
    #Replace C_$DF_Studio_License_Text            |CS"Program run under Studio license. The Max number of users for database drivers could not be retrieved."
    #Replace C_$Compile_Date                      |CS"Compiled:"
    #IFNDEF C_$CopyToClipboard_Text
    #Replace C_$CopyToClipboard_Text              |CS"Content copied to Windows clipboard. Press Ctrl+V to paste the content in e.g. an e-mail."
    #ENDIF
#ENDIF

#IFSame Language$Current = Language$Hungarian
    #Replace C_$Computer_Name                     |CS"Computer Name: %1"
    #Replace C_$Current_User_Count                |CS"Current User Count: %1"
    #Replace C_$Max_Licensed_User_Count           |CS"Max Licensed User Count: %1"
    #Replace C_$Max_DbDriver_Licensed_User_Count  |CS"Max dbDriver Licensed User Count: %1"
    #Replace C_$Pervasive_Local_Engine_Version    |CS"Pervasive Local Engine Version: %1"
    #Replace C_$Pervasive_Server_Engine_Version   |CS"Pervasive Server Engine Version: %1"
    #Replace C_$SQLSERVER2016DRVRSTR              |CS"MS-SQL Server 2016 Client ODBC Driver 13 for SQL Server"
    #Replace C_$SQLSERVER2014DRVRSTR              |CS"MS-SQL Server 2014 Client ODBC Driver 11 for SQL Server"
    #Replace C_$SQL_Server_Native_Client_11_0     |CS"SQL Server Native Client 11.0 (SQL Server 2012)"
    #Replace C_$SQL_Server_Native_Client_10_0     |CS"SQL Server Native Client 10.0 (SQL Server 2008)"
    #Replace C_$SQL_Native_Client                 |CS"SQL Native Client (SQL Server 2005)"
    #Replace C_$SQL_Server_SQL_Server_2000_client |CS"SQL Server (SQL Server 2000 client (MDAC))"
    #Replace C_$SQLServerText                     |CS"Server/DSN:"
    #Replace C_$SQL_Client_Text                   |CS"Client Version:"
    #Replace C_$SQL_Driver_Version_Min_Text       |CS"The database driver version should at least be version:"
    #Replace C_$SQL_Client_Version_Min_Text       |CS"and the SQL client version should at least be:"
    #Replace C_$SQL_Versions_Are_Text             |CS"But the current versions are:"
    #Replace C_$PleaseAdjustTxt                   |CS"Please adjust and try again."
    #Replace C_$ProgramWillExit_Text              |CS"The program will now exit."
    #Replace C_$DF_Studio_License_Text            |CS"Program run under Studio license. The Max number of users for database drivers could not be retrieved."
    #Replace C_$Compile_Date                      |CS"Compiled:"
    #IFNDEF C_$CopyToClipboard_Text
    #Replace C_$CopyToClipboard_Text              |CS"Content copied to Windows clipboard. Press Ctrl+V to paste the content in e.g. an e-mail."
    #ENDIF
#ENDIF

#IFNDEF DATAFLEX_ID
    Define DATAFLEX_ID for "DATAFLEX"
#ENDIF

// System icon menu constants. If the upper left hand
// icon in dialogs is clicked, shadow all menu items except Move & Close.
#IFNDEF SC_RESTORE
    Define SC_RESTORE  for |CI$F120
#ENDIF
#IFNDEF SC_MOVE
    Define SC_MOVE     for |CI$F010
#ENDIF
#IFNDEF SC_SIZE
    Define SC_SIZE     for |CI$F000
#ENDIF
#IFNDEF SC_MINIMIZE
    Define SC_MINIMIZE for |CI$F020
#ENDIF
#IFNDEF SC_MAXIMIZE
    Define SC_MAXIMIZE for |CI$F030
#ENDIF
#IFNDEF SC_CLOSE
    Define SC_CLOSE    for |CI$F060
#ENDIF
#IFNDEF SC_KEYMENU
    Define SC_KEYMENU  for |CI$F100
#ENDIF
#IFNDEF SC_NEXTWINDOW
    Define SC_NEXTWINDOW for |CI$F040
#ENDIF
#IFNDEF SC_PREVWINDOW
    Define SC_PREVWINDOW for |CI$F050
#ENDIF

Define CS_SignProgram        for "signtool.exe"
Define CS_TempCertBatchFile  for "certinfo.bat"
Define CS_VerifyCredentials  for "verify"
Define CS_VerifyFileParam    for "/a"
Define CS_DefAuthVerPolicy   for "/pa"

// *** External Function calls: ***
//
#IFNDEF get_GetSystemMenu
    External_Function GetSystemMenu "GetSystemMenu" User32.dll Handle hWnd Boolean bRevert Returns Handle
#ENDIF

#IFNDEF get_RemoveMenu
    External_Function GetRemoveMenu "RemoveMenu" user32.dll Handle hWnd UInteger uPosition UInteger uFlags Returns Handle
#ENDIF

// Do not call directly, use the wrapper function instead
External_Function WNetGetUserW "WNetGetUserW" MPR.DLL ;
    Pointer lpName ;
    Pointer lpUser_Name ;
    Pointer lpLength ;
    Returns DWord

    // Wrapper Function WNetGetUser
    Function WNetGetUser Global ;
        Pointer lpName ;
        Pointer lpUser_Name ;
        Pointer lpLength ;
        Returns DWord

        DWord   dwResult
        UWide   uwName uwUserName

        Send StringToWide lpName (&uwName)

        Send WideSetBuffer lpUser_Name lpLength (&uwUserName)

        Move (WNetGetUserW (uwName.lpUText, uwUserName.lpUText, lpLength)) to dwResult

        Send WideToString (&uwUserName) lpUser_Name

        Function_Return dwResult
    End_Function

#IFNDEF get_WNetGetUser
    External_Function WNetGetUser "WNetGetUserA" MPR.DLL Pointer lpName Pointer lpUser_Name Pointer lpLength Returns DWord
#ENDIF

#IFNDEF get_GlobalMemoryStatus
    External_Function GlobalMemoryStatus "GlobalMemoryStatus" Kernel32.Dll Pointer lpsMemoryStatus Returns Integer
#ENDIF

#IFNDEF get_GlobalMemoryStatusEx
    External_Function GlobalMemoryStatusEx "GlobalMemoryStatusEx" Kernel32.Dll Pointer lpMemoryStatus Returns Integer
#ENDIF

Function ComputerName Desktop Returns String
    String sName
    Get_Environment "COMPUTERNAME" to sName
    Function_Return sName
End_Function

Function Network_User_Name Desktop Returns String
    WString wName
    Integer iRetval iLength

    Move 0 to iLength
    Move (WNetGetUserW (0, 0, AddressOf (iLength))) to iRetval
    Move (ZeroString(iLength)) to wName
    Move (WNetGetUserW (0, AddressOf (wName), AddressOf (iLength))) to iRetval

    If (iRetval = NO_ERROR) Begin
        Function_Return (CString (wName))
    End

    Function_Return "User Unknown"
End_Function

Function SQLClientVersion Desktop String sDriverID Integer iClient Returns String
    String sClient sDriver sClientDriver
    Integer iNumberOfDrivers iDriver iCount iClientVersion
    Handle hoMsqlDrv

    Move 0 to iDriver
    Move "" to sClient
    Get_Attribute DF_NUMBER_DRIVERS to iNumberOfDrivers
    For iCount from 1 to iNumberOfDrivers
        Get_Attribute DF_DRIVER_NAME of iCount to sDriver
        If (Uppercase(sDriver) = Uppercase(sDriverID)) Begin
            Move iCount to iDriver
            Move iNumberOfDrivers to iCount // We're done.
        End
    Loop

    // This info is (at current) only available for the MS SQL driver:
    If (sDriverID = MSSQLDRV_ID) Begin
        Get_Attribute DF_DRIVER_SQLSERVER_CLIENT_VERSION of iDriver to iClientVersion
        Get Create (RefClass(cMSSQLHandler)) to hoMsqlDrv
        Get SqlServerClientVersionName of hoMsqlDrv iClientVersion to sClientDriver
        Send Destroy of hoMsqlDrv
        Move (SFormat("MSSQLDRV Client Version: %1", sClientDriver)) to sClient
    End

    Function_Return sClient
End_Function

// *** Class Declarations: ***
//
Class cBitmapContainerDFLink is a BitmapContainer
    Procedure Mouse_Click Integer iWindowNumber Integer iPosition
        Send Mouse_Up iWindowNumber iPosition
    End_Procedure
    Procedure Mouse_Up Integer iWindowNumber Integer iPosition
        Forward Send Mouse_Up iWindowNumber iPosition
        Send Show_HomePage "http://www.dataaccess.com/"
    End_Procedure
End_Class

Class cCopyEditorContentButton is a Button
    Procedure Construct_Object
        Forward Send Construct_Object
        Property Handle phoEditorHandle
        Set psToolTip to C_$DescCopy
    End_Procedure

    Procedure CopyToWindowsClipboard
        Handle hoEditor
        Boolean bCanCopy
        Address aEditorAddress

        Get phoEditorHandle to hoEditor
        Send Select_All of hoEditor
        Get CanCopy of hoEditor to bCanCopy
        If (bCanCopy = True) Begin
            Get paValue of hoEditor to aEditorAddress
            Send Copy   of hoEditor
            // Remove the selection after text is copied to the clipboard.
            Send Beginning_of_Data of hoEditor
            Send Info_Box C_$CopyToClipboard_Text
        End
    End_Procedure
End_Class

{ Visibility=Private }
Class SysinfoDisplay is a cTextEdit
    Procedure Construct_Object
        Forward Send Construct_Object
        Set Size to 100 245
        Set Location to 6 6
        Set Border_Style to Border_None
        Set Read_Only_State to True
        Set pbWrap to True
        Set peAnchors to anAll
    End_Procedure

    // Augmented class message to adjust certain text strings that are wrong...

    Procedure AppendTextLn String sText
        String sWorkspaceWSFile

        // Only works for English:
        If (ghoApplication > 0) Begin
            If (sText contains "Workspace Name") Begin
                Move "Workspace Config Filename:" to sText
                Get psWorkspaceWSFile of (phoWorkspace(ghoApplication)) to sWorkspaceWSFile
                Move (sText * sWorkspaceWSFile) to sText
            End
        End
        Send AppendText sText
        Send AppendText (character(10))
    End_Procedure

    //    This method will show the name Of the current directory in the system
    //    information box
    { Visibility=Private }
    Procedure Show_Current_Directory
        String sDir

        Get_Current_Directory To sDir

        Send AppendTextLn (SFormat (C_$CurrentDirectory, sDir))
    End_Procedure

    { Visibility=Private }
    Procedure Show_Windows_Directory
        String sWindir

        Get_Windows_Directory To sWindir

        Send AppendTextLn (SFormat (C_$WindowsDirectory, sWindir))
    End_Procedure

    { Visibility=Private }
    Procedure Show_Current_User
        Send AppendTextLn (SFormat (C_$Computer_Name, ComputerName (Self)))
        Send AppendTextLn (SFormat (C_$NetworkUserName, Network_User_Name (Self)))
    End_Procedure

    { Visibility=Private }
    Procedure Show_Number_Format
        Integer iFormat
        String sFormatText

        Get_Attribute DF_THOUSANDS_SEPARATOR to iFormat
        Move (Character (iFormat)) To sFormatText
        Send AppendTextLn (SFormat (C_$ThousandsSeparator, sFormatText, iFormat))

        Get_Attribute DF_DECIMAL_SEPARATOR to iFormat
        Move (Character (iFormat)) to sFormatText
        Send AppendTextLn (SFormat (C_$DecimalSeparator, sFormatText))
    End_Procedure

    { Visibility=Private }
    Procedure Show_Filelist_Name
        String sFilename

        Get_Attribute DF_FILELIST_NAME to sFilename

        Send AppendTextLn (SFormat (C_$CurrentFilelist, sFilename))
    End_Procedure

    { Visibility=Private }
    Procedure Show_Lock_Delay
        Integer iLockdelay

        Get_Attribute DF_LOCK_DELAY to iLockdelay

        Send AppendTextLn (SFormat (C_$DatabaseLockingDelay, iLockDelay))
    End_Procedure

    { Visibility=Private }
    Procedure Show_Lock_Timeout
        Integer iLockTimeout

        Get_Attribute DF_LOCK_TIMEOUT to iLockTimeout

        Send AppendTextLn (SFormat (C_$DatabaseLockingTimeout, iLockTimeOut))
    End_Procedure

    { Visibility=Private }
    Procedure Show_Screen_Size
        Integer iYscreensize iXscreensize

        Move (GetSystemMetrics (SM_CXSCREEN)) To iXscreensize
        Move (GetSystemMetrics (SM_CYSCREEN)) To iYscreensize

        Send AppendTextLn (SFormat (C_$VideoResolution, iXscreensize, iYscreensize))
    End_Procedure

    { Visibility=Private }
    Procedure Show_Page_Size
        Send AppendTextLn (SFormat (C_$PageEndFormFeed, Pageend, Pagefeed))
    End_procedure

    { Visibility=Private }
    Procedure Show_Date
        Date dToday

        Move (CurrentDateTime()) to dToday

        Send AppendTextLn (SFormat (C_$CurrentSystemDate, String (dToday)))
    End_procedure

    { Visibility=Private }
    Procedure Show_Date_Format
        Integer iDateFormat
        String sDateFormat

        Get_Attribute DF_DATE_FORMAT to iDateFormat
        Case Begin
            Case (iDateFormat = DF_DATE_USA)
                Move C_$USA To sDateFormat
                Case Break
            Case (iDateFormat = DF_DATE_EUROPEAN)
                Move C_$European To sDateFormat
                Case Break
            Case (iDateFormat = DF_DATE_MILITARY)
                Move C_$Military To sDateFormat
                Case Break
            Case Else
                Move C_$UnknownDateType To sDateFormat
                Case Break
        Case End

        Send AppendTextLn (SFormat (C_$DateFormat, sDateformat))
    End_Procedure

    { Visibility=Private }
    // 2013-08-14 NGS
    // Unformatted numeric values shown doesn't look good. These looks much better.
    Procedure Show_Systemresources
        tWinMemoryStatusEx MemoryStatusInfo
        Integer iRetval
        Number nValue
        String sValue

        Move (SizeOfType (tWinMemoryStatusEx)) to MemoryStatusInfo.dwLength
        Move (GlobalMemoryStatusEx (AddressOf (MemoryStatusInfo))) to iRetval
        If (iRetval = 0) Begin
            Move (ShowLastError ()) to iRetval
            Procedure_Return
        End

        Send AppendTextLn ""
        Move MemoryStatusInfo.ullTotalPhys to nValue

        // Show memory in Gigabytes:
        Move (nValue/1024/1024/1024) to nValue
        Move (Round(nValue)) to nValue
        Get FormatNumber nValue 2 to sValue
        Send AppendTextLn (SFormat (C_$AvailableMemory, (sValue * "GB")))
        Send AppendTextLn (SFormat (C_$MemoryUtilization, String(MemoryStatusInfo.dwMemoryLoad) * "%"))

//        Send AppendTextLn (SFormat (C_$AvailablePhysicalMemory, Real (MemoryStatusInfo.ullAvailPhys) / Real (MemoryStatusInfo.ullTotalPhys) * 100.0))
        Move (Real(MemoryStatusInfo.ullAvailPhys) / Real(MemoryStatusInfo.ullTotalPhys) * 100.0) to nValue
        Move (Round(nValue)) to nValue
        Get FormatNumber nValue 0 to sValue
        Send AppendTextLn (SFormat (C_$AvailablePhysicalMemory, (sValue * "%")))

//        Send AppendTextLn (SFormat (C_$AvailablePagefileSpace, Real (MemoryStatusInfo.ullAvailPageFile) / Real (MemoryStatusInfo.ullTotalPageFile) * 100.0))
        Move (Real(MemoryStatusInfo.ullAvailPageFile) / Real(MemoryStatusInfo.ullTotalPageFile) * 100.0) to nValue
        Move (Round(nValue)) to nValue
        Get FormatNumber nValue 0 to sValue
        Send AppendTextLn (SFormat (C_$AvailablePagefileSpace, (sValue * "%")))

//        Send AppendTextLn (SFormat (C_$AvailableVirtualMemory, Real (MemoryStatusInfo.ullAvailVirtual) / Real (MemoryStatusInfo.ullTotalVirtual) * 100.0))
        Move (Real(MemoryStatusInfo.ullAvailVirtual) / Real(MemoryStatusInfo.ullTotalVirtual) * 100.0) to nValue
        Move (Round(nValue)) to nValue
        Get FormatNumber nValue 0 to sValue
        Send AppendTextLn (SFormat (C_$AvailableVirtualMemory, (sValue * "%")))

        // Add an empty row after the memory information:
        Send AppendTextLn ""
    End_Procedure

    { Visibility=Private }
    Procedure Show_Registration
        String sRegName
        Integer iSN iUsersMax iUserCount

        Registration sRegName iSN
        Get_Licensed_Max_Users to iUsersMax
        Get_Current_User_Count to iUserCount

        Send AppendTextLn (SFormat (C_$Serial, iSN))
        Send AppendTextLn (SFormat (C_$RegName, sRegName))
        Send AppendTextLn (SFormat (C_$Current_User_Count, iUserCount))
        Send AppendTextLn (SFormat (C_$Max_Licensed_User_Count, iUsersMax))
    End_Procedure

    //****************************************************************************
    // If workspaces are used, we will send the message EnumerateWorkspaceData
    // To the workspace object passing the an object and message To send back
    // To this object. It is expected that the workspace object will send this
    // message for every line Of information it wants displayed (passing the
    // information To be displayed
    //****************************************************************************
    Register_Procedure EnumerateWorkspaceData Integer hObjId Integer hmMessId

    { Visibility=Private }
    Procedure Show_ServicePack
        String sKey sVersion sDataFlex
        Handle hoRegistry
        Boolean bExists bOpened

        Move "DataFlex"        to sDataFlex
        Get Create (RefClass(cRegistry)) to hoRegistry
        Set phRootKey of hoRegistry to HKEY_LOCAL_MACHINE
        Set pfAccessRights of hoRegistry to KEY_READ
        Get KeyExists of hoRegistry "SOFTWARE\Wow6432Node" to bExists

        If (bExists) Begin
            Move ("SOFTWARE\Wow6432Node\Data Access Worldwide\" + sDataFlex + "\" + SysConf (SYSCONF_DATAFLEX_REV)) to sKey
        End
        Else Begin
            Move ("SOFTWARE\Data Access Worldwide\"             + sDataFlex + "\" + SysConf (SYSCONF_DATAFLEX_REV)) to sKey
        End
        Get KeyExists of hoRegistry sKey to bExists
        If (bExists) Begin
            Get OpenKey of hoRegistry sKey to bOpened
            If (bOpened) Begin
                Get ValueExists of hoRegistry "CurrentVersionDescription" to bExists
                If (bExists) Begin
                    Get ReadString of hoRegistry "CurrentVersionDescription" to sVersion
                End
                Send CloseKey of hoRegistry
            End
        End
        Send Destroy of hoRegistry

        If (sVersion <> "") Begin
           Send AppendTextLn sVersion
           Send AppendTextLn ""
        End
    End_Procedure

    { Visibility=Private }
    Procedure Show_WorkspaceInformation
        Integer hoWorkspace

        If (ghoApplication <> 0) Begin
            Get phoWorkspace of ghoApplication to hoWorkspace
            If (hoWorkspace <> 0) Begin
                Send EnumerateWorkspaceData of hoWorkspace Self msg_AppendTextLn
            End
        End
    End_Procedure

    //****************************************************************************
    // If connection ids are used, we will send the message EnumerateConnections
    // to the connection manager object passing the an object and message to send
    // back to this object. It is expected that the connection manager object will
    // send this message for every line Of information it wants displayed (passing
    // the information To be displayed
    //****************************************************************************
    Register_Procedure EnumerateConnections Integer hObjId Integer hmMessId

    { Visibility=Private }
    Procedure Show_ConnectionIdInformation
        If (ghoConnection > 0) Begin
            Send EnumerateConnections of ghoConnection Self (RefProc(AppendTextLn))
            Send AppendTextLn ""
        End
    End_Procedure

    { Visibility=Private }
    Function VersionStr Integer iVer Integer iRev Integer iBld Returns String
        Function_Return (String (iVer) - "." - String (iRev) - "." - String (iBld))
    End_Function

    { Visibility=Private }
    Procedure Show_Versions
        Integer iVersion iRevision iBuild

        Version_information iVersion iRevision iBuild

        Send AppendTextLn (SFormat (C_$RuntimeVersion, VersionStr(self,iVersion,iRevision,iBuild) ))
        Send AppendTextLn (SFormat (C_$PackageVersion, VersionStr(self,PKG_VERSION, PKG_REVISION, PKG_BUILD) ))
        Send AppendTextLn (SFormat (C_$FMACVersion, VersionStr(self,FMAC_VERSION, FMAC_REVISION, FMAC_BUILD) ))
#IFDEF IS$WIN64
        Send AppendTextLn "This is a 64-bit exe file"
#ELSE
        Send AppendTextLn "This is a 32-bit exe file"
#ENDIF
    End_Procedure

    Function IsDAWSQLDriver String sDriverID Returns Boolean
        Boolean bOK
        Move (sDriverID = MSSQLDRV_ID or sDriverID = DB2_DRV_ID or sDriverID = ODBC_DRV_ID) to bOK
        Function_Return bOK
    End_Function

    Function IsMertechDriver String sDriverID Returns Boolean
        Boolean bOK
        Function_Return bOK
    End_Function

    //***
    //*** BW
    //*** Procedure: Show_Drivers
    //*** Purpose  : Show loaded database drivers
    //***
    { Visibility=Private }
    Procedure Show_Drivers
        String sDriverID sVersion sClient sValue
        Integer iNumberOfDrivers iDriver iClient iUsersMax iSerialNo iNumServers iCount
        Handle hoCLIHandler hoBtrvHandler
        Boolean bStudioLicense bIsDAWDriver bIsMertechDriver

        Move False to bStudioLicense

        Get Create (RefClass(cCLIHandler))      to hoCLIHandler
        Get Create (RefClass(cDFBtrDrvHandler)) to hoBtrvHandler

        // For testing purposes:
//        Send Ignore_Error of Error_Object_Id DFERR_CANT_LOAD_DLL
//        Load_Driver MSSQLDRV_ID
//        Load_Driver ODBC_DRV_ID
//        Load_Driver DB2_DRV_ID
//        Send Trap_Error of Error_Object_Id DFERR_CANT_LOAD_DLL

        Move False to Err

        // Loop through all loaded drivers.
        Get_Attribute DF_NUMBER_DRIVERS to iNumberOfDrivers
        If (iNumberOfDrivers > 1) Begin
            Send AppendTextLn ""
        End
        For iDriver from 1 to iNumberOfDrivers
            // For some weird reason it can happen that - when using Mertech drivers - that the driver index
            // was increased in the CLI array, but it has no value. In that case a "Bad parameter..." error
            // would be thrown, so we safeguard from that here.
            Send Ignore_Error of Error_Object_Id DFERR_BAD_PARAMETER
            Get_Attribute DF_DRIVER_NAME of iDriver to sDriverID
            Send Trap_Error of Error_Object_Id DFERR_BAD_PARAMETER
            Get IsDAWSQLDriver  sDriverID to bIsDAWDriver
            Get IsMertechDriver sDriverID to bIsMertechDriver

            If (sDriverID = DFBTRDRV_ID or bIsDAWDriver = True or bIsMertechDriver = True) Begin

                // Pervasive/Btrieve database
                If (sDriverID = DFBTRDRV_ID) Begin
                    Get CKRevision of hoBtrvHandler to sVersion
                    Get PSQLLocalEngineVersionInfo of hoBtrvHandler 0 to sClient
                    If (sClient <> "0.0.0") Begin
                        Send AppendTextLn (SFormat (C_$Pervasive_Local_Engine_Version, sClient))
                    End
                    Get PSQLServerEngineVersionInfo of hoBtrvHandler 0 to sClient
                    If (sClient <> "0.0.0") Begin
                        Send AppendTextLn (SFormat (C_$Pervasive_Server_Engine_Version, sClient))
                    End
                End

                Else Begin
                    Set psDriverID of hoCLIHandler to sDriverID
                    Move 0 to iNumServers
                    If (sDriverID <> DATAFLEX_ID) Begin
                        Get_Attribute DF_DRIVER_NUMBER_SERVERS of iDriver to iNumServers
                    End

                    If (bIsDAWDriver = True) Begin
                        If (sDriverID = MSSQLDRV_ID) Begin
                            Get SQLClientVersion sDriverID iClient to sClient
                        End
                        Get CKRevision of hoCLIHandler to sVersion
                    End

                    If (bIsMertechDriver = True) Begin
                    End

                    // If the serialnumber is = 0, it means that the
                    // Studio licens is in use and there is no
                    // number of max users defined because the driver is
                    // relying on the info from the VDF license.
                    If (bStudioLicense = False) Begin
                        Get SerialNumber of hoCLIHandler to iSerialNo
                        Move (iSerialNo = 0) to bStudioLicense
                    End
                End
                Send AppendTextLn (SFormat (C_$DatabaseDriver, (sDriverID * "-" * (C_$Version + ": " + sVersion))))
                If (sClient <> "" and sDriverID = MSSQLDRV_ID) Begin
                    Send AppendTextLn (C_$SQL_Client_Text * sClient)
                End
                If (iNumServers <> 0) Begin
                    For iCount from 1 to iNumServers
                        Get_Attribute DF_DRIVER_SERVER_NAME of iDriver iCount to sValue
                        If (not(sValue contains ";PWD=")) Begin
                            Send AppendTextLn ("    " + C_$SQLServerText * sValue)
                        End
                    Loop
                End
            End
        Loop

        Send AppendTextLn ""
        If (bStudioLicense = False) Begin
            Get MaxUsers of hoCLIHandler to iUsersMax
            Send AppendTextLn (SFormat (C_$Max_DbDriver_Licensed_User_Count, iUsersMax))
        End
        Else Begin
            Send AppendTextLn C_$DF_Studio_License_Text
        End
        Send Destroy of hoCLIHandler
        Send Destroy of hoBtrvHandler
    End_Procedure

    { Visibility=Private }
    Procedure Show_HelpFile
        String sHelpFile
        Integer eHelpType

        If (ghoApplication <> 0) Begin
            Get peHelpType Of ghoApplication To eHelpType
            If (eHelpType = htHtmlHelp and ghoHtmlHelp) Begin
                Get GetHelpFile Of ghoHtmlHelp To sHelpFile
            End
            Else If (eHelpType = htWinHelp and Help_object_id) Begin
                Get Help_filename Of Help_object_id To sHelpFile
            End
            Else Begin
                Move C_$ThereIsNoHelpfileDefined To sHelpFile
            End

            Send AppendTextLn (SFormat (C_$HelpFile, sHelpFile))
        End
    End_Procedure

    { Visibility=Private }
    Procedure Show_EnterAsTab
        Boolean bEnterKeyAsTabKey
        String sText

        If (ghoApplication <> 0) Begin
            Get pbEnterKeyAsTabKey Of ghoApplication To bEnterKeyAsTabKey
            If (bEnterKeyAsTabKey) Begin
                Move "True" To sText
            End
            Else Begin
                Move "False" To sText
            End
            Send AppendTextLn (SFormat (C_$EnterKeyNavForward, sText))
        End
    End_Procedure

    //    During activation we will remove the old information and add the newly
    //    found systeminformation
    { Visibility=Private }
    Procedure Add_Focus Integer hoRoot
        Forward Send Add_Focus hoRoot

        Send Delete_Data

        Set Changed_State To False
        Set Read_Only_State To True

        Send Show_Registration
        Send Show_Drivers
        Send Show_ServicePack
        Send Show_Versions
        Send AppendTextLn ""

        If (ghoApplication <> 0) Begin
            Send Show_WorkSpaceInformation
            Send Show_HelpFile
            Send AppendTextLn ""
        End
        Else Begin
            Send AppendTextLn ""
        End

        If (ghoConnection <> 0) Begin
            Send Show_ConnectionIdInformation
        End

        Send Show_Current_User
        Send Show_Windows_Directory
        Send Show_Current_Directory

        // This is already shown in the workspace details,
        // unless no workspace object is present:
        If (ghoApplication = 0) Begin
            Send Show_Filelist_Name
        End

        If (ghoApplication <> 0) Begin
            Send AppendTextLn ""
            Send Show_EnterAsTab
        End

        Send Show_Screen_Size
        Send Show_Page_Size
        Send Show_Number_Format
        Send Show_Date_Format
        Send Show_Lock_Delay
        Send Show_Lock_Timeout
        Send Show_Date
        Send Show_Systemresources
        Send Beginning_of_Data

        Set Icon to 'default.ico'
    End_Procedure
End_Class

{ Visibility=Private }
Class SysInfoDialog is a ModalPanel
    Procedure Construct_Object
        Forward Send Construct_Object

        Set Label to C_$SystemInformation
        Set Size to 140 267
        Set Locate_Mode to CENTER_ON_PARENT
        Set Border_Style to Border_Thick
        Set Sysmenu_Icon to False

        // "+1" will make the panel to paint correctly.
        Set piMinSize to (Hi(Size(Self))) (Low(Size(Self)) +1)

        // 2014-09-14 NGS
        // Added a container object around the cTexteditor
        // object to get a border around the text.
        Object oSysinfoDisplayContainer is a Container3d
            Set Location to 2 4
            Set Size to 110 255
            Set Border_Style to Border_ClientEdge
            Set Color to clWhite
            Set peAnchors to anAll

            Object oSysinfoDisplay is a SysInfoDisplay
            End_Object

        End_Object

        Object oCloseButton is a Button
            On_Item C_$Close Send Close_Panel
            Set Label to C_$Close
            Set Location to 120 210
            Set Default_State to True
            // In case someone likes to make the AboutDialog's Border_Style to thick,
            // and changes its peAnchors, we might as well prepare this object
            // for that situation.
            Set peAnchors to anBottomRight
        End_Object

        Object oCopyButton is a cCopyEditorContentButton
            On_Item C_$Copy Send CopyToWindowsClipboard
            Set Size to 14 50
            Set Location to 120 158
            // In case someone wants to set the AboutDialog's Border_Style to thick,
            // we might as well prepare the object for it.
            Set peAnchors to anBottomRight
            Set phoEditorHandle to (oSysinfoDisplay(Self))
        End_Object

        On_Key kCancel Send Close_Panel
    End_Procedure

End_Class

Register_Function pbShowRTFFile Returns Boolean

Class cAboutEdit is an cRichEdit
    Procedure Construct_Object
        Forward Send Construct_Object

        Property String psContentText

        Set Size to 110 225
        Set Location to 8 60
        Set Read_Only_State to True
        Set Skip_State to True
        // Font size is calculated in "Twips", which are 1/1440 of an inch,
        // or 1/20 of a printer's point.
        Set piRightMargin to (0.1 * 1440)
        Set Border_Style  to Border_None
        Set psTypeFace to "Consolas"  
        Set piFontSize to (10 * 20)
    End_Procedure

    // Adds a line of text to the edit object
    Procedure Add_Line String sText
        String sContentText
        Get psContentText to sContentText
        Move (sContentText + String(sText)) to sContentText
        Set psContentText to sContentText
    End_Procedure

    // Compared to Add_Line above, this adds an extra empty line after the passed value.
    // Note that we use a property psContentText and add to it,
    // because the object isn't paged yet when we add these
    // values and the COM edit object needs to be paged
    // for the text to become visible. See Also: Procedure Page below.
    Procedure Add_LineLn String sText
        String sContentText sCR
        Move (Character(13) + String(Character(10))) to sCR
        Get psContentText to sContentText
        Move (sContentText + sCR + String(sText)) to sContentText
        Set psContentText to sContentText
    End_Procedure

    Procedure OnLinkClicked Integer iPositionStart Integer iPositionEnd
        String sLinkText
        Get TextRange iPositionStart iPositionEnd to sLinkText
        Send Show_HomePage sLinkText
    End_Procedure 
    
    Function AddFolderBackslash String sFolderName Returns String
        String sDirSep
        Move (SysConf(SYSCONF_DIR_SEPARATOR)) to sDirSep  // normally \ (backslash)
        Move (Trim(sFolderName)) to sFolderName
        If (Right(sFolderName, 1) <> sDirSep) Begin
            Move (sFolderName + sDirSep) to sFolderName
        End
        Function_Return sFolderName
    End_Function

Define ShouldEmbeddAboutHelpFile for 0

#IFDEF ShouldEmbeddAboutHelpFile
    /* Dummy procedure to embed the About.rtf file into the program. Nothing calls it -
       the resource is emitted because the procedure is COMPILED, and Page below reads it
       back by name.

       AN APPLICATION CAN SUPPLY ITS OWN. A resource name can only be bound once
       (Include_Resource twice under one name is compile error 4301), so an application
       that wants different About text - a dark copy to match a dark UI, say - cannot
       simply add its own binding. It defines UseCustomAboutResource before Use
       DfAbout.pkg and then binds res_AboutFile itself:

           Define UseCustomAboutResource for 1
           Use DfAbout.pkg
           Class cAboutEditMine is a cAboutEdit
               Procedure EmbeddAboutHelpFile
                   Include_Resource ..\Help\MyAbout.rtf as res_AboutFile type DF_RESOURCE_TYPE_BINARY
               End_Procedure
           End_Class

       The subclass never needs to be instantiated; compiling it is what binds the name.
       Page reads whichever binding exists, so nothing else changes. */
#IFNDEF UseCustomAboutResource
    Procedure EmbeddAboutHelpFile
        Include_Resource ..\Help\About.rtf as res_AboutFile type DF_RESOURCE_TYPE_BINARY
    End_Procedure
#ENDIF

    Procedure Page Integer iPageObject
        String sContentText sExternalInfo sLine sPath sData sFileName
        UChar[] uData  
        Integer iCh iType

        Forward Send Page iPageObject
        Get psHelpPath of (phoWorkspace(ghoApplication)) to sPath
        Get AddFolderBackslash sPath to sPath
        
#IFDEF ShouldEmbeddAboutHelpFile
        If (pbShowRTFFile(Self) = True) Begin 
            Get_Resource_Type res_AboutFile to iType
            If (iType = DF_RESOURCE_TYPE_ERROR) Begin
                Procedure_Return
            End
            Get OpenInput "resource: res_AboutFile" to iCh
            If (iCh < 0) Begin
                Procedure_Return
            End
            Read_Block channel iCh uData -1
            Move (UCharArrayToString(uData)) to sData
            Send AppendText sData
            Send CloseInput iCh
        End
        Get psContentText to sContentText
        Send AppendText sContentText 
        Send Beginning_of_Data
    End_Procedure

End_Class

Use cAboutModalPanel.pkg
{ OverrideProperty=StatusBar_Id DesignTime=False }
{ OverrideProperty=ToolBar_Id DesignTime=False }
{ HelpTopic=AboutDialog }
Class AboutDialog is a cAboutModalPanel
    Procedure Construct_Object

        Forward Send Construct_Object
        Set Label to C_$About
        Set Size to 150 300
        Set Locate_Mode to CENTER_ON_PARENT
        Set Border_Style to Border_Thick  
        Set Maximize_Icon to False
        
        Property Boolean pbShowRTFFile False

        Object oSysInfoDialog is a SysInfoDialog
        End_Object

        Object oBox is a Container3d
            Set Border_Style to Border_Normal
            Set Size to 120 290
            Set Location to 4 5
            Set Color to clWhite
            // In case someone wants to set the AboutDialog's Border_Style to thick,
            // we might as well prepare the object for it.
            Set peAnchors to anAll

            Object oAboutGraphic is a BitmapContainer
                Set Border_Style To Border_None
                Set Bitmap_Style to Bitmap_Center
                Set Color to clWhite
                Set Size to 45 50
                Set Location to 0 3
            End_Object

            Object oPoweredByDFGraphic is a cBitmapContainerDFLink
                Set Border_Style to Border_None
                Set Bitmap_Style to Bitmap_Center
                Set Color to clWhite
                Set Size to 30 45
                Set Location to 85 0
            End_Object

            Object oInfoList_Editor is an cAboutEdit
                // In case someone wants to set the AboutDialog's Border_Style to thick,
                // we might as well prepare the object for it.
                Set peAnchors to anAll
            End_Object

            // These objects are here for backwards compatability only.
            // They are not used.
            Object oProductName is a TextBox
                Set Label To C_$ProductName
                Set Size To 10 45
                Set Location To 8 53
                Set Visible_State to False
                Set Focus_Mode to NonFocusable
            End_Object

            Object oVersion is a TextBox
                Set Label To C_$Version
                Set Size To 10 25
                Set Location To 21 53
                Set Visible_State to False
                Set Focus_Mode to NonFocusable
            End_Object

            Object oCopyright is a TextBox
                Set Label To C_$Copyright
                Set Size To 10 31
                Set Location To 34 53
                Set Visible_State to False
                Set Focus_Mode to NonFocusable
            End_Object

            Object oAuthor is a TextBox
                Set Label To C_$Author
                Set Size To 10 22
                Set Location To 46 53
                Set Visible_State to False
                Set Focus_Mode to NonFocusable
            End_Object

        End_Object

        Object oOKButton is a Button
            On_Item C_$Close Send Close_Panel
            Set Location to 130 220
            // In case someone wants to set the AboutDialog's Border_Style to thick,
            // we might as well prepare the object for it.
            Set peAnchors to anBottomRight
        End_Object

        Object oSysInfoButton is a Button
            On_Item C_$SystemInfo Send Show_Sysinfo
            Set Location to 130 153
            // In case someone wants to set the AboutDialog's Border_Style to thick,
            // we might as well prepare the object for it.
            Set peAnchors to anBottomRight
        End_Object

        Object oCopyButton is a cCopyEditorContentButton
            On_Item C_$Copy Send CopyToWindowsClipboard
            Set Size to 14 50
            Set Location to 130 100
            // In case someone wants to set the AboutDialog's Border_Style to thick,
            // we might as well prepare the object for it.
            Set peAnchors to anBottomRight
            Set phoEditorHandle to (oInfoList_Editor(Self))
        End_Object

        On_Key Kcancel Send KeyAction of oOKButton
        Set Logo   to "DacAbout.bmp"  // Square bitmaps of 80x80 work best
        Set LogoDF to "DF32.bmp"
    End_Procedure    

    Function psCompileDateAndTime Returns String
        String sProgramName sCompileTime
        
        Get GetApplicationFileName of ghoApplication to sProgramName
        Get ProgramCompileDate sProgramName to sCompileTime
        Function_Return sCompileTime
    End_Function

    Procedure Page Integer iPageObject
        Handle hMenu
        Integer iPrevState

        Forward Send Page iPageObject
        // Due to a bug in the ModalPanel class, we need to set the icon here:
        Set Icon to "Default.ico"

        // Shadow upper left corner menu items: (icon menu items)
        Move (GetSystemMenu(Window_Handle(Self), False)) to hMenu
        Move (EnableMenuItem(hMenu, SC_RESTORE, MF_BYCOMMAND ior MF_GRAYED)) to iPrevState
        // The "Move" menu command may come in handy to have.
        // Move (EnableMenuItem(hMenu, SC_MOVE, MF_BYCOMMAND ior MF_GRAYED)) to iPrevState
        Move (EnableMenuItem(hMenu, SC_SIZE, MF_BYCOMMAND ior MF_GRAYED)) to iPrevState
        Move (EnableMenuItem(hMenu, SC_MINIMIZE, MF_BYCOMMAND ior MF_GRAYED)) to iPrevState
        Move (EnableMenuItem(hMenu, SC_MAXIMIZE, MF_BYCOMMAND ior MF_GRAYED)) to iPrevState
        // The "Close" menu command may be good to have.
        // Move (EnableMenuItem(hMenu, SC_CLOSE, MF_BYCOMMAND ior MF_GRAYED)) to iPrevState  
    End_Procedure

    { MethodType=Property }
    Procedure Set ProductName String sText
        Set Value of oProductName to sText
    End_Procedure

    { MethodType=Property }
    Procedure Set Copyright String sText
        Set Value of oCopyright to sText
    End_Procedure

    { MethodType=Property }
    Procedure Set Author String sText
        Set Value of oAuthor to sText
    End_Procedure

    { MethodType=Property }
    Procedure Set Version String sVersion
        Handle hoVersionInfo
        Boolean bIncluded
        Integer iMajor iMinor iRelease iBuild
        String sCertInfo sCompileDateAndTime

        If (sVersion = "") Begin
            // This automatically shows the program version of the program, if available.
            // It will be displayed as the second item in the edit object.
            If (ghoApplication <> 0) Begin
                Get phoVersionInfo of ghoApplication to hoVersionInfo
                If (hoVersionInfo <> 0) Begin
                    Get pbIncluded of hoVersionInfo to bIncluded
                    If (bIncluded) Begin
                        Get piVersionMajor of hoVersionInfo to iMajor
                        Get piVersionMinor of hoVersionInfo to iMinor
                        Get piVersionRelease of hoVersionInfo to iRelease
                        Get piVersionBuild of hoVersionInfo to iBuild
                        Move (SFormat (C_$VERSION + ": %1.%2.%3.%4", iMajor, iMinor, iRelease, iBuild)) to sVersion
                    End
                End
            End
        End

        // Display the compiled date as the next row in the edit object, after the program version.
        Get psCompileDateAndTime to sCompileDateAndTime
        If (sCompileDateAndTime <> "") Begin
            Send Add_Lineln (sVersion + (Character(13)) + C_$Compile_Date * String(sCompileDateAndTime))
        End

        Get IsProgramDigitallySigned to sCertInfo
        If (sCertInfo <> "-1") Begin
            If (sCertInfo <> "") Begin
                Send Add_LineLn sCertInfo
            End
            Else Begin
//                Send Add_LineLn "The program has NOT been digitally signed, or there is a problem with the digical certificate."
            End
        End
    End_Procedure

    Function IsDate String sDate Returns Boolean
        Boolean bIsDate
        String sGoodCharacters sChar
        Integer iCount iLength

        Move True to bIsDate
        Move "0123456789-/" to sGoodCharacters
        Move (Length(sDate)) to iLength
        For iCount from 1 to iLength
            Move (Left(sDate, 1)) to sChar
            Move (Mid(sDate, 12, 2)) to sDate
            Move (sGoodCharacters contains sChar) to bIsDate
            If (bIsDate = False) Begin
                Move iLength to iCount
            End
        Loop
        Function_Return bIsDate
    End_Function

    Function AddFolderDelimiter String sPath Returns String
        String sDirSep
        Move (SysConf(SYSCONF_DIR_SEPARATOR)) to sDirSep
        Move (Trim(sPath)) to sPath
        If (Right(sPath, 1) <> sDirSep) Begin
            Move (sPath + sDirSep) to sPath
        End
        Function_Return sPath
    End_Function

    // Returns an empty string if the current program is not digitally signed,
    // or there is a problem with the certificate.
    // Note: A copy of the Microsoft signtool.exe program must reside in the Programs folder,
    //       else nothing is shown in the About object. (Size 355 KB)
    Function IsProgramDigitallySigned Returns String
        Boolean bExists
        String sPath sProgram sParams sRetval
        Integer iCh

        Move "" to sRetval
        Get psProgramPath of (phoWorkspace(ghoApplication)) to sPath
        Get AddFolderDelimiter sPath to sPath
        File_Exist (sPath + CS_SignProgram) bExists
        If (bExists = False) Begin
            Function_Return "-1"
        End

        Get GetApplicationFileName of ghoApplication to sProgram
        Move (CS_VerifyCredentials * CS_DefAuthVerPolicy) to sParams
        Move (sParams * '"' + sProgram + '"') to sParams
        Move (sParams * String("| clip"))    to sParams
        
        Get OpenOutput (sPath + CS_TempCertBatchFile) to iCh
        If (iCh < 0) Begin
            Procedure_Return
        End
        Writeln channel iCh ('"' + sPath + CS_SignProgram + '"' * sParams)
        Send CloseOutput iCh
        
        // New ShellExecute based message that waits for the passed process to end.
        Send RunProgramWait (sPath + CS_TempCertBatchFile) ""

        Get OpenInput "clipboard:" to iCh
        If (iCh < 0) Begin
            Function_Return ""
        End
        Readln channel iCh sRetval
        Readln channel iCh sRetval
        Readln channel iCh sRetval
        Readln channel iCh sRetval
        Send CloseInput iCh

        If (Lowercase(sRetval) contains "authenticode") Begin
            Move "This program has been digitally signed and the certificate is valid." to sRetval
        End
        Else Begin
            Move "" to sRetval
        End
        EraseFile (sPath + CS_TempCertBatchFile)
        Function_Return sRetval
    End_Function

    Procedure Add_LineLn String sValue
        Send Add_LineLn of oInfoList_Editor sValue
    End_Procedure

    Procedure Add_Line String sValue
        Send Add_Line of oInfoList_Editor sValue
    End_Procedure

    { MethodType=Property }
    Procedure Set Logo string sLogo
        // Square bitmaps of 80x80 work best
        Set Bitmap of oAboutGraphic to sLogo
    End_Procedure

    { MethodType=Property }
    Procedure Set LogoDF String sLogo
        Set Bitmap of oPoweredByDFGraphic to sLogo
    End_Procedure

    { Visibility=Private }
    Procedure Show_Sysinfo
        Send Popup_Modal of oSysinfoDialog
    End_Procedure

    { Visibility=Private }
    Procedure Show_HomePage String sWebpage
        Handle hWnd
        Get Window_Handle to hWnd
        Runprogram Shell Background (Trim(sWebpage))
    End_Procedure

End_Class