Hi,
I had customized my radcalendar for displaying Hijri dates along with Gregorian.It works fine on my local machine but when hosting the Hijri dates from 13th to last date of every month is invisible.I am attaching a screenshot along with this for your reference.
Here my code is;
Thnx in advance.
I had customized my radcalendar for displaying Hijri dates along with Gregorian.It works fine on my local machine but when hosting the Hijri dates from 13th to last date of every month is invisible.I am attaching a screenshot along with this for your reference.
Here my code is;
Protected Sub RadCalendar1_DayRender(ByVal sender As Object, ByVal e As Telerik.Web.UI.Calendar.DayRenderEventArgs) Handles radCal1.DayRender Dim label As New Label() Dim div As HtmlGenericControl = New HtmlGenericControl("div") div.Attributes.Add("class", "CalG") label.Text = e.Day.[Date].Day.ToString() 'Gregorian Day div.Controls.Add(label) Dim div1 As HtmlGenericControl = New HtmlGenericControl("div") div1.Attributes.Add("class", "CalH") Dim label1 As Label = New Label() label1.ForeColor = Drawing.Color.Brown Dim d As DateTime = e.Day.Date Dim objDateConv As New DatesConversion label1.Font.Size = FontSize.Small label1.Height = "5" label1.Text = objDateConv.GregToHijri(d, "Day") & "/" & objDateConv.GregToHijri(d, "Month") 'hijri Day and month div1.Controls.Add(label1) If e.Day.Date.DayOfWeek = 4 Then 'Disable week day Dim calendarSkin = radCal1.Skin If (calendarSkin = "") Then calendarSkin = "Default" End If Dim otherMonthCssClass As String = String.Format("otherMonth_{0}", calendarSkin) e.Cell.Text = "" e.Cell.CssClass = otherMonthCssClass ' set new CssClass for the disabled calendar day cells (e.g. look like other month days here) Dim calendarDay As RadCalendarDay = New RadCalendarDay calendarDay.Date = e.Day.Date calendarDay.IsSelectable = False calendarDay.ItemStyle.CssClass = otherMonthCssClass radCal1.SpecialDays.Add(calendarDay) e.Cell.BackColor = Drawing.Color.LightYellow End If div.Attributes.Add("class", "CalG") div1.Attributes.Add("class", "CalH") e.Cell.Controls.Add(div) e.Cell.Controls.Add(div1) End SubThnx in advance.