Xojo Conferences
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/MacCF/Carbon Events/Tablet Window
Function:
Required plugins for this example: MBS MacCF Plugin, MBS Main Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacCF/Carbon Events/Tablet Window
This example is the version from Sun, 17th Mar 2012.
Project "Tablet Window.rbp"
Class Window1 Inherits Window
Control GroupBox1 Inherits GroupBox
ControlInstance GroupBox1 Inherits GroupBox
End Control
Control StaticText1 Inherits Label
ControlInstance StaticText1 Inherits Label
End Control
Control StaticTexts Inherits Label
ControlInstance StaticTexts(0) Inherits Label
ControlInstance StaticTexts(1) Inherits Label
ControlInstance StaticTexts(2) Inherits Label
ControlInstance StaticTexts(3) Inherits Label
ControlInstance StaticTexts(4) Inherits Label
ControlInstance StaticTexts(5) Inherits Label
ControlInstance StaticTexts(6) Inherits Label
ControlInstance StaticTexts(7) Inherits Label
ControlInstance StaticTexts(8) Inherits Label
ControlInstance StaticTexts(9) Inherits Label
ControlInstance StaticTexts(10) Inherits Label
ControlInstance StaticTexts(11) Inherits Label
ControlInstance StaticTexts(12) Inherits Label
ControlInstance StaticTexts(13) Inherits Label
End Control
Control LastUpdatePoint Inherits Label
ControlInstance LastUpdatePoint Inherits Label
End Control
Control absx Inherits Label
ControlInstance absx Inherits Label
End Control
Control absy Inherits Label
ControlInstance absy Inherits Label
End Control
Control absz Inherits Label
ControlInstance absz Inherits Label
End Control
Control Button Inherits Label
ControlInstance Button Inherits Label
End Control
Control Pressure Inherits Label
ControlInstance Pressure Inherits Label
End Control
Control tangentialPressure Inherits Label
ControlInstance tangentialPressure Inherits Label
End Control
Control tiltx Inherits Label
ControlInstance tiltx Inherits Label
End Control
Control tilty Inherits Label
ControlInstance tilty Inherits Label
End Control
Control rotation Inherits Label
ControlInstance rotation Inherits Label
End Control
Control GroupBox2 Inherits GroupBox
ControlInstance GroupBox2 Inherits GroupBox
End Control
Control LastUpdateProximity Inherits Label
ControlInstance LastUpdateProximity Inherits Label
End Control
Control enterProximity Inherits Label
ControlInstance enterProximity Inherits Label
End Control
Control vendorid Inherits Label
ControlInstance vendorid Inherits Label
End Control
Control tabletid Inherits Label
ControlInstance tabletid Inherits Label
End Control
Control pointerid Inherits Label
ControlInstance pointerid Inherits Label
End Control
EventHandler Sub Open() c=new myCarbonWindowEvents c.Tablet=true c.Listen self End EventHandler
Sub UpdatetabletProximity(p as carboneventstabletProximityMBS) dim d as date d=new date LastUpdateProximity.text=d.LongTime if p.enterProximity=0 then enterProximity.text="leaving" else enterProximity.text="entering" end if VendorID.text=str(p.VendorID) TabletID.text=str(p.TabletID) PointerID.text=str(p.PointerID) End Sub
Sub updateTabletPoint(p as carboneventstabletPointMBS) dim d as date d=new date LastUpdatePoint.text=d.LongTime absx.text=str(p.AbsX) absy.text=str(p.Absy) absz.text=str(p.Absz) Button.text=str(p.Buttons) Pressure.text=str(p.Pressure) rotation.text=str(p.Rotation) tiltx.text=str(p.Tiltx) tilty.text=str(p.Tilty) tangentialPressure.text=str(p.TangentialPressure) End Sub
Property Protected c As mycarbonWindowEvents
End Class
MenuBar Menu
MenuItem UntitledMenu3 = ""
MenuItem UntitledMenu2 = "File"
MenuItem FileQuit = "Quit"
MenuItem UntitledMenu0 = "Edit"
MenuItem EditUndo = "Undo"
MenuItem UntitledMenu1 = "-"
MenuItem EditCut = "Cut"
MenuItem EditCopy = "Copy"
MenuItem EditPaste = "Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class myCarbonWindowEvents Inherits CarbonWindowsEventsMBS
EventHandler Function MouseDown(x as single, y as single, modifierKeys as integer, button as integer, clickcount as integer, MouseChord as integer) As boolean if TabletPoint<>nil then Window1.updateTabletPoint TabletPoint end if if TabletProximity<>nil then Window1.UpdatetabletProximity TabletProximity end if End EventHandler
EventHandler Function MouseDragged(x as single, y as single, modifierKeys as integer, deltax as single, deltay as single, button as integer, clickcount as integer, MouseChord as integer) As boolean if TabletPoint<>nil then Window1.updateTabletPoint TabletPoint end if if TabletProximity<>nil then Window1.UpdatetabletProximity TabletProximity end if End EventHandler
EventHandler Function MouseMoved(x as single, y as single, modifierKeys as integer, deltax as single, deltay as single) As boolean if TabletPoint<>nil then Window1.updateTabletPoint TabletPoint end if if TabletProximity<>nil then Window1.UpdatetabletProximity TabletProximity end if End EventHandler
EventHandler Function MouseUp(x as single, y as single, modifierKeys as integer, button as integer, clickcount as integer, MouseChord as integer) As boolean if me.TabletPoint<>nil then Window1.updateTabletPoint TabletPoint end if if TabletProximity<>nil then Window1.UpdatetabletProximity TabletProximity end if End EventHandler
End Class
Class App Inherits Application
End Class
End Project

See also:

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS MacCF Plugin.




Links
MBS Xojo Plugins