Use Windows.pkg
Use DFClient.pkg
Use cForm.pkg
//Use cOSVersionInfo.pkg
Use RegCheck2.pkg

Activate_View Activate_oOSVersionInfo for oOSVersionInfo
Object oOSVersionInfo is a View
    Set Border_Style to Border_Thick
    Set Size to 153 299
    Set Location to 2 2
    Set piMinSize to 152 258
    Set Label to "Operative System Version Info"

    Object oClose_bn is a Button
      Set Location to 133 242
      Set Label to "Close"
      Set peAnchors to anBottomRight
        Procedure OnClick
            Send Close_Panel  
        End_Procedure
    End_Object
    
    Object oWindowsVersion is a cForm
      Set Size to 13 230
      Set Location to 9 62
      Set Label to "Windows Version"
      Set peAnchors to anTopLeftRight
    End_Object

    Object oVersionNumber is a cForm
      Set Size to 13 230
      Set Location to 24 62
      Set Label to "Version Number"
      Set peAnchors to anTopLeftRight
    End_Object

    Object oEdition is a cForm
      Set Size to 13 230
      Set Location to 39 62
      Set Label to "Edition"
      Set peAnchors to anTopLeftRight
    End_Object

    Object oBuildNumber is a cForm
      Set Size to 13 230
      Set Location to 54 62
      Set Label to "Build Number"
      Set peAnchors to anTopLeftRight
    End_Object

    Object oServicePack is a cForm
      Set Size to 13 230
      Set Location to 69 62
      Set Label to "Service Pack"
      Set peAnchors to anTopLeftRight
    End_Object

    Object oFeatures is a cForm
      Set Size to 13 230
      Set Location to 84 62
      Set Label to "Features"
      Set peAnchors to anTopLeftRight
    End_Object

    Object oOSVersionComplete is a cForm
      Set Size to 13 230
      Set Location to 99 62
      Set Label to "Complete"
      Set peAnchors to anTopLeftRight
    End_Object

    Object oX64OS is a cForm
      Set Size to 13 230
      Set Location to 114 62
      Set Label to "X64 version"
      Set peAnchors to anTopLeftRight
    End_Object
    
    Procedure RetrieveOSInfo
        Handle  hoVersionInfo
        Boolean bX64
        String  sValue
        String  sMajor
        String  sMinor
        
        // ToDo: Temp!
        Move ghoRegCheck2 to hoVersionInfo
              
        Get psOSVersion  of hoVersionInfo to sValue
        Set Value of oWindowsVersion to sValue
        Get piMajorVersion of hoVersionInfo to sMajor
        Get piMinorVersion of hoVersionInfo to sMinor
        Set Value of oVersionNumber to (Trim(sMajor)+"."+Trim(sMinor))
        Get piBuildNumber of hoVersionInfo to sValue
        Set Value of oBuildNumber to sValue
        Get psEdition of hoVersionInfo to sValue
        Set Value of oEdition to sValue
        Get psCSDVersion of hoVersionInfo to sValue
        Set Value of oServicePack to sValue
        Get psSuite of hoVersionInfo to sValue
        Set Value of oFeatures to sValue
        Get pbX64 of hoVersionInfo to bX64
        If (bX64) Move "True" to sValue
        Else Move "False" to sValue
        Set Value of oX64OS to sValue
        Get psOSVersion    of hoVersionInfo to sValue
        Set Value of oOSVersionComplete to sValue
    End_Procedure
    
    Procedure Activating Returns Integer
        Integer iRetVal
      
        Forward Get msg_activating to iRetval
        If (iRetval=0) Begin
            Send RetrieveOSInfo
        End
        Procedure_Return iRetval
    End_Procedure

End_Object