Telerik Forums
UI for WinForms Forum
or
Ask question
All Questions
Unanswered
Answered
18,720 questions
8 answers
264 views
Hiding System.Drawing.Font properties in RadPropertyGrid

I'm using Progress OpenEdge 11.6 and I'm implementing a RadPropertyGrid that contains a property of type System.Drawing.Font.

When The Font property is displayed it automatically includes an expandable section which I want to keep, but some of the options are irrelavent to this app and I want to hide or remove them.

After reviewing the documentation and the other forum threads here, I tried the following code:

/*------------------------------------------------------------------------------
 Purpose:
 Notes:
------------------------------------------------------------------------------*/
@VisualDesigner.
METHOD PRIVATE VOID Props_CreateItemElement( INPUT sender AS System.Object,
                                             INPUT e AS CreatePropertyGridItemElementEventArgs ):
     
    IF  e:ITEM:parent <> ?           AND
       e:ITEM:parent:Label = "Font" THEN 
      IF e:ITEM:Label   = "Unit"                         OR  
        e:ITEM:Label   = "GdiCharSet"            OR  
        e:ITEM:Label   = "GdiVerticalFont" THEN
       e:ITEM:Visible = NO.
     
    RETURN.
 
END METHOD.

 

This appears to work initially when I expand the Font Property, these three items are not there, but as soon as I change one of the properties (such as changing the Bold flag) the hidden items reappear.

Am I not using the appropriate event to do this? Did I miss an event?

Please help.

 

 

PropertyGrid
Tyler
Top achievements
Rank 1
 answered on 22 Mar 2017
1 answer
112 views
menustrip disappears when PDFViewer control is added to form
We are displaying a PDF in the viewer, and the user decides whether it should be faxed or emailed to someone, and chooses the appropriate action from the menu strip.  But the menu strip docked to the top of the form is disappearing when the PDF Viewer control is added to the form's Controls collection; bringing the menu to the front doesn't fix the problem. The menustrip remains hidden.  Our license is a couple of years old. Was this a known problem that was fixed in newer versions?  Or is it by design, and only the PDFViewerNavigator can be used with the Viewer?
PdfViewer and PdfViewerNavigator
Dess | Tech Support Engineer, Principal
Telerik team
 answered on 21 Mar 2017
4 answers
300 views
Hidden Cell Values

hi, 

i need to access invisible row value for formatting current cell

i can do this with devexpress xtragrid

Private Sub GridView1_RowCellStyle(sender As Object, e As RowCellStyleEventArgs) Handles GridView1.RowCellStyle
       Try
           If Not IsNothing(e) Then
               If Not IsNothing(GridView1.GetRowCellValue(e.RowHandle, "mukellef_mukellefiyetler")) Then
                   Dim Turu2() As String = GridView1.GetRowCellValue(e.RowHandle, "mukellef_mukellefiyetler").ToString.Split("|")
 
                   Dim Turu As String = ""
                   Dim muhdonem As String = ""
                   If Turu2(2) <> "H" Or Turu2(2) <> "" Then muhdonem = Turu2(2)
                   Select Case e.Column.Name
                       Case "listeler_kesin"
                           If Turu2(7) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_kesin_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_formba"
                           If Turu2(4) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_formba_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_formbs"
                           If Turu2(4) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_formbs_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_kdv2"
                           If Turu2(1) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_kdv2_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_kdv1"
                           If Turu2(0) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_kdv1_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_muh"
                           If Turu2(2) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               If Not ucaylikdonem And muhdonem = "3" Then
                                   e.Appearance.BackColor = Color.DimGray
                                   e.Appearance.ForeColor = Color.DimGray
                               Else
 
                                   Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_muh_aciklama").ToString.Split("|")(0)
                                   Select Case Turu
                                       Case "Onaylandı-Gönderildi"
                                           e.Appearance.BackColor = Color.Green
                                           e.Appearance.ForeColor = Color.Green
                                       Case "Onaylandı"
                                           e.Appearance.BackColor = Color.PaleGreen
                                           e.Appearance.ForeColor = Color.PaleGreen
                                       Case "Onaylanmadı"
                                           e.Appearance.BackColor = Color.Red
                                           e.Appearance.ForeColor = Color.Red
                                       Case "Bu Ay Yok"
                                           e.Appearance.BackColor = Color.DimGray
                                           e.Appearance.ForeColor = Color.DimGray
                                   End Select
                               End If
                           End If
                       Case "listeler_gecici"
                           If Turu2(5) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_gecici_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_yillik"
                           If Turu2(6) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_yillik_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                       Case "listeler_damga"
                           If Turu2(3) = "H" Then
                               e.Appearance.BackColor = Color.DimGray
                               e.Appearance.ForeColor = Color.DimGray
                           Else
                               Turu = GridView1.GetRowCellValue(e.RowHandle, "listeler_damga_aciklama").ToString.Split("|")(0)
                               Select Case Turu
                                   Case "Onaylandı-Gönderildi"
                                       e.Appearance.BackColor = Color.Green
                                       e.Appearance.ForeColor = Color.Green
                                   Case "Onaylandı"
                                       e.Appearance.BackColor = Color.PaleGreen
                                       e.Appearance.ForeColor = Color.PaleGreen
                                   Case "Onaylanmadı"
                                       e.Appearance.BackColor = Color.Red
                                       e.Appearance.ForeColor = Color.Red
                                   Case "Bu Ay Yok"
                                       e.Appearance.BackColor = Color.DimGray
                                       e.Appearance.ForeColor = Color.DimGray
                               End Select
                           End If
                   End Select
               End If
           End If
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try
   End Sub

i have several invisible columns like this

Me.rgw1.MasterTemplate.AllowAddNewRow = False
Me.rgw1.MasterTemplate.AllowColumnReorder = False
Me.rgw1.MasterTemplate.AllowSearchRow = True
GridViewTextBoxColumn25.EnableExpressionEditor = False
GridViewTextBoxColumn25.FieldName = "mukellef_unvani"
GridViewTextBoxColumn25.HeaderText = "Ünvanı"
GridViewTextBoxColumn25.Name = "clmUnvan"
GridViewTextBoxColumn25.Width = 376
GridViewTextBoxColumn26.AllowGroup = False
GridViewTextBoxColumn26.AllowResize = False
GridViewTextBoxColumn26.AllowSort = False
GridViewTextBoxColumn26.EnableExpressionEditor = False
GridViewTextBoxColumn26.FieldName = "mukellef_tc"
GridViewTextBoxColumn26.HeaderText = "TC Kimlik"
GridViewTextBoxColumn26.Name = "clmTC"
GridViewTextBoxColumn26.ReadOnly = True
GridViewTextBoxColumn26.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn26.Width = 111
GridViewTextBoxColumn27.AllowGroup = False
GridViewTextBoxColumn27.AllowResize = False
GridViewTextBoxColumn27.AllowSort = False
GridViewTextBoxColumn27.EnableExpressionEditor = False
GridViewTextBoxColumn27.FieldName = "mukellef_vn"
GridViewTextBoxColumn27.HeaderText = "Vergi No"
GridViewTextBoxColumn27.Name = "clmVergi"
GridViewTextBoxColumn27.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn27.Width = 111
GridViewTextBoxColumn28.AllowGroup = False
GridViewTextBoxColumn28.AllowResize = False
GridViewTextBoxColumn28.AllowSort = False
GridViewTextBoxColumn28.EnableExpressionEditor = False
GridViewTextBoxColumn28.FieldName = "listeler_kdv1"
GridViewTextBoxColumn28.HeaderText = "KDV1"
GridViewTextBoxColumn28.Name = "clmKdv1"
GridViewTextBoxColumn28.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn29.AllowGroup = False
GridViewTextBoxColumn29.AllowResize = False
GridViewTextBoxColumn29.AllowSort = False
GridViewTextBoxColumn29.EnableExpressionEditor = False
GridViewTextBoxColumn29.FieldName = "listeler_kdv2"
GridViewTextBoxColumn29.HeaderText = "KDV2"
GridViewTextBoxColumn29.Name = "clmKdv2"
GridViewTextBoxColumn29.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn30.AllowGroup = False
GridViewTextBoxColumn30.AllowResize = False
GridViewTextBoxColumn30.AllowSort = False
GridViewTextBoxColumn30.EnableExpressionEditor = False
GridViewTextBoxColumn30.FieldName = "listeler_muh"
GridViewTextBoxColumn30.HeaderText = "MUH"
GridViewTextBoxColumn30.Name = "clmMuh"
GridViewTextBoxColumn30.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn31.AllowGroup = False
GridViewTextBoxColumn31.AllowResize = False
GridViewTextBoxColumn31.AllowSort = False
GridViewTextBoxColumn31.EnableExpressionEditor = False
GridViewTextBoxColumn31.FieldName = "listeler_damga"
GridViewTextBoxColumn31.HeaderText = "DMG"
GridViewTextBoxColumn31.Name = "clmDmg"
GridViewTextBoxColumn31.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn32.AllowGroup = False
GridViewTextBoxColumn32.AllowResize = False
GridViewTextBoxColumn32.AllowSort = False
GridViewTextBoxColumn32.EnableExpressionEditor = False
GridViewTextBoxColumn32.FieldName = "listeler_formba"
GridViewTextBoxColumn32.HeaderText = "FBA"
GridViewTextBoxColumn32.Name = "clmFormba"
GridViewTextBoxColumn32.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn33.AllowGroup = False
GridViewTextBoxColumn33.AllowResize = False
GridViewTextBoxColumn33.AllowSort = False
GridViewTextBoxColumn33.EnableExpressionEditor = False
GridViewTextBoxColumn33.FieldName = "listeler_formbs"
GridViewTextBoxColumn33.HeaderText = "FBS"
GridViewTextBoxColumn33.Name = "clmFormbs"
GridViewTextBoxColumn33.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn34.AllowGroup = False
GridViewTextBoxColumn34.AllowResize = False
GridViewTextBoxColumn34.AllowSort = False
GridViewTextBoxColumn34.EnableExpressionEditor = False
GridViewTextBoxColumn34.FieldName = "listeler_gecici"
GridViewTextBoxColumn34.HeaderText = "GEÇ"
GridViewTextBoxColumn34.Name = "clmGecici"
GridViewTextBoxColumn34.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn35.AllowGroup = False
GridViewTextBoxColumn35.AllowResize = False
GridViewTextBoxColumn35.AllowSort = False
GridViewTextBoxColumn35.EnableExpressionEditor = False
GridViewTextBoxColumn35.FieldName = "listeler_yillik"
GridViewTextBoxColumn35.HeaderText = "YIL"
GridViewTextBoxColumn35.Name = "clmyillik"
GridViewTextBoxColumn35.TextAlignment = System.Drawing.ContentAlignment.MiddleCenter
GridViewTextBoxColumn36.AllowGroup = False
GridViewTextBoxColumn36.AllowResize = False
GridViewTextBoxColumn36.AllowSort = False
GridViewTextBoxColumn36.EnableExpressionEditor = False
GridViewTextBoxColumn36.FieldName = "mukellef_sorumlu"
GridViewTextBoxColumn36.HeaderText = "sorumlu"
GridViewTextBoxColumn36.IsVisible = False
GridViewTextBoxColumn36.Name = "clmsorumlu"
GridViewTextBoxColumn37.AllowGroup = False
GridViewTextBoxColumn37.AllowResize = False
GridViewTextBoxColumn37.AllowSort = False
GridViewTextBoxColumn37.EnableExpressionEditor = False
GridViewTextBoxColumn37.FieldName = "mukellef_mukellefiyetler"
GridViewTextBoxColumn37.HeaderText = "mukellefiyetler"
GridViewTextBoxColumn37.IsVisible = False
GridViewTextBoxColumn37.Name = "clmmukellefiyetler"
GridViewTextBoxColumn38.AllowGroup = False
GridViewTextBoxColumn38.AllowResize = False
GridViewTextBoxColumn38.AllowSort = False
GridViewTextBoxColumn38.EnableExpressionEditor = False
GridViewTextBoxColumn38.FieldName = "mukellef_vd"
GridViewTextBoxColumn38.HeaderText = "vd"
GridViewTextBoxColumn38.IsVisible = False
GridViewTextBoxColumn38.Name = "clmvd"
GridViewTextBoxColumn39.AllowGroup = False
GridViewTextBoxColumn39.AllowResize = False
GridViewTextBoxColumn39.AllowSort = False
GridViewTextBoxColumn39.EnableExpressionEditor = False
GridViewTextBoxColumn39.FieldName = "mukellef_eposta"
GridViewTextBoxColumn39.HeaderText = "eposta"
GridViewTextBoxColumn39.IsVisible = False
GridViewTextBoxColumn39.Name = "clmeposta"
GridViewTextBoxColumn40.AllowGroup = False
GridViewTextBoxColumn40.AllowResize = False
GridViewTextBoxColumn40.AllowSort = False
GridViewTextBoxColumn40.EnableExpressionEditor = False
GridViewTextBoxColumn40.FieldName = "mukellef_sondonem"
GridViewTextBoxColumn40.HeaderText = "sondonem"
GridViewTextBoxColumn40.IsVisible = False
GridViewTextBoxColumn40.Name = "clmsondonem"
GridViewTextBoxColumn41.AllowGroup = False
GridViewTextBoxColumn41.AllowResize = False
GridViewTextBoxColumn41.AllowSort = False
GridViewTextBoxColumn41.EnableExpressionEditor = False
GridViewTextBoxColumn41.FieldName = "listeler_kdv1_aciklama"
GridViewTextBoxColumn41.HeaderText = "listeler_kdv1_aciklama"
GridViewTextBoxColumn41.IsVisible = False
GridViewTextBoxColumn41.Name = "listeler_kdv1_aciklama"
GridViewTextBoxColumn42.EnableExpressionEditor = False
GridViewTextBoxColumn42.FieldName = "listeler_kdv2_aciklama"
GridViewTextBoxColumn42.HeaderText = "listeler_kdv2_aciklama"
GridViewTextBoxColumn42.IsVisible = False
GridViewTextBoxColumn42.Name = "listeler_kdv2_aciklama"
GridViewTextBoxColumn43.EnableExpressionEditor = False
GridViewTextBoxColumn43.FieldName = "listeler_muh_aciklama"
GridViewTextBoxColumn43.HeaderText = "listeler_muh_aciklama"
GridViewTextBoxColumn43.IsVisible = False
GridViewTextBoxColumn43.Name = "listeler_muh_aciklama"
GridViewTextBoxColumn44.EnableExpressionEditor = False
GridViewTextBoxColumn44.FieldName = "listeler_gecici_aciklama"
GridViewTextBoxColumn44.HeaderText = "listeler_gecici_aciklama"
GridViewTextBoxColumn44.IsVisible = False
GridViewTextBoxColumn44.Name = "listeler_gecici_aciklama"
GridViewTextBoxColumn45.EnableExpressionEditor = False
GridViewTextBoxColumn45.FieldName = "listeler_yillik_aciklama"
GridViewTextBoxColumn45.HeaderText = "listeler_yillik_aciklama"
GridViewTextBoxColumn45.IsVisible = False
GridViewTextBoxColumn45.Name = "listeler_yillik_aciklama"
GridViewTextBoxColumn46.EnableExpressionEditor = False
GridViewTextBoxColumn46.FieldName = "listeler_damga_aciklama"
GridViewTextBoxColumn46.HeaderText = "listeler_damga_aciklama"
GridViewTextBoxColumn46.IsVisible = False
GridViewTextBoxColumn46.Name = "listeler_damga_aciklama"
GridViewTextBoxColumn47.EnableExpressionEditor = False
GridViewTextBoxColumn47.FieldName = "listeler_formba_aciklama"
GridViewTextBoxColumn47.HeaderText = "listeler_formba_aciklama"
GridViewTextBoxColumn47.IsVisible = False
GridViewTextBoxColumn47.Name = "listeler_formba_aciklama"
GridViewTextBoxColumn48.EnableExpressionEditor = False
GridViewTextBoxColumn48.FieldName = "listeler_formbs_aciklama"
GridViewTextBoxColumn48.HeaderText = "listeler_formbs_aciklama"
GridViewTextBoxColumn48.IsVisible = False
GridViewTextBoxColumn48.Name = "listeler_formbs_aciklama"

but i cant access hidden columns value in radgrid like this 

Private Sub rgw1_CellFormatting(sender As Object, e As CellFormattingEventArgs) Handles rgw1.CellFormatting
      Try
          If Not IsNothing(e) Then
              If Not IsNothing(e.CellElement.RowInfo.Cells("mukellef_mukellefiyetler")) Then
                  Dim Turu2() As String = e.CellElement.RowInfo.Cells("mukellef_mukellefiyetler").ToString.Split("|")
 
                  Dim Turu As String = ""
                  Dim muhdonem As String = ""
                  If Turu2(2) <> "H" Or Turu2(2) <> "" Then muhdonem = Turu2(2)
                  e.CellElement.DrawFill = True
                  Select Case e.Column.Name
                      Case "listeler_kesin"
                          If Turu2(7) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_kesin_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_formba"
                          If Turu2(4) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_formba_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_formbs"
                          If Turu2(4) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_formbs_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_kdv2"
                          If Turu2(1) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_kdv2_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_kdv1"
                          If Turu2(0) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_kdv1_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_muh"
                          If Turu2(2) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              If Not ucaylikdonem And muhdonem = "3" Then
                                  e.CellElement.BackColor = Color.DimGray
                                  e.CellElement.ForeColor = Color.DimGray
                              Else
 
                                  Turu = e.CellElement.RowInfo.Cells("listeler_muh_aciklama").ToString.Split("|")(0)
                                  Select Case Turu
                                      Case "Onaylandı-Gönderildi"
                                          e.CellElement.BackColor = Color.Green
                                          e.CellElement.ForeColor = Color.Green
                                      Case "Onaylandı"
                                          e.CellElement.BackColor = Color.PaleGreen
                                          e.CellElement.ForeColor = Color.PaleGreen
                                      Case "Onaylanmadı"
                                          e.CellElement.BackColor = Color.Red
                                          e.CellElement.ForeColor = Color.Red
                                      Case "Bu Ay Yok"
                                          e.CellElement.BackColor = Color.DimGray
                                          e.CellElement.ForeColor = Color.DimGray
                                  End Select
                              End If
                          End If
                      Case "listeler_gecici"
                          If Turu2(5) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_gecici_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_yillik"
                          If Turu2(6) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_yillik_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                      Case "listeler_damga"
                          If Turu2(3) = "H" Then
                              e.CellElement.BackColor = Color.DimGray
                              e.CellElement.ForeColor = Color.DimGray
                          Else
                              Turu = e.CellElement.RowInfo.Cells("listeler_damga_aciklama").ToString.Split("|")(0)
                              Select Case Turu
                                  Case "Onaylandı-Gönderildi"
                                      e.CellElement.BackColor = Color.Green
                                      e.CellElement.ForeColor = Color.Green
                                  Case "Onaylandı"
                                      e.CellElement.BackColor = Color.PaleGreen
                                      e.CellElement.ForeColor = Color.PaleGreen
                                  Case "Onaylanmadı"
                                      e.CellElement.BackColor = Color.Red
                                      e.CellElement.ForeColor = Color.Red
                                  Case "Bu Ay Yok"
                                      e.CellElement.BackColor = Color.DimGray
                                      e.CellElement.ForeColor = Color.DimGray
                              End Select
                          End If
                  End Select
              End If
          End If
      Catch ex As Exception
          MsgBox(ex.Message)
      End Try
  End Sub
GridView
Dimitar
Telerik team
 answered on 21 Mar 2017
3 answers
239 views
Change DropDownStyle of RadDateTimePicker
Is there a way to change the DropDownStyle of RadDateTimePicker?  Similar to the DropDownStyle property of RadDropDownList.  I want my users to be able to click on any part of the date time picker and drop down the calendar control.  Currently they have to press the down arrow and when they click into the text area of the date time picker they the cursor appears which is unwanted.  In other words I want to be able to click any part of the date time picker control and that makes the calendar appear.  
Calendar, DateTimePicker, TimePicker and Clock
Dimitar
Telerik team
 answered on 21 Mar 2017
1 answer
265 views
Programmatically, the Check box related to "SelectedValue" is not checked properly

radCheckedDropDownList,

When I set "SelectedValue" programmatically, the Check box related to this selected value is not checked properly.

I want to select item and make it checked PROGRAMMATICALLY

Note: The radCheckedDropDownList is data Binding with datasource

CheckedDropDownList
Dimitar
Telerik team
 answered on 20 Mar 2017
1 answer
6.6K+ views
adding an icon image for a button
I am aware that you can add an icon image through the property -> images -> and import an image from there.  I was trying to find a way to hard code this because for one button, i want to alternate between 2 different images.  I was wondering if you could provide a link or example code of how i can do that, or how to hard code an icon image into a command bar button.
Visual Studio Extensions
Fran
Top achievements
Rank 1
 answered on 17 Mar 2017
1 answer
163 views
Upgrading Telerik Controls for Winforms

I'm using Progress OpenEdge and I have a project that uses several of the Telerik Controls. We're currently using the 2016.2.608.40 versions of these controls.

We recently downloaded and installed the "R1 2017" version and I noticed that these controls were installed to a different folder.

We're using the OpenEdge Editor and not Visual Studio, so how do I upgrade-in-place these controls?

Setting the controls up in the project was a long and time-consuming experience and I'm not interested in deleting them and re-adding them.

General Discussions
Dimitar
Telerik team
 answered on 17 Mar 2017
5 answers
429 views
How to Make RadForm/All Controls Read Only?
Hi,

How to make RadFrom (Windows) Read Only or all of its control readonly including RadPagView, Panels, TextBox, DropDown, DateTimePicker etc.


Thanks!
Form
Hristo
Telerik team
 answered on 16 Mar 2017
3 answers
99 views
Detecting HeaderImage click

Hi,

is it possible to detect a separate click, when clicking on HeaderImage? So default action would be prevented (sorting).

I found this old thread: http://www.telerik.com/forums/display-image-in-gridview-header

Which sort of has a solution but I don't know how to use it when I already have auto-generated "normal" columns. I would prefer just detecting location of HeaderImage though as it seems easier and simpler (if you know how to do it).

GridView
Dess | Tech Support Engineer, Principal
Telerik team
 answered on 16 Mar 2017
2 answers
229 views
GridViewTemplate displaying an Icon

Hello,

I have a radGridView using some childTemplates. I managed to display the title for each tabs (using the template.Caption), but I wanted to know if there is a possibility to display an icon instead of the text.

Also I wanted to have the tabs position on the left (rgvGridVIew1.MasterTemplate.ChildViewTabsPosition = TabPositions.Left), but the caption is then diplayed vertically. Is there a way to show the caption horizontally ?

 See attached image.

Thanks 

GridView
Dess | Tech Support Engineer, Principal
Telerik team
 answered on 16 Mar 2017
Narrow your results
Done
Selected tags
Tags
GridView
General Discussions
Scheduler and Reminder
Treeview
Dock
RibbonBar
Themes and Visual Style Builder
ChartView
Calendar, DateTimePicker, TimePicker and Clock
DropDownList
Buttons, RadioButton, CheckBox, etc
ListView
ComboBox and ListBox (obsolete as of Q2 2010)
Chart (obsolete as of Q1 2013)
Form
PageView
MultiColumn ComboBox
TextBox
RichTextEditor
PropertyGrid
Menu
RichTextBox (obsolete as of Q3 2014 SP1)
Panelbar (obsolete as of Q2 2010)
PivotGrid and PivotFieldList
Tabstrip (obsolete as of Q2 2010)
MaskedEditBox
CommandBar
PdfViewer and PdfViewerNavigator
ListControl
Carousel
GanttView
Diagram, DiagramRibbonBar, DiagramToolBox
Panorama
New Product Suggestions
Toolstrip (obsolete as of Q3 2010)
VirtualGrid
AutoCompleteBox
Label
Spreadsheet
ContextMenu
Panel
Visual Studio Extensions
TitleBar
Documentation
SplitContainer
Map
DesktopAlert
CheckedDropDownList
ProgressBar
TrackBar
MessageBox
Rotator
SpinEditor
CheckedListBox
StatusStrip
LayoutControl
SyntaxEditor
Wizard
ShapedForm
TextBoxControl
Conversational UI, Chat
DateTimePicker
CollapsiblePanel
TabbedForm
CAB Enabling Kit
GroupBox
WaitingBar
DataEntry
ScrollablePanel
ScrollBar
ImageEditor
Tools - VSB, Control Spy, Shape Editor
BrowseEditor
DataFilter
ColorDialog
FileDialogs
Gauges (RadialGauge, LinearGauge, BulletGraph)
ApplicationMenu
RangeSelector
CardView
WebCam
Styling
Barcode
BindingNavigator
PopupEditor
RibbonForm
TaskBoard
Callout
ColorBox
PictureBox
FilterView
NavigationView
Accessibility
VirtualKeyboard
DataLayout
Licensing
ToastNotificationManager
ValidationProvider
CalculatorDropDown
Localization
TimePicker
ButtonTextBox
FontDropDownList
BarcodeView
BreadCrumb
Security
LocalizationProvider
Dictionary
Overlay
Flyout
Separator
SparkLine
TreeMap
StepProgressBar
SplashScreen
ToolbarForm
NotifyIcon
DateOnlyPicker
Rating
TimeSpanPicker
Calculator
OfficeNavigationBar
TaskbarButton
HeatMap
SlideView
PipsPager
AIPrompt
TaskDialog
TimeOnlyPicker
+? more
Top users last month
Jay
Top achievements
Rank 3
Iron
Iron
Iron
Benjamin
Top achievements
Rank 3
Bronze
Iron
Veteran
Radek
Top achievements
Rank 2
Iron
Iron
Iron
Bohdan
Top achievements
Rank 2
Iron
Iron
Richard
Top achievements
Rank 4
Bronze
Bronze
Iron
Want to show your ninja superpower to fellow developers?
Learn how
463 464
465
466 467
Top users last month
Jay
Top achievements
Rank 3
Iron
Iron
Iron
Benjamin
Top achievements
Rank 3
Bronze
Iron
Veteran
Radek
Top achievements
Rank 2
Iron
Iron
Iron
Bohdan
Top achievements
Rank 2
Iron
Iron
Richard
Top achievements
Rank 4
Bronze
Bronze
Iron
Want to show your ninja superpower to fellow developers?
Learn how
Want to show your ninja superpower to fellow developers?
Learn how