//****************************************************************************
// $Module type: OBJECT
// $Module name: oSplashScreen
// $Author     : VOO
// Created     : 05-10-96 @ 16:07
//
// Description
//  This object does show the splashscreen
//
// $Rev History
//  18/11/03 Implemented new splashscreen layout.
//  28/04/99 Removed VDF version stuff
//  28-03-98 Class and objectname changed
//  05-10-96 Module header created
//****************************************************************************
Use Windows.Pkg
Use Wave.Pkg
Use DfBitmap.Pkg

Object oSplashScreen Is A ToolPanel
    Property String WaveFile ""
    Property Boolean pbFirst True
    Property Integer piXLoc 0
    Property Integer piYLoc 0

    On_Key kCancel Send Stop_UI Of Desktop

    Set Caption_Bar  To False
    Set Border_Style To Border_Normal
    Set Color        To clWhite //clBtnFace
    Set TextColor    To clWindowText
    Set Size         To 168 268 // 186 316
    Set Locate_Mode  To Center_On_Screen

    // Even this doesn't help to make the panel _not_
    // jump to a new location when a view is activated.
    // This procedure is called a second time when a view
    // is placed on the screen.
    Procedure Set GuiLocation Integer iX Integer iY
      Integer iLoc
      Boolean bFirst
      Get pbFirst To bFirst
      If (bFirst = True) Begin
        Forward Set GuiLocation To iX iY
        Set piXLoc To iX
        Set piYLoc To iY
        Set pbFirst To False
      End // If (bFirst = True) Begin
    End_Procedure // GuiLocation

    Object oBitmap Is A BitmapContainer
        Set Location     To 0 0
        Set Size         To 167 267 //185 367
        Set Border_Style To Border_None
        Set Color        To clWhite //clBtnFace
        Set Bitmap       To 'CmStartup.bmp'
    End_Object // oBitmap

    Object oRegNameTB Is A Textbox
        Set Label To "Registered To: "
        Set Transparent_State To False
        Set Color To clWhite //14397549
        Set TextColor To clBlack // clWhite
        Set FontSize To 13 0
        Set Location To 144 52 // 164 62  // 156 6
        Set Size To 10 200
        Set TypeFace To "Verdana"
        Set Auto_Size_State To False
    End_Object    // oRegNameTB

    Object oSerNumTB Is A Textbox
        Set Label To "Serial Number: "
        Set Transparent_State To False
        Set Color To clWhite //14397549
        Set TextColor To clBlack //clWhite
        Set FontSize To 13 0
        Set Location To 152 85 //172 100 //164 22
        Set Size To 10 150
        Set TypeFace To "Verdana"
        Set Auto_Size_State To False
    End_Object    // oSerNumTB

//    Procedure Play_Sound
//        String sSoundFilename
//      Procedure_Return //
        //Get ReadPreferencesString Of ghoApplication "StartupSound" "" To sSoundFilename
//        If (sSoundFilename = "") Begin
//            Get Wavefile To sSoundFilename
//        End
//        If (sSoundFilename <> "") Begin
//            Playwave sSoundFilename SND_NODEFAULT
//        End
//    End_Procedure // Play_Sound

    // This will re-locate the splash correctly after the
    // main panel has been activated.
    // Usage: Send DoReLocateSplashScreen Of (oSplashScreen(Self))
    // right after the programs Main object's End_Object.
    Procedure DoReLocateSplashScreen
      Integer iX iY
      Get piXLoc To iX
      Get piYLoc To iY
      Set GuiLocation To iX iY
      Send Page_Object False  // Must do this.
      Send Page_Object                       True
      Send Page_Object Of (oBitmap(Self))    True
      Send Page_Object Of (oRegNameTB(Self)) True
      Send Page_Object Of (oSerNumTB(Self))  True
    End_Procedure // DoReLocateSplashScreen

    Procedure Activate
      String sRegName sSerNum
      Registration sRegName sSerNum
      Set Label Of oRegNameTB To ("Registration Name:" * sRegName)
      Set Label Of oSerNumTB  To ("Serial Number:" * sSerNum)
      Forward Send Activate
    End_Procedure // Activate

    Send Activate

End_Object // oSplashScreen