Type=Class Version=7.3 ModulesStructureVersion=1 B4A=true @EndOfDesignText@ Private Sub Class_Globals 'Default values Private mColor As Int = Colors.Transparent Private mEllipsize As String = "NONE" Private mEnabled As Boolean = True Private mGravity As Int = Gravity.NO_GRAVITY Private mHeight As Int = 0 Private mLeft As Int = 0 Private mPadding() As Int = Array As Int(4dip,4dip,4dip,4dip) Private mSingleLine As Boolean = False Private mTag As Object = Null Private mText As String = "" Private mTextColor As Int = Colors.White Private mTextSize As Int = 14 Private mTop As Int = 0 Private mTypeface As Typeface = Typeface.DEFAULT Private mVisible As Boolean = True Private mWidth As Int = 0 Private mEvent As String = "" Private callback As Activity 'ignore End Sub Public Sub Initialize As BuilderLabel Return Me End Sub Public Sub Color (pColor As Int) As BuilderLabel mColor = pColor Return Me End Sub Public Sub Event (eventName As String) As BuilderLabel mEvent = eventName Return Me End Sub Public Sub setLayout(pLeft As Int, pTop As Int, pWidth As Int, pHeight As Int) As BuilderLabel mLeft = pLeft mTop = pTop mWidth = pWidth mHeight = pHeight Return Me End Sub Public Sub Ellipsize (pEllipsize As String) As BuilderLabel mEllipsize = pEllipsize Return Me End Sub Public Sub Enabled (pEnabled As Boolean) As BuilderLabel mEnabled = pEnabled Return Me End Sub Public Sub sGravity (pGravity As Int) As BuilderLabel mGravity = pGravity Return Me End Sub Public Sub Height (pHeight As Int) As BuilderLabel mHeight = pHeight Return Me End Sub Public Sub Left (pLeft As Int) As BuilderLabel mLeft = pLeft Return Me End Sub Public Sub Padding (pPadding() As Int) As BuilderLabel mPadding = pPadding Return Me End Sub Public Sub SingleLine (pSingleLine As Boolean) As BuilderLabel mSingleLine = pSingleLine Return Me End Sub Public Sub Tag (pTag As Object) As BuilderLabel mTag = pTag Return Me End Sub Public Sub Text (pText As String) As BuilderLabel mText = pText Return Me End Sub Public Sub TextColor (pTextColor As Int) As BuilderLabel mTextColor = pTextColor Return Me End Sub Public Sub TextSize (pTextSize As Int) As BuilderLabel mTextSize = pTextSize Return Me End Sub Public Sub Top (pTop As Int) As BuilderLabel mTop = pTop Return Me End Sub Public Sub sTypeface (pTypeface As Typeface) As BuilderLabel mTypeface = pTypeface Return Me End Sub Public Sub Visible (pVisible As Boolean) As BuilderLabel mVisible = pVisible Return Me End Sub Public Sub Width (pWidth As Int) As BuilderLabel mWidth = pWidth Return Me End Sub Public Sub Build As Label Dim obj As Label obj.initialize(mEvent) obj.Color = mColor obj.Ellipsize = mEllipsize obj.Enabled = mEnabled obj.Gravity = mGravity obj.Height = mHeight obj.Left = mLeft obj.Padding = mPadding obj.SingleLine = mSingleLine obj.Tag = mTag obj.Text = mText obj.TextColor = mTextColor obj.TextSize = mTextSize obj.Top = mTop obj.Typeface = mTypeface obj.Visible = mVisible obj.Width = mWidth Return obj End Sub