Commit iniical.

B4A/B4XPage3.bas

@@ -0,0 +1,77 @@
+B4A=true
+Group=Default Group
+ModulesStructureVersion=1
+Type=Class
+Version=9.86
+@EndOfDesignText@
+Sub Class_Globals
+	Private Root As B4XView 'ignore
+	Private xui As XUI 'ignore
+	Public cvs As B4XCanvas
+	Public Panel1 As B4XView
+End Sub
+
+'You can add more parameters here.
+Public Sub Initialize
+
+End Sub
+
+'This event will be called once, before the page becomes visible.
+Private Sub B4XPage_Created (Root1 As B4XView)
+	Root = Root1
+	'load the layout to Root
+	Root.LoadLayout("Page3")
+	cvs.Initialize(Panel1)
+	B4XPages.SetTitle(Me, "Draw Something")
+	#if B4A
+	B4XPages.AddMenuItem(Me, "Random Background")
+	#End If
+End Sub
+
+
+
+'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
+
+Sub Panel1_Touch (Action As Int, X As Float, Y As Float)
+	If Action <> Panel1.TOUCH_ACTION_MOVE_NOTOUCH Then
+		cvs.DrawCircle(X, Y, 10dip, Rnd(xui.Color_Black, xui.Color_White), True, 0)
+		cvs.Invalidate
+	End If
+End Sub
+
+Private Sub btnClear_Click
+	ClearImage
+End Sub
+
+Public Sub ClearImage
+	If Panel1.IsInitialized Then
+		cvs.ClearRect(cvs.TargetRect)
+		cvs.Invalidate
+	End If
+End Sub
+
+Sub btnSet_Click
+	B4XPages.ClosePage(Me)
+End Sub
+
+Sub B4XPage_Resize (Width As Int, Height As Int)
+	ClearImage
+	cvs.Resize(Width, Height)
+End Sub
+
+Sub B4XPage_MenuClick (Tag As String)
+	If Tag = "Random Background" Then
+		cvs.DrawRect(cvs.TargetRect, Rnd(xui.Color_Black, xui.Color_White), True, 0)
+		cvs.Invalidate
+	End If
+End Sub
+
+#if B4J
+'Delegate the native menu action to B4XPage_MenuClick.
+Sub MenuBar1_Action
+	Dim mi As MenuItem = Sender
+	Dim t As String
+	If mi.Tag = Null Then t = mi.Text.Replace("_", "") Else t = mi.Tag
+	B4XPage_MenuClick(t)
+End Sub
+#End If