How do draw a rounded rectangular border around views?

Erel

B4X founder

Staff member

Licensed User

Longtime User

• Apr 21, 2013

• #2

You can create a ColorDrawable object and set its corner radius. You should then set it as the panel's background. Note that it can also be done with the designer.

 

Upvote 0

I

Inman

Well-Known Member

Licensed User

Longtime User

• Apr 21, 2013

• #3

When I set it as Panel's background, won't it fill the whole Panel background with that color, instead of the border alone?

 

Upvote 0

thedesolatesoul

Expert

Licensed User

Longtime User

• Apr 21, 2013

• #4

I just knocked this up quickly, see if it works for you.

 

Attachments

• plainrect.9.png

  830 bytes · Views: 641

Upvote 0

I

Inman

Well-Known Member

Licensed User

Longtime User

• Apr 23, 2013

• #5

Thank you so much for this. This is exactly what I wanted. Looks much much better than what I managed to do myself.

 

Upvote 0

francoisg

Active Member

Licensed User

Longtime User

• May 15, 2013

• #6

Try this (won't work for rounded corners though)

B4X:

Public Sub DrawBorder(Target As View, aColor As Int, StrokeWidth As Int)
   Dim c As Canvas
   c.Initialize(Target)
   Dim r As Rect : r.Initialize(0, 0, Target.Width - StrokeWidth, Target.Height - StrokeWidth)
   c.DrawRect(r, aColor, False, StrokeWidth)
   Target.Invalidate
End Sub

 

Upvote 0