[บทเรียน,B4XCustomView] การเพิ่มคุณสมบัติ BackgroundColor ให้แก่ปุ่มกด เป็น โปร่งใส

#DesignerProperty: Key: BackgroundColor, DisplayName: Background Color, FieldType: Color, DefaultValue: 0x0000000F

Sub Class_Globals
   
     '::::::
    Public  backgroundColor As Int
End Sub
Public Sub DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
    '::::::
    backgroundColor = xui.PaintOrColorToColor(Props.GetDefault("BackgroundColor", 0x0000000F))
    '::::::
End Sub

Public Sub SetBackgroundColor(color As Int)
    backgroundColor = color
    Draw
End Sub

'No Code for getBackgroundColor Module

Private Sub Draw
    cvs.ClearRect(cvs.TargetRect)
    
    ' Fill background
    cvs.DrawRect(cvs.TargetRect, backgroundColor, True, 0)

   ':::::::
End Sub