Android Question Preferences Dialog crashes on date select

[Cosmo]

Hi all,
using B4A 12.8 I have a simple Preferences Dialog:

To get more space for the german 'Abbrechen' (what means Cancel) I set a listener:

PrefDialog.SetEventsListener(Me,"PrefDialog")

At the event I fetch a reference for the buttons and set the distance:

Private Sub PrefDialog_BeforeDialogDisplayed (Template As Object)
    
    Dim btnCancel As B4XView = PrefDialog.Dialog.GetButton(xui.DialogResponse_Cancel)
    btnCancel.Width = btnCancel.Width + 20dip
    btnCancel.Left = btnCancel.Left - 20dip
    Dim btnOk As B4XView = PrefDialog.Dialog.GetButton(xui.DialogResponse_Positive)
    btnOk.Left = btnOk.Left - 20dip

When the dialog opens everthing works fine (see scrennshot).

Clicking on the date (23.09.202) should open a date selection dialog.
But the app crashes, it runs again into PrefDialog_BeforeDialogDisplayed and there is no btnOk found.

Any suggestions do avoid this?

Second question, how to get a reference to the date label, to display the whole date? (Not 23.09.202)

Thanks in advance,
Bernhard

 

[Erel]

Add at the beginning:

    If Not(GetType(Template).EndsWith("preferencesdialog")) Then
        Return
    End If

 

[Cosmo]

Thanks, that works perfect.

 

[Cosmo]

Is there any suggestion for my second question: (please see screenshot above)

How to get a reference to the date label (to set the left distance), to display the whole date? (Not 23.09.202)

Thanks
Bernhard

 

[Erel]

Example of getting the date label:

Sub Button1_Click
    Dim rs As Object = p.ShowDialog(Data(0), "Ok", "CANCEL")
    GetDateField(p, "Birthday").TextSize = 12
    Wait For (rs) Complete (Result As Int)
    Log(Result)
End Sub

Private Sub GetDateField(Pref As PreferencesDialog, Key As String) As B4XView
    Dim i As Int = Pref.PrefItems.IndexOf(Pref.GetPrefItem(Key))
    Return p.CustomListView1.GetPanel(i).GetView(1)
End Sub

 

[Cosmo]

Thanks for this, works perfect!