B4A Library Custom Calendar Class

Erel · Oct 5, 2012

Thank you for sharing.
:sign0098:

StarinschiAndrei · Dec 9, 2012

Hi ,

i try to use your cutom calendar but i got an erroe message:
"SomeTime=DateTime.DateParse(CallMonth&"/01/"&calYear)"
java.text.ParseException:unparsable date:"12/01/2012"(at offset 2)

it happen only if i call second time from same button your calendar.
Sub btnscadenta_Click
If btnscadenta.Text ="Urmatoarea scadenta :" Then
CsCal.Initialize(Me,"CsCal",100%x,100%y,DateTime.Now)
Activity.AddView(CsCal.AsView,0,0,100%x,100%y)
CsCal.ShowCalendar(True)
lansare="scadenta"
End If
End Sub
Could you please tell me why it happen ?
Thank you.

Harris · Dec 20, 2012

New Version - modified original

I liked this simple/easy calendar class so much, I modified it.

1. Added the AHLocale lib to supply the lists of weekday, short and long month names. Now supports any language on a device. I recommend everyone use this for these purposes ( hey - why not?)

2. Restricted day selection to the current month in view.

3. Title shows the day selected. Added Sub BtJour_Down event to accomplish this.

4. Added _ItemLongClick event (removed short click) to make the actual day selection.

5. Created Private vars for Start and End years used in spinner view. Set the begin and end years in one place to whatever you need.

Further mods: Could use bigger font size on lager devices (tablets)...

Thanks to the author Takeru17 for this class and inspiration.

Tested on Nexus 7 tablet and Samsung S phone.

Cheers

Harris · Dec 21, 2012

Got me beat...

This is how the cal looks on a SG2 phone in landscape (See Attached).

My Galaxy S has 206 ppi. Cal looks fine in landscape
Galaxy S2 has 240.

Why does S2 cut off half the date number?

Both look fine in portrait.

Cableguy · Jan 3, 2013

I can point 2 reasons, and they may both occur simultaneously...

. The 'S2' screen resolution being different from the 'S'
. The Font is too big for the label size, which seem to be much smaller than the outlined box around it...

For the first case, you must use some code to first establish the screen resolution, set it to a var and use it in the calculations for the sizing...
For the second, widen up the label to the box size -1, play a bit with the font size and with theppositioning, try to align up vertically.

JTmartins · Jan 25, 2013

How can I Move and change font in YEAR

Hi Takeru17,

I've played with your class with diferent font sizes and colors, just one thing I can't catch.

How can we center the year and change the font to bold...?

Everyhting else is a button or a label, but this one is a spinner, right ?

Just because in my opinion it does not look right there on to left.

I've tryed, but couldn't find a way.

Thanks,

José

Harris · Jan 26, 2013

"How can we center the year and change the font to bold...?"

Check my post above - "New Version - modified original"

In the supplied modified class (and example):
Search for spLabel in the class. It explains how to accomplish what you asked for.

Essentially, the code hides the spinner view and substitutes a label to present the UI, using the spinner list and events.

Who knew that this kind of trickery could be performed (aside from Erel and possibly 1000 others).

Note: Additional libs - AHLocal, Reflection

Cheers

JTmartins · Jan 29, 2013

Dates do not change

Hi Harris,

*********************************************************
SORTED OUT...NEVER MIND ..MISSING SUB CsCal_ItemLongClick IN ACTIVITY
*********************************************************

I've tryed to run your example calendar together with AHviewpager Library,
however when I do that, the calendar displays OK in a page but when clicked in the days nothing happens. However the panel with previous month, year, and next month works as expected.

Tried in tablet and emulator.

I had the same problem with sliding menus, when Agenda menu selected clicking in a date does not work, so I presume that something else is catching the events, but do not know how to solve this.

Help, please..

Thanks
José

Harris · Jan 30, 2013

Yes,
the comment in CsCal.itemlongclick somewhat gives it away...

' Comment out ALL lines below for production use. Use dt param above (selected date) as you wish...

Glad you figured it out... It gets easier the more we code, study, experiment as well as read posts. Intents and Reflection are still quite puzzling however. Good thing for many examples to "borrow" code to get me thru...

JTmartins · May 28, 2013

Why is this ?

I have Custom calendar working ok in a sample project however, when I run it from a button on the final project

I get this

An Error has occured in sub:CustomCalendar_printdate (java line 602)
Java.Text.ParseException:Unparsable date "5/01/2013" (at offset 1)

Any clues ?

Thanks
José

I can see it has something to do with this SOMETIME lines

SomeTime = DateTime.DateParse(CalMonth & "/01/" & CalYear)

Erel · May 30, 2013

What is the value of DateTime.DateFormat ?

JTmartins · Jun 12, 2013

The Value is

Hi Erel,

The value in DateTime.DateFormat is

DateTime.DateFormat="yyyy-MM-dd"

I use it in other part of the app that depend on date and this is the date format in the server.

In the sub of the button that opens the calendar I've changed to

Code:

DateTime.DateFormat="dd/MM/yyyy"

Now the calendar shows up, but when I click on the date I get

customcalendar_daypress (B4A line: 378)

SomeTime = DateTime.DateParse(mm & "/" & dd & "/" & aa)
java.text.ParseException: Unparseable date: "6/11/2013" (at offset 1)

at java.text.DateFormat.parse(DateFormat.java:626)
at anywheresoftware.b4a.keywords.DateTime.DateParse(DateTime.java:147)
at Gesdev4.dev.customcalendar._daypress(customcalendar.java:385)
at Gesdev4.dev.customcalendar._btjour_longclick(customcalendar.java:138)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:511)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
at anywheresoftware.b4a.BA.raiseEvent(BA.java:153)
at anywheresoftware.b4a.objects.ViewWrapper$2.onLongClick(ViewWrapper.java:73)
at android.view.View.performLongClick(View.java:4120)
at android.widget.TextView.performLongClick(TextView.java:7875)
at android.view.View$CheckForLongPress.run(View.java:16945)
at android.os.Handler.handleCallback(Handler.java:615)
at android.os.Handler.dispatchMessage(Handler.java:92)
at android.os.Looper.loop(Looper.java:137)
at android.app.ActivityThread.main(ActivityThread.java:4745)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:511)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:786)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:553)
at dalvik.system.NativeStart.main(Native Method)
java.text.ParseException: Unparseable date: "6/11/2013" (at offset 1)

The same happens if I use

Code:

DateTime.DateFormat="MM/dd/yyyy"

PS - AHlocale in use. I don't know if it has anything to do with that.

Erel · Jun 13, 2013

This code works properly:

Code:

DateTime.DateFormat = "MM/dd/yyyy"
Log(DateTime.DateParse("6/11/2013"))

JTmartins · Jun 13, 2013

This is my code

In the button sub that calls the calendar this is what I have.

Code:

Sub btnMarcaAula_Click
' para marcar aula precisamos de pedir
' data
' hora de inicio, hora de fim
' aluno (por LA)
' primeiro esconder todos os paineis
DateTime.DateFormat="MM/dd/yyyy"
Panel1.Visible=False
Panel2.Visible=False
Panel3.Visible=False
Panel4.Visible=False
Panel6.Visible=False
Panel7.Visible=False
Panel8.Visible=False
Panel9.Visible=False
Panel10.Visible=False
PanelLerMsg.Visible=False
Panelmsg.Visible=False
Panel5.Visible=True ' mostra o painel do calendário


CsCal.Initialize(Me,"CsCal",100%x,90%y,DateTime.Now)

Panel5.AddView(CsCal.AsView,0,0,Activity.Width,Activity.height)
CsCal.ShowCalendar(True)


End Sub

Then I have

Code:

Sub CsCal_ItemLongClick(dt As Long)   

   DateTime.DateFormat="MM/dd/yyyy" ' just to make sure again.
   
CsCal.ShowCalendar(False)


   
   Dim aa,dd,mm As Int
   aa=DateTime.GetYear(dt)
   dd=DateTime.GetDayOfMonth(dt)
   mm=DateTime.GetMonth(dt)
   
   Msgbox( CsCal.NmFullMonth(mm-1) &"  "&dd& "  " & aa," Data escolhida")
    CsCal.ShowCalendar(True)
   
   
End Sub

This is the error i receive when I click on a calendar day , and can't understand why.

java.text.ParseException: Unparseable date: "6/13/2013" (at offset 1)
at java.text.DateFormat.parse(DateFormat.java:626)
at anywheresoftware.b4a.keywords.DateTime.DateParse(DateTime.java:147)
at Gesdev4.dev.customcalendar._daypress(customcalendar.java:274)
at Gesdev4.dev.customcalendar._btjour_longclick(customcalendar.java:94)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:511)
at anywheresoftware.b4a.BA.raiseEvent2(BA.java:169)
at anywheresoftware.b4a.BA.raiseEvent(BA.java:153)
at anywheresoftware.b4a.objects.ViewWrapper$2.onLongClick(ViewWrapper.java:73)
at android.view.View.performLongClick(View.java:4120)
at android.widget.TextView.performLongClick(TextView.java:7875)
at android.view.View$CheckForLongPress.run(View.java:16945)
at android.os.Handler.handleCallback(Handler.java:615)
at android.os.Handler.dispatchMessage(Handler.java:92)

at android.os.Looper.loop(Looper.java:137)
at android.app.ActivityThread.main(ActivityThread.java:4745)
at java.lang.reflect.Method.invokeNative(Native Method)
at java.lang.reflect.Method.invoke(Method.java:511)
at com.android.internal.os.ZygoteInit$MethodAndArgsCaller.run(ZygoteInit.java:786)
at com.android.internal.os.ZygoteInit.main(ZygoteInit.java:553)
at dalvik.system.NativeStart.main(Native Method)
java.text.ParseException: Unparseable date: "6/13/2013" (at offset 1)

Erel · Jun 16, 2013

Check the class code. Maybe it changes the date format internally.

JTmartins · Jun 17, 2013

It works as an activity

I couldn't find anything wrong in the class.

Running in the same activity from a button gives the error mentioned before.

However clicking on the button, launching a new activity with the calender it works. And I don't even touch the datetime.dateformat.

Not the solution I wanted as reverting to the previous activity is going to be a little complicated, but at least it works.

If someone has a little time, maybe can investigate why this happens, as I really didn't catch the problem.

TsubasaOzora9 · Jul 15, 2013

how to make when user click some date, the cell background color changed. so they will know what they click ?

i try

SetActiveButtonColor(Color) : color of calendar's buttons -> all the calendar button becomes that color
SetInactiveButtonColor(Color) : color of day's buttons

pesquera · Apr 8, 2014

Nice job! it was very useful to me..
TsubasaOzora9: I did some changes for that

on Sub PrintDate:

Code:

'        If (cmm=CalMonth) AND (caa=CalYear) Then
'            If (z=cdd) Then
          If (z=CalDay) Then  ' pesquera
                btDays(i).Color=ColFunction
            End If
'        End If

on Sub DayPress:

Code:

  PrintDate(SomeTime)  ' pesquera
  Return True

padvou · Aug 1, 2014

How can we make the first day to be Monday and not Sunday?

B4A Library Custom Calendar Class

Attachments

B4X founder

Active Member

Expert

Attachments

Expert

Attachments

Expert

Active Member

Expert

Attachments

Active Member

Expert

Active Member

B4X founder

Active Member

B4X founder

Active Member

B4X founder

Active Member

Banned

Active Member

Active Member

Similar Threads