Jump to content

jaberwacky

Active Members
  • Posts

    3,706
  • Joined

  • Last visited

  • Days Won

    14

jaberwacky last won the day on March 6 2024

jaberwacky had the most liked content!

2 Followers

About jaberwacky

  • Birthday 09/12/1980

Profile Information

  • Member Title
    jaberwacky

Recent Profile Visitors

4,837 profile views

jaberwacky's Achievements

  1. Does this get you closer or am I way off? (note: I disabled extmsgbox only because i didn't feel like finding it.) #RequireAdmin #include <AutoItConstants.au3> #include <GUIConstantsEx.au3> #include <MsgBoxConstants.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #include <ButtonConstants.au3> Opt("GUIOnEventMode", 1) Opt("MustDeclareVars", 1) Global $Form1, $mForm1Button, $mForm1Button2 Global $Form2, $mForm2Button Global $Form3, $mForm3Button Global $iWidth = 735, $iHeight = 48, $ixpos = -1, $iypos = -1, $iOpt = 1, $sFontName = "Corbel Bold", $iFontSize = 16, $iFontWt = 800 Forms() Func Forms() $iFontSize = 14 $Form1 = GUICreate("EnableF10", 150, 25, 900, 86, $WS_POPUP, $WS_EX_TOPMOST) GUISetFont($iFontSize, $iFontWt, $GUI_FONTNORMAL, $sFontName) GUISetOnEvent($GUI_EVENT_CLOSE, "_CloseForm") $mForm1Button = GUICtrlCreateButton(" Enable [F10]", 0, 0, 150, 25) GUICtrlSetOnEvent($mForm1Button, "_ColRow") $Form2 = GUICreate("EnableF12", 150, 25, 900, 86, $WS_POPUP, $WS_EX_TOPMOST) GUISetFont($iFontSize, $iFontWt, $GUI_FONTNORMAL, $sFontName) $mForm2Button = GUICtrlCreateButton(" Enable [F12]", 0, 0, 150, 25) GUICtrlSetOnEvent($mForm2Button, "_ColRow") $Form3 = GUICreate("EnableHotKey", 150, 25, 725, 86, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) GUISetFont($iFontSize, $iFontWt, $GUI_FONTNORMAL, $sFontName) $mForm3Button = GUICtrlCreateButton(" Enable Hotkey", 0, 0, 150, 25) GUICtrlSetOnEvent($mForm3Button, "_ColRow") GUISetState(@SW_SHOW, $Form1) GUISetState(@SW_SHOW, $Form3) While 1 Sleep(10) WEnd EndFunc Func _ColRow() ConsoleWrite("@GUI_CtrlId=" & @GUI_CtrlId & @CRLF) Switch @GUI_CtrlId Case $mForm1Button GUISetState(@SW_HIDE, $Form1) ; From "EnableF10"... GUISetState(@SW_SHOW, $Form2) ; ...to EnableF12" EnableF10View() Case $mForm2Button GUISetState(@SW_HIDE, $Form2) EnableF12View() Exit Case $mForm3Button _ToggleNUMPADSUB() EndSwitch EndFunc Func EnableF10View() MsgBox($MB_OK, "", "EnableF10View", 1) EndFunc Func EnableF12View() MsgBox($MB_OK, "", "EnableF12View", 1) EndFunc Func _CloseForm() Switch @GUI_WinHandle Case $Form1 Exit EndSwitch EndFunc Func _ToggleNUMPADSUB() Local Static $bEnabled = True Local $aGuiPos = WinGetPos($Form1) If $bEnabled Then HotKeySet("{NUMPADSUB}", "ReadIniFile") GUICtrlSetData($mForm1Button, "Disable Hotkey") Else WinClose($Form1) EndIf $bEnabled = Not $bEnabled EndFunc ;==>_ToggleNUMPADSUB Func ReadIniFile() ; The ReadIniFile procedure is launched. ; Upon selecting [Continue], the first line of the .ini file is read and then copied to the clipboard. Local $sFilePath = "E:\Desktop\Working\Assets\IniData\SceneData.ini" Local $aArray = IniReadSection($sFilePath, "Scene Data") Opt("GUIOnEventMode", 0) ; when in $hMsgForm - disable <<<<<<<<<<<<<<< ;~ Local $hMsgForm = GUICreate("ReadIniFile", 390, 90, 725, 115, $WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) Local $hMsgForm = GUICreate("ReadIniFile", 390, 90, 725, 115, $WS_POPUP, $WS_EX_TOPMOST) GUISetFont($iFontSize, $iFontWt, $GUI_FONTNORMAL, $sFontName) Local $idLabel1 = GUICtrlCreateLabel("", 5, 5, 379, 45, $SS_SUNKEN) Local $idBtnContinue = GUICtrlCreateButton("Continue", 100, 55, 85, 25, $BS_DEFPUSHBUTTON) Local $idBtnCancel = GUICtrlCreateButton("Cancel", 200, 55, 85, 25) Local $idBtnAbout = GUICtrlCreateLabel("!", 360, 55, 10, 20) GUISetState(@SW_SHOW, $hMsgForm) Local $nMsg, $idx = 1 GUICtrlSetData($idLabel1, "To copy [" & $aArray[$idx][1] & "]...select [Continue]..." & @CRLF & "Select [Cancel] to exit...") While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE, $idBtnCancel ExitLoop Case $idBtnContinue ClipPut($aArray[$idx][1]) UpdateScenes() $idx += 1 If $idx > $aArray[0][0] Then ExitLoop ; The end of the SceneData.ini data file has been reached! EndIf GUICtrlSetData($idLabel1, "To copy [" & $aArray[$idx][1] & "]...select [Continue]..." & @CRLF & "Select [Cancel] to exit...") Case $idBtnAbout AboutMe() EndSwitch WEnd GUIDelete($hMsgForm) Opt("GUIOnEventMode", 1) ; when out of $hMsgForm - enable <<<<<<<<<<<<<<< EndFunc Func UpdateScenes() Local $hWnd = "[CLASS:SAC_SCENEPROPERTIES]" ; F Mixer Number Zone[s] is|are [manually] selected WinActivate("[CLASS:SAC_SCENES]", "") MouseClick($MOUSE_CLICK_LEFT, 254, 313, 1, 1) ; The Scenes View is selected, x y clicks speed Sleep(100) MouseClick($MOUSE_CLICK_LEFT, 133, 165, 2, 1) ; The first line of Scenes View is selected. <<[A]>> Sleep(100) Send("{End}") ; The [End Of List] is selected via the [End] key. MouseClick($MOUSE_CLICK_LEFT, 188, 118, 1, 1) ; The [New] button is selected. Sleep(100) Send("^v") ; The previously copied text from the ReadIniFile procedure is then pasted into the [Enter Scene Name...] dialog. Send("{ENTER}") ; [Enter] is selected, for [Ok] - with the [Enter Scene Name...] dialog being summarily exited. Sleep(100) WinMove($hWnd, "", 725, 210) ; The Scene Properties window is displayed and is then moved. Sleep(100) MouseMove(1300, 295, 0) ; The mouse is moved to the Scene Properties window. ; The Scene Properties are [manually] selected. ; [OK] is [manually] selected. ; The [Start] scene is [manually] selected. BEING TESTED, SEE [A] ABOVE!!!! EndFunc Func AboutMe() Local $sMsg ;_ExtMsgBoxSet(64, 4, Default, Default, 14, "Corbel Bold") $sMsg = "Enable Hotkey Script" & @CRLF & @CRLF $sMsg &= "Version 3.3b" & @CRLF & @CRLF $sMsg &= "Scripting by Dell Krauchi" & @CRLF $sMsg &= "Sentinel Music Studios" & @CRLF & @CRLF $sMsg &= "With the sincerest gratitude of ioa747...whose assistance in this project has been incalculable!" & @CRLF & @CRLF $sMsg &= "This script was developed specifically for implementation with the Live_Rig." & @CRLF & @CRLF $sMsg &= "Last updated: October 20th, 2025" & @CRLF ;~ $sMsg &= "" & @CRLF & @CRLF ;_ExtMsgBox(64, "Ok", "About!", $sMsg, 0) EndFunc
  2. Progress! ... Click the form button beside of the cursor button (more than once if you want to). Now the windows are clipped to the left too! #include-once Opt("WinTitleMatchMode", 4) ; advanced Opt("MouseCoordMode" , 2) #include <WindowsStylesConstants.au3> #include <ButtonConstants.au3> #include <GuiConstantsEx.au3> Global $formList[], $formCount = 0 Global Const $main_width = 815 Global Const $main_height = 860 Global Const $main_left = (@DesktopWidth / 2) - ($main_width / 2) Global Const $main_top = (@DesktopHeight / 2) - ($main_height / 2) Global Const $guiCanvas = GuiCreate("GUI Canvas", $main_width, $main_height, $main_left, $main_top) Global Const $canvas = GuiCreate('', ($main_width - 105), ($main_height - 35), 95, 5, $WS_CHILD, $WS_EX_OVERLAPPEDWINDOW, $guiCanvas) GUISetFont(10, -1, -1, "Segoe UI", $guiCanvas) #region ; menu items Global Const $menu_file = GUICtrlCreateMenu ("File") Global Const $menu_save_definition = GUICtrlCreateMenuitem("Save", $menu_file) ; Roy add-on Global Const $menu_load_definition = GUICtrlCreateMenuitem("Load", $menu_file) ; Roy add-on GUICtrlCreateMenuitem('' , $menu_file) ; Roy add-on Global Const $menu_exit = GUICtrlCreateMenuitem("Exit", $menu_file) Global Const $menu_edit = GUICtrlCreateMenu ("Edit") Global Const $menu_vals = GUICtrlCreateMenuitem("Vals" , $menu_edit) ; added by: TheSaint Global Const $menu_wipe = GUICtrlCreateMenuitem("Clear all controls", $menu_edit) Global Const $menu_about = GUICtrlCreateMenuitem("About" , $menu_edit) ; added by: TheSaint GUICtrlSetState($menu_wipe, $GUI_DISABLE) Global Const $menu_settings = GUICtrlCreateMenu ("Settings") Global Const $menu_show_grid = GUICtrlCreateMenuItem("Show grid" , $menu_settings) Global Const $menu_grid_snap = GUICtrlCreateMenuItem("Snap to grid" , $menu_settings) Global Const $menu_paste_pos = GUICtrlCreateMenuItem("Paste at mouse position" , $menu_settings) Global Const $menu_show_ctrl = GUICtrlCreateMenuItem("Show control when moving", $menu_settings) Global Const $menu_show_hidden = GUICtrlCreateMenuItem("Show hidden controls" , $menu_settings) GUICtrlSetState($menu_show_grid , $GUI_CHECKED ) GUICtrlSetState($menu_grid_snap , $GUI_CHECKED ) GUICtrlSetState($menu_paste_pos , $GUI_CHECKED ) GUICtrlSetState($menu_show_ctrl , $GUI_CHECKED ) GUICtrlSetState($menu_show_hidden, $GUI_UNCHECKED) #endregion ; menu items #region ; toolbar Global Const $default_cursor = CreateToolButton("Cursor" , 5, 5) Global Const $toolForm = CreateToolButton("Form" , 45, 5) Global Const $toolGroup = CreateToolButton("Group" , 5, 45) Global Const $toolButton = CreateToolButton("Button" , 45, 45) Global Const $toolCheckbox = CreateToolButton("Checkbox" , 5, 85) Global Const $toolRadio = CreateToolButton("Radio" , 45, 85) Global Const $toolEdit = CreateToolButton("Edit" , 5, 125) Global Const $toolInput = CreateToolButton("Input" , 45, 125) Global Const $toolLabel = CreateToolButton("Label" , 5, 165) Global Const $toolUpDown = CreateToolButton("UpDown" , 45, 165) Global Const $toolList = CreateToolButton("List" , 5, 205) Global Const $toolCombo = CreateToolButton("Combo" , 45, 205) Global Const $toolDate = CreateToolButton("Date" , 5, 245) Global Const $toolTreeview = CreateToolButton("Treeview" , 45, 245) Global Const $toolProgress = CreateToolButton("Progress" , 5, 285) Global Const $toolAvi = CreateToolButton("Avi" , 45, 285) Global Const $toolIcon = CreateToolButton("Icon" , 5, 325) Global Const $toolPic = CreateToolButton("Pic" , 45, 325) Global Const $toolSlider = CreateToolButton("Slider" , 5, 365) Global Const $toolMenu = CreateToolButton("Menu" , 45, 365) Global Const $toolContextMenu = CreateToolButton("Context Menu", 5, 405) Global Const $toolTab = CreateToolButton("Tab" , 45, 405) #endregion ; toolbar main() Func main() GUISetState(@SW_SHOWNORMAL, $guiCanvas) GUISetState(@SW_SHOWNORMAL, $canvas) Local $msg Do $msg = GUIGetMsg($GUI_EVENT_ARRAY) Switch $msg[1] Case $guiCanvas Switch $msg[0] Case $toolForm CreateForm() Case $GUI_EVENT_CLOSE Exit EndSwitch EndSwitch Until False EndFunc Func CreateForm() GUISwitch($canvas) $formCount += 1 Local Const $form = GuiCreate("Form " & $formCount, 400, 600, 5, 5, BitOR($WS_CHILD, $WS_OVERLAPPEDWINDOW), -1, $canvas) $formList["Form" & $formCount] = $form GUISetState(@SW_SHOWNORMAL, $form) GUISwitch($guiCanvas) Return $form EndFunc Func CreateToolButton(Const $name, Const $left, Const $top) Local Const $tool = GUICtrlCreateRadio($name, $left, $top, 40, 40, BitOR($BS_PUSHLIKE, $BS_ICON)) GUICtrlSetImage($tool, @ScriptDir & "\resources\Icons\" & $name & ".ico") GUICtrlSetTip($tool, $name) Return $tool EndFunc
  3. Tremendous! Thank you, this gives me something to tinker with!
  4. Hello, I'm trying to make a form window that is constrained within another form (inside of the red square). I've tried so many different things that I can't remember now. Is it possible? Edit: I'm thinking maybe a watch dog that will stop movement of the window once it reaches the boundary? But then again, I'd like for the window to be cut off by the tab if it moves too far to the right or bottom. The code if you'd like to see it: #include-once Opt("WinTitleMatchMode", 4) ; advanced Opt("MouseCoordMode", 2) #include <ButtonConstants.au3> #include <GuiConstantsEx.au3> Global Const $main_width = 815 Global Const $main_height = 860 Global Const $main_left = (@DesktopWidth / 2) - ($main_width / 2) Global Const $main_top = (@DesktopHeight / 2) - ($main_height / 2) Global Const $guiCanvas = GuiCreate("GUI Canvas", $main_width, $main_height, $main_left, $main_top) GUISetFont(10, -1, -1, "Segoe UI", $guiCanvas) #Region menu items Global Const $menu_file = GUICtrlCreateMenu ("File") Global Const $menu_save_definition = GUICtrlCreateMenuitem("Save", $menu_file) ; Roy add-on Global Const $menu_load_definition = GUICtrlCreateMenuitem("Load", $menu_file) ; Roy add-on GUICtrlCreateMenuitem('' , $menu_file) ; Roy add-on Global Const $menu_exit = GUICtrlCreateMenuitem("Exit", $menu_file) Global Const $menu_edit = GUICtrlCreateMenu ("Edit") Global Const $menu_vals = GUICtrlCreateMenuitem("Vals" , $menu_edit) ; added by: TheSaint Global Const $menu_wipe = GUICtrlCreateMenuitem("Clear All Controls", $menu_edit) Global Const $menu_about = GUICtrlCreateMenuitem("About" , $menu_edit) ; added by: TheSaint GUICtrlSetState($menu_wipe, $GUI_DISABLE) Global Const $menu_settings = GUICtrlCreateMenu ("Settings") Global Const $menu_show_grid = GUICtrlCreateMenuItem("Show grid" , $menu_settings) Global Const $menu_grid_snap = GUICtrlCreateMenuItem("Snap to grid" , $menu_settings) Global Const $menu_paste_pos = GUICtrlCreateMenuItem("Paste at mouse position" , $menu_settings) Global Const $menu_show_ctrl = GUICtrlCreateMenuItem("Show control when moving", $menu_settings) Global Const $menu_show_hidden = GUICtrlCreateMenuItem("Show hidden controls" , $menu_settings) GUICtrlSetState($menu_show_grid , $GUI_CHECKED ) GUICtrlSetState($menu_grid_snap , $GUI_CHECKED ) GUICtrlSetState($menu_paste_pos , $GUI_CHECKED ) GUICtrlSetState($menu_show_ctrl , $GUI_CHECKED ) GUICtrlSetState($menu_show_hidden, $GUI_UNCHECKED) #EndRegion menu items #Region toolbar Global Const $default_cursor = CreateToolButton("Cursor" , 5, 5) Global Const $toolTab = CreateToolButton("Tab" , 45, 5) Global Const $toolGroup = CreateToolButton("Group" , 5, 45) Global Const $toolButton = CreateToolButton("Button" , 45, 45) Global Const $toolCheckbox = CreateToolButton("Checkbox" , 5, 85) Global Const $toolRadio = CreateToolButton("Radio" , 45, 85) Global Const $toolEdit = CreateToolButton("Edit" , 5, 125) Global Const $toolInput = CreateToolButton("Input" , 45, 125) Global Const $toolLabel = CreateToolButton("Label" , 5, 165) Global Const $toolUpDown = CreateToolButton("UpDown" , 45, 165) Global Const $toolList = CreateToolButton("List" , 5, 205) Global Const $toolCombo = CreateToolButton("Combo" , 45, 205) Global Const $toolDate = CreateToolButton("Date" , 5, 245) Global Const $toolTreeview = CreateToolButton("Treeview" , 45, 245) Global Const $toolProgress = CreateToolButton("Progress" , 5, 285) Global Const $toolAvi = CreateToolButton("Avi" , 45, 285) Global Const $toolIcon = CreateToolButton("Icon" , 5, 325) Global Const $toolPic = CreateToolButton("Pic" , 45, 325) Global Const $toolSlider = CreateToolButton("Slider" , 5, 365) Global Const $toolMenu = CreateToolButton("Menu" , 45, 365) Global Const $toolContextMenu = CreateToolButton("Context Menu", 5, 405) Global Const $toolForm = CreateToolButton("Form" , 45, 405) #EndRegion toolbar GUICtrlCreateTab(95, 5, $main_width - 105, $main_height - 35) GUICtrlCreateTabItem("Form 1") GUICtrlCreateTabItem("Form 2") GUISetState(@SW_SHOWNORMAL) Do Switch GUIGetMsg() Case $GUI_EVENT_CLOSE Exit EndSwitch Until False Func CreateToolButton(Const $name, Const $left, Const $top) Local Const $tool = GUICtrlCreateRadio($name, $left, $top, 40, 40, BitOR($BS_PUSHLIKE, $BS_ICON)) GUICtrlSetImage($tool, @ScriptDir & "\resources\Icons\" & $name & ".ico") GUICtrlSetTip($tool, $name) Return $tool EndFunc
  5. Actually, that is super cool. I've been working on a GUI builder for AutoIt for quite some time and was wondering if this was even possible! Dang, looking again ... I'm not sure this will do quite what I need. What I'm hoping for is to have a main window that has a toolbar and a blank canvas so to speak where a gui can be designed and it's restricted to that main window.
  6. Fixed an issue where you had to switch tabs after opening to make it start working.
  7. Hello! I'm getting this error: (493,26) : error: _WinAPI_GetCapture() already defined. Func _WinAPI_GetCapture()
  8. Finally! Latest version in the OP. Huge shoutout to Jos because I leaned very heavily on his AutoItGotoDefinition (you did write that I assume?).
  9. Latest version! Works on AutoItObject methods now! A big shoutout to ioa747 too!
  10. Thank you! You gave me the inspiration to get it working again. Regular calltips work but the ones for AutoItObject methods don't at the moment for all use cases.
  11. Meh, still has issues. I'm done with this.
  12. Latest update! Check it out!
  13. Nvm, I was looking at it wrong. Sorry!
  14. Hello lovely people. I installed Autoit3 and VSCode and installed Damien's extension. When I ran a script then I would see the errors and warnings neatly output to the console. However when I installed Scite4AutoIt3 then I no longer get the problems in the console. Anyone know how to change this?
×
×
  • Create New...