Control picker Inherits ABPeoplePickerViewControlMBS
ControlInstance picker Inherits ABPeoplePickerViewControlMBS
EventHandler Sub DisplayedPropertyDidChange()
log CurrentMethodName
End EventHandler
EventHandler Sub GroupDoubleClick()
dim name as string
dim r() as ABRecordMBS = m.selectedRecords
if UBound(r)>=0 then
name = r(0).DisplayName
else
name = "?"
end if
log CurrentMethodName+": "+name
End EventHandler
EventHandler Sub GroupSelectionDidChange()
log CurrentMethodName
End EventHandler
EventHandler Sub NameDoubleClick()
dim name as string
dim r() as ABRecordMBS = m.selectedRecords
if UBound(r)>=0 then
name = r(0).DisplayName
else
name = "?"
end if
log CurrentMethodName+": "+name
End EventHandler
EventHandler Sub NameSelectionDidChange()
log CurrentMethodName
End EventHandler
EventHandler Sub Open()
m = me.view
// customize?
m.allowsMultipleSelection = true
m.allowsGroupSelection = true
End EventHandler
EventHandler Sub ValueSelectionDidChange()
log CurrentMethodName
End EventHandler
End Control
Control Info1 Inherits Label
ControlInstance Info1 Inherits Label
End Control
Control List Inherits Listbox
ControlInstance List Inherits Listbox
End Control