Settings Dialog

[intime69]

I've been trying like crazy to find a way to do a 'Settings' dialog with two (2) panes like a lot of applications have. This is what I want but I am sure that there is a much better way to do it:

And here's the code that at least shows what I want:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
    Local $listview, $hListView, $button, $item1, $item2, $item3, $itemSep, $input1, $msg, $GUI, $Form2, $PasswordEdit, $ButtonCancel, $ButtonOk, $EnterPassLabel, $activelistitem, $Label, $GeneralLabel, $AdvancedLabel, $ActiveView
    $GUI = GUICreate("Settings", 750, 500, -1, -1)
    $listview = GUICtrlCreateListView("                                       ", 10, 10, 148, 450, BitOR($GUI_SS_DEFAULT_LISTVIEW,$LVS_NOCOLUMNHEADER,$LVS_NOSORTHEADER,$LVS_NOSCROLL));,$LVS_SORTDESCENDING)
    $item1 = GUICtrlCreateListViewItem("General", $listview)
    $item2 = GUICtrlCreateListViewItem("Password", $listview)
    $itemSep = GUICtrlCreateListViewItem("———————————", $listview)
    GUICtrlSetColor ( -1, 0xbababa)
    $item3 = GUICtrlCreateListViewItem("Advanced", $listview)
    $GeneralLabel = GUICtrlCreateLabel("General settings would go here.", 180, 12, 200, 17, 0)
    GUISetState()
    Do
        $msg = GUIGetMsg()
        $activelistitem = GUICtrlRead(GUICtrlRead($listview))
        Select
            Case $msg = $item1 or StringInStr ($activelistitem, "General")
                If $ActiveView <> "General" Then
                    GUICtrlDelete ($PasswordEdit)
                    GUICtrlDelete ($ButtonOk)
                    GUICtrlDelete ($ButtonCancel)
                    GUICtrlDelete ($EnterPassLabel)
                    GUICtrlDelete ($AdvancedLabel)
                    $GeneralLabel = GUICtrlCreateLabel("General settings would go here.", 180, 12, 180, 17, 0)
                    $ActiveView = "General"
                EndIf
            Case $msg = $item2 or StringInStr ($activelistitem, "Password")
                If $ActiveView <> "Password" Then
                    GUICtrlDelete ($GeneralLabel)
                    GUICtrlDelete ($AdvancedLabel)
                    $PasswordEdit = GUICtrlCreateInput("password:", 180, 32, 233, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
                    $ButtonOk = GUICtrlCreateButton("&OK", 228, 64, 75, 25, $BS_NOTIFY)
                    $ButtonCancel = GUICtrlCreateButton("&Cancel", 310, 64, 75, 25, $BS_NOTIFY)
                    $EnterPassLabel = GUICtrlCreateLabel("Enter password:", 180, 12, 180, 17, 0)
                    $ActiveView = "Password"
                EndIf
            Case $msg = $item3 or StringInStr ($activelistitem, "Advanced")
                If $ActiveView <> "Advanced" Then
                    GUICtrlDelete ($PasswordEdit)
                    GUICtrlDelete ($ButtonOk)
                    GUICtrlDelete ($ButtonCancel)
                    GUICtrlDelete ($EnterPassLabel)
                    GUICtrlDelete ($GeneralLabel)
                    $AdvancedLabel = GUICtrlCreateLabel("Advanced settings would go here.", 180, 12, 180, 17, 0)
                    $ActiveView = "Advanced"
                EndIf
        EndSelect
        Sleep(10)
    Until $msg = $GUI_EVENT_CLOSE
EndFunc   ;==>Example

Is there anything out there (a UDF or an AutoIt example) that can do exactly what I have but in a much more efficient way?

I've searched through UDF's, examples and the AutoIt forum in general but came up empty. Maybe layered GUI's would work? I don't know? I tried but wasn't successful...

As usual, any help would be so greatly appreciated and I am sure that a lot of people want exactly what I am trying to achieve,

Thanks,

Ian

[ProgAndy]

There is a more elegant way: Create multiple child GUIs and Show/Hide theam according to the selected item in the List.

I created some functions to help with that:

http://autoit.de/index.php?page=Thread&postID=77017#post77017

[guinness]

Cheers ProgAndy! I would also recommend the Wiki entry about Multiple GUI's too >> http://www.autoitscript.com/wiki/Managing_Multiple_GUIs

[intime69]

Thanks to both of you for the reply! I knew about child windows but I wasn't quite sure how to do it so that they would follow the main GUI when moving the window. ProgAndy, your example works perfectly and even though some of the top functions where a little be tricky to understand, it is extremely easy to add items making this the perfect base for what I am trying to do.

Thanks so much! I knew that someone would come to save the day! AutoIt is great and so is it's community!

Take care,

Ian

[ProgAndy]

Yeah, the function names do not fit and the UDFs are lacking documentation, but I am not in the mood to change it

[AppTux]

I would prefer a For loop and GUICtrlSetState()

[intime69]

Yeah, the function names do not fit and the UDFs are lacking documentation, but I am not in the mood to change it

Don't worry about it! All it's lacking is a bunch of green text... I think it's perfect!

Thanks again! You saved me a bunch of time!

Ian

P.S.: I got it working with ListView instead of TreeView like I originally wanted it. Now I have to incorporate all my settings. I have at least 150 different settings so it's quite the task! You UDF is definitely going to help me a great deal!

[intime69]

Just a quick note. With the extended style set to:

$WS_EX_CONTROLPARENT

... the tab GUI can be moved around. Replacing $WS_EX_CONTROLPARENT with -1 fixes this issue.

But it did scare me for a moment. Glad I got the GUI to not move

Ian