@Informatix: the latest package supports api 1 and higher.
Last edited:
Sub Dialog1_Dismiss (DialogResult As Int) As Boolean
Dim AllowDismiss As Boolean = DialogResult = DialogResponse.POSITIVE
If Not(AllowDismiss) Then
ToastMessageShow("button is blocked!", True)
End If
Return AllowDismiss
End Sub
Sub Dialog2_Dismiss (DialogResult As Int) As Boolean
Dim AllowDismiss As Boolean = DialogResult = 2
If Not(AllowDismiss) Then
ToastMessageShow("button is blocked!", True)
End If
Return AllowDismiss
End Sub
This is why I love B4A ... even if you can do all other high level languages, you can still do everything in B4A! And is much more fun guaranteed!
It is MAGIC!
Just wait until Erel releases a new version.This is why I love B4A ... even if you can do all other high level languages, you can still do everything in B4A! And is much more fun guaranteed!
It is MAGIC!
Just wait until Erel releases a new version.
Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim Dialog As DialogView
Public ListView1 As ListView
End Sub
Sub Dialog_Show
ListView1.SingleLineLayout.Label.TextColor = Colors.Black
For i=1 To 10
ListView1.AddSingleLine("item #" & i)
Next
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
Dialog.Dismiss(Position)
End Sub
Sub Button1_Click
Dim Result As Int = Dialog.LoadLayout("Dialog").Show("Please select", "", "", "cancel", Null)
Msgbox("Result = " & Result, "")
End Sub
That's what i mean.Oh got it! you mean that the contents of the dialog are not totally visible because the height is smaller, right?
If so, I ll fix this in the upcoming version
Why not?The problem is that once the layout is loaded, it can not be modified anymore.