Platforms to show: All Mac Windows Linux Cross-Platform
/MacCloud/Addressbook People Picker
Required plugins for this example: MBS MacBase Plugin, MBS MacControls Plugin, MBS MacCocoa Plugin, MBS Main Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacCloud/Addressbook People Picker
This example is the version from Fri, 22th Jan 2015.
Project "Addressbook People Picker.xojo_binary_project"
Class App Inherits Application
Const kEditClear = "&Delete"
Const kFileQuit = "&Quit"
Const kFileQuitShortcut = ""
End Class
Class Window1 Inherits Window
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
EventHandler Sub Open()
if not TargetCocoa then
MsgBox "This example requires Mac OS X 10.5 and Cocoa."
quit
end if
End EventHandler
Sub log(s as string)
List.AddRow s
List.ScrollPosition = List.LastIndex
End Sub
Property m As ABPeoplePickerViewMBS
End Class
MenuBar MenuBar1
MenuItem FileMenu = "&File"
MenuItem FileQuit = "#App.kFileQuit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "#App.kEditClear"
MenuItem UntitledMenu0 = "-"
MenuItem EditSelectAll = "Select &All"
End MenuBar
End Project
The items on this page are in the following plugins: MBS MacCloud Plugin.