Private g_BadgeTopPadding As Float = 0
......
Public Sub setBadge_setTopPadding(padding As Float)
g_BadgeTopPadding = padding
End Sub
.....
else If g_badge_gravity = getBadge_TOPLEFT Then
xlbl_badge.SetLayoutAnimated(0,xpnl_base.Width/2 - icon_height/1.2 + g_BadgeLeftPadding,xpnl_base.Height/2 - icon_height + g_BadgeTopPadding,badge_height,badge_height)
else If g_badge_gravity = getBadge_TOPMIDDLE Then
xlbl_badge.SetLayoutAnimated(0,xpnl_base.Width/2 - badge_height/2 + g_BadgeLeftPadding,xpnl_base.Height/2 - icon_height + g_BadgeTopPadding,badge_height,badge_height)
else If g_badge_gravity = getBadge_TOPRIGHT Then
xlbl_badge.SetLayoutAnimated(0,xpnl_base.Width/2 + icon_height/1.2 - badge_height + g_BadgeLeftPadding, xpnl_base.Height/2 - icon_height + g_BadgeTopPadding ,badge_height,badge_height)