In the Sub Show(title As String,message As String,Ok As String,Cancel As String,No As String, icon As Bitmap) As ResumableSub
Add this line right after the line "Dialog.ShowCustom":
B4X:
rs = Dialog.ShowCustom(x, Ok, No, Cancel)
EditName_TextChanged("", "")
And here is the Sub EditName_TextChanged:
B4X:
Sub EditName_TextChanged (Old As String, New As String)
Dim bt As B4XView = Dialog.GetButton(xui.DialogResponse_Positive)
bt.Visible = (New.Length > 0)
End Sub
In the Sub Show(title As String,message As String,Ok As String,Cancel As String,No As String, icon As Bitmap) As ResumableSub
Add this line right after the line "Dialog.ShowCustom":
B4X:
rs = Dialog.ShowCustom(x, Ok, No, Cancel)
EditName_TextChanged("", "")
And here is the Sub EditName_TextChanged:
B4X:
Sub EditName_TextChanged (Old As String, New As String)
Dim bt As B4XView = Dialog.GetButton(xui.DialogResponse_Positive)
bt.Visible = (New.Length > 0)
End Sub