Android Question help needed: B4XPreferenceDialog - title & text

Zeev Goldstein said:

i use it as simple msgdialog

Click to expand...

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private prefdialog As PreferencesDialog
End Sub

Public Sub Initialize
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")  'has button1
    prefdialog.Initialize(Root, "Preference Dialog Message", 300dip, 300dip)
    prefdialog.AddMultilineTextItem("First", "", 300dip)
End Sub

Private Sub Button1_Click
    Dim Data As Map = CreateMap("First": "This is an important B4X Preference Dialog message box")
    Dim sf As Object = prefdialog.ShowDialog(Data, "OK", "CANCEL")  
    For i = 0 To prefdialog.PrefItems.Size - 1
        Dim pi As B4XPrefItem = prefdialog.PrefItems.Get(i)
        If pi.ItemType = prefdialog.TYPE_MULTILINETEXT Then
            Dim ft As B4XFloatTextField = prefdialog.CustomListView1.GetPanel(i).GetView(0).Tag
            ft.TextField.SetTextAlignment("CENTER", "CENTER")
            Dim xfont As B4XFont=xui.CreateFont(Typeface.DEFAULT_BOLD,32)
            ft.textfield.Font = xfont
            ft.TextField.TextColor =xui.Color_Magenta
            ft.TextField.Enabled = False
        End If
    Next

    Wait For (sf) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        Dim f As String = Data.Get("First")
        Log(f)
    End If

aeric said:

Look like this?
View attachment 146620

B4X:

Private Sub CreateDialog3
    PrefDialog3.Initialize(Root, "Delete", 300dip, 70dip)
    PrefDialog3.Dialog.TitleBarColor = xui.Color_RGB(220, 20, 60)
    PrefDialog3.AddSeparator("default")
End Sub

Private Sub ShowDialog3 (Item As Map)
    PrefDialog3.Title = "Delete Item"
    Dim sf As Object = PrefDialog3.ShowDialog(Item, "OK", "CANCEL")
    #If B4A or B4i
    PrefDialog3.Dialog.Base.Top = 100dip ' Make it lower
    #Else
    Sleep(0)
    PrefDialog3.CustomListView1.sv.Height = PrefDialog3.CustomListView1.sv.ScrollViewInnerPanel.Height + 10dip
    #End If
    PrefDialog3.CustomListView1.GetPanel(0).GetView(0).Text = Item.Get("Item")
    PrefDialog3.CustomListView1.GetPanel(0).GetView(0).Color = xui.Color_Transparent
    PrefDialog3.CustomListView1.sv.ScrollViewInnerPanel.Color = xui.Color_Transparent
    Wait For (sf) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        xui.MsgboxAsync("Item deleted!", "Delete")
    End If
End Sub

or refer to CreateDialog3 and ShowDialog3 in my Web API Client project.

Click to expand...

Mahares said:

There are other simpler ways than using a B4XPreferenceDialog for this, but here is your request fulfilled with a full example:

B4X:

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    Private prefdialog As PreferencesDialog
End Sub

Public Sub Initialize
End Sub

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")  'has button1
    prefdialog.Initialize(Root, "Preference Dialog Message", 300dip, 300dip)
    prefdialog.AddMultilineTextItem("First", "", 300dip)
End Sub

Private Sub Button1_Click
    Dim Data As Map = CreateMap("First": "This is an important B4X Preference Dialog message box")
    Dim sf As Object = prefdialog.ShowDialog(Data, "OK", "CANCEL") 
    For i = 0 To prefdialog.PrefItems.Size - 1
        Dim pi As B4XPrefItem = prefdialog.PrefItems.Get(i)
        If pi.ItemType = prefdialog.TYPE_MULTILINETEXT Then
            Dim ft As B4XFloatTextField = prefdialog.CustomListView1.GetPanel(i).GetView(0).Tag
            ft.TextField.SetTextAlignment("CENTER", "CENTER")
            Dim xfont As B4XFont=xui.CreateFont(Typeface.DEFAULT_BOLD,32)
            ft.textfield.Font = xfont
            ft.TextField.TextColor =xui.Color_Magenta
            ft.TextField.Enabled = False
        End If
    Next

    Wait For (sf) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        Dim f As String = Data.Get("First")
        Log(f)
    End If

Zeev, you do not need to start your thread title with: 'help needed'. It is obvious when you post you are going to need help. So there is no need to be redundant.
View attachment 146621

Click to expand...

Zeev Goldstein said:

your sample looks exactly what i need
however i couldn't get it to work
any chance to get a working sample?
many thanks

Click to expand...

Zeev Goldstein said:

a working sample?

Click to expand...

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    CreateDialog3
End Sub

Private Sub Button1_Click
    ShowDialog3(CreateMap("Item": "This is a message"))
End Sub