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.


The biggest plugin in space...