listbox
Method SelectorTypeClicked(event:wxCommandEvent)
' once the SelectorType ListBox is clicked we need to populate the Selector ListBox
' Find the index of the item clicked
Local index:Int = wxCommandEvent(event).GetInt()
' Get the value of the item clicked
' Note: This is the TSelectorType object we stored earlier.
' It gives us access to the Id, for example, which gives us a quicker
' lookup in the SQL. (ie. no table joins, since the Id is a foreign key!)
Local sSelectorType:TSelectorType = TSelectorType(m_listBoxSelectorType.GetItemClientData(index))
' now fill in the Selector ListBox
PopulateSelector(sSelectorType.SelectorTypeID)
' and clear the Memo Field
End Method
double click
Method PopupMenuRightClick(event:wxMouseEvent)
DebugLog "RightClick activated"
Select event.GetId()
Case ID_SelectorType
DebugLog "You clicked on Boris!"
' Case ID_lb2
' DebugLog "You clicked on Fred!"
End Select
event.Skip()
End Method
|