or
| RadLabel label1 = new RadLabel(); label1.Text = "Ann's Birthday"; |
| RadHostItem host = new RadHostItem(label1); |
| radCalendar1.SpecialDays[0].TemplateItem = host; |
Hello i asked you a question yesturday and i didnt recive an answer
and if i may i have another question how can i change the color of the gridlines
hanan
the questions are about wpf
best regards
hanan
| private void radGridView1_CellBeginEdit(object sender, GridViewCellCancelEventArgs e) |
| { |
| RadTextBoxEditor editor = radGridView1.ActiveEditor as RadTextBoxEditor; |
| editor.AcceptsReturn = true; |
| editor.AcceptsTab = true; |
| } |
| Private Sub RGVContacts_RowFormatting(ByVal sender As Object, ByVal e As Telerik.WinControls.UI.RowFormattingEventArgs) Handles RGVContacts.RowFormatting |
| If e.RowElement.IsOdd Then |
| e.RowElement.BackColor = Color.Moccasin |
| Else |
| e.RowElement.BackColor = Color.FloralWhite |
| End If |
| e.RowElement.DrawFill = True |
| End Sub |
| Source code (ascx) |
| ==================== |
| <table class="planTabTable" width="100%" > |
| <tr> |
| <td colspan="5"> |
| <rad:RadTabStrip ID="PlanTabs" runat="server" Skin="Office2007" AutoPostBack="True" SelectedIndex="0" ClickSelectedTab="True"> |
| <Tabs> |
| <rad:Tab ID="Tab1" runat="server" Text="Summary" > |
| </rad:Tab> |
| <rad:Tab ID="Tab2" runat="server" Text="Room Revenue" > |
| </rad:Tab> |
| <rad:Tab ID="Tab3" runat="server" Text="Line Items" > |
| </rad:Tab> |
| <rad:Tab ID="Tab4" runat="server" Text="Audit"> |
| </rad:Tab> |
| </Tabs> |
| </rad:RadTabStrip> |
| </td> |
| </tr> |
| </table> |
| Code behind (ascx.vb) |
| ===================== |
| Imports PortfolioOne.Common |
| <Serializable()> _ |
| Partial Public Class PlanTabControlHeader_NEW |
| Inherits P1BaseUserControl |
| #Region "Properties" |
| ' these get rendered on the page to set the css class for each tab |
| ' they get set in PreRender |
| Protected _roomRevenueTabClass As String = "planTabUnactive" |
| Protected _lineItemsTabClass As String = "planTabUnactive" |
| Protected _summaryTabClass As String = "planTabUnactive" |
| Protected _auditTabClass As String = "planTabUnactive" |
| Private _tabQueryString As String = "" |
| Private _activeTab As PlanTabSelection = PlanTabSelection.RoomRevenue |
| Public Property TabQueryString() As String |
| ''' <summary> |
| ''' The params that the tab control should put in the links of the tabs. |
| ''' Do not include the leading '?'. |
| ''' </summary> |
| Get |
| Return _tabQueryString |
| End Get |
| Set(ByVal value As String) |
| _tabQueryString = value |
| End Set |
| End Property |
| Public Property ActiveTab() As PlanTabSelection |
| ''' <summary> |
| ''' Sets the active tab shown on the control. |
| ''' </summary> |
| Get |
| Return _activeTab |
| End Get |
| Set(ByVal value As PlanTabSelection) |
| _activeTab = value |
| End Set |
| End Property |
| #End Region |
| #Region "Events" |
| ' we'll fire this event when a tab is clicked so the pages can listen for it |
| Public Event TabClicked As CommandEventHandler |
| Protected Overrides Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init |
| MyBase.Page_Init(sender, e) |
| End Sub |
| Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load |
| If Not Me.IsPostBack Then |
| If Me.Parent.FindControl("hdnEditVersionGUID") Is Nothing Then |
| Me.GUIDPlanVersionID.Value = Request.QueryString("GUID").ToString() |
| Else |
| Me.GUIDPlanVersionID.Value = DirectCast(Me.Parent.FindControl("hdnEditVersionGUID"), HtmlInputHidden).Value |
| End If |
| 'If Me.Parent.FindControl("hdnCompareVersionGUID") Is Nothing Then |
| ' Me.GUIDComparePlanVersionID.Value = Request.QueryString("CompareGUID").ToString() |
| 'Else |
| ' Me.GUIDComparePlanVersionID.Value = DirectCast(Me.Parent.FindControl("hdnCompareVersionGUID"), HtmlInputHidden).Value |
| 'End If |
| End If |
| End Sub ' Page_Load |
| Private Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender |
| Try |
| Dim intTabIndex As Integer |
| If Session("LastClick") IsNot Nothing Then |
| intTabIndex = CInt(Session("LastClick").ToString()) |
| Else |
| intTabIndex = 0 |
| End If |
| Dim oTab As Telerik.WebControls.Tab = PlanTabs.Tabs(intTabIndex) |
| If Not oTab Is Nothing Then |
| oTab.BackColor = Drawing.Color.Honeydew |
| oTab.ForeColor = Drawing.Color.Blue |
| oTab.SelectParents() |
| End If |
| Catch ex As Exception |
| Call Alloso.PortfolioOne.Common.WriteToEventLog(System.Reflection.MethodBase.GetCurrentMethod.Name, Err.Number, ex.ToString(), EventLogEntryType.Error, Me.MyUser.UserName) |
| End Try |
| End Sub ' Page_PreRender |
| Protected Sub PlanTabs_TabClick(ByVal sender As System.Object, ByVal e As Telerik.WebControls.TabStripEventArgs) Handles PlanTabs.TabClick |
| Try |
| Select Case e.Tab.Text |
| Case "Summary" |
| Session("LastClick") = 0 |
| RaiseEvent TabClicked(Me, New CommandEventArgs("PlanTabClicked", PlanTabSelection.Summary)) |
| Response.Redirect("PlanSummary_NEW.aspx?" & _tabQueryString & "GUID=" & Me.GUIDPlanVersionID.Value, True) |
| Case "Room Revenue" |
| Session("LastClick") = 1 |
| RaiseEvent TabClicked(Me, New CommandEventArgs("PlanTabClicked", PlanTabSelection.RoomRevenue)) |
| Response.Redirect("PlanRevenue_NEW.aspx?" & _tabQueryString & "GUID=" & Me.GUIDPlanVersionID.Value, True) |
| Case "Line Items" |
| Session("LastClick") = 2 |
| RaiseEvent TabClicked(Me, New CommandEventArgs("PlanTabClicked", PlanTabSelection.LineItems)) |
| Response.Redirect("PlanExpenses_NEW.aspx?" & _tabQueryString & "GUID=" & Me.GUIDPlanVersionID.Value, True) |
| Case Else |
| Session("LastClick") = 3 |
| ' else assume audit |
| RaiseEvent TabClicked(Me, New CommandEventArgs("PlanTabClicked", PlanTabSelection.Audit)) |
| Response.Redirect("PlanAudit_NEW.aspx?" & _tabQueryString & "GUID=" & Me.GUIDPlanVersionID.Value, True) |
| End Select |
| PlanTabs.SelectedTab.BackColor = Drawing.Color.Blue |
| Catch ex As Exception |
| If Err.Number <> 5 Then Call Alloso.PortfolioOne.Common.WriteToEventLog(System.Reflection.MethodBase.GetCurrentMethod.Name, Err.Number, ex.ToString(), EventLogEntryType.Error, Me.MyUser.UserName) |
| End Try |
| End Sub |
| Private Sub PlanTabs_TabSelected(ByVal sender As Object, ByVal args As Telerik.WebControls.TabStripEventArgs) |
| End Sub |
| #End Region |
| End Class |