Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private ImageView1 As ImageView
Private BorderIndex As Int
Private xui As XUI
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1")
MainForm.Show
CreateBorder(ImageView1)
End Sub
Sub MainForm_Resize (Width As Double, Height As Double)
CreateBorder(ImageView1)
End Sub
Sub CreateBorder(iv As B4XView)
BorderIndex = BorderIndex + 1
Dim MyIndex As Int = BorderIndex
Dim bc As BitmapCreator
bc.Initialize(iv.Width / xui.Scale, iv.Height / xui.Scale)
Dim brushbc As BitmapCreator
brushbc.Initialize(100, 100)
brushbc.FillRadialGradient(Array As Int(xui.Color_Blue, xui.Color_White), brushbc.TargetRect)
Dim brush As BCBrush = bc.CreateBrushFromBitmapCreator(brushbc)
Dim trans As BCBrush = bc.CreateBrushFromColor(xui.Color_Transparent)
Dim offset As Int = 2
Do While MyIndex = BorderIndex
brush.SrcOffsetX = brush.SrcOffsetX + offset
brush.SrcOffsetY = brush.SrcOffsetY - offset
bc.DrawRect2(bc.TargetRect, trans, True, 0)
bc.DrawRect2(bc.TargetRect, brush, False, 5)
bc.SetBitmapToImageView(bc.Bitmap, iv)
Sleep(20)
Loop
End Sub