B4J Question About Message Box with Link

rfresh · Dec 14, 2020

I would like to put a web link in my dialog message box. Does the default message dialog box support that capability?

B4X:

Dim str0 As String
   
str0 = $"About

Here is a link for more help:

https://www.youtube.com/watch?v=xn260L

"$
    fx.Msgbox(MainForm,str0,"About")

Erel · Dec 14, 2020

No. You can do it with B4XDialog + BBCodeView.

rfresh · Dec 14, 2020

Thank you.

UPDATE
I got the new dialog window working when I select my menu item. I created a new layout (CustomDialog). The dialog window pops up fine. I'm just not sure how to add the URL link to the CustomDialog layout?

rfresh · Dec 15, 2020

I saw there is a URL tag. What component do I add that to in BBCodeView?

B4X:

[url="https://www.google.com/"]Here's my link[/url]

Erel · Dec 15, 2020

See the example. You should set the text property.

Erel · Dec 15, 2020

Full example:

B4X:

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    DialogPanel = xui.CreatePanel("")
    DialogPanel.SetLayoutAnimated(0, 0, 0, 300dip, 200dip)
    DialogPanel.LoadLayout("Dialog")
    Dialog.Initialize(Root)
    TextEngine.Initialize(Root)
    DialogCodeView.TextEngine = TextEngine
    #if B4J
    Dim sp As ScrollPane = DialogCodeView.sv
    sp.SetVScrollVisibility("NEVER")
    #end if
End Sub

Sub Button1_Click
    TextEngine.TagParser.UrlColor = Dialog.ButtonsTextColor
    DialogCodeView.Text = $"[color=white]j fskldfj lksdfj lksdfj lskdf lkslkdf slkdfj sdlkfj slkdf
sdklfjslkdf jslkdfj lksdf jklsdf lksdf
qwdqwd

[url=https://www.google.com]Click here[/url][/color]"$
    DialogPanel.Height = DialogCodeView.Paragraph.Height + 40dip
    Wait For (Dialog.ShowCustom(DialogPanel, "Yes", "No", "Cancel")) Complete (Result As Int)
End Sub

Private Sub DialogCodeView_LinkClicked (URL As String)
    Dialog.Close(xui.DialogResponse_Cancel)
    Dim fx As JFX
    fx.ShowExternalDocument(URL)
End Sub

You can customize the dialog style in any way you like.

rfresh · Dec 15, 2020

Thank you Erel but this is over my head to understand what's going on and add it to my code. I worked two hours and could not get a clean compile. Your zip file contained much more code than what you posted in the CODE blocks. I have no idea what code to pull out of your zip example and integrate into my own code. I tried just adding your CODE blocks example but always got errors. So I just gave up after two hours.

For someone like you and many others here, this wouldn't be difficult to implement, but for me, not being as experienced, it's too much code to integrate into my own code just to get a clickable link. To get this simple capability, (a clickable link), there is a huge amount of code to bring along. In the end, I'll have to leave out the ability to click a link.

Thank you again for trying to help me.

Erel said:

Full example:

B4X:

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    DialogPanel = xui.CreatePanel("")
    DialogPanel.SetLayoutAnimated(0, 0, 0, 300dip, 200dip)
    DialogPanel.LoadLayout("Dialog")
    Dialog.Initialize(Root)
    TextEngine.Initialize(Root)
    DialogCodeView.TextEngine = TextEngine
    #if B4J
    Dim sp As ScrollPane = DialogCodeView.sv
    sp.SetVScrollVisibility("NEVER")
    #end if
End Sub

Sub Button1_Click
    TextEngine.TagParser.UrlColor = Dialog.ButtonsTextColor
    DialogCodeView.Text = $"[color=white]j fskldfj lksdfj lksdfj lskdf lkslkdf slkdfj sdlkfj slkdf
sdklfjslkdf jslkdfj lksdf jklsdf lksdf
qwdqwd

[url=https://www.google.com]Click here[/url][/color]"$
    DialogPanel.Height = DialogCodeView.Paragraph.Height + 40dip
    Wait For (Dialog.ShowCustom(DialogPanel, "Yes", "No", "Cancel")) Complete (Result As Int)
End Sub

Private Sub DialogCodeView_LinkClicked (URL As String)
    Dialog.Close(xui.DialogResponse_Cancel)
    Dim fx As JFX
    fx.ShowExternalDocument(URL)
End Sub

You can customize the dialog style in any way you like.

Erel · Dec 15, 2020

rfresh said:
Your zip file contained much more code than what you posted in the CODE block

Where? In the Main module? It is part of B4XPages template. You shouldn't touch it.

The important code is the code I posted and you can use it without using B4XPages.

rfresh · Dec 15, 2020

I pasted your code again. I put the following into Process_Globals

B4X:

    Private Root As B4XView
    Private xui As XUI
    Private DialogCodeView As BBCodeView
    Private dialog As B4XDialog
    Private DialogPanel As B4XView
    Private TextEngine As BCTextEngine

When I click on my About menu I get this error:

B4X:

java.lang.NullPointerException
    at b4j.fplfms.main$ResumableSub_about_Action.resume(main.java:194)

I'm not sure what it means.

rfresh · Dec 16, 2020

Any more help?

Erel · Dec 17, 2020

You haven't posted enough code for us to help.

Best if you create a minimal project with the non-working code.

rfresh · Dec 17, 2020

dialog.zip file is attached.

There is one error on line 52.

The program has to click on the About menu selection to call up your code to see the link.

Thank you...

Erel · Dec 20, 2020

There are many mistakes in this code.

I hope that the attached project will help you get started.

rfresh · Dec 20, 2020

Thank you very much Erel...

rfresh · Dec 21, 2020

Dialog Code View.In my AppStart, this line:

B4X:

    DialogCodeView.TextEngine = TextEngine

is giving me the following error:

java.lang.RuntimeException: Class instance was not initialized (bbcodeview)

In your dialog example I could not find where you initialized DialogCodeView.TextEngine so I'm not sure what this error wants.

Thank you...

Erel · Dec 21, 2020

It is a custom view added to the layout file.

rfresh · Dec 21, 2020

Got it working...thanks much Erel...

B4J Question About Message Box with Link

rfresh

Well-Known Member

Erel

B4X founder

rfresh

Well-Known Member

rfresh

Well-Known Member

Erel

B4X founder

Erel

B4X founder

Attachments

rfresh

Well-Known Member

Erel

B4X founder

rfresh

Well-Known Member

rfresh

Well-Known Member

Erel

B4X founder

rfresh

Well-Known Member

Attachments

Erel

B4X founder

Attachments

rfresh

Well-Known Member

rfresh

Well-Known Member

Erel

B4X founder

rfresh

Well-Known Member

B4J Question About Message Box with Link

Well-Known Member

B4X founder

Well-Known Member

Well-Known Member

B4X founder

B4X founder

Attachments

Well-Known Member

B4X founder

Well-Known Member

Well-Known Member

B4X founder

Well-Known Member

Attachments

B4X founder

Attachments

Well-Known Member

Well-Known Member

B4X founder

Well-Known Member

Privacy & Transparency

Privacy & Transparency