//****************************************************************************
 // $Module type: Package
 // $Module name: SncAbout.pkg
 // $Author     : Nils G. Svedmyr
 // Created     : 2001-09-09 @ 13:27
 //
 // Description :
 //
 // $Rev History:
 //    2001-09-09  Module header created
 //****************************************************************************
Use StdAbout.pkg
Use SyncFuncs.pkg

Procedure Activate_About
  Handle ho
  String sPath sVersion sCopyright sProduct
  Integer iMajor iMinor iRelease iBuild
  Get phoVersionInfo   Of ghoApplication To ho
  Get piVersionMajor   Of ho To iMajor
  Get piVersionMinor   Of ho To iMinor
  Get piVersionRelease Of ho To iRelease
  Get piVersionBuild   Of ho To iBuild
  Move ("Version:" * String(iMajor) + "." + String(iMinor) + "." + String(iRelease) + "." + String(iBuild)) To sVersion
  Move ghoApplication To ho
  Get psProduct Of ho To sProduct
  Get psCompany Of ho To sCopyright
  Send DoAbout sProduct sVersion sCopyright "Portions by Data Access WorldWide" "RDC48x48.bmp"
End_Procedure // Activate_About

Procedure DoAbout String sTitle String sVersion String sCopyRight String sAuthor String sBitmap
  Integer hoObj hoMain iPos
  String sPath
//  Get psBitmapPath Of (phoWorkspace(ghoApplication)) To sPath
//  Move (sPath - sBitmap) To sBitmap
  // create object
  Object About Is An AboutDialog
    // if no title passed use the label of the main panel
    // (if a main panel exists).
    If (sTitle = '') Begin
      Get Main_Window To hoMain
      If hoMain Get Label Of hoMain To sTitle
    End
    Set Productname To sTitle
    Set Version     To sVersion
    Set Copyright   To sCopyRight
    Set Author      To sAuthor
    If (sBitmap <> '') Set logo To sBitMap // square bitmaps of 42x42 work best
    Move Current_Object To hoObj // object Id
    Set Color Of (oBox(hoObj))                 To clWhite
    Set Color Of (oAboutGraphic(oBox(hoObj)))  To clWhite
    Set Color Of (oProductName(oBox(hoObj)))   To clWhite
    Set Color Of (oVersion(oBox(hoObj)))       To clWhite
    Set Color Of (oCopyright(oBox(hoObj)))     To clWhite
    Set Color Of (oAuthor(oBox(hoObj)))        To clWhite
  End_Object
  Send Popup   Of hoObj // popup the about object
  Send Destroy Of hoObj // when done, it will be destroyed
End_Procedure