B4J=true Group=Default Group ModulesStructureVersion=1 Type=Class Version=8.95 @EndOfDesignText@ #IgnoreWarnings:12 #DesignerProperty: Key: Key, DisplayName: Key, FieldType: String, DefaultValue: id, Description: Key #DesignerProperty: Key: DataSource, DisplayName: DataSource, FieldType: String, DefaultValue: , Description: DataSource #DesignerProperty: Key: Title, DisplayName: Title, FieldType: String, DefaultValue: title, Description: Title #DesignerProperty: Key: SubTitle, DisplayName: SubTitle, FieldType: String, DefaultValue: subtitle, Description: SubTitle #DesignerProperty: Key: SubTitle1, DisplayName: SubTitle1, FieldType: String, DefaultValue: subtitle1, Description: SubTitle1 #DesignerProperty: Key: SubTitle2, DisplayName: SubTitle2, FieldType: String, DefaultValue: subtitle2, Description: SubTitle2 #DesignerProperty: Key: SubTitle3, DisplayName: SubTitle3, FieldType: String, DefaultValue: subtitle3, Description: SubTitle3 #DesignerProperty: Key: SubTitle4, DisplayName: SubTitle4, FieldType: String, DefaultValue: subtitle4, Description: SubTitle4 #DesignerProperty: Key: SwitchInset, DisplayName: SwitchInset, FieldType: Boolean, DefaultValue: false, Description: SwitchInset #DesignerProperty: Key: To, DisplayName: URL, FieldType: String, DefaultValue: to, Description: URL #DesignerProperty: Key: ShowLeftCheckBoxes, DisplayName: ShowLeftCheckBoxes, FieldType: Boolean, DefaultValue: false, Description: ShowLeftCheckBoxes #DesignerProperty: Key: ShowLeftSwitches, DisplayName: ShowLeftSwitches, FieldType: Boolean, DefaultValue: false, Description: ShowLeftSwitches #DesignerProperty: Key: ShowRightCheckBoxes, DisplayName: ShowRightCheckBoxes, FieldType: Boolean, DefaultValue: false, Description: ShowRightCheckBoxes #DesignerProperty: Key: ShowRightRating, DisplayName: ShowRightRating, FieldType: Boolean, DefaultValue: false, Description: ShowRightRating #DesignerProperty: Key: ShowRightSwitches, DisplayName: ShowRightSwitches, FieldType: Boolean, DefaultValue: false, Description: ShowRightSwitches #DesignerProperty: Key: ActiveClass, DisplayName: ActiveClass, FieldType: String, DefaultValue: , Description: ActiveClass #DesignerProperty: Key: Avatar, DisplayName: Avatar, FieldType: String, DefaultValue: avatar, Description: Avatar #DesignerProperty: Key: AvatarAttr, DisplayName: AvatarAttr, FieldType: String, DefaultValue: , Description: AvatarAttr #DesignerProperty: Key: AvatarClass, DisplayName: AvatarClass, FieldType: String, DefaultValue: , Description: AvatarClass #DesignerProperty: Key: AvatarIcon, DisplayName: AvatarIcon, FieldType: String, DefaultValue: avataricon, Description: AvatarIcon #DesignerProperty: Key: AvatarIconAttr, DisplayName: AvatarIconAttr, FieldType: String, DefaultValue: , Description: AvatarIconAttr #DesignerProperty: Key: AvatarIconClass, DisplayName: AvatarIconClass, FieldType: String, DefaultValue: , Description: AvatarIconClass #DesignerProperty: Key: AvatarIconColor, DisplayName: AvatarIconColor, FieldType: String, DefaultValue: avatariconcolor, Description: AvatarIconColor #DesignerProperty: Key: AvatarText, DisplayName: AvatarText, FieldType: String, DefaultValue: avatartext, Description: AvatarText #DesignerProperty: Key: AvatarTextClass, DisplayName: AvatarTextClass, FieldType: String, DefaultValue: , Description: AvatarTextClass #DesignerProperty: Key: AvatarTextColor, DisplayName: AvatarTextColor, FieldType: String, DefaultValue: avatartextcolor, Description: AvatarTextColor #DesignerProperty: Key: ItemAvatarClass, DisplayName: ItemAvatarClass, FieldType: String, DefaultValue: , Description: ItemAvatarClass #DesignerProperty: Key: HasDivider, DisplayName: HasDivider, FieldType: Boolean, DefaultValue: false, Description: HasDivider #DesignerProperty: Key: InsetDivider, DisplayName: InsetDivider, FieldType: Boolean, DefaultValue: false, Description: InsetDivider #DesignerProperty: Key: Icon, DisplayName: Icon, FieldType: String, DefaultValue: icon, Description: Icon #DesignerProperty: Key: IconAttr, DisplayName: IconAttr, FieldType: String, DefaultValue: iconattr, Description: IconAttr #DesignerProperty: Key: IconClass, DisplayName: IconClass, FieldType: String, DefaultValue: , Description: IconClass #DesignerProperty: Key: IconColor, DisplayName: IconColor, FieldType: String, DefaultValue: iconcolor, Description: IconColor #DesignerProperty: Key: LeftCheckBox, DisplayName: LeftCheckBox, FieldType: String, DefaultValue: leftcheckbox, Description: LeftCheckBox #DesignerProperty: Key: LeftCheckBoxAttr, DisplayName: LeftCheckBoxAttr, FieldType: String, DefaultValue: , Description: LeftCheckBoxAttr #DesignerProperty: Key: LeftIcon, DisplayName: LeftIcon, FieldType: String, DefaultValue: lefticon, Description: LeftIcon #DesignerProperty: Key: LeftIconAttr, DisplayName: LeftIconAttr, FieldType: String, DefaultValue: , Description: LeftIconAttr #DesignerProperty: Key: LeftIconClass, DisplayName: LeftIconClass, FieldType: String, DefaultValue: , Description: LeftIconClass #DesignerProperty: Key: LeftIconColor, DisplayName: LeftIconColor, FieldType: String, DefaultValue: lefticoncolor, Description: LeftIconColor #DesignerProperty: Key: LeftSwitch, DisplayName: LeftSwitch, FieldType: String, DefaultValue: leftswitch, Description: LeftSwitch #DesignerProperty: Key: LeftSwitchAttr, DisplayName: LeftSwitchAttr, FieldType: String, DefaultValue: , Description: LeftSwitchAttr #DesignerProperty: Key: RightAvatar, DisplayName: RightAvatar, FieldType: String, DefaultValue: rightavatar, Description: RightAvatar #DesignerProperty: Key: RightAvatarAttr, DisplayName: RightAvatarAttr, FieldType: String, DefaultValue: , Description: RightAvatarAttr #DesignerProperty: Key: RightAvatarClass, DisplayName: RightAvatarClass, FieldType: String, DefaultValue: , Description: RightAvatarClass #DesignerProperty: Key: RightAvatarIcon, DisplayName: RightAvatarIcon, FieldType: String, DefaultValue: rightavataricon, Description: RightAvatarIcon #DesignerProperty: Key: RightAvatarIconAttr, DisplayName: RightAvatarIconAttr, FieldType: String, DefaultValue: , Description: RightAvatarIconAttr #DesignerProperty: Key: RightAvatarIconClass, DisplayName: RightAvatarIconClass, FieldType: String, DefaultValue: , Description: RightAvatarIconClass #DesignerProperty: Key: RightAvatarIconColor, DisplayName: RightAvatarIconColor, FieldType: String, DefaultValue: rightavatariconcolor, Description: RightAvatarIconColor #DesignerProperty: Key: RightAvatarText, DisplayName: RightAvatarText, FieldType: String, DefaultValue: rightavatartext, Description: RightAvatarText #DesignerProperty: Key: RightAvatarTextClass, DisplayName: RightAvatarTextClass, FieldType: String, DefaultValue: , Description: RightAvatarTextClass #DesignerProperty: Key: RightAvatarTextColor, DisplayName: RightAvatarTextColor, FieldType: String, DefaultValue: rightavatartextcolor, Description: RightAvatarTextColor #DesignerProperty: Key: RightCheckBox, DisplayName: RightCheckBox, FieldType: String, DefaultValue: rightcheckbox, Description: RightCheckBox #DesignerProperty: Key: RightCheckBoxAttr, DisplayName: RightCheckBoxAttr, FieldType: String, DefaultValue: , Description: RightCheckBoxAttr #DesignerProperty: Key: RightChip, DisplayName: RightChip, FieldType: String, DefaultValue: rightchip, Description: RightChip #DesignerProperty: Key: RightChipAttr, DisplayName: RightChipAttr, FieldType: String, DefaultValue: , Description: RightChipAttr #DesignerProperty: Key: RightChipColor, DisplayName: RightChipColor, FieldType: String, DefaultValue: rightchipcolor, Description: RightChipColor #DesignerProperty: Key: RightIcon, DisplayName: RightIcon, FieldType: String, DefaultValue: righticon, Description: RightIcon #DesignerProperty: Key: RightIconAttr, DisplayName: RightIconAttr, FieldType: String, DefaultValue: , Description: RightIconAttr #DesignerProperty: Key: RightIconClass, DisplayName: RightIconClass, FieldType: String, DefaultValue: , Description: RightIconClass #DesignerProperty: Key: RightIconColor, DisplayName: RightIconColor, FieldType: String, DefaultValue: righticoncolor, Description: RightIconColor #DesignerProperty: Key: RightItemAvatarClass, DisplayName: RightItemAvatarClass, FieldType: String, DefaultValue: , Description: RightItemAvatarClass #DesignerProperty: Key: RightRating, DisplayName: RightRating, FieldType: String, DefaultValue: rightrating, Description: RightRating #DesignerProperty: Key: RightRatingAttr, DisplayName: RightRatingAttr, FieldType: String, DefaultValue: , Description: RightRatingAttr #DesignerProperty: Key: RightRatingColor, DisplayName: RightRatingColor, FieldType: String, DefaultValue: rightratingcolor, Description: RightRatingColor #DesignerProperty: Key: RightSwitchAttr, DisplayName: RightSwitchAttr, FieldType: String, DefaultValue: , Description: RightSwitchAttr #DesignerProperty: Key: RightText, DisplayName: RightText, FieldType: String, DefaultValue: righttext, Description: RightText #DesignerProperty: Key: RightTextAttr, DisplayName: RightTextAttr, FieldType: String, DefaultValue: , Description: RightTextAttr Sub Class_Globals Private BANano As BANano 'ignore Private mName As String 'ignore 'Private mEventName As String 'ignore 'Private mCallBack As Object 'ignore 'Private mTarget As BANanoElement 'ignore 'Private mElement As BANanoElement 'ignore 'Public VElement As VueElement Private sActiveClass As String Private sAvatar As String Private sAvatarAttr As String Private sAvatarClass As String Private sAvatarIcon As String Private sAvatarIconAttr As String Private sAvatarIconClass As String Private sAvatarIconColor As String Private sAvatarText As String Private sAvatarTextClass As String Private sAvatarTextColor As String Private sDataSource As String Private bHasDivider As Boolean Private sIcon As String Private sIconAttr As String Private sIconClass As String Private sIconColor As String Private bInsetDivider As Boolean Private sItemAvatarClass As String Private sKey As String Private sLeftCheckBox As String Private sLeftCheckBoxAttr As String Private sLeftIcon As String Private sLeftIconAttr As String Private sLeftIconClass As String Private sLeftIconColor As String Private sLeftSwitch As String Private sLeftSwitchAttr As String Private sRightAvatar As String Private sRightAvatarAttr As String Private sRightAvatarClass As String Private sRightAvatarIcon As String Private sRightAvatarIconAttr As String Private sRightAvatarIconClass As String Private sRightAvatarIconColor As String Private sRightAvatarText As String Private sRightAvatarTextClass As String Private sRightAvatarTextColor As String Private sRightCheckBox As String Private sRightCheckBoxAttr As String Private sRightChip As String Private sRightChipAttr As String Private sRightChipColor As String Private sRightIcon As String Private sRightIconAttr As String Private sRightIconClass As String Private sRightIconColor As String Private sRightItemAvatarClass As String Private sRightRating As String Private sRightRatingAttr As String Private sRightRatingColor As String Private sRightSwitchAttr As String Private sRightText As String Private sRightTextAttr As String Private bShowLeftCheckBoxes As Boolean Private bShowLeftSwitches As Boolean Private bShowRightCheckBoxes As Boolean Private bShowRightRating As Boolean Private bShowRightSwitches As Boolean Private sSubTitle As String Private sSubTitle1 As String Private sSubTitle2 As String Private sSubTitle3 As String Private sSubTitle4 As String Private bSwitchInset As Boolean Private sTitle As String Private sTo As String Public Options As ListViewItemOptions End Sub Sub Initialize (CallBack As Object, Name As String, EventName As String) mName = Name.tolowercase 'mEventName = EventName.ToLowerCase 'mCallBack = CallBack 'mName = mName.Replace("#","") 'mEventName = mEventName.Replace("#","") ' If mName <> "" Then ' Dim fKey As String = $"#${mName}"$ ' If BANano.Exists(fKey) Then ' mElement = BANano.GetElement(fKey) ' End If ' End If Options.Initialize End Sub Sub DesignerCreateView (Target As BANanoElement, Props As Map) 'mTarget = Target If Props <> Null Then sActiveClass = Props.Get("ActiveClass") sAvatar = Props.Get("Avatar") sAvatarAttr = Props.Get("AvatarAttr") sAvatarClass = Props.Get("AvatarClass") sAvatarIcon = Props.Get("AvatarIcon") sAvatarIconAttr = Props.Get("AvatarIconAttr") sAvatarIconClass = Props.Get("AvatarIconClass") sAvatarIconColor = Props.Get("AvatarIconColor") sAvatarText = Props.Get("AvatarText") sAvatarTextClass = Props.Get("AvatarTextClass") sAvatarTextColor = Props.Get("AvatarTextColor") sDataSource = Props.Get("DataSource") bHasDivider = Props.Get("HasDivider") sIcon = Props.Get("Icon") sIconAttr = Props.Get("IconAttr") sIconClass = Props.Get("IconClass") sIconColor = Props.Get("IconColor") bInsetDivider = Props.Get("InsetDivider") sItemAvatarClass = Props.Get("ItemAvatarClass") sKey = Props.Get("Key") sLeftCheckBox = Props.Get("LeftCheckBox") sLeftCheckBoxAttr = Props.Get("LeftCheckBoxAttr") sLeftIcon = Props.Get("LeftIcon") sLeftIconAttr = Props.Get("LeftIconAttr") sLeftIconClass = Props.Get("LeftIconClass") sLeftIconColor = Props.Get("LeftIconColor") sLeftSwitch = Props.Get("LeftSwitch") sLeftSwitchAttr = Props.Get("LeftSwitchAttr") sRightAvatar = Props.Get("RightAvatar") sRightAvatarAttr = Props.Get("RightAvatarAttr") sRightAvatarClass = Props.Get("RightAvatarClass") sRightAvatarIcon = Props.Get("RightAvatarIcon") sRightAvatarIconAttr = Props.Get("RightAvatarIconAttr") sRightAvatarIconClass = Props.Get("RightAvatarIconClass") sRightAvatarIconColor = Props.Get("RightAvatarIconColor") sRightAvatarText = Props.Get("RightAvatarText") sRightAvatarTextClass = Props.Get("RightAvatarTextClass") sRightAvatarTextColor = Props.Get("RightAvatarTextColor") sRightCheckBox = Props.Get("RightCheckBox") sRightCheckBoxAttr = Props.Get("RightCheckBoxAttr") sRightChip = Props.Get("RightChip") sRightChipAttr = Props.Get("RightChipAttr") sRightChipColor = Props.Get("RightChipColor") sRightIcon = Props.Get("RightIcon") sRightIconAttr = Props.Get("RightIconAttr") sRightIconClass = Props.Get("RightIconClass") sRightIconColor = Props.Get("RightIconColor") sRightItemAvatarClass = Props.Get("RightItemAvatarClass") sRightRating = Props.Get("RightRating") sRightRatingAttr = Props.Get("RightRatingAttr") sRightRatingColor = Props.Get("RightRatingColor") sRightSwitchAttr = Props.Get("RightSwitchAttr") sRightText = Props.Get("RightText") sRightTextAttr = Props.Get("RightTextAttr") bShowLeftCheckBoxes = Props.Get("ShowLeftCheckBoxes") bShowLeftSwitches = Props.Get("ShowLeftSwitches") bShowRightCheckBoxes = Props.Get("ShowRightCheckBoxes") bShowRightRating = Props.Get("ShowRightRating") bShowRightSwitches = Props.Get("ShowRightSwitches") sSubTitle = Props.Get("SubTitle") sSubTitle1 = Props.Get("SubTitle1") sSubTitle2 = Props.Get("SubTitle2") sSubTitle3 = Props.Get("SubTitle3") sSubTitle4 = Props.Get("SubTitle4") bSwitchInset = Props.Get("SwitchInset") sTitle = Props.Get("Title") sTo = Props.Get("To") End If ' 'build and get the element 'If BANano.Exists($"#${mName}"$) Then ' mElement = BANano.GetElement($"#${mName}"$) 'Else ' mElement = mTarget.Append($"
"$).Get("#" & mName) 'End If ' 'VElement.Initialize(mCallBack, mName, mName) 'VElement.TagName = "div" 'dont show this component 'VElement.SetData($"${mName}options"$, False) Options.Initialize Options.ActiveClass = sActiveClass Options.Avatar = sAvatar Options.AvatarAttr = sAvatarAttr Options.AvatarClass = sAvatarClass Options.AvatarIcon = sAvatarIcon Options.AvatarIconAttr = sAvatarIconAttr Options.AvatarIconClass = sAvatarIconClass Options.AvatarIconColor = sAvatarIconColor Options.AvatarText = sAvatarText Options.AvatarTextClass = sAvatarTextClass Options.AvatarTextColor = sAvatarTextColor Options.DataSource = sDataSource Options.HasDivider = bHasDivider Options.Icon = sIcon Options.IconAttr = sIconAttr Options.IconClass = sIconClass Options.IconColor = sIconColor Options.InsetDivider = bInsetDivider Options.ItemAvatarClass = sItemAvatarClass Options.Key = sKey Options.LeftCheckBox = sLeftCheckBox Options.LeftCheckBoxAttr = sLeftCheckBoxAttr Options.LeftIcon = sLeftIcon Options.LeftIconAttr = sLeftIconAttr Options.LeftIconClass = sLeftIconClass Options.LeftIconColor = sLeftIconColor Options.LeftSwitch = sLeftSwitch Options.LeftSwitchAttr = sLeftSwitchAttr Options.RightAvatar = sRightAvatar Options.RightAvatarAttr = sRightAvatarAttr Options.RightAvatarClass = sRightAvatarClass Options.RightAvatarIcon = sRightAvatarIcon Options.RightAvatarIconAttr = sRightAvatarIconAttr Options.RightAvatarIconClass = sRightAvatarIconClass Options.RightAvatarIconColor = sRightAvatarIconColor Options.RightAvatarText = sRightAvatarText Options.RightAvatarTextClass = sRightAvatarTextClass Options.RightAvatarTextColor = sRightAvatarTextColor Options.RightCheckBox = sRightCheckBox Options.RightCheckBoxAttr = sRightCheckBoxAttr Options.RightChip = sRightChip Options.RightChipAttr = sRightChipAttr Options.RightChipColor = sRightChipColor Options.RightIcon = sRightIcon Options.RightIconAttr = sRightIconAttr Options.RightIconClass = sRightIconClass Options.RightIconColor = sRightIconColor Options.RightItemAvatarClass = sRightItemAvatarClass Options.RightRating = sRightRating Options.RightRatingAttr = sRightRatingAttr Options.RightRatingColor = sRightRatingColor Options.RightSwitchAttr = sRightSwitchAttr Options.RightText = sRightText Options.RightTextAttr = sRightTextAttr Options.ShowLeftCheckBoxes = bShowLeftCheckBoxes Options.ShowLeftSwitches = bShowLeftSwitches Options.ShowRightCheckBoxes = bShowRightCheckBoxes Options.ShowRightRating = bShowRightRating Options.ShowRightSwitches = bShowRightSwitches Options.SubTitle = sSubTitle Options.SubTitle1 = sSubTitle1 Options.SubTitle2 = sSubTitle2 Options.SubTitle3 = sSubTitle3 Options.SubTitle4 = sSubTitle4 Options.SwitchInset = bSwitchInset Options.Title = sTitle Options.url = sTo End Sub 'public Sub AddToParent(targetID As String) ' mTarget = BANano.GetElement("#" & targetID.ToLowerCase) ' DesignerCreateView(mTarget, Null) 'End Sub ' 'public Sub Remove() ' mTarget.Empty ' BANano.SetMeToNull 'End Sub ' 'public Sub Trigger(event As String, params() As String) ' If mElement <> Null Then ' mElement.Trigger(event, params) ' End If 'End Sub ' 'Sub AddClass(s As String) As VListOptions ' VElement.AddClass(s) ' Return Me 'End Sub ' 'Sub AddAttr(p As String, v As Object) As VListOptions ' VElement.SetAttr(p, v) ' Return Me 'End Sub ' 'Sub AddStyle(p As String, v As String) As VListOptions ' VElement.AddStyle(p, v) ' Return Me 'End Sub ' 'Sub RemoveAttr(p As String) As VListOptions ' VElement.RemoveAttr(p) ' Return Me 'End Sub 'get ActiveClass Sub getActiveClass As String Return sActiveClass End Sub 'set ActiveClass Sub setActiveClass(vActiveClass As String) If BANano.IsNull(vActiveClass) Or BANano.IsUndefined(vActiveClass) Then Return sActiveClass = vActiveClass Options.ActiveClass = vActiveClass End Sub 'get Avatar Sub getAvatar As String Return sAvatar End Sub 'set Avatar Sub setAvatar(vAvatar As String) If BANano.IsNull(vAvatar) Or BANano.IsUndefined(vAvatar) Then Return sAvatar = vAvatar Options.Avatar = vAvatar End Sub 'get AvatarAttr Sub getAvatarAttr As String Return sAvatarAttr End Sub 'set AvatarAttr Sub setAvatarAttr(vAvatarAttr As String) If BANano.IsNull(vAvatarAttr) Or BANano.IsUndefined(vAvatarAttr) Then Return sAvatarAttr = vAvatarAttr Options.AvatarAttr = vAvatarAttr End Sub 'get AvatarClass Sub getAvatarClass As String Return sAvatarClass End Sub 'set AvatarClass Sub setAvatarClass(vAvatarClass As String) If BANano.IsNull(vAvatarClass) Or BANano.IsUndefined(vAvatarClass) Then Return sAvatarClass = vAvatarClass Options.AvatarClass = vAvatarClass End Sub 'get AvatarIcon Sub getAvatarIcon As String Return sAvatarIcon End Sub 'set AvatarIcon Sub setAvatarIcon(vAvatarIcon As String) If BANano.IsNull(vAvatarIcon) Or BANano.IsUndefined(vAvatarIcon) Then Return sAvatarIcon = vAvatarIcon Options.AvatarIcon = vAvatarIcon End Sub 'get AvatarIconAttr Sub getAvatarIconAttr As String Return sAvatarIconAttr End Sub 'set AvatarIconAttr Sub setAvatarIconAttr(vAvatarIconAttr As String) If BANano.IsNull(vAvatarIconAttr) Or BANano.IsUndefined(vAvatarIconAttr) Then Return sAvatarIconAttr = vAvatarIconAttr Options.AvatarIconAttr = vAvatarIconAttr End Sub 'get AvatarIconClass Sub getAvatarIconClass As String Return sAvatarIconClass End Sub 'set AvatarIconClass Sub setAvatarIconClass(vAvatarIconClass As String) If BANano.IsNull(vAvatarIconClass) Or BANano.IsUndefined(vAvatarIconClass) Then Return sAvatarIconClass = vAvatarIconClass Options.AvatarIconClass = vAvatarIconClass End Sub 'get AvatarIconColor Sub getAvatarIconColor As String Return sAvatarIconColor End Sub 'set AvatarIconColor Sub setAvatarIconColor(vAvatarIconColor As String) If BANano.IsNull(vAvatarIconColor) Or BANano.IsUndefined(vAvatarIconColor) Then Return sAvatarIconColor = vAvatarIconColor Options.AvatarIconColor = vAvatarIconColor End Sub 'get AvatarText Sub getAvatarText As String Return sAvatarText End Sub 'set AvatarText Sub setAvatarText(vAvatarText As String) If BANano.IsNull(vAvatarText) Or BANano.IsUndefined(vAvatarText) Then Return sAvatarText = vAvatarText Options.AvatarText = vAvatarText End Sub 'get AvatarTextClass Sub getAvatarTextClass As String Return sAvatarTextClass End Sub 'set AvatarTextClass Sub setAvatarTextClass(vAvatarTextClass As String) If BANano.IsNull(vAvatarTextClass) or BANano.IsUndefined(vAvatarTextClass) Then Return sAvatarTextClass = vAvatarTextClass Options.AvatarTextClass = vAvatarTextClass End Sub 'get AvatarTextColor Sub getAvatarTextColor As String Return sAvatarTextColor End Sub 'set AvatarTextColor Sub setAvatarTextColor(vAvatarTextColor As String) If BANano.IsNull(vAvatarTextColor) or BANano.IsUndefined(vAvatarTextColor) Then Return sAvatarTextColor = vAvatarTextColor Options.AvatarTextColor = vAvatarTextColor End Sub 'get DataSource Sub getDataSource As String Return sDataSource End Sub 'set DataSource Sub setDataSource(vDataSource As String) If BANano.IsNull(vDataSource) or BANano.IsUndefined(vDataSource) Then Return sDataSource = vDataSource Options.DataSource = vDataSource End Sub 'get HasDivider Sub getHasDivider As Boolean Return bHasDivider End Sub 'set HasDivider Sub setHasDivider(vHasDivider As Boolean) If BANano.IsNull(vHasDivider) or BANano.IsUndefined(vHasDivider) Then Return bHasDivider = vHasDivider Options.HasDivider = vHasDivider End Sub 'get Icon Sub getIcon As String Return sIcon End Sub 'set Icon Sub setIcon(vIcon As String) If BANano.IsNull(vIcon) or BANano.IsUndefined(vIcon) Then Return sIcon = vIcon Options.Icon = vIcon End Sub 'get IconAttr Sub getIconAttr As String Return sIconAttr End Sub 'set IconAttr Sub setIconAttr(vIconAttr As String) If BANano.IsNull(vIconAttr) or BANano.IsUndefined(vIconAttr) Then Return sIconAttr = vIconAttr Options.IconAttr = vIconAttr End Sub 'get IconClass Sub getIconClass As String Return sIconClass End Sub 'set IconClass Sub setIconClass(vIconClass As String) If BANano.IsNull(vIconClass) Or BANano.IsUndefined(vIconClass) Then Return sIconClass = vIconClass Options.IconClass = vIconClass End Sub 'get IconColor Sub getIconColor As String Return sIconColor End Sub 'set IconColor Sub setIconColor(vIconColor As String) If BANano.IsNull(vIconColor) Or BANano.IsUndefined(vIconColor) Then Return sIconColor = vIconColor Options.IconColor = vIconColor End Sub 'get InsetDivider Sub getInsetDivider As Boolean Return bInsetDivider End Sub 'set InsetDivider Sub setInsetDivider(vInsetDivider As Boolean) If BANano.IsNull(vInsetDivider) Or BANano.IsUndefined(vInsetDivider) Then Return bInsetDivider = vInsetDivider Options.InsetDivider = vInsetDivider End Sub 'get ItemAvatarClass Sub getItemAvatarClass As String Return sItemAvatarClass End Sub 'set ItemAvatarClass Sub setItemAvatarClass(vItemAvatarClass As String) If BANano.IsNull(vItemAvatarClass) Or BANano.IsUndefined(vItemAvatarClass) Then Return sItemAvatarClass = vItemAvatarClass Options.ItemAvatarClass = vItemAvatarClass End Sub 'get Key Sub getKey As String Return sKey End Sub 'set Key Sub setKey(vKey As String) If BANano.IsNull(vKey) Or BANano.IsUndefined(vKey) Then Return sKey = vKey Options.Key = vKey End Sub 'get LeftCheckBox Sub getLeftCheckBox As String Return sLeftCheckBox End Sub 'set LeftCheckBox Sub setLeftCheckBox(vLeftCheckBox As String) If BANano.IsNull(vLeftCheckBox) Or BANano.IsUndefined(vLeftCheckBox) Then Return sLeftCheckBox = vLeftCheckBox Options.LeftCheckBox = vLeftCheckBox End Sub 'get LeftCheckBoxAttr Sub getLeftCheckBoxAttr As String Return sLeftCheckBoxAttr End Sub 'set LeftCheckBoxAttr Sub setLeftCheckBoxAttr(vLeftCheckBoxAttr As String) If BANano.IsNull(vLeftCheckBoxAttr) Or BANano.IsUndefined(vLeftCheckBoxAttr) Then Return sLeftCheckBoxAttr = vLeftCheckBoxAttr Options.LeftCheckBoxAttr = vLeftCheckBoxAttr End Sub 'get LeftIcon Sub getLeftIcon As String Return sLeftIcon End Sub 'set LeftIcon Sub setLeftIcon(vLeftIcon As String) If BANano.IsNull(vLeftIcon) Or BANano.IsUndefined(vLeftIcon) Then Return sLeftIcon = vLeftIcon Options.LeftIcon = vLeftIcon End Sub 'get LeftIconAttr Sub getLeftIconAttr As String Return sLeftIconAttr End Sub 'set LeftIconAttr Sub setLeftIconAttr(vLeftIconAttr As String) If BANano.IsNull(vLeftIconAttr) Or BANano.IsUndefined(vLeftIconAttr) Then Return sLeftIconAttr = vLeftIconAttr Options.LeftIconAttr = vLeftIconAttr End Sub 'get LeftIconClass Sub getLeftIconClass As String Return sLeftIconClass End Sub 'set LeftIconClass Sub setLeftIconClass(vLeftIconClass As String) If BANano.IsNull(vLeftIconClass) or BANano.IsUndefined(vLeftIconClass) Then Return sLeftIconClass = vLeftIconClass Options.LeftIconClass = vLeftIconClass End Sub 'get LeftIconColor Sub getLeftIconColor As String Return sLeftIconColor End Sub 'set LeftIconColor Sub setLeftIconColor(vLeftIconColor As String) If BANano.IsNull(vLeftIconColor) or BANano.IsUndefined(vLeftIconColor) Then Return sLeftIconColor = vLeftIconColor Options.LeftIconColor = vLeftIconColor End Sub 'get LeftSwitch Sub getLeftSwitch As String Return sLeftSwitch End Sub 'set LeftSwitch Sub setLeftSwitch(vLeftSwitch As String) If BANano.IsNull(vLeftSwitch) or BANano.IsUndefined(vLeftSwitch) Then Return sLeftSwitch = vLeftSwitch Options.LeftSwitch = vLeftSwitch End Sub 'get LeftSwitchAttr Sub getLeftSwitchAttr As String Return sLeftSwitchAttr End Sub 'set LeftSwitchAttr Sub setLeftSwitchAttr(vLeftSwitchAttr As String) If BANano.IsNull(vLeftSwitchAttr) or BANano.IsUndefined(vLeftSwitchAttr) Then Return sLeftSwitchAttr = vLeftSwitchAttr Options.LeftSwitchAttr = vLeftSwitchAttr End Sub 'get RightAvatar Sub getRightAvatar As String Return sRightAvatar End Sub 'set RightAvatar Sub setRightAvatar(vRightAvatar As String) If BANano.IsNull(vRightAvatar) or BANano.IsUndefined(vRightAvatar) Then Return sRightAvatar = vRightAvatar Options.RightAvatar = vRightAvatar End Sub 'get RightAvatarAttr Sub getRightAvatarAttr As String Return sRightAvatarAttr End Sub 'set RightAvatarAttr Sub setRightAvatarAttr(vRightAvatarAttr As String) If BANano.IsNull(vRightAvatarAttr) or BANano.IsUndefined(vRightAvatarAttr) Then Return sRightAvatarAttr = vRightAvatarAttr Options.RightAvatarAttr = vRightAvatarAttr End Sub 'get RightAvatarClass Sub getRightAvatarClass As String Return sRightAvatarClass End Sub 'set RightAvatarClass Sub setRightAvatarClass(vRightAvatarClass As String) If BANano.IsNull(vRightAvatarClass) or BANano.IsUndefined(vRightAvatarClass) Then Return sRightAvatarClass = vRightAvatarClass Options.RightAvatarClass = vRightAvatarClass End Sub 'get RightAvatarIcon Sub getRightAvatarIcon As String Return sRightAvatarIcon End Sub 'set RightAvatarIcon Sub setRightAvatarIcon(vRightAvatarIcon As String) If BANano.IsNull(vRightAvatarIcon) or BANano.IsUndefined(vRightAvatarIcon) Then Return sRightAvatarIcon = vRightAvatarIcon Options.RightAvatarIcon = vRightAvatarIcon End Sub 'get RightAvatarIconAttr Sub getRightAvatarIconAttr As String Return sRightAvatarIconAttr End Sub 'set RightAvatarIconAttr Sub setRightAvatarIconAttr(vRightAvatarIconAttr As String) If BANano.IsNull(vRightAvatarIconAttr) or BANano.IsUndefined(vRightAvatarIconAttr) Then Return sRightAvatarIconAttr = vRightAvatarIconAttr Options.RightAvatarIconAttr = vRightAvatarIconAttr End Sub 'get RightAvatarIconClass Sub getRightAvatarIconClass As String Return sRightAvatarIconClass End Sub 'set RightAvatarIconClass Sub setRightAvatarIconClass(vRightAvatarIconClass As String) If BANano.IsNull(vRightAvatarIconClass) or BANano.IsUndefined(vRightAvatarIconClass) Then Return sRightAvatarIconClass = vRightAvatarIconClass Options.RightAvatarIconClass = vRightAvatarIconClass End Sub 'get RightAvatarIconColor Sub getRightAvatarIconColor As String Return sRightAvatarIconColor End Sub 'set RightAvatarIconColor Sub setRightAvatarIconColor(vRightAvatarIconColor As String) If BANano.IsNull(vRightAvatarIconColor) Or BANano.IsUndefined(vRightAvatarIconColor) Then Return sRightAvatarIconColor = vRightAvatarIconColor Options.RightAvatarIconColor = vRightAvatarIconColor End Sub 'get RightAvatarText Sub getRightAvatarText As String Return sRightAvatarText End Sub 'set RightAvatarText Sub setRightAvatarText(vRightAvatarText As String) If BANano.IsNull(vRightAvatarText) Or BANano.IsUndefined(vRightAvatarText) Then Return sRightAvatarText = vRightAvatarText Options.RightAvatarText = vRightAvatarText End Sub 'get RightAvatarTextClass Sub getRightAvatarTextClass As String Return sRightAvatarTextClass End Sub 'set RightAvatarTextClass Sub setRightAvatarTextClass(vRightAvatarTextClass As String) If BANano.IsNull(vRightAvatarTextClass) Or BANano.IsUndefined(vRightAvatarTextClass) Then Return sRightAvatarTextClass = vRightAvatarTextClass Options.RightAvatarTextClass = vRightAvatarTextClass End Sub 'get RightAvatarTextColor Sub getRightAvatarTextColor As String Return sRightAvatarTextColor End Sub 'set RightAvatarTextColor Sub setRightAvatarTextColor(vRightAvatarTextColor As String) If BANano.IsNull(vRightAvatarTextColor) Or BANano.IsUndefined(vRightAvatarTextColor) Then Return sRightAvatarTextColor = vRightAvatarTextColor Options.RightAvatarTextColor = vRightAvatarTextColor End Sub 'get RightCheckBox Sub getRightCheckBox As String Return sRightCheckBox End Sub 'set RightCheckBox Sub setRightCheckBox(vRightCheckBox As String) If BANano.IsNull(vRightCheckBox) Or BANano.IsUndefined(vRightCheckBox) Then Return sRightCheckBox = vRightCheckBox Options.RightCheckBox = vRightCheckBox End Sub 'get RightCheckBoxAttr Sub getRightCheckBoxAttr As String Return sRightCheckBoxAttr End Sub 'set RightCheckBoxAttr Sub setRightCheckBoxAttr(vRightCheckBoxAttr As String) If BANano.IsNull(vRightCheckBoxAttr) or BANano.IsUndefined(vRightCheckBoxAttr) Then Return sRightCheckBoxAttr = vRightCheckBoxAttr Options.RightCheckBoxAttr = vRightCheckBoxAttr End Sub 'get RightChip Sub getRightChip As String Return sRightChip End Sub 'set RightChip Sub setRightChip(vRightChip As String) If BANano.IsNull(vRightChip) or BANano.IsUndefined(vRightChip) Then Return sRightChip = vRightChip Options.RightChip = vRightChip End Sub 'get RightChipAttr Sub getRightChipAttr As String Return sRightChipAttr End Sub 'set RightChipAttr Sub setRightChipAttr(vRightChipAttr As String) If BANano.IsNull(vRightChipAttr) or BANano.IsUndefined(vRightChipAttr) Then Return sRightChipAttr = vRightChipAttr Options.RightChipAttr = vRightChipAttr End Sub 'get RightChipColor Sub getRightChipColor As String Return sRightChipColor End Sub 'set RightChipColor Sub setRightChipColor(vRightChipColor As String) If BANano.IsNull(vRightChipColor) or BANano.IsUndefined(vRightChipColor) Then Return sRightChipColor = vRightChipColor Options.RightChipColor = vRightChipColor End Sub 'get RightIcon Sub getRightIcon As String Return sRightIcon End Sub 'set RightIcon Sub setRightIcon(vRightIcon As String) If BANano.IsNull(vRightIcon) or BANano.IsUndefined(vRightIcon) Then Return sRightIcon = vRightIcon Options.RightIcon = vRightIcon End Sub 'get RightIconAttr Sub getRightIconAttr As String Return sRightIconAttr End Sub 'set RightIconAttr Sub setRightIconAttr(vRightIconAttr As String) If BANano.IsNull(vRightIconAttr) or BANano.IsUndefined(vRightIconAttr) Then Return sRightIconAttr = vRightIconAttr Options.RightIconAttr = vRightIconAttr End Sub 'get RightIconClass Sub getRightIconClass As String Return sRightIconClass End Sub 'set RightIconClass Sub setRightIconClass(vRightIconClass As String) If BANano.IsNull(vRightIconClass) or BANano.IsUndefined(vRightIconClass) Then Return sRightIconClass = vRightIconClass Options.RightIconClass = vRightIconClass End Sub 'get RightIconColor Sub getRightIconColor As String Return sRightIconColor End Sub 'set RightIconColor Sub setRightIconColor(vRightIconColor As String) If BANano.IsNull(vRightIconColor) or BANano.IsUndefined(vRightIconColor) Then Return sRightIconColor = vRightIconColor Options.RightIconColor = vRightIconColor End Sub 'get RightItemAvatarClass Sub getRightItemAvatarClass As String Return sRightItemAvatarClass End Sub 'set RightItemAvatarClass Sub setRightItemAvatarClass(vRightItemAvatarClass As String) If BANano.IsNull(vRightItemAvatarClass) Or BANano.IsUndefined(vRightItemAvatarClass) Then Return sRightItemAvatarClass = vRightItemAvatarClass Options.RightItemAvatarClass = vRightItemAvatarClass End Sub 'get RightRating Sub getRightRating As String Return sRightRating End Sub 'set RightRating Sub setRightRating(vRightRating As String) If BANano.IsNull(vRightRating) Or BANano.IsUndefined(vRightRating) Then Return sRightRating = vRightRating Options.RightRating = vRightRating End Sub 'get RightRatingAttr Sub getRightRatingAttr As String Return sRightRatingAttr End Sub 'set RightRatingAttr Sub setRightRatingAttr(vRightRatingAttr As String) If BANano.IsNull(vRightRatingAttr) Or BANano.IsUndefined(vRightRatingAttr) Then Return sRightRatingAttr = vRightRatingAttr Options.RightRatingAttr = vRightRatingAttr End Sub 'get RightRatingColor Sub getRightRatingColor As String Return sRightRatingColor End Sub 'set RightRatingColor Sub setRightRatingColor(vRightRatingColor As String) If BANano.IsNull(vRightRatingColor) Or BANano.IsUndefined(vRightRatingColor) Then Return sRightRatingColor = vRightRatingColor Options.RightRatingColor = vRightRatingColor End Sub 'get RightSwitchAttr Sub getRightSwitchAttr As String Return sRightSwitchAttr End Sub 'set RightSwitchAttr Sub setRightSwitchAttr(vRightSwitchAttr As String) If BANano.IsNull(vRightSwitchAttr) Or BANano.IsUndefined(vRightSwitchAttr) Then Return sRightSwitchAttr = vRightSwitchAttr Options.RightSwitchAttr = vRightSwitchAttr End Sub 'get RightText Sub getRightText As String Return sRightText End Sub 'set RightText Sub setRightText(vRightText As String) If BANano.IsNull(vRightText) Or BANano.IsUndefined(vRightText) Then Return sRightText = vRightText Options.RightText = vRightText End Sub 'get RightTextAttr Sub getRightTextAttr As String Return sRightTextAttr End Sub 'set RightTextAttr Sub setRightTextAttr(vRightTextAttr As String) If BANano.IsNull(vRightTextAttr) or BANano.IsUndefined(vRightTextAttr) Then Return sRightTextAttr = vRightTextAttr Options.RightTextAttr = vRightTextAttr End Sub 'get ShowLeftCheckBoxes Sub getShowLeftCheckBoxes As Boolean Return bShowLeftCheckBoxes End Sub 'set ShowLeftCheckBoxes Sub setShowLeftCheckBoxes(vShowLeftCheckBoxes As Boolean) If BANano.IsNull(vShowLeftCheckBoxes) or BANano.IsUndefined(vShowLeftCheckBoxes) Then Return bShowLeftCheckBoxes = vShowLeftCheckBoxes Options.ShowLeftCheckBoxes = vShowLeftCheckBoxes End Sub 'get ShowLeftSwitches Sub getShowLeftSwitches As Boolean Return bShowLeftSwitches End Sub 'set ShowLeftSwitches Sub setShowLeftSwitches(vShowLeftSwitches As Boolean) If BANano.IsNull(vShowLeftSwitches) or BANano.IsUndefined(vShowLeftSwitches) Then Return bShowLeftSwitches = vShowLeftSwitches Options.ShowLeftSwitches = vShowLeftSwitches End Sub 'get ShowRightCheckBoxes Sub getShowRightCheckBoxes As Boolean Return bShowRightCheckBoxes End Sub 'set ShowRightCheckBoxes Sub setShowRightCheckBoxes(vShowRightCheckBoxes As Boolean) If BANano.IsNull(vShowRightCheckBoxes) or BANano.IsUndefined(vShowRightCheckBoxes) Then Return bShowRightCheckBoxes = vShowRightCheckBoxes Options.ShowRightCheckBoxes = vShowRightCheckBoxes End Sub 'get ShowRightRating Sub getShowRightRating As Boolean Return bShowRightRating End Sub 'set ShowRightRating Sub setShowRightRating(vShowRightRating As Boolean) If BANano.IsNull(vShowRightRating) or BANano.IsUndefined(vShowRightRating) Then Return bShowRightRating = vShowRightRating Options.ShowRightRating = vShowRightRating End Sub 'get ShowRightSwitches Sub getShowRightSwitches As Boolean Return bShowRightSwitches End Sub 'set ShowRightSwitches Sub setShowRightSwitches(vShowRightSwitches As Boolean) If BANano.IsNull(vShowRightSwitches) or BANano.IsUndefined(vShowRightSwitches) Then Return bShowRightSwitches = vShowRightSwitches Options.ShowRightSwitches = vShowRightSwitches End Sub 'get SubTitle Sub getSubTitle As String Return sSubTitle End Sub 'set SubTitle Sub setSubTitle(vSubTitle As String) If BANano.IsNull(vSubTitle) or BANano.IsUndefined(vSubTitle) Then Return sSubTitle = vSubTitle Options.SubTitle = vSubTitle End Sub 'get SubTitle1 Sub getSubTitle1 As String Return sSubTitle1 End Sub 'set SubTitle1 Sub setSubTitle1(vSubTitle1 As String) If BANano.IsNull(vSubTitle1) or BANano.IsUndefined(vSubTitle1) Then Return sSubTitle1 = vSubTitle1 Options.SubTitle1 = vSubTitle1 End Sub 'get SubTitle2 Sub getSubTitle2 As String Return sSubTitle2 End Sub 'set SubTitle2 Sub setSubTitle2(vSubTitle2 As String) If BANano.IsNull(vSubTitle2) or BANano.IsUndefined(vSubTitle2) Then Return sSubTitle2 = vSubTitle2 Options.SubTitle2 = vSubTitle2 End Sub 'get SubTitle3 Sub getSubTitle3 As String Return sSubTitle3 End Sub 'set SubTitle3 Sub setSubTitle3(vSubTitle3 As String) If BANano.IsNull(vSubTitle3) Or BANano.IsUndefined(vSubTitle3) Then Return sSubTitle3 = vSubTitle3 Options.SubTitle3 = vSubTitle3 End Sub 'get SubTitle4 Sub getSubTitle4 As String Return sSubTitle4 End Sub 'set SubTitle4 Sub setSubTitle4(vSubTitle4 As String) If BANano.IsNull(vSubTitle4) Or BANano.IsUndefined(vSubTitle4) Then Return sSubTitle4 = vSubTitle4 Options.SubTitle4 = vSubTitle4 End Sub 'get SwitchInset Sub getSwitchInset As Boolean Return bSwitchInset End Sub 'set SwitchInset Sub setSwitchInset(vSwitchInset As Boolean) If BANano.IsNull(vSwitchInset) Or BANano.IsUndefined(vSwitchInset) Then Return bSwitchInset = vSwitchInset Options.SwitchInset = vSwitchInset End Sub 'get Title Sub getTitle As String Return sTitle End Sub 'set Title Sub setTitle(vTitle As String) If BANano.IsNull(vTitle) Or BANano.IsUndefined(vTitle) Then Return sTitle = vTitle Options.Title = vTitle End Sub 'get To Sub getTo As String Return sTo End Sub 'set To Sub setTo(vTo As String) If BANano.IsNull(vTo) Or BANano.IsUndefined(vTo) Then Return sTo = vTo Options.url = vTo End Sub