Search Results

Drawings are done with brushes (BCBrush). There are three ways to create brushes: BC.CreateBrushFromColor BC.CreateBrushFromBitmap BC.CreateBrushFromBitmapCreator DrawCircle creates the brush for you and calls DrawCircle2: Public Sub DrawCircle (X As Float, Y As Float, Radius As Float, Color As In
link: BCBrush.IsSolidColor = False 'IsSolidColor is used internally for optimizations. BCBrush.BlendAll = Trure Is Trure a new kind of Boolean?
link: Hi Erel, This looks very promising! Will BCPath also include methods like moveTo, arcTo etc. ?

584770841 This is an example that demonstrates how Root.Snapshot + 2 BitmapCreators, with the old and new layouts can be used to create a nice transition between two layouts. Private Sub SetNewTheme As ResumableSub If bc1.IsInitialized = False Then bc1.Initialize(Root.Width, Root.Heig
link: Last one for today: 584770841 Private Sub SetNewTheme As ResumableSub If bc1.IsInitialized = False Then bc1.Initialize(Root.Width, Root
link: B4A + B4i Public Sub PrepareTransition (CurrentPageRoot As B4XView, NewPageRoot As B4XView) As ResumableSub If bc1.IsInitialized = False Then

The relevant code is: Private Sub BusyLoop Dim MyIndex As Int = BusyIndex Do While MyIndex = BusyIndex If Vertical Then BusyBrush.SrcOffsetY = BusyBrush.SrcOffsetY + 3 Else BusyBrush.SrcOffsetX = BusyBrush.SrcOffsetX - 3 End If Dim tasks As Li

FillRadialGradient(Array As Int(0xFFFF9D00, 0xFFFFFF00, 0xFFFF9D00),bc2.TargetRect) Dim brush As BCBrush = Bc.CreateBrushFromBitmapCreator(bc2) brush.SrcOffsetX = (Bc.mWidth - bc2.mWidth) / 2 brush.SrcOffsetY = (Bc.mHeight - bc2.mHeight) / 2 For angle = 0 To 359 Step 30 Bc.Dr
link: 128,0),Colors.RGB(0,192,0)),bc2.TargetRect) Bc.DrawLine2(x, y, x2, y2, Bc.CreateBrushFromBitmapCreator(bc2), w) x=x2 y=y2
link: 1. The way to implement such things, is to create a B4XPages and start with B4J. 119605 This code shows how you can draw rotated gradients. Next ste
link: Dear Mr. Erel Thank you very much for taking the time to write examples After real machine test, it can draw 100000 times per second, Private Sub Butt

This is the behavior of the native API. You will need to use InitializeOval for this case. Note that you can also achieve this effect with BitmapCreator: Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") bc.Initialize(ImageView1.Width, ImageView1.Height) Dim brush As BCBr

Initialize(bmp.Width + 1, bmp.Height + 1) Dim brush As BCBrush = bcbrush.CreateBrushFromBitmapCreator(bcbrush) Dim r As B4XRect r.Initialize(0, 0, bc.mWidth - 1, bc.mHeight - 1) bc.DrawRectRounded2(r, brush, True, 0, Radius) If TopLeft = False Then r.Initialize(0, 0, Radius, Ra

I have tested it(not worked), And this is my code : Sub drawWithAnimatoin Dim bc As BitmapCreator Dim brush As BCBrush bc.Initialize(100%x, 100%y) Dim bmp As B4XBitmap = Root.Snapshot brush = bc.CreateBrushFromBitmap(bmp) Root.Color = Colors.White For i=0 To Pan

Sub Process_Globals Private fx As JFX Private MainForm As Form Private ImageView1 As B4XView Private bc As BitmapCreator Private xui As XUI End Sub Sub AppStart (Form1 As Form, Args() As String) MainForm = Form1 MainForm.RootPane.LoadLayout("1") 'Load the layout file.

There is no built-in sweep gradient like this in BitmapCreator. It is possible to create one with some work (check the source code). Another option is to use a left right gradient: 144313 Private Sub B4XPage_Created (Root1 As B4XView) Root = Root1 Root.LoadLayout("MainPage") Dim Grad
link: Thanks for the update Erel.. using source, I can get the end angle right, but I can't get the begin angle right.. bc.Initialize(iv.Width, iv.Wid
link: mHeight - 1 For x = 0 To g.mWidth - 1 Dim angle As Float = ATan2D(y - cy, x - cx) + 190.5 Log("Angle: " & angle)

Change DrawValue to: Private Sub DrawValue(Value As Float) bc.DrawRect2(bc.TargetRect, TransparentBrush, True, 0) mLbl.Text = $"$1.0{Value}"$ Dim startAngle = -90, sweepAngle = Value / 100 * 361 As Float bc.DrawArc2(cx, cy, radius, emptyBrush, False, stroke, startAngle, -(360 - swee
link: Very thanks erel. works well. I added a little code to start round: Private Sub DrawValue(Value As Float) bc.DrawRect2(bc.TargetRect, Transparent

Powered by ColBERT