wxMultiChoiceDialog (Select All/Select None)

BlitzMax Forums/Brucey's Modules/wxMultiChoiceDialog (Select All/Select None)

kenshin (Posted 2009) [#1]

I'm using the wxMultiChoiceDialog for some reasonable size lists. Is there any way to get "ALL / NONE" buttons (or something functionally equivalent) on it in addition to the "OK / CANCEL" ones? I can't find any evidence of this option, although it seems like such an obvious thing to have when multiple-selection from a list is being done. btw v2.8.9 is working great here.

kenshin (Posted 2009) [#2]

I've knocked up a type that can be used as an alternative to the modal wxMultiChoiceDialog requester, but also implements the 'Select All' and 'Select None' buttons. It's pretty much a drop in replacement for the original requester except for minor differences. I've also made it to look and act as close as possible to the original requester as I could. Here it is with a demo showing how to use it. Just copy, paste, and run. Hope this helps anyone else looking for the extra All/None function. SuperStrict Import wx.wxApp Import wx.wxDialog Import wx.wxCheckListBox Import wx.wxButton Import wx.wxPanel Import wx.wxStaticLine Import wx.wxStaticText Import brl.standardio New MultiChoiceDialogDemoApp.Run() End Type MultiChoiceDialogDemoApp Extends wxApp Method OnInit:Int() Local Choices:String[] = [ "Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine" ] Local PreselectedChoices:Int[] = [ 1, 5 ] Local MultiChoiceDialogDemo:TwxMultiChoiceDialog = TwxMultiChoiceDialog( New TwxMultiChoiceDialog.Create_( Null, wxID_ANY, "Multi Choice Dialog", , , , , wxDEFAULT_DIALOG_STYLE | wxRESIZE_BORDER ) ) MultiChoiceDialogDemo.Initialize( "Select the Items.", 400, 400, True, Choices ) MultiChoiceDialogDemo.SetSelections( PreselectedChoices ) Local Modal:Int = MultiChoiceDialogDemo.ShowModal() MultiChoiceDialogDemo.EndModal( Modal ) MultiChoiceDialogDemo.Destroy() If MultiChoiceDialogDemo.OK = True Print "The items you have selected are:" Local SelectedChoices:Int[] = MultiChoiceDialogDemo.GetSelections() For Local i:Int = EachIn SelectedChoices Print "Item " + i Next EndIf Return True End Method End Type Type TwxMultiChoiceDialog Extends wxDialog Field Panel:wxPanel Field CheckListBox:wxCheckListBox Field choices_cnt:Int = 0 Field OK:Int = False Const CheckListBox_ID:Int = wxID_HIGHEST + 1 Const Btn_OK_ID:Int = wxID_HIGHEST + 2 Const Btn_CANCEL_ID:Int = wxID_HIGHEST + 3 Const Btn_ALL_ID:Int = wxID_HIGHEST + 4 Const Btn_NONE_ID:Int = wxID_HIGHEST + 5 Const StaticLine_ID:Int = wxID_HIGHEST + 6 Field MessageText_GDGT:wxStaticText Const MessageText_ID:Int = wxID_HIGHEST + 7 Function Create:TwxMultiChoiceDialog( parent_wndw:wxWindow, x_pos:Int = -1, y_pos:Int = -1, x_size:Int = 380, y_size:Int = 380 ) End Function Method Initialize( message:String = "", x_size:Int = 400, y_size:Int = 400, center:Int = True, choices:String[] ) Panel = wxPanel.CreatePanel( Self ) Local panel_colour:wxColour = Panel.GetBackgroundColour() CheckListBox = wxCheckListBox.CreateCheckListBox( Panel, CheckListBox_ID, choices, 10, 10,,, 0 ) choices_cnt = choices.Length Local btn_ok:wxButton = wxButton.CreateButton( Panel, Btn_OK_ID, "OK" ) Local btn_cancel:wxButton = wxButton.CreateButton( Panel, Btn_CANCEL_ID, "Cancel" ) Local btn_all:wxButton = wxButton.CreateButton( Panel, Btn_ALL_ID, "Select All" ) Local btn_none:wxButton = wxButton.CreateButton( Panel, Btn_NONE_ID, "Select None" ) Local static_line:wxStaticLine = wxStaticLine.CreateStaticLine( Panel, StaticLine_ID ) MessageText_GDGT = wxStaticText.CreateStaticText( Panel, MessageText_ID, "", , , , , wxALIGN_LEFT ) MessageText_GDGT.SetBackgroundColour( panel_colour ) Local main_sizer:wxBoxSizer = wxBoxSizer.CreateBoxSizer( wxVERTICAL ) main_sizer.Add( MessageText_GDGT, 0, wxEXPAND | wxTOP | wxLEFT | wxRIGHT | wxBOTTOM, 15 ) main_sizer.Add( CheckListBox, 1, wxGROW | wxLEFT | wxRIGHT, 15 ) Local bottom_sizer:wxBoxSizer = wxBoxSizer.CreateBoxSizer( wxHORIZONTAL ) bottom_sizer.Add( btn_all, 0, wxLEFT | wxBOTTOM, 10 ) bottom_sizer.Add( btn_none, 0, wxLEFT | wxBOTTOM, 10 ) bottom_sizer.AddStretchSpacer( 20 ) bottom_sizer.Add( btn_ok, 0, wxRIGHT | wxBOTTOM, 10 ) bottom_sizer.Add( btn_cancel, 0, wxRIGHT | wxBOTTOM, 10 ) main_sizer.Add( static_line, 0, wxEXPAND | wxTOP | wxBOTTOM | wxLEFT | wxRIGHT, 10 ) main_sizer.AddSizer( bottom_sizer, 0, wxEXPAND | wxALIGN_RIGHT ) Panel.SetAutoLayout( True ) Panel.SetSizer( main_sizer ) Self.SetSize( x_size, y_size ) Self.SetMinSize( x_size, y_size ) Self.OK = False If center = True Self.Center() End If MessageText_GDGT.SetLabel( message ) Connect( Btn_OK_ID, wxEVT_COMMAND_BUTTON_CLICKED, OnOK ) Connect( Btn_CANCEL_ID, wxEVT_COMMAND_BUTTON_CLICKED, OnCancel ) Connect( Btn_ALL_ID, wxEVT_COMMAND_BUTTON_CLICKED, OnAll ) Connect( Btn_NONE_ID, wxEVT_COMMAND_BUTTON_CLICKED, OnNone ) End Method Method SetSelections( selections:Int[] ) For Local i:Int = EachIn selections CheckListBox.Check( i, True ) Next EndMethod Method GetSelections:Int[]() Local selections_cnt:Int = 0 For Local i:Int = 0 To Self.choices_cnt - 1 If CheckListBox.IsChecked( i ) = True selections_cnt :+ 1 EndIf Next Local selections:Int[ selections_cnt ] Local selections_ptr:Int = 0 For Local i:Int = 0 To Self.choices_cnt - 1 If CheckListBox.IsChecked( i ) = True selections[ selections_ptr ] = i selections_ptr :+ 1 EndIf Next Return selections End Method Function OnOK( event:wxEvent ) TwxMultiChoiceDialog( event.parent ).OK = True TwxMultiChoiceDialog( event.parent ).Close() End Function Function OnCancel( event:wxEvent ) TwxMultiChoiceDialog( event.parent ).OK = False TwxMultiChoiceDialog( event.parent ).Close() End Function Function OnAll( event:wxEvent ) For Local i:Int = 0 To TwxMultiChoiceDialog( event.parent ).choices_cnt - 1 TwxMultiChoiceDialog( event.parent ).CheckListBox.Check( i, True ) Next End Function Function OnNone( event:wxEvent ) For Local i:Int = 0 To TwxMultiChoiceDialog( event.parent ).choices_cnt - 1 TwxMultiChoiceDialog( event.parent ).CheckListBox.Check( i, False ) Next End Function End Type

DavidDC (Posted 2009) [#3]

If you create the OK and CANCEL buttons with the stock id's wxID_OK and wxID_CANCEL respectively then you shouldn't need to: connect them to anything, call close() or end modal(). Thanks for sharing.

kenshin (Posted 2009) [#4]

Thanks for the tip:) I'll look at doing it tonight. About to go to work now.