I am struggling with activating the 2nd GUI. References of https://www.autoitscript.com/wiki/Managing_Multiple_GUIs did not help.
Gui2 and controls are created, but the buttons are not active. I have tried to remove extra code.
Thanks for any help.
;
; cabinet maker process to automate MasterCam
; ATP nesting process
;
#include <AutoItConstants.au3>
#include <Array.au3>
;#include <file.au3>
;#include <FileConstants.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WinAPI.au3>
#include <WinAPIFiles.au3>
#include <WindowsConstants.au3>
;#include <XML.au3>; If XML library is updated, note that this script requires that save file will overwrite an existing file
Opt("GUIOnEventMode", 1) ; 1 = OnEvent mode
Opt("WinWaitDelay", 500) ; milliseconds
Opt("TrayIconDebug", 1)
Opt("WinSearchChildren", 1)
Global $hMainGUI
Global $hMainGUI2
Func GetAllWindowsControls($hCallersWindow, $bOnlyVisible = Default, $sStringIncludes = Default, $sClass = Default)
If Not IsHWnd($hCallersWindow) Then
ConsoleWrite("$hCallersWindow must be a handle...provided=[" & $hCallersWindow & "]" & @CRLF)
Return False
EndIf
; Get all list of controls
If $bOnlyVisible = Default Then $bOnlyVisible = True
If $sStringIncludes = Default Then $sStringIncludes = ""
If $sClass = Default Then $sClass = ""
$sClassList = WinGetClassList($hCallersWindow)
; Create array
$aClassList = StringSplit($sClassList, @CRLF, 2)
; Sort array
_ArraySort($aClassList)
_ArrayDelete($aClassList, 0)
; Loop
$iCurrentClass = ""
$iCurrentCount = 1
$iTotalCounter = 1
If StringLen($sClass) > 0 Then
For $i = UBound($aClassList) - 1 To 0 Step -1
If $aClassList[$i] <> $sClass Then
_ArrayDelete($aClassList, $i)
EndIf
Next
EndIf
For $i = 0 To UBound($aClassList) - 1
If $aClassList[$i] = $iCurrentClass Then
$iCurrentCount += 1
Else
$iCurrentClass = $aClassList[$i]
$iCurrentCount = 1
EndIf
$hControl = ControlGetHandle($hCallersWindow, "", "[CLASSNN:" & $iCurrentClass & $iCurrentCount & "]")
$text = StringRegExpReplace(ControlGetText($hCallersWindow, "", $hControl), "[\n\r]", "{@CRLF}")
$aPos = ControlGetPos($hCallersWindow, "", $hControl)
$sControlID = _WinAPI_GetDlgCtrlID($hControl)
$bIsVisible = ControlCommand($hCallersWindow, "", $hControl, "IsVisible")
If $bOnlyVisible And Not $bIsVisible Then
$iTotalCounter += 1
ContinueLoop
EndIf
If StringLen($sStringIncludes) > 0 Then
If Not StringInStr($text, $sStringIncludes) Then
$iTotalCounter += 1
ContinueLoop
EndIf
EndIf
If IsArray($aPos) Then
;ConsoleWrite("ControlID=[" & StringFormat("%5s", $sControlID) & "] Handle=[" & StringFormat("%10s", $hControl) & "] ClassNN=[" & StringFormat("%19s", $iCurrentClass & $iCurrentCount) & "] XPos=[" & StringFormat("%4s", $aPos[0]) & "] YPos=[" & StringFormat("%4s", $aPos[1]) & "] Width=[" & StringFormat("%4s", $aPos[2]) & "] Height=[" & StringFormat("%4s", $aPos[3]) & "] IsVisible=[" & $bIsVisible & "] Text=[" & $text & "]." & @CRLF)
ConsoleWrite("Func=[GetAllWindowsControls]: ControlCounter=[" & StringFormat("%3s", $iTotalCounter) & "] ControlID=[" & StringFormat("%5s", $sControlID) & "] Handle=[" & StringFormat("%10s", $hControl) & "] ClassNN=[" & StringFormat("%19s", $iCurrentClass & $iCurrentCount) & "] XPos=[" & StringFormat("%4s", $aPos[0]) & "] YPos=[" & StringFormat("%4s", $aPos[1]) & "] Width=[" & StringFormat("%4s", $aPos[2]) & "] Height=[" & StringFormat("%4s", $aPos[3]) & "] IsVisible=[" & $bIsVisible & "] Text=[" & $text & "]." & @CRLF)
Else
;ConsoleWrite("ControlID=[" & StringFormat("%5s", $sControlID) & "] Handle=[" & StringFormat("%10s", $hControl) & "] ClassNN=[" & StringFormat("%19s", $iCurrentClass & $iCurrentCount) & "] XPos=[winclosed] YPos=[winclosed] Width=[winclosed] Height=[winclosed] Text=[" & $text & "]." & @CRLF)
ConsoleWrite("Func=[GetAllWindowsControls]: ControlCounter=[" & StringFormat("%3s", $iTotalCounter) & "] ControlID=[" & StringFormat("%5s", $sControlID) & "] Handle=[" & StringFormat("%10s", $hControl) & "] ClassNN=[" & StringFormat("%19s", $iCurrentClass & $iCurrentCount) & "] XPos=[winclosed] YPos=[winclosed] Width=[winclosed] Height=[winclosed] Text=[" & $text & "]." & @CRLF)
EndIf
If Not WinExists($hCallersWindow) Then ExitLoop
$iTotalCounter += 1
Next
;MsgBox($MB_SYSTEMMODAL, "title", "check console for control list")
EndFunc ;==>GetAllWindowsControls
; ======= Func GetAllWindowsControls($hCallersWindow, $bOnlyVisible = Default, $sStringIncludes = Default, $sClass = Default) =========
Func setNestingOverlay()
$ovrWidth = 400
$ovrHeight = 60
$ovrLeft = -1 ;$mcamWindow[0] + $nestControlRelative[0]
$ovrTop = -1;$mcamWindow[1] + $nestControlRelative[1]+ 10
$hMainGUI = GUICreate("covering mastercam buttons", $ovrWidth, $ovrHeight, $ovrLeft, $ovrTop, -1, $WS_EX_TOPMOST)
GUISetOnEvent($GUI_EVENT_CLOSE, "CloseButton2")
Local $iOKButton1 = GUICtrlCreateButton("Continue to gui2", 20, 20, 80)
GUICtrlSetOnEvent($iOKButton1, "NestResultButtonOverlay")
GUISetState(@SW_SHOW, $hMainGUI)
GetAllWindowsControls(WinGetHandle("[ACTIVE]"))
;loop to monitor button click
While 1
Sleep(50) ; Sleep to reduce CPU usage
WEnd
ConsoleWrite(" exit loop setNestingOverlay")
EndFunc ;==>setNestingOverlay
;=== 2nd gui ======= 2nd gui ======= 2nd gui ======= 2nd gui ======= 2nd gui ======= 2nd gui ====
func NestResultButtonOverlay()
$ovrWidth = -1;$mcamWindow[2] - 10
$ovrHeight = 70 ;40
$ovrLeft = -1 ;$mcamWindow[0] + 5 ;+ $nestControlRelative[0]
$ovrTop = -1 ;$mcamWindow[1] + $nestControlRelative[1]+ 10
$hMainGUI2 = GUICreate("gui2-- covering nest result buttons", $ovrWidth, $ovrHeight, $ovrLeft, $ovrTop, -1, $WS_EX_TOPMOST)
;width, height, left, top
;GUISetState(@SW_DISABLE + @SW_MINIMIZE, $hMainGUI)
;GUISwitch($hMainGUI2)
GUISetOnEvent($GUI_EVENT_CLOSE, "CloseButton2")
local $iBackNestingButton = GUICtrlCreateButton("Back to Nesting", 20, 10, 120)
GUICtrlSetOnEvent($iBackNestingButton, "backtoNesting")
Local $iOKButton2 = GUICtrlCreateButton("Continue for g-Code", 160, 10, 120)
GUICtrlSetOnEvent(-1, "generateGCode")
;GUICtrlSetOnEvent($iOKButton2, "generateGCode")
Local $iDoneButton2 = GUICtrlCreateButton("Oops go back to vortex", 300, 10, 120)
GUICtrlSetOnEvent($iDoneButton2, "CloseButton2")
GUISetState(@SW_SHOW, $hMainGUI2)
GUISetState(@SW_DISABLE + @SW_MINIMIZE, $hMainGUI)
GUISwitch($hMainGUI2)
GetAllWindowsControls(WinGetHandle("[ACTIVE]"))
While 1
Sleep(50) ; Sleep to reduce CPU usage
WEnd
ConsoleWrite(" exit loop NestResultButtonOverlay")
EndFunc ;==>setNestingOverlay
func backtoNesting()
msgbox($MB_SYSTEMMODAL, "gui2","backtoNesting")
EndFunc
Func CloseButton2()
msgbox($MB_SYSTEMMODAL, "gui2","CloseButton2")
Exit
EndFunc
func generateGCode()
msgbox($MB_SYSTEMMODAL, "gui2","generateGCode")
EndFunc
; =========== main =========== main =========== main =========== main =========== main =========== main
setNestingOverlay()
By jpomalley
By fastman
By Blueman
By morion84