Sign in to follow this  
Followers 0
CodeTinkerer

GUI Background image in an MDI setup

2 posts in this topic

Im creating a rather large application involving an MDI style GUI setup. I want to have an image for the background of the parent window. 

I followed the typical route of:

GUICtrlCreatePic

GUICtrlSetState($var, $GUI_DISABLE)

 

but to no avail. I am still having issues with the toolbar not properly drawing in and any child windows that are created.

Is there a way to get my desired result or should I stop wasting time and continue development?

#Include <Array.au3>
#Include <GetXML.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <Date.au3>
#include <MultiMon.au3>
#include <StaticConstants.au3>
#include <IE.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <GDIPlus.au3>; this is where the magic happens, people
#include <GuiButton.au3>
#include <GuiImageList.au3>
#include <Math.au3>
#Include <GetMonName.au3>
#include <GuiToolbar.au3>

#REGION===IMAGE LISTS====================================================================================
;EXIT BUTTON
$ExitImgs = _GUIImageList_Create(32, 32, 5)
_GUIImageList_AddBitMap($ExitImgs, @ScriptDir & "\Img\ExitBtnneu.bmp") ;NORMAL
_GUIImageList_AddBitMap($ExitImgs, @ScriptDir & "\Img\ExitBtnrd.bmp") ;HOVER
_GUIImageList_AddBitMap($ExitImgs, @ScriptDir & "\Img\ExitBtnrddwn.bmp") ;DOWN
_GUIImageList_AddBitMap($ExitImgs, @ScriptDir & "\Img\ExitBtnneu.bmp") ;DISABLED
_GUIImageList_AddBitMap($ExitImgs, @ScriptDir & "\Img\ExitBtnneu.bmp") ;DEFAULTED
_GUIImageList_AddBitMap($ExitImgs, @ScriptDir & "\Img\ExitBtnneu.bmp") ;STYLUS HOT (TABLET COMPUTERS)

$TechMForm = _GUIImageList_Create(32, 32, 5)
_GUIImageList_AddBitMap($TechMForm, @ScriptDir & "\Img\MonForm.bmp") ;NORMAL
_GUIImageList_AddBitMap($TechMForm, @ScriptDir & "\Img\MonForm.bmp") ;HOVER
_GUIImageList_AddBitMap($TechMForm, @ScriptDir & "\Img\MonFormdwn.bmp") ;DOWN
_GUIImageList_AddBitMap($TechMForm, @ScriptDir & "\Img\MonForm.bmp") ;DISABLED
_GUIImageList_AddBitMap($TechMForm, @ScriptDir & "\Img\MonForm.bmp") ;DEFAULTED
_GUIImageList_AddBitMap($TechMForm, @ScriptDir & "\Img\MonForm.bmp") ;STYLUS HOT (TABLET COMPUTERS)

$GMapsImg = _GUIImageList_Create(32, 32, 5)
_GUIImageList_AddBitMap($GMapsImg, @ScriptDir & "\Img\GMaps.bmp") ;NORMAL
_GUIImageList_AddBitMap($GMapsImg, @ScriptDir & "\Img\GMaps.bmp") ;HOVER
_GUIImageList_AddBitMap($GMapsImg, @ScriptDir & "\Img\GMapsdwn.bmp") ;DOWN
_GUIImageList_AddBitMap($GMapsImg, @ScriptDir & "\Img\GMaps.bmp") ;DISABLED
_GUIImageList_AddBitMap($GMapsImg, @ScriptDir & "\Img\GMaps.bmp") ;DEFAULTED
_GUIImageList_AddBitMap($GMapsImg, @ScriptDir & "\Img\GMaps.bmp") ;STYLUS HOT (TABLET COMPUTERS)

$TechJImg = _GUIImageList_Create(32, 32, 5)
_GUIImageList_AddBitMap($TechJImg, @ScriptDir & "\Img\Jobs.bmp") ;NORMAL
_GUIImageList_AddBitMap($TechJImg, @ScriptDir & "\Img\Jobs.bmp") ;HOVER
_GUIImageList_AddBitMap($TechJImg, @ScriptDir & "\Img\Jobsdwn.bmp") ;DOWN
_GUIImageList_AddBitMap($TechJImg, @ScriptDir & "\Img\Jobs.bmp") ;DISABLED
_GUIImageList_AddBitMap($TechJImg, @ScriptDir & "\Img\Jobs.bmp") ;DEFAULTED
_GUIImageList_AddBitMap($TechJImg, @ScriptDir & "\Img\Jobs.bmp") ;STYLUS HOT (TABLET COMPUTERS)

$SpreadImgs = _GUIImageList_Create(32, 32, 5)
_GUIImageList_AddBitMap($SpreadImgs, @ScriptDir & "\Img\Spread1.bmp") ;NORMAL
_GUIImageList_AddBitMap($SpreadImgs, @ScriptDir & "\Img\Spread1.bmp") ;HOVER
_GUIImageList_AddBitMap($SpreadImgs, @ScriptDir & "\Img\Spread1dwn.bmp") ;DOWN
_GUIImageList_AddBitMap($SpreadImgs, @ScriptDir & "\Img\Spread1.bmp") ;DISABLED
_GUIImageList_AddBitMap($SpreadImgs, @ScriptDir & "\Img\Spread1.bmp") ;DEFAULTED
_GUIImageList_AddBitMap($SpreadImgs, @ScriptDir & "\Img\Spread1.bmp") ;STYLUS HOT (TABLET COMPUTERS)

$WFXBoardImg = _GUIImageList_Create(32, 32, 5)
_GUIImageList_AddBitMap($WFXBoardImg, @ScriptDir & "\Img\TheBoard.bmp") ;NORMAL
_GUIImageList_AddBitMap($WFXBoardImg, @ScriptDir & "\Img\TheBoard.bmp") ;HOVER
_GUIImageList_AddBitMap($WFXBoardImg, @ScriptDir & "\Img\TheBoarddwn.bmp") ;DOWN
_GUIImageList_AddBitMap($WFXBoardImg, @ScriptDir & "\Img\TheBoard.bmp") ;DISABLED
_GUIImageList_AddBitMap($WFXBoardImg, @ScriptDir & "\Img\TheBoard.bmp") ;DEFAULTED
_GUIImageList_AddBitMap($WFXBoardImg, @ScriptDir & "\Img\TheBoard.bmp") ;STYLUS HOT (TABLET COMPUTERS)

$SupCalImg = _GUIImageList_Create(32, 32, 5)
_GUIImageList_AddBitMap($SupCalImg, @ScriptDir & "\Img\SupCal.bmp") ;NORMAL
_GUIImageList_AddBitMap($SupCalImg, @ScriptDir & "\Img\SupCal.bmp") ;HOVER
_GUIImageList_AddBitMap($SupCalImg, @ScriptDir & "\Img\SupCaldwn.bmp") ;DOWN
_GUIImageList_AddBitMap($SupCalImg, @ScriptDir & "\Img\SupCal.bmp") ;DISABLED
_GUIImageList_AddBitMap($SupCalImg, @ScriptDir & "\Img\SupCal.bmp") ;DEFAULTED
_GUIImageList_AddBitMap($SupCalImg, @ScriptDir & "\Img\SupCal.bmp") ;STYLUS HOT (TABLET COMPUTERS)

$OpIdImg = _GUIImageList_Create(32, 32, 5)
_GUIImageList_AddBitMap($OpIdImg, @ScriptDir & "\Img\corpop.bmp") ;NORMAL
_GUIImageList_AddBitMap($OpIdImg, @ScriptDir & "\Img\corpop.bmp") ;HOVER
_GUIImageList_AddBitMap($OpIdImg, @ScriptDir & "\Img\corpopdwn.bmp") ;DOWN
_GUIImageList_AddBitMap($OpIdImg, @ScriptDir & "\Img\corpop.bmp") ;DISABLED
_GUIImageList_AddBitMap($OpIdImg, @ScriptDir & "\Img\corpop.bmp") ;DEFAULTED
_GUIImageList_AddBitMap($OpIdImg, @ScriptDir & "\Img\corpop.bmp") ;STYLUS HOT (TABLET COMPUTERS)


$TStatImg = _GUIImageList_Create(18, 18, 5)
_GUIImageList_AddBitMap($TStatImg, @ScriptDir & "\Img\NewStat.Bmp")
_GUIImageList_AddBitMap($TStatImg, @ScriptDir & "\Img\ToastStat.Bmp")
_GUIImageList_AddBitMap($TStatImg, @ScriptDir & "\Img\BurtStat.Bmp")

#ENDREGION===IMAGE LISTS=================================================================================

Global $iEventError = 0 ; to be checked to know if com error occurs. Must be reset after handling.
$oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; Install a custom error handler

$VersionVariable = "0.9.4 (beta)"
Global $iniFile = FileOpen(@ScriptDir & "\LFConfig.ini", $FO_READ)
Global $iniWrit = FileOpen(@ScriptDir & "\LFConfig.ini", $FO_OVERWRITE)
$FirstRunToken = FileReadLine($iniFile, 1)

Opt("GUIOnEventMode", 1) ;0=disabled, 1=OnEvent mode enabled
Opt("WinSearchChildren", 1)

Local $oIE1, $GUI_Button_Back, $GUI_Button_Forward
Local $GUI_Button_Home, $GUI_Button_Stop, $msg
Global $WFXStatusBuffer[5][5] ; Keeps previous caputed information to compare, keeps from having to update the GUICtrlListView EVERY time.
Global $TechFrmsBuffer[10][10]
Global $JobFrmsBuffer[3][3]
Global $TSTrap = 0
Global $PopTop = True
Global $FirstRunDone = 0
Global $zImg = _GUIImageList_Create(18, 18, 5)
Global $MonSelect = 2
Global $GCoin = $MonSelect
Global $ahChild[1][2] = [[0, 0]], $SC_MOVE = 0xF010
$oIE1 = ObjCreate("Shell.Explorer.2")




Global $WMTCLiveFeed = GUICreate("WMTC Live Feeds", 1024, 768, 192, 200, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
Global $BGPic = GUICtrlCreatePic(@ScriptDir & "\bBlue.jpg", 0, 0, 0, 0)
GUICtrlSetState($BGPic, $GUI_DISABLE )
;GUICtrlSetState($BGPic, $GUI_HIDE )

Local $hDumbLabel = GUICtrlCreateLabel("", 0, 0, 0, 0)

#REGION====MENU=====================================================
$mMain = GUICtrlCreateMenu("Menu")
$mChild = GUICtrlCreateMenuItem("New Child Window Test", $mMain)
$mReporter = GUICtrlCreateMenuItem("WMTCLF FeedBack", $mMain)
#ENDREGION====MENU==================================================



#REGION====APPLICATION=SYSTEM=EVENTS
GUISetOnEvent($GUI_EVENT_CLOSE, "ExitFeeds", $WMTCLiveFeed)
#ENDREGION==========================



#REGION===TOOLBAR============================================
Global $g_hToolbar, $g_idMemo
Global $g_iItem ; Command identifier of the button associated with the notification.


;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
;ORDERED ARRANGEMENT OF BELOW DECLARATIONS DETERMINE THE ID NUMBER THAT WILL BE ASSIGNED TO THAT VARIABLE=-
Global Enum $e_idTStats = 1000, $e_idTForms, $e_idJForms, $e_idEForms, $e_idBlank1, $e_idMonForms, $e_idWFXBoard


If WinExists("WMTC Live Feeds") Then Local $Maintoolbar = _GUICtrlToolbar_Create($WMTCLiveFeed, $TBSTYLE_TRANSPARENT, $TBSTYLE_EX_DOUBLEBUFFER )
    ; Add standard system bitmaps
    _GUICtrlToolbar_AddBitmap($Maintoolbar, 1, -1, $IDB_STD_LARGE_COLOR)

    ;REGISTER TOOLBAR MESSAGES
    GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")

    ; Add text strings for buttons (0-based indexing)
    _GUICtrlToolbar_AddString($MainToolBar, "Tech Status")
    _GUICtrlToolbar_AddString($MainToolBar, "Tech Forms")
    _GUICtrlToolbar_AddString($MainToolBar, "Job Forms")
    _GUICtrlToolbar_AddString($MainToolBar, "Escalations")
    _GUICtrlToolbar_AddString($MainToolBar, "Job Assignments")
    _GUICtrlToolbar_AddString($MainToolBar, "Monitor Feedback")
    _GUICtrlToolbar_AddString($MainToolBar, "WFX Board")

    ; Add buttons
    _GUICtrlToolbar_AddButton($Maintoolbar, $e_idTStats, $STD_HELP, 0, $BTNS_CHECK ) ; Tech Stats
    _GUICtrlToolbar_AddButton($Maintoolbar, $e_idTForms, $STD_HELP, 1, $BTNS_CHECK) ; Tech Forms
    _GUICtrlToolbar_AddButton($Maintoolbar, $e_idJForms, $STD_HELP, 2, $BTNS_CHECK) ;  Job Forms
    _GUICtrlToolbar_AddButton($Maintoolbar, $e_idEForms, $STD_HELP, 3, $BTNS_CHECK) ; ETD Forms
    _GUICtrlToolbar_AddButton($Maintoolbar, $e_idBlank1, $STD_HELP, 4, $BTNS_CHECK) ; Job Assignement Forms

    _GUICtrlToolbar_AddButtonSep($Maintoolbar) ;spacer

    _GUICtrlToolbar_AddButton($Maintoolbar, $e_idMonForms, $STD_HELP, 5, $BTNS_CHECK) ; Monitor Feedback Forms

    _GUICtrlToolbar_AddButtonSep($Maintoolbar) ;spacer

    _GUICtrlToolbar_AddButton($Maintoolbar, $e_idWFXBoard, $STD_FILENEW, 6, $BTNS_CHECK) ;  WFX Board
    ;_GUICtrlToolbar_AddButton($Maintoolbar, $e_idBlank1, $STD_FILENEW, 4) ; Blank




; WM_NOTIFY event handler
Func _WM_NOTIFY($hWndGUI, $iMsgID, $wParam, $lParam)
    #forceref $hWndGUI, $iMsgID, $wParam
    Local $tNMHDR, $hWndFrom, $iCode, $iNew, $iFlags, $iOld
    Local $tNMTBHOTITEM
    $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
    $hWndFrom = DllStructGetData($tNMHDR, "hWndFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
        Case $Maintoolbar
            Switch $iCode
                Case $NM_LDOWN
                    ;----------------------------------------------------------------------------------------------
                    Switch $g_iItem
                        Case 1000 ; Toolbar Button 1
                            CreateChildTechStats("UNPRODUCTIVE TECHNICIANS")
                        Case 1001 ; Toolbar Button 2
                            CreateChildTechTickets("SAME DAY TECH FORMS")
                        Case 1002 ; Toolbar Button 3
                            CreateChildJobForms("JOB RESCHEDULING FORMS")
                        Case 1003 ; Toolbar Button 4
                            CreateChildETDBrowser()
                        Case 1004 ; Job Assignement Req Forms
                            MsgBox(0, "Error", "That button is unused at this time..." & $g_iItem)
                        Case 1005 ; Monitor Forms
                            CreateChildMonForms()
                        Case 1006 ; WFX Board (May need to move)
                            CreateChildWFXBoard()
                        Case Else
                            MsgBox(0, "Error", "That button is unused at this time")
                    EndSwitch
                    ;----------------------------------------------------------------------------------------------
                Case $TBN_HOTITEMCHANGE
                    $tNMTBHOTITEM = DllStructCreate($tagNMTBHOTITEM, $lParam)
                    $iOld = DllStructGetData($tNMTBHOTITEM, "idOld")
                    $iNew = DllStructGetData($tNMTBHOTITEM, "idNew")
                    $g_iItem = $iNew
                    $iFlags = DllStructGetData($tNMTBHOTITEM, "dwFlags")
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>_WM_NOTIFY

#ENDREGION===TOOLBAR============================================
;GUICtrlSetState($BGPic, $GUI_SHOW )
;GUIRegisterMsg($WM_SYSCOMMAND, "On_WM_SYSCOMMAND")

$StartCoin = 0
Global $TechFormsXML
Global $JobFormsXML
Global $TechTicketFeed, $JobFormFeed, $WFXStatusBuffer, $TechStatusFeed
While 1
   Sleep(5000)
   If $StartCoin = 0 Then
      ;DelLoader()
      _MaxOnMonitor("WMTC Live Feeds", "", $MonSelect)
      $StartCoin = 1
   EndIf
WEnd


Func Add(ByRef $aArray, $hHandle)
    ; Increase the number of children
    $aArray[0][0] += 1
    ; Resize the array
    ReDim $aArray[$aArray[0][0] + 1][2]
    ; Add the child details
    $aArray[$aArray[0][0]][0] = $hHandle
    $aArray[$aArray[0][1]][1] = False
EndFunc   ;==>Add

;======================================================================================================================================
; - - - FUNCTIONS BELOW THIS LINE ONLY - - - FUNCTIONS BELOW THIS LINE ONLY - - - FUNCTIONS BELOW THIS LINE ONLY - - -
;======================================================================================================================================

#REGION====NEWBORNS=====================================
Func CreateChildTechStats($wintitle)
    If Not WinExists($wintitle) Then
        Global $hNew_ChildTech = GUICreate($wintitle, 405, 210, 1920, 1080, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))
        Global $TechStatusFeed = GuiCtrlCreateListView("TECH #|STATUS|First Name|Last Name ", 5, 5, 393, 200)
        _GUICtrlListView_SetColumnWidth($TechStatusFeed, 0, 55)
        _GUICtrlListView_SetColumnWidth($TechStatusFeed, 1, 117)
        _GUICtrlListView_SetColumnWidth($TechStatusFeed, 2, 100)
        _GUICtrlListView_SetColumnWidth($TechStatusFeed, 3, 150)
        _WinAPI_SetParent($hNew_ChildTech, $WMTCLiveFeed)
        Add($ahChild, $hNew_ChildTech)
        GUISetOnEvent($GUI_EVENT_CLOSE, "CloseTechStats", $hNew_ChildTech)
        GUISetState()
                Sleep(1000)
        WinMove($hNew_ChildTech, "" , 10, 100)
    Else
        CloseTechStats()
        _GUICtrlToolbar_CheckButton($Maintoolbar, $e_idTStats, True)
    EndIf
EndFunc   ;==>CreateChild
Func CloseTechStats()
    GUIDelete($hNew_ChildTech)
    _GUICtrlToolbar_CheckButton($Maintoolbar, $e_idTStats, False)
EndFunc

Func CreateChildTechtickets($wintitle)
     If Not WinExists($wintitle) Then
    Global $hNew_ChildTechTickets = GUICreate($wintitle, 405, 210, 10, 100, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))

    Global $TechTicketFeed = GuiCtrlCreateListView("CREATED|SP Co|SUP|TECH #|TECH NAME|AREA", 5, 5, 393, 200)
    _GUICtrlListView_SetColumnWidth($TechTicketFeed, 0, 45)
    _GUICtrlListView_SetColumnWidth($TechTicketFeed, 1, 65)
    _GUICtrlListView_SetColumnWidth($TechTicketFeed, 2, 75)
    _GUICtrlListView_SetColumnWidth($TechTicketFeed, 3, 55)

    _WinAPI_SetParent($hNew_ChildTechTickets, $WMTCLiveFeed)
    Add($ahChild, $hNew_ChildTechTickets)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CloseTechForms", $hNew_ChildTechTickets)
    GUISetState()
    Else
        CloseTechForms()
        _GUICtrlToolbar_CheckButton($Maintoolbar, $e_idTForms, True)
    EndIf
EndFunc   ;==>CreateChild
Func CloseTechForms()
    GUIDelete($hNew_ChildTechTickets)
    _GUICtrlToolbar_CheckButton($Maintoolbar, $e_idTForms, False)
EndFunc

Func CreateChildJobForms($wintitle)
     If Not WinExists($wintitle) Then
    Global $hNew_ChildJobForms = GUICreate($wintitle, 405, 210, 10, 100, BitOR($GUI_SS_DEFAULT_GUI,$WS_MAXIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_TABSTOP))

    Global  $JobFormFeed = GuiCtrlCreateListView("JOB # | REASON | SUP | TECH #", 5, 5, 393, 200)

    _WinAPI_SetParent($hNew_ChildJobForms, $WMTCLiveFeed)
    Add($ahChild, $hNew_ChildJobForms)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CloseJobForms", $hNew_ChildJobForms)
    GUISetState()
    Else
        CloseJobForms()
        _GUICtrlToolbar_CheckButton($Maintoolbar, $e_idJForms, True)
    EndIf
EndFunc   ;==>CreateChild
Func CloseJobForms()
    GUIDelete($hNew_ChildJobForms)
    _GUICtrlToolbar_CheckButton($Maintoolbar, $e_idJForms, False)
EndFunc

Func CreateChildETDBrowser()
     If Not WinExists("ETD Tickets") Then
    Global $hNew_ChildETDBrowser = GUICreate("ETD Tickets", 1070, 250, 10, 100, $GUI_SS_DEFAULT_GUI, $WS_EX_TOOLWINDOW)

    Global  $GUIActiveX1 = GUICtrlCreateObj ($oIE1, -60, -100, 1200, 350)
    $oIE1.navigate("www.google.com")

    _WinAPI_SetParent($hNew_ChildETDBrowser, $WMTCLiveFeed)
    Add($ahChild, $hNew_ChildETDBrowser)
    GUISetOnEvent($GUI_EVENT_CLOSE, "CloseETDForms", $hNew_ChildETDBrowser)
    GUISetState()
    Else
        CloseETDForms()
        _GUICtrlToolbar_CheckButton($Maintoolbar, $e_idEForms, True)
    EndIf
EndFunc   ;==>CreateChild
Func CloseETDForms()
    GUIDelete($hNew_ChildETDBrowser)
    _GUICtrlToolbar_CheckButton($Maintoolbar, $e_idEForms, False)
EndFunc

Func CreateChildMonForms()
    If Not WinExists("MONITOR FEEDBACK FORM") Then
        Global $hNew_ChildMonFormBrowser = GUICreate("MONITOR FEEDBACK FORM", 730, 405, 10, 100, $GUI_SS_DEFAULT_GUI, $WS_EX_TOOLWINDOW)
        Global $oIEMon = ObjCreate("Shell.Explorer.2")
        Global  $GUIActiveX1 = GUICtrlCreateObj ($oIEMon, -155, -145, 900, 900)
        $oIEMon.navigate("www.google.com")



        _WinAPI_SetParent($hNew_ChildMonFormBrowser, $WMTCLiveFeed)
        Add($ahChild, $hNew_ChildMonFormBrowser)
        GUISetOnEvent($GUI_EVENT_CLOSE, "_CloseMon_Forms", $hNew_ChildMonFormBrowser)
        GUISetState()

        While not $oIEMon.LocationURL = "www.google.com"
            Sleep(100)
        WEnd

        ObjEvent($oIEMon, "IEEvent_", "DWebBrowserEvents")
    Else
        _CloseMon_Forms()
        _GUICtrlToolbar_CheckButton($Maintoolbar, $e_idMonForms, True)
    EndIf
EndFunc   ;==>CreateChild

Func IEEvent_NavigateComplete()
    _CloseMon_Forms()
EndFunc

Func _CloseMon_Forms()
    GUIDelete($hNew_ChildMonFormBrowser)
    _GUICtrlToolbar_CheckButton($Maintoolbar, $e_idMonForms, False)
EndFunc



Func CreateChildWFXBoard()
    If Not WinExists("WFX BOARD") Then
        Global $hNew_ChildWFXBrowser = GUICreate("WFX BOARD", 1440, 800, 10, 100, $GUI_SS_DEFAULT_GUI, $WS_EX_TOOLWINDOW)
        Global $oIEWFX = ObjCreate("Shell.Explorer.2")
        Global  $GUIActiveX1 = GUICtrlCreateObj ($oIEWFX, 5, 5, 1420, 780)
        $oIEWFX.navigate("www.google.com")



        _WinAPI_SetParent($hNew_ChildWFXBrowser, $WMTCLiveFeed)
        Add($ahChild, $hNew_ChildWFXBrowser)
        GUISetOnEvent($GUI_EVENT_CLOSE, "CloseWFXBoard", $hNew_ChildWFXBrowser)
        GUISetState()

        While not $oIEWFX.LocationURL = "www.google.com"
            Sleep(100)
        WEnd

    Else
        CloseWFXBoard()
        _GUICtrlToolbar_CheckButton($Maintoolbar, $e_idWFXBoard, True)
    EndIf
EndFunc   ;==>CreateChild

Func CloseWFXBoard()
    GUIDelete($hNew_ChildWFXBrowser)
    _GUICtrlToolbar_CheckButton($Maintoolbar, $e_idWFXBoard, False)
EndFunc
#ENDREGION====NEWBORNS=====================================
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    MsgBox(0, "", "We intercepted a COM Error !" & @CRLF & _
            "Hex Number is: " & $HexNumber & @CRLF & _
            "Error Number is: " & $oMyError.number & @CRLF & _
            "WinDescription is: " & $oMyError.windescription & @CRLF & _
            "Error Source: " & $oMyError.Source & @CRLF & _
            "Error Location: " & $oMyError.Scriptline)
    $iEventError = 1 ; Use to check when a COM Error occurs
EndFunc

Func On_WM_SYSCOMMAND($hWnd, $Msg, $wParam, $lParam)
    For $i = 1 To $ahChild[0][0]
        ; Does the message come from a child?
        If $hWnd = $ahChild[$i][0] Then
            ; Is the child maximized?
            If $ahChild[$i][1] Then
                ;Is it a MOVE mesage?
                If BitAND($wParam, 0xFFF0) = $SC_MOVE Then Return False
                ExitLoop
            EndIf
        EndIf
    Next
    Return $GUI_RUNDEFMSG
EndFunc   ;==>On_WM_SYSCOMMAND


Func ExitFeeds()
    Exit
EndFunc

 

Share this post


Link to post
Share on other sites



Ok, so I have added $WS_CLIPCHILDREN to GUICreate. Took care of the Child Windows from inheriting the background image when drawn. Still cant get around the toolbar issue though. Ive tried a bunch of different style combonations to try to get my desired result.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0