Android Question How to make text fit to width in a custom dialog.

[ProjectGroup19]

Hello Community,
Please, I want my custom dialog to display text that will fit to width but i'm unsuccessful.

Below is the code i came up with and a picture of what im talking about.


The DESCRIPTION_DIALOG

Private Sub lblQuoteClick_Click
    CreateDescriptionPanelLayout(300dip,350dip) '300,350
     Wait For(Dialog.ShowCustom(DescriptionPanel, "", "", "CANCEL")) Complete (result As Int)
    If result = xui.DialogResponse_Cancel Then
   
    End If
   
End Sub

Sub CreateDescriptionPanelLayout( Width As Int, Height As Int)
   
 
    Dim pnl2 As B4XView=Panel2
    Dim text As B4XView=pnl2.GetView(0)
       
    Dialog.Title ="Election Quote"
    DescriptionPanel = xui.CreatePanel("")
    DescriptionPanel.SetLayoutAnimated(0, 0, 0, Width,Height) '400
    DescriptionPanel.LoadLayout("DESCRIPTION_DIALOG")
   
    lblDescription.Text=$""${text.Text}""$
  
    lblOwner.Text=$" ~ ${qname} "$
  
    Dim Height As Int=su.MeasureMultilineTextHeight(lblDescription,lblDescription.Text )+40dip'80
    Dim PnlHeight As Int = Height+ 14dip '14
   
    lblDescription.Height=su.MeasureMultilineTextHeight(lblDescription,lblDescription.Text)
    lblOwner.Top=lblDescription.Height+10dip
    pnlProjectD.Height=Height+lblOwner.Height+10dip
  
    DescriptionPanel.SetLayoutanimated(0,0,0,80%x,PnlHeight+20dip)
 
End Sub

 

[Deblu]

Try changing

CreateDescriptionPanelLayout(300dip,350dip)

to

CreateDescriptionPanelLayout(100%x,350dip)

 

[TILogistic]

add:

lblDescription.As(Label).WrapText = True

 

[ProjectGroup19]

add:

lblDescription.As(Label).WrapText = True

Thank you @oparra but i get an error message: "Unknown member"

 

[TILogistic]

upload an example to review it and I'll help you

 

[TILogistic]

Sample b4a and B4J

    mTitle.Text = Title
    mMessage.Text = Text
    #If B4A
    Dim SU As StringUtils
    mMessage.Height = SU.MeasureMultilineTextHeight(mMessage, mMessage.Text)
    #Else
    mMessage.As(Label).WrapText = True
    #End If
    Dim rs As ResumableSub = mB4XDialog.ShowCustom(mBase, "OK", "", "")
    Wait For (rs) Complete (Result As Int)

 

[TILogistic]

See:

B4Xdialog with dynamic design and animation.

Theme IOS.

 

[ProjectGroup19]

See:

B4Xdialog with dynamic design and animation.

Theme IOS.

View attachment 120574

Very nice?
Please, how did you do this?

 

[TILogistic]

Estimated,

Upload an example of yours and I will help you.

What you see is part of a class that allows changing the theme of the B4Xdialogo and that I am finishing up for a project.

 

[Alexander Stolte]

Thank you @oparra but i get an error message: "Unknown member"

You need the latest version of B4A the ".As" is a new feature from the latest version.