B4A Library ColorDialog

A wrapper for this GitHub library https://github.com/andyxialm/ColorDialog

ColorDialog & PromptDialog


Some screenshots from original library author :

ColorDialog
Author: SMM
Version: 0.01

• ColorDialog
  Events:
  • _click (result As String)
  Methods:
  • Initialize (EventName As String)
  • Show (ok As String, cancel As String)
  Properties:
  • AnimationEnable As Boolean [write only]
  • Color As Int [write only]
  • ContentImage As Bitmap [write only]
  • ContentText As String [write only]
  • Title As String [write only]
• PromptDialog
  Events:
  • _promptclick
  Methods:
  • Initialize (EventName As String)
  • Show (ok As String, cancel As String)
  Properties:
  • AnimationEnable As Boolean [write only]
  • ContentText As String [write only]
  • DIALOG_TYPE_HELP As Int [read only]
  • DIALOG_TYPE_INFO As Int [read only]
  • DIALOG_TYPE_SUCCESS As Int [read only]
  • DIALOG_TYPE_WARNING As Int [read only]
  • DIALOG_TYPE_WRONG As Int [read only]
  • DialogType As Int [write only]
  • Title As String [write only]

Sample

Sub Activity_click

    Dim colordialog As ColorDialog
    colordialog.Initialize("dialog")
    colordialog.Color=Colors.Red
    colordialog.AnimationEnable=False
    colordialog.ContentText="My own text"
    colordialog.Title="My Own title"
    colordialog.ContentImage=LoadBitmap(File.DirAssets,"ba.png")
    colordialog.Show("Ys","")
End Sub
Sub dialog_click(result As String)
    Log(result)
    If result="Ys" Then
        Dim prompt As PromptDialog
        prompt.Initialize("prompt")
        prompt.DialogType=prompt.DIALOG_TYPE_SUCCESS
        prompt.Title="Good job"
        prompt.AnimationEnable=True
        prompt.ContentText="You have succeeded"
        prompt.Show("Yes","cancel")
    End If
End Sub
Sub prompt_promptclick
    Log("prompt_promptclick")
End Sub

Version 0.02 : Just modified Show method . It requires only one button text.

 

[MarcoRome]

I tried it and work very well
Great work

 

[Daniel-White]

Hi Somed3v3loper, Thanks you very much, my dialogs boxs are so ugly , now it will be soooooooo nice with this wrapped lib. Thanks you indeed.

 

[Daniel-White]

Hello everybody I have a simple question

I am using the MsgBox2 etc and I would like to remplace it with Dialog of this library.

The APP show the Dialog Box, not problem, but how to know which button is pressed , I think the Sub dialog_click work asynchronous.

I had been trying this, and I don't know the clever way to do this

Activity_click("INVITACIÓN A UNA RED PENDIENTE","Tiene una Invitación.","Ver la Invitación","Más Tarde")
'       
'        If dialog_click(Respuesta)="Ver la Invitación"  Then
'            StartActivity(AceptarInvitacionRED)
'        End If   
' 


Public Sub Activity_click(Titulo,Mensaje,SI,NO As String)
    Dim colordialog As ColorDialog
    colordialog.Initialize("dialog")
    colordialog.Color=Colors.blue
    colordialog.AnimationEnable=True
    colordialog.ContentText=Mensaje
    colordialog.Title=Titulo
    'colordialog.ContentImage=LoadBitmap(File.DirAssets,"advertencia.png")
    colordialog.Show(SI,NO)   
End Sub


Public Sub dialog_click(result As String)
    Log(result)
    return result           
End Sub

 

[somed3v3loper]

Whats wrong with this snippet ?
result is the text of the pressed button

Sub dialog_click(result As String)
if result= SI then
    'SI button was pressed

end if
end sub

 

[Daniel-White]

Whats wrong with this snippet ?
result is the text of the pressed button

Sub dialog_click(result As String)
if result= SI then
    'SI button was pressed

end if
end sub

Thanks for you reply

ok, but, that will work, my problem is how to reuse it, I mean, when I have a lot dialog and later if buttonPressed = true then etc, my conditionals (if then), are out of the Sub dialog_click(result As String), can we do something like:

Dim respuesta as Int
Respuesta= Msgbox2("Do you like B4A","","YES","","NO",LoadBitmap(File.DirAssets, "logoicon.png"))   
      
    If Respuesta=DialogResponse.POSITIVE Then
        Log("Yes I love it")
    else
        Log("You need to test it :) ")
    endif

I was trying with any clue,

Because for me it will be complex use only one dialog_click with all the possible reply of the end user with a lot dialogs in the same Main activity etc. I would like put the code in a Class module to reuse it .

Thx

 

[somed3v3loper]

Thanks for you reply

ok, but, that will work, my problem is how to reuse it

Thx

I will see if I can make it as you requested but this is not a promise

 

[moster67]

Looks nice. One question, using the PromptDialog, can I still get the result when using:

prompt.Show("Yes","cancel")

??

I am confused (asking) since you wrote :

Version 0.02 : Just modified Show method . It requires only one button text.

I would prefer PromptDialog instead of ColorDialog but only if I can get the result of the button the user tapped.

Many thanks for your great work!

 

[somed3v3loper]

Looks nice. One question, using the PromptDialog, can I still get the result when using:

prompt.Show("Yes","cancel")

??

I am confused (asking) since you wrote :


I would prefer PromptDialog instead of ColorDialog but only if I can get the result of the button the user tapped.

Many thanks for your great work!

I went back to source code . It seems that promptdialog does not have a negative button .
I don't remember what was that modification for but probably a mistake after copying methods from ColorDialog to PromptDialog which has only one button.

 

[Da He]

I want to use color dialog to show on Button click
How to i do ?
Please Help me.