;-- TIME_STAMP 2022-04-25 11:58:30 #include #include #include 'GroupEx.au3' #cs You have 4 functions: _GuiCtrlGroup_Create ($_sText, $_iX, $_iY, $_iWidth, $_iHeight, $_iBorderCol=Default, $_iForeCol=-1, $_iBackCol=-1, $_iTitleParam=$_GROUPTEXT_LEFT) $_sText - Titel, optional: "Titel", i.e. "Courier New;10"; Angle brackets inside the title must be masked: "\". Font name and size can only be specified during creation and are then unchangeable! $_iX - x position $_iY - y position, its the value for top of the title - border starts at: y +7 $_iWidth - width $_iHeight - height, its the height from top of title to bottom border $_iBorderCol - [optional] Color for all border elements. Keyword Default = $COLOR_ACTIVEBORDER, -1 = System (invisible) $_iForeCol - [optional] Title text color. Default is -1 (System). $_iBackCol - [optional] Group area background color. Default is -1 (System). $_iTitleParam - [optional] Title align left (default), centered or right or combined with italic style: BitOr($_CONST_ALIGN_, $_GROUPTEXT_ITALIC) Because $_GROUPTEXT_LEFT is the default alignment, you can use $_GROUPTEXT_ITALIC alone, to set italic style left aligned. _GuiCtrlGroup_Close () Starts a new group and so the previous group will closed. Only required, if outside the group radio buttons following. But it can used to close each group. _GuiCtrlGroup_Set (ByRef $_structGroup, $_vValue, $_constFlag, $_aCtrlInside= Null) $_structGroup - Return value from _GuiCtrlGroup_Create() $_vValue - The new value, maybe an empty string with some flag. $_constFlag - The const to identify the action (see constants at top) $_aCtrlInside - [optional] With action flag $_GROUP_MOVE_ABS/$_GROUP_MOVE_REL you can give an array of controls a single control variable) inside this group. This controls will moved too with the delta x/y values. _GuiCtrlGroup_SetState (ByRef $_structGroup, $_iState, $_aCtrlInside=Null, $_iTxtColor=Null, $_iBGColor=Null) $_structGroup - Return value from _GuiCtrlGroup_Create() $_iState - The new state ($GUI_SHOW, $GUI_HIDE, $GUI_ENABLE, $GUI_DISABLE) $_aCtrlInside - [optional] When you pass an array of controls (or a single control variable), they are set to the same state as the group itself. $_iTxtColor - [optional] The title color if set to disable/enable. With 'Null' the default/previous color will used. "-1" uses the system color. $_iBGColor - [optional] The background color if set to disable/enable. With 'Null' the default/previous color will used. "-1" uses the system color. #ce _Example_1() _Example_2() _Example_3() Func _Example_1() Local $gui = GUICreate('GroupEx Example - Main', 550, 560, 200, 200) Local $btChild = GUICtrlCreateButton('Show Child', 460, 528, 80, 22) ; create a default group with red title color Local $g1 = _GuiCtrlGroup_Create('Title', 10, 10, 250, 80, -1, 0xFF0000) ; set different colors for borders left&bottom and top&right _GuiCtrlGroup_Set($g1, 0x00008B, BitOR($_GROUPBORDER_LEFT,$_GROUPBORDER_BOTTOM)) _GuiCtrlGroup_Set($g1, 0xFF1234, BitOR($_GROUPBORDER_TOP,$_GROUPBORDER_RIGHT)) GUICtrlCreateLabel('Controls inside the group', 20, 25) Local $g1_in = GUICtrlCreateInput('Input', 20, 50, 100, 20) ; create group with centered title Local $g2 = _GuiCtrlGroup_Create('Title', 10, 100, 250, 80, -1, 0xFF0000, -1, $_GROUPTEXT_CENTER) _GuiCtrlGroup_Set($g2, 0x00008B, BitOR($_GROUPBORDER_LEFT,$_GROUPBORDER_BOTTOM)) _GuiCtrlGroup_Set($g2, 0xFF1234, BitOR($_GROUPBORDER_TOP,$_GROUPBORDER_RIGHT)) Local $g2_btn = GUICtrlCreateButton('New Title', 20, 140, 70, 20) Local $g2_r1 = GUICtrlCreateRadio(' 1', 120, 141, 50) GUICtrlSetState(-1, $GUI_CHECKED) Local $g2_r2 = GUICtrlCreateRadio(' 2', 180, 141, 50) ; create group with title right aligned Local $g3 = _GuiCtrlGroup_Create('Title', 10, 190, 250, 80, -1, 0xFF0000, -1, $_GROUPTEXT_RIGHT) _GuiCtrlGroup_Set($g3, 0x00008B, BitOR($_GROUPBORDER_LEFT,$_GROUPBORDER_BOTTOM)) _GuiCtrlGroup_Set($g3, 0xFF1234, BitOR($_GROUPBORDER_TOP,$_GROUPBORDER_RIGHT)) Local $g3_r1 = GUICtrlCreateRadio(' A', 20, 230, 50) GUICtrlSetState(-1, $GUI_CHECKED) Local $g3_r2 = GUICtrlCreateRadio(' B', 80, 230, 50) Local $g4 = _GuiCtrlGroup_Create('Title italic', 290, 10, 250, 80, -1, 0x00008B, 0xD8D1EE, BitOR($_GROUPTEXT_RIGHT, $_GROUPTEXT_ITALIC)) _GuiCtrlGroup_Set($g4, 0x00008B, BitOR($_GROUPBORDER_TOP,$_GROUPBORDER_RIGHT)) ; pass font name & size appended as: Local $g5 = _GuiCtrlGroup_Create('Other Font and Size', 290, 100, 250, 80, -1, 0xFF0000, 0xD8D1EE, $_GROUPTEXT_CENTER) _GuiCtrlGroup_Set($g5, 0x00008B, BitOR($_GROUPBORDER_TOP,$_GROUPBORDER_RIGHT)) Local $g6 = _GuiCtrlGroup_Create('Title', 290, 190, 250, 80, -1, 0x00008B, 0xD8D1EE) _GuiCtrlGroup_Set($g6, 0x00008B, BitOR($_GROUPBORDER_TOP,$_GROUPBORDER_RIGHT)) Local $g7 = _GuiCtrlGroup_Create('Title', 10, 290, 250, 80, -1, 0x00008B, 0xFFFFFF) _GuiCtrlGroup_Set($g7, 0xFF0000, BitOR($_GROUPBORDER_LEFT,$_GROUPBORDER_RIGHT)) Local $g7_bt = GUICtrlCreateButton('Change Background', 30, 330, 120, 20) Local $g8 = _GuiCtrlGroup_Create('Title italic', 10, 380, 250, 80, -1, 0x00008B, 0xFFFFFF, BitOR($_GROUPTEXT_CENTER, $_GROUPTEXT_ITALIC)) _GuiCtrlGroup_Set($g8, 0xFF0000, BitOR($_GROUPBORDER_LEFT,$_GROUPBORDER_RIGHT)) Local $g9 = _GuiCtrlGroup_Create('Title', 10, 470, 250, 80, -1, 0x00008B, 0xFFFFFF, $_GROUPTEXT_RIGHT) _GuiCtrlGroup_Set($g9, 0xFF0000, BitOR($_GROUPBORDER_LEFT,$_GROUPBORDER_RIGHT)) ; to use angle brackets in the title (without specifying font/size), mask the brackets with a backslash: "Title \" Local $g10 = _GuiCtrlGroup_Create('Title \', 290, 290, 250, 80, -1, 0x00008B, 0xFFFFFF) _GuiCtrlGroup_Set($g10, 0xFF0000, BitOR($_GROUPBORDER_TOP,$_GROUPBORDER_BOTTOM)) Local $g11 = _GuiCtrlGroup_Create('Title', 290, 380, 250, 80, -1, 0x00008B, 0xFFFFFF, $_GROUPTEXT_CENTER) _GuiCtrlGroup_Set($g11, 0xFF0000, BitOR($_GROUPBORDER_TOP,$_GROUPBORDER_BOTTOM)) Local $g11_bt = GUICtrlCreateButton('Switch normal/italic', 310, 420, 140, 22) Local $gui2 = GUICreate('GroupEx Example - Child', 400, 120, 20, 20, -1, $WS_EX_MDICHILD, $gui) Local $gCh1 = _GuiCtrlGroup_Create('Group on Child', 10, 10, 250, 80, -1, 0xFF0000) _GuiCtrlGroup_Set($gCh1, $GUI_BKCOLOR_TRANSPARENT, $_GROUPBACKGROUND) _GuiCtrlGroup_Set($gCh1, 0x00008B, BitOR($_GROUPBORDER_LEFT,$_GROUPBORDER_BOTTOM)) _GuiCtrlGroup_Set($gCh1, 0xFF1234, BitOR($_GROUPBORDER_TOP,$_GROUPBORDER_RIGHT)) Local $lbChild = GUICtrlCreateLabel('Click Label for Test', 20, 45, 100, 17) GUISetState(@SW_SHOW, $gui) Local $g2_n = 0 Local $g7_n = 0 Local $g7_aCol[] = [0xFFFFFF, 0xFFFF00] Local $g11_bItalic = False, $aMsg While True $aMsg = GUIGetMsg(1) Switch $aMsg[1] Case $gui Switch $aMsg[0] Case -3 GUIDelete($gui2) GUIDelete($gui) ExitLoop Case $g2_btn $g2_n += 1 _GuiCtrlGroup_Set($g2, 'New Title [' & $g2_n & ']', $_GROUPTEXT_TEXT) Case $g7_bt $g7_n = Abs($g7_n -1) _GuiCtrlGroup_Set($g7, $g7_aCol[$g7_n], $_GROUPBACKGROUND) Case $g10.Text MsgBox(0, 'Clicked', 'Group 10 - Title clicked') Case $g11_bt $g11_bItalic = Not $g11_bItalic $flag = $g11_bItalic ? $_GROUPTEXT_ITALIC : $_GROUPTEXT_DEFAULT _GuiCtrlGroup_Set($g11, '', BitOR($_GROUPTEXT_CENTER, $flag)) Case $btChild GUISetState(@SW_SHOW, $gui2) GUISetState(@SW_HIDE, $gui) EndSwitch Case $gui2 Switch $aMsg[0] Case -3 GUISetState(@SW_HIDE, $gui2) GUISetState(@SW_SHOW, $gui) Case $lbChild MsgBox(0, 'Clicked', 'Click on Label') EndSwitch EndSwitch WEnd EndFunc Func _Example_2() Local $gui = GUICreate('GroupEx Example Show/Hide, Enable/Disable, Change Pos/Size', 550, 260, 200, 200) Local $group = _GuiCtrlGroup_Create('Test', 10, 10, 200, 150, Default, 0xFF0000) Local $combo = GUICtrlCreateCombo('Item 1', 20, 40, 180) GUICtrlSetData($combo, "Item 2|Item 3|Item 4|Item 5", "Item 2") Local $hIPAddress = _GUICtrlIpAddress_Create($gui, 20, 70) _GUICtrlIpAddress_Set($hIPAddress, '192.168.178.75') Local $btShowHide = GUICtrlCreateButton('Show / Hide w. Controls', 350, 10, 180, 22) Local $btEnDisable = GUICtrlCreateButton('Enable / Disable w. Controls', 350, 50, 180, 22) Local $btMove = GUICtrlCreateButton('Move up / down w. Controls', 350, 90, 180, 22) Local $btDimension = GUICtrlCreateButton('Change width && height', 350, 130, 180, 22) Local $bHide = False, $bDisable = False, $iMove = -1, $iDim = -1 Local $aCtrl[] = [$combo, $hIPAddress] GUISetState() While 1 Switch GUIGetMsg() Case -3 GUIDelete() ExitLoop Case $btShowHide $bHide = Not $bHide _GuiCtrlGroup_SetState($group, ($bHide ? $GUI_HIDE : $GUI_SHOW), $aCtrl) Case $btEnDisable $bDisable = Not $bDisable _GuiCtrlGroup_SetState($group, ($bDisable ? $GUI_DISABLE : $GUI_ENABLE), $aCtrl) Case $btMove ; Size & pos param as array [x,y,width,height] or comma separated string "x,y,width,height" ; All param values are predefined with "*" - the current value. So you can omit unchanged parameters on the righthand side. ; x:unchanged(*), y: +- 80 from current position $iMove *= -1 If $iMove = 1 Then _GuiCtrlGroup_Set($group, '*,80', $_GROUP_MOVE_REL, $aCtrl) Else _GuiCtrlGroup_Set($group, '*,-80', $_GROUP_MOVE_REL, $aCtrl) EndIf Case $btDimension ; x,y:unchanged(*), w: +- 100, h: +- 50 $iDim *= -1 If $iDim = 1 Then _GuiCtrlGroup_Set($group, '*,*,100,50', $_GROUP_MOVE_REL) Else _GuiCtrlGroup_Set($group, '*,*,-100,-50', $_GROUP_MOVE_REL) EndIf EndSwitch WEnd EndFunc Func _Example_3() Local $gui = GUICreate('GroupEx Example Radios in- /outside' , 430, 340, 200, 200) Local $gr1 = _GuiCtrlGroup_Create('Group 1', 10, 10, 400, 100, Default, 0xFF0000) Local $gr1_r1 = GUICtrlCreateRadio(' Group-1, Radio 1', 30, 30) GUICtrlSetState(-1, $GUI_CHECKED) Local $gr1_r2 = GUICtrlCreateRadio(' Group-1, Radio 2', 200, 30) GUIStartGroup() ; starts the outside group Local $out_r1 = GUICtrlCreateRadio(' Out-Group, Radio 1', 30, 150) Local $out_r2 = GUICtrlCreateRadio(' Out-Group, Radio 2', 200, 150) GUICtrlSetState(-1, $GUI_CHECKED) Local $gr2 = _GuiCtrlGroup_Create('Group 2', 10, 210, 400, 100, Default, 0xFF0000) Local $gr2_r1 = GUICtrlCreateRadio(' Group-2, Radio 1', 30, 230) GUICtrlSetState(-1, $GUI_CHECKED) Local $gr2_r2 = GUICtrlCreateRadio(' Group-2, Radio 2', 200, 230) GUISetState() Local $nMsg While 1 $nMsg = GUIGetMsg() Switch $nMsg Case -3 GUIDelete() ExitLoop Case $gr1_r1, $gr1_r2, $gr2_r1, $gr2_r2, $out_r1, $out_r2 MsgBox(0, 'Clicked', ControlGetText($gui, '', $nMsg)) EndSwitch WEnd EndFunc