//AB/ Project About (Vincent)
//AB/ Object oIDE_Project is a Dialog_Project
//AB/   Set ProjectName to "About (Vincent)"
//AB/   Set ProjectFileName to "About.DG"
//AB/   Set GenerateFileName to "NONAME1"

// Project Object Structure
//   oAboutDialog is a ModalPanel
//     oBox is a Container3d
//       oAboutGraphic is a BitmapContainer
//       oProductName is a Textbox
//       oVersion is a Textbox
//       oCopyright is a Textbox
//       oAuthor is a Textbox
//     oWebSite_bn is a cRDSButton
//     oSysInfoButton is a Button
//     oOkButton is a Button

// Register all objects
Register_Object oAboutDialog
Register_Object oAboutGraphic
Register_Object oAuthor
Register_Object oBox
Register_Object oCopyright
Register_Object oOkButton
Register_Object oProductName
Register_Object oSysInfoButton
Register_Object oVersion
Register_Object oWebSite_bn



//AB-StoreTopStart
Use LanguageText.pkg
Use DfBitmap.Pkg
//AB-StoreTopEnd

//AB-IgnoreStart

Use DFAllEnt.pkg
Use cRDSButton.pkg


//AB-IgnoreEnd

Object oAboutDialog is a ModalPanel

  //AB-StoreTopStart
  //
  // Replace the "SysInfoDialog.Dg" in the following line with the filename you want
  // to use for systeminformation when you have made a different one. Don't forget
  // to do check and/or change the name of the object inside the procedure OnClick
  // of the oSysInfoButton object.
  //
  Use SysInfoDialog.Dg
  //AB-StoreTopEnd

  Set Label to "About"
  Set Size to 109 247
  Set Location to 26 79

  //AB-DDOStart


  //AB-DDOEnd

  Object oBox is a Container3d
    Set Size to 70 235
    Set Location to 5 5
    Set Border_Style to Border_StaticEdge
    Object oAboutGraphic is a BitmapContainer
      Set Size to 48 48
      Set Location to 7 2
      Set Bitmap to "DacAbout.Bmp"
      Set Border_Style to Border_None
      Set Bitmap_Style to Bitmap_Center
    End_Object    // oAboutGraphic

    Object oProductName is a Textbox
      Set Label to "RDC - Robin's Data Connect tool"
      Set Auto_Size_State to FALSE
      Set Location to 5 55
      Set Size to 13 174
      Set TypeFace to "MS Sans Serif"
    End_Object    // oProductName

    Object oVersion is a Textbox
      Set Label to "<version info automatically loaded from EXE>"
      Set Auto_Size_State to FALSE
      Set Location to 20 55
      Set Size to 13 174
      Set TypeFace to "MS Sans Serif"

      //AB-StoreStart
      //
      // When this object is activated for the first time we will send
      // a message to load the version information from the version resource
      //
      Procedure Activating
          Forward Send Activating

          Send DoShowVersionInfo
      End_Procedure // Activating

      //
      // Load the version information if included as resource in the EXE file.
      //
      Procedure DoShowVersionInfo
          Integer hoVersionInfo iVersionMajor iVersionMinor iVersionRelease iVersionBuild
          Boolean bIncluded

          Set Label To C_$VERSION

          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 iVersionMajor
                      Get piVersionMinor Of hoVersionInfo To iVersionMinor
                      Get piVersionRelease Of hoVersionInfo To iVersionRelease
                      Get piVersionBuild Of hoVersionInfo To iVersionBuild
                      Set Label To (SFormat (C_$VERSION + ": %1.%2.%3.%4", iVersionMajor, iVersionMinor, iVersionRelease, iVersionBuild))
                  End
              End
          End
      End_Procedure // DoShowVersionInfo
      //AB-StoreEnd

    End_Object    // oVersion

    Object oCopyright is a Textbox
      Set Label to "Copyright: 2001-2003 RDC Tools International"
      Set Auto_Size_State to FALSE
      Set Location to 35 55
      Set Size to 13 174
      Set TypeFace to "MS Sans Serif"
    End_Object    // oCopyright

    Object oAuthor is a Textbox
      Set Label to "Author: <replace with author name>"
      Set Auto_Size_State to FALSE
      Set Location to 50 55
      Set Size to 13 174
      Set TypeFace to "MS Sans Serif"
    End_Object    // oAuthor

  End_Object    // oBox

  Object oWebSite_bn is a cRDSButton
    Set Label to "&Web Site"
    Set Location to 77 70

    //AB-StoreStart
    Procedure OnClick
      Send DoStartDocument "open" "www.rdctools.com" "" ""
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oWebSite_bn

  Object oSysInfoButton is a Button
    Set Label to "&System info"
    Set Location to 77 135

    //AB-StoreStart
    //
    // Activate the system information dialog so that people can explore the
    // values
    //
    Procedure OnClick
        Send Popup_Modal Of oSystemInformationDialog
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oSysInfoButton

  Object oOkButton is a Button
    Set Label to "&Ok"
    Set Location to 77 190
    Set Default_State To True

    //AB-StoreStart
    //
    // Just close the panel
    //
    Procedure OnClick
        Send Close_Panel
    End_Procedure // OnClick
    //AB-StoreEnd

  End_Object    // oOkButton


  //AB-StoreStart
  // Tell the object what to do if the following keys are pressed.
  On_Key kCancel Send KeyAction Of oOkButton
  On_Key Key_Alt+Key_O Send KeyAction Of oOkButton
  On_Key Key_Alt+Key_S Send KeyAction Of oSysInfoButton

  // Make the panel show centered on the screen
  Set Locate_Mode To CENTER_ON_SCREEN
  //AB-StoreEnd

End_Object    // oAboutDialog


//AB-StoreStart
// This method name is send from the HELPA_PM.INC file when the about
// option is selected
Procedure Activate_About
    Send Popup_Modal Of oAboutDialog
End_Procedure // Activate_About
//AB-StoreEnd

//AB/ End_Object    // oIDE_Project