mirror of
https://github.com/KeymonSoft/ReplyAutoV1---WIP.git
synced 2026-04-17 21:06:09 +00:00
77 lines
1.6 KiB
QBasic
77 lines
1.6 KiB
QBasic
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 |