B4A=true
Group=Default Group
ModulesStructureVersion=1
Type=Class
Version=12.2
@EndOfDesignText@
Sub Class_Globals
	Public mBase	As Panel 
	Public mLabel 	As Label
End Sub

'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(Chk As CheckBox)
	Dim Parent As Object = Chk.Parent, Pan As Panel, Lab As Label, cd As ColorDrawable

	' Panel initialization with dimensions and position of checkbox
	Pan.Initialize("")
	Pan.Width 		= Chk.Width
	Pan.Height		= Chk.Height
	Parent.As(Panel).AddView(Pan,Chk.Left,Chk.Top,Chk.Width,Chk.Height)

	' Label initialization
	Lab.Initialize("")
	Lab.Height 		= Chk.Height
	Lab.Width		= Chk.Width
	Lab.Background	= Chk.Background
	Lab.Padding		= Array As Int(Chk.Padding(0),Chk.Padding(1),Chk.Padding(2)+32dip,Chk.Padding(3))
	Lab.Typeface	= Chk.Typeface
	Lab.TextSize	= Chk.TextSize
	Lab.TextColor	= Chk.TextColor
	Lab.Text		= Chk.Text
	Lab.Gravity		= Chk.Gravity
	Pan.AddView(Lab,0,0,Lab.Width,Lab.Height)
	
	' Checkbox modifications
	cd.Initialize(Colors.Transparent,0)
	Chk.Top			= 0
	Chk.Width		= 32dip ' seems to be minimum width for a checkbox without text
	Chk.Left		= IIf(Chk.Text="",(Pan.Width-Chk.Width)/2,Pan.Width-Chk.Width)
	Chk.Background	= cd
	#if TOOLS
	Tools.CheckBoxColor(Chk,Colors.Blue,"")
	#End if
	Chk.RemoveView
	Pan.AddView(Chk,Chk.Left,Chk.Top,Chk.width,Chk.Height)

	' Save manipulating objects
	mBase 	= Pan
	mLabel	= Lab

End Sub