Jump to content

Recommended Posts

Posted

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

 

Posted

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.

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
×
×
  • Create New...