Private Sub AS_Chips1_CustomDrawChip(Item As ASChips_CustomDraw)
Item.Views.RemoveIconLabel.Visible = False
Item.Views.BackgroundPanel.Width = Item.Views.BackgroundPanel.Width - 16dip
Item.Views.BackgroundPanel.SetColorAndBorder(xui.Color_RGB(175,225,225),2dip,xui.Color_RGB(24,110,244),18dip)
If Item.Views.IconImageView.Visible = False Then
Item.Views.TextLabel.Left = 12dip
End If
End Sub