Android Question Is there the way open B4ADesigner,B4JDesigner,andB4iDesigner in one application

Theera · Aug 2, 2023

Hello all,
I have just unzip xAnotherDatePicker.b4xlib to edit code for Thai delvelopler. Now I place all of files in the folder (ThaiCarlendar)
I have just found the expert's strategy can can converting dirrectly to be b4xlib file as the picture. I can modify only B4ADesigner and B4JDesigner by creating B4XMainPages,but
I can modify B4iDesigner because I have not enough money to buy. I wish someone help me duplicate lblYear and overlay on it as lblBEYear for me and save bil file.

P.S. I have added some code in anotherdatepicker.bas already.

Thank you in advanced.

Theera

aeric · Aug 2, 2023

If you do not use B4i then no need to add the layout.
You can add the following line inside manifest.txt of the b4xlib file.

B4X:

Supported Platforms=B4A, B4J

aeric · Aug 2, 2023

I opened your zip but I don't see any latest changes. All files are dated 2017 and 2018. Am I dreaming?

AnotherdatePicker.bas has no indication of code change and I suspect you didn't upload the new file. If you made changes, add comments and let people know which lines of code you made changes.

Create a B4A or B4J layout file to show which position you want to put the new label or do you want to replace the old lblYear?

Theera · Aug 3, 2023

aeric said:
I opened your zip but I don't see any latest changes. All files are dated 2017 and 2018. Am I dreaming?

AnotherdatePicker.bas has no indication of code change and I suspect you didn't upload the new file. If you made changes, add comments and let people know which lines of code you made changes.

Create a B4A or B4J layout file to show which position you want to put the new label or do you want to replace the old lblYear?

The really,I had edited xanotherdatepicker.bas once time. I have copied it instead of the original. Because of B4iDesigner which I don't have ,so I don't know how to continue,sir.
Thank you for the kind of you always help me. I asked for perhaps,there is the way to convert bal->bjl->bil files .

aeric · Aug 3, 2023

Check your files again and their modified dates.

Theera · Aug 3, 2023

I think I have found my solution. I will go home to test them. But it's better if they are be one.

Erel · Aug 3, 2023

I have added this line to bal2bil thread: Don't use this tool. More powerful and simpler feature is available inside the IDE: https://www.b4x.com/android/forum/threads/b4x-sharing-layouts-between-platforms.109296/#content

Theera · Aug 3, 2023

Erel said:
I have added this line to bal2bil thread: Don't use this tool. More powerful and simpler feature is available inside the IDE: https://www.b4x.com/android/forum/threads/b4x-sharing-layouts-between-platforms.109296/#content

Thank you,Erel.

klaus · Aug 3, 2023

Attached you find a B4XPages project.
Working on all three platforms, and of course all three layout files in the Files folder of each platform.
Up to you to include them in your b4xlib.

Theera · Aug 3, 2023

Hi Klaus,
Your code is right,but it 's error for Thai developler. Please see my the picture. However,I had solved in B4A by adding some code in AnotherDatePicker and adding label "lblBEYear" overlap label "lblYear". My problem is that I can't create LblBEYear in B4iDesigner because I don't have B4i.

Theera · Aug 3, 2023

Hi again,
I had done in B4A and B4J ,But I don't B4i for being b4xlib file. If you help me add lblBEYear(label) overlap on lblYear and save bil file, I think I can do convert to be b4xLib.

aeric · Aug 3, 2023

I don't understand why you need to put another label on the original label.
You may just need to modify the code to plus 543 in AnotherDatePicker.bas.

B4X:

    month = DateTime.GetMonth(DateTime.Add(DateTime.Now, 543, 0, 0))                    ' Line 99
    year = DateTime.GetYear(DateTime.Add(DateTime.Now, 543, 0, 0))                      ' Line 100
    minYear = Props.Get("MinYear")
    maxYear = Props.Get("MaxYear")
    minYear = minYear + 543                                                             ' Line 103
    maxYear = maxYear + 543                                                             ' Line 104
    months = DateUtils.GetMonthsNames
    If selectedDate = 0 Then selectedDate = DateTime.Add(DateTime.Now, 543, 0, 0)       ' Line 106

    setDate(DateTime.Add(DateTime.Now, 543, 0, 0))                                      ' Line 316

Theera · Aug 4, 2023

aeric said:

I don't understand why you need to put another label on the original label.
You may just need to modify the code to plus 543 in AnotherDatePicker.bas.

B4X:

    month = DateTime.GetMonth(DateTime.Add(DateTime.Now, 543, 0, 0))                    ' Line 99
    year = DateTime.GetYear(DateTime.Add(DateTime.Now, 543, 0, 0))                      ' Line 100
    minYear = Props.Get("MinYear")
    maxYear = Props.Get("MaxYear")
    minYear = minYear + 543                                                             ' Line 103
    maxYear = maxYear + 543                                                             ' Line 104
    months = DateUtils.GetMonthsNames
    If selectedDate = 0 Then selectedDate = DateTime.Add(DateTime.Now, 543, 0, 0)       ' Line 106

    setDate(DateTime.Add(DateTime.Now, 543, 0, 0))                                      ' Line 316

Because Thailand has Christain,too so I would add option for selection

B4X:

If Used=C.E.Year then
      LblYear.visiable=true
      LblBEYear.visiable=false
Else
      LblYear.visiable=false
      LblBEYear.visiable=true
End If

aeric · Aug 4, 2023

Theera said:
Because Thailand has Christain,too so I would add option for selection

B4X:

If Used=C.E.Year then LblYear.visiable=true LblBEYear.visiable=false Else LblYear.visiable=false LblBEYear.visiable=true End If

B4X:

If isBEYear Then DateTime.Add(DateTime.Now, 543, 0, 0) Else DateTime.Now

Theera · Aug 4, 2023

If I need to add H.E. Year for muslim,too. I think I will add another label. Thailand has not only Christian and Bhudhim ,but also has Muslim. I would make it better for everybody. How do I code it?,Aeric.
Many thanks,Aeric,and others

aeric · Aug 4, 2023

Theera said:
If I need to add H.E. Year for muslim,too. I think I will add another label. Thailand has not only Christian and Bhudhim ,but also has Muslim. I would make it better for everybody. How do I code it?,Aeric.
Many thanks,Aeric,and others

You can use If-Else-ElseIf or Select-Case in code.
You just need only 1 label.

Theera · Aug 4, 2023

Hi Aeric,
I have 2 problems in B4A ,B4J (I can't test B4i)
1. How do I change btnToday.Text and btnCancel.Text in AnotherDatePicker.bas?
2.I added my function ConvertThaiContents() and create Textbox as B4XView for getting newdate in AnotherDatePicker1_DateChanged() in B4XMainPage ,but it can't show the contents Thai massage about date in Thai. It is about NewDate must be C.E.Year,isn't it?

B4X:

Public Sub ConvertThaiContents(MyTargetDate As Long) As String
    
    Dim myyear As String=DateTime.GetYear(MyTargetDate)
    Dim mymonth As String= DateUtils.GetMonthName(MyTargetDate)
    Dim myday As String=NumberFormat(DateTime.GetDayOfMonth(MyTargetDate),2,0)
    Dim myThaidate As String=myday&" "&mymonth&" "&myyear
    
    Return myThaidate
End Sub

B4X:

Private Sub AnotherDatePicker1_DateChanged (NewDate As Long)
           TxtBoxDate1.Text=AnotherDatePicker1.ConvertThaiContents(NewDate)
End Sub

Best Regards,
Theera

aeric · Aug 4, 2023

Theera said:
1. How do I change btnToday.Text and btnCancel.Text in AnotherDatePicker.bas?

You can add it inside DesignerCreateView sub, as long as after the line loading the "DatePicker" layout will do:

B4X:

pnlDialog.LoadLayout("DatePicker")
btnToday.Text = "วันนี้"
btnCancel.Text = "ยกเลิก"

I don't understand your second question.

aeric · Aug 4, 2023

Check this:

[B4X] Set date format with locale

Cross platform code to change the date format with an explicit locale: Private Sub SetDateFormat(Language As String, Country As String, format As String) #if B4A or B4J Dim locale As JavaObject locale.InitializeNewInstance("java.util.Locale", Array(Language, Country)) Dim...

www.b4x.com

Add Reflection library in B4A.

B4X:

Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
   
    Dim format As String = "dd MMM yyyy"
    SetDateFormat("th", "TH", format)
End Sub

Private Sub AnotherDatePicker1_DateChanged (NewDate As Long)
    'TxtBoxDate1.Text=AnotherDatePicker1.ConvertThaiContents(NewDate)
    TxtBoxDate1.Text = DateTime.Date(NewDate)
End Sub

Private Sub SetDateFormat(Language As String, Country As String, format As String)
    #if B4A or B4J
    Dim locale As JavaObject
    locale.InitializeNewInstance("java.util.Locale", Array(Language, Country))
    Dim DateFormat As JavaObject
    DateFormat.InitializeNewInstance("java.text.SimpleDateFormat", Array(format, locale))
    Dim r As Reflector
    r.Target = r.RunStaticMethod("anywheresoftware.b4a.keywords.DateTime", "getInst", Null, Null)
    r.SetField2("dateFormat", DateFormat)
    #else if B4i
    Dim locale As NativeObject
    locale = locale.Initialize("NSLocale").RunMethod("alloc", Null).RunMethod("initWithLocaleIdentifier:", Array(Language & "_" & Country))
    DateTime.As(NativeObject).GetField("dateFormat").SetField("locale", locale)
    DateTime.DateFormat = format
    #End if
End Sub

Edit: This method cannot be used as the year value changed.

aeric · Aug 4, 2023

Try this mod.

Android Question Is there the way open B4ADesigner,B4JDesigner,andB4iDesigner in one application

Expert

Attachments

Expert

Expert

Expert

Expert

Expert

Attachments

B4X founder

Expert

Expert

Attachments

Expert

Attachments

Expert

Attachments

Expert

Expert

Expert

Expert

Expert

Expert

Attachments

Expert

Expert

Expert

Attachments

Similar Threads

Privacy & Transparency

Privacy & Transparency