Android Question How to add Enabled property in the old AnotherDatePicker?

[Theera]

Due to I must edit some code for Thai programmer about calendar. I can't found Enabled property of AnotherDatePicker.
I would like to add it. I'm not good at programming ,please to help me.

Refer to : https://www.b4x.com/android/forum/t...epicker-a-simple-web-style-date-picker.27548/

I have tried to code ,but I can't do it.

Public Sub Enabled as Boolean
      dim res as Boolean
      If enabled=False then return True
      mBase.enabled=False
      return  False
End Sub

 

[jahswant]

dim res as Boolean

This should be a global variable.

 

[rraswisak]

Open AnotherPicker class and follow this step:

Since Enabled property name reserved, let use Disabled instead

1. Add Disabled property name

'AnotherDatePicker - v2.00
#Event: Closed (Cancelled As Boolean, Date As Long)
#DesignerProperty: Key: Disabled, DisplayName: Disabled, FieldType: Boolean, DefaultValue: false, Description: Disable date picker.
#DesignerProperty: Key: CancelVisible, DisplayName: Cancel Visible, FieldType: Boolean, DefaultValue: True, Description: Whether the cancel button should be displayed.
#DesignerProperty: Key: TodayVisible, DisplayName: Today Visible, FieldType: Boolean, DefaultValue: True
'...
'...

2. Add isDisable global variable

Sub Class_Globals
    Private isDisabled As Boolean
    Private holder As Panel
    Private cvs, cvsBackground As Canvas
    Private DaysPanel As Panel
    '...
    '...
End Sub

3. Read current property value

Public Sub AfterLoadLayout (Props As Map)
    isDisabled=Props.Get("Disabled")
    waitForAddToActivity = False
    holder.Initialize("holder")
    '...
    '...
End Sub

4. Modify Date Picker click behaviour

Private Sub lbl_Click
    If isDisabled=False Then Show
End Sub

5. Last, Create new method to enable/disable via code

public Sub Disabled(value As Boolean)
    isDisabled = value
End Sub

To enable/disable via code:

AnotherDatePicker1.Disabled(False) 'or true

 

[Theera]

3. Read current property value

Public Sub AfterLoadLayout (Props As Map)
    isDisabled=Props.Get("Disabled")
    waitForAddToActivity = False
    holder.Initialize("holder")
    '..

I don't have waitForAddToActivity andholder parameters. How do I docontinue, please?

 

[Andrew (Digitwell)]

ignore those lines just add the isDisabled code.

 

[Theera]

Please to see my code. I have the switch (using UiSwitch library) to control ON/OFF calendar to be enabled/disabled.
How do I code it ?

 

[Andrew (Digitwell)]

The simplest way would be to check isdisabled in HandleMouse

Private Sub HandleMouse(x As Double, y As Double, move As Boolean)

    'check if the control is disabled and do nothing with mouse event.
    if isDisabled then return
    
    Dim boxX = x / boxW, boxY =  y / boxH As Int
    Dim newSelectedDay As Int = boxY * 7 + boxX + 1 - dayOfWeekOffset
    Dim validDay As Boolean = newSelectedDay > 0 And newSelectedDay <= daysInMonth

 

[Theera]

I have changed #Event:Closed to be#Event: Clicked instead.
And create this module as belows

Public  Sub DatePicker_Clicked
  If isDisabled Then return
EndSub

I don't know that how I should refer to thecalendar button.

 

[emexes]

I am starting to think that a simpler solution might have been to

just cover the AnotherDatePicker with a semi-transparent panel whenever you need to disable it.