Hi All,

I have treeview with drag and drop enabled and also set the "multiSelect" property to true to select multiple node while drag. I need to show no. of selected nodes to drag like in windows file system while doing drag and drop operation.

Thanks,

Hello,

we are just evaluating the performance of the telerik rad-controls for a rather large migration project (vb6 to VS2008, > 1.500.000 lines of code)and played around a little bit with the test version.

Concerning the RibbonbarControl:

• Is it possible to automatically let the description text of a start menu item (e.g. done in excel or word) wrap to several lines?
• We tried to set the font property of a start menu's sub-menuitem different to the description text, but it won't get applied (namely: Text Font is Bold, Description Font non bold). Would that be possible?

(Like it is done in Microsoft Excel, when you open the save sub-menu. You see that every menu item there is bold and the description is non bold. The description text on top of that gets wrapped if it doesn't fit in the line. This is essential behaviour for a ribbon bar's start menu, isn't it?)

Thanks,

Klaus

Hi,

We are using telerik winforms Q3 2009 SP1. The issue happens when the user continuously using the product for long hours - after 4 hours.

When they are continuously using it, the system hangs and throws 'Out of Exception' Error. All the controls get highlighted in orange color.

As it is due to memory exception error, we even tried to minimize the memory in each and every call by doing the following.

  public static void minimizeMemory()
        {
            GC.Collect(GC.MaxGeneration);
            GC.WaitForPendingFinalizers();
            SetProcessWorkingSetSize(Process.GetCurrentProcess().Handle, (UIntPtr)0xFFFFFFFF, (UIntPtr)0xFFFFFFFF);
        }
        [DllImport("kernel32.dll")]
        [return: MarshalAs(UnmanagedType.Bool)]
        private static extern bool SetProcessWorkingSetSize(IntPtr process, UIntPtr minimumWorkingSetSize, UIntPtr maximumWorkingSetSize);

But, it doesn't solve the issue.

As we are in the production, we need your immediate reply on this.

Thanks in Advance.

I am trying to populate the MasterEvent.Exceptions for a recurring appointment.  If I make a simple time change, my exceptions show up correctly on the scheduler but I if I want to delete an occurence I cannot figure out how to specify that an exception is a deletion.  Is there some sort of identifier such as status = -1 that I can store and use to signify this so the deletions are removed from the scheduler?

I have added new items to the RadGridViews default context menu.
How do I handle the click events when one of the new items is clicked?
Thanks,

How do you set a tooltab active when selecting a document

I have two tool tabs with different details on them, and wanted to set one or the other active when I add a document to the document tab section


Any idea how to make the tab show as currently there is no difference as I select the document the event fires, but nothing changes on the tooltabs

How do I get the document tab to re display once you hit the close button for that tab.


As this code does not seem to do anything. 
I can prevent the page from hiding buy changing the setting to

But that is not the required action

Also you can easily hide the tab by coding

but how do you get it to show up again

I need to know when the user has changed an entry in a combobox in a specific column (3, in this case), because I may need to adjust entries in another column to compensate.  The first method I tried was using the CellValueChanged event, which kind of works, but only fires after you select another grid element.  I need something that works immediately upon the value changing, but that accesses the new value.

I found some other code on the forum to handle the selected index changed event, but had to modify it slightly:


The major change I made was to replace all instances of RadComboBoxElement with RadDropDownListElement, and RadComboBoxEditor with RadDropDownListEditor, and use the appropriate event arguments.  The code would not compile otherwise.

Original source is here.  I used the C# version, which you can see if you scroll down, as my starting point.

Since one cannot tell which row fired the event, one has to correct every row entry.  However, the big problem is that the CellEndEdit event doesn't work.  The event is firing as expected, but the value of 'editor' always ends up being null.  So, I keep assigning new copies of the event to the handler, and none are ever removed.  The fact that the events aren't being removed when changing cells is a huge problem, because the event then fires for any cell selected, not just the ones in column 3.

I'm not married to doing it this way.  All I need is some way to know that a new combobox element has been selected in a particular column, preferable also giving me the row was well, but it must give me some indication of what the new value is, either by knowing its text or by knowing its index in the combobox data set.

Any suggestions will be appreciated.

Hi,
I need to know how can I enable or disable ReadOnly property of a RadGridView's row. I have CheckBox column, and I want to manage ReadOnly property of selected row with checkboxes.

Hi,

    I am not able to bind the summary and detail datas into the radgridview.I am using two datatables,one is for master and another one is for detail.But i cant able to bind while expanding the grid."In the detail,i want to bind only specified columns such as Mold,Mold_pos_from,mold_pos_to,model,assembly_line_id"
Note:-
        Column Model and Assembly_Line_id must be combo box

I attached my code below:-

  Private Sub CBSEARCH_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CBSEARCH.Click
        Try
            intFlag = 1
            Grid_Combo_load()
            dsCastPlan = retrieveData()           
            Grid_Property(1)
            setColumn(dsCastPlan)
        Catch ex As Exception
            Throw ex
        End Try
    End Sub
   
     Private Sub Grid_Property(ByVal add_New As Integer)
        'Grid_Combo_load()
        Me.gvBarcodeGen.HorizontalScrollState = Telerik.WinControls.UI.ScrollState.AlwaysShow
        'Grouping()
        'row_summary(add_New)
        'gv_CPS.GroupDescriptors.Expression = "Cast Area"
        gvBarcodeGen.AutoExpandGroups = True
        gvBarcodeGen.GroupExpandAnimationType = Telerik.WinControls.UI.GridExpandAnimationType.Slide
        gvBarcodeGen.EnableSorting = True
        gvBarcodeGen.EnableGrouping = True
        gvBarcodeGen.ShowFilteringRow = False
        'Filter section
        gvBarcodeGen.EnableFiltering = False
        gvBarcodeGen.ShowGroupPanel = False
        gvBarcodeGen.AllowColumnResize = True
        gvBarcodeGen.MasterTemplate.ShowHeaderCellButtons = True
        gvBarcodeGen.MasterTemplate.ShowFilteringRow = False
        'gv_CPS.BestFitColumns()
    End Sub
    Private Sub setColumn(ByVal dscastplan As DataSet)
        Try
         
            Me.gvBarcodeGen.DataSource = dscastplan.Tables(0)          

            Dim childTemplate1 As New GridViewTemplate()
          
            childTemplate1.DataSource = dscastplan.Tables(1)

            childTemplate1.Columns("Mold").Width = 100
            childTemplate1.Columns("Mold").WrapText = True

            childTemplate1.Columns("mold_pos_from").Width = 100
            childTemplate1.Columns("mold_pos_from").WrapText = True

            childTemplate1.Columns("mold_pos_to").Width = 100
            childTemplate1.Columns("mold_pos_to").WrapText = True

            childTemplate1.Columns("Model").Width = 100
            childTemplate1.Columns("Model").WrapText = True

            'childTemplate1.Columns("Caster").Width = 100
            'childTemplate1.Columns("Caster").WrapText = True

            childTemplate1.Columns("assembly_line_id").Width = 100
            childTemplate1.Columns("assembly_line_id").WrapText = True

            childTemplate1.Columns("Status").Width = 100
            childTemplate1.Columns("Status").WrapText = True         

            Me.gvBarcodeGen.MasterTemplate.Templates.Add(childTemplate1)

            Dim relation1 As New GridViewRelation(Me.gvBarcodeGen.MasterTemplate)
            relation1.RelationName = "BenchMold_MoldPosition"
            relation1.ParentColumnNames.Add("bench_id")
            relation1.ChildColumnNames.Add("bench_id")
            relation1.ChildTemplate = childTemplate1
            Me.gvBarcodeGen.Relations.Add(relation1)

        Catch ex As Exception
            Throw ex
        End Try
    End Sub
   
    Private Sub Grid_Combo_load()

        gvBarcodeGen.Columns.Clear()
        gvBarcodeGen.AutoGenerateColumns = False

        Dim BENCH As New GridViewTextBoxColumn
        BENCH.Name = "bench"
        BENCH.HeaderText = "BENCH"
        BENCH.FieldName = "bench"
        BENCH.Width = 100
        BENCH.ReadOnly = True
        gvBarcodeGen.Columns.Add(BENCH)

        Dim SHIFT As New GridViewTextBoxColumn()
        SHIFT.Name = "shift_num"
        SHIFT.HeaderText = "SHIFT NUM"
        SHIFT.FieldName = "shift_num"
        SHIFT.Width = 100
        SHIFT.ReadOnly = True
        gvBarcodeGen.Columns.Add(SHIFT)

        'Dim BENCH As New GridViewComboBoxColumn()
        'BENCH.Name = "BENCH"
        'BENCH.HeaderText = "BENCH"
        'BENCH.DataSource = objCom.Dynamic_Combo_load("bench_id", "Name", "T_SFS_MAS_BENCH ORDER BY NAME")
        'BENCH.ValueMember = "bench_id"
        'BENCH.DisplayMember = "Name"
        'BENCH.FieldName = "BENCH"
        'BENCH.Width = 100
        'BENCH.ReadOnly = True
        'gvBarcodeGen.Columns.Add(BENCH)

        'Dim MoldCombo As New GridViewComboBoxColumn()
        'MoldCombo.Name = "MOLD NAME"
        'MoldCombo.HeaderText = "MOLD NAME"
        ''MoldCombo.DataSource = objCom.Dynamic_Combo_load("cast(mold_type_id as varchar(100)) as mold_type_id", "Name", "T_SFS_MOLD_TYPE ORDER BY NAME")
        'MoldCombo.DataSource = objCom.Dynamic_Combo_load("mold_type_id", "Name", "T_SFS_MOLD_TYPE ORDER BY NAME")
        'MoldCombo.ValueMember = "mold_type_id"
        'MoldCombo.DisplayMember = "Name"
        'MoldCombo.FieldName = "MOLD NAME"
        'MoldCombo.Width = 100
        ''MoldCombo.AutoCompleteMode = AutoCompleteMode.SuggestAppend
        'gvBarcodeGen.Columns.Add(MoldCombo)

        Dim NUM_INSTALLED As New GridViewTextBoxColumn()
        NUM_INSTALLED.Name = "num_installed"
        NUM_INSTALLED.HeaderText = "NUM INSTALLED"
        NUM_INSTALLED.FieldName = "num_installed"
        NUM_INSTALLED.Width = 100
        NUM_INSTALLED.ReadOnly = True
        gvBarcodeGen.Columns.Add(NUM_INSTALLED)

        Dim START_BARCODE As New GridViewTextBoxColumn()
        START_BARCODE.Name = "start_barcode"
        START_BARCODE.HeaderText = "START BARCODE"
        START_BARCODE.FieldName = "start_barcode"
        START_BARCODE.Width = 100
        START_BARCODE.ReadOnly = True
        gvBarcodeGen.Columns.Add(START_BARCODE)

        Dim END_BARCODE As New GridViewTextBoxColumn()
        END_BARCODE.Name = "end_barcode"
        END_BARCODE.HeaderText = "END BARCODE"
        END_BARCODE.FieldName = "end_barcode"
        END_BARCODE.Width = 100
        END_BARCODE.ReadOnly = True
        gvBarcodeGen.Columns.Add(END_BARCODE)

        Dim STATUS As New GridViewTextBoxColumn()
        STATUS.Name = "status"
        STATUS.HeaderText = "STATUS"
        STATUS.FieldName = "status"
        STATUS.Width = 100
        STATUS.ReadOnly = False
        gvBarcodeGen.Columns.Add(STATUS)

 

        Dim MOLD As New GridViewTextBoxColumn()
        MOLD.Name = "Mold"
        MOLD.HeaderText = "MOLD"
        MOLD.FieldName = "Mold"
        MOLD.Width = 100
        MOLD.ReadOnly = False
        ' Me.gvBarcodeGen.MasterTemplate.Templates.Add(childTemplate1)
        gvBarcodeGen.MasterTemplate.Columns.Add(MOLD)

 

 

    End Sub
     Private Sub drawCastPlanDetTable()
        Try

            dtCastPlan_New_0.Columns.Clear()           
            dtCastPlan_New_0.Columns.Add("bench_id", GetType(Integer))
            dtCastPlan_New_0.Columns.Add("bench", GetType(String))          
            dtCastPlan_New_0.Columns.Add("num_installed", GetType(Integer))          
            dtCastPlan_New_0.Columns.Add("assembly_line_id", GetType(Integer))         
            dtCastPlan_New_0.Columns.Add("shift_num", GetType(String))
            dtCastPlan_New_0.Columns.Add("cavity", GetType(Integer))         
            dtCastPlan_New_0.Columns.Add("start_barcode", GetType(String))
            dtCastPlan_New_0.Columns.Add("end_barcode", GetType(String))
            dtCastPlan_New_0.Columns.Add("status", GetType(Integer))         
            dtCastPlan_New_0.Columns.Add("Status_Description", GetType(String))

            dtCastPlan_Det_0.Columns.Clear()          
            dtCastPlan_Det_0.Columns.Add("bench_id", GetType(Integer))
            dtCastPlan_Det_0.Columns.Add("bench", GetType(String))
            dtCastPlan_Det_0.Columns.Add("mold_type_id", GetType(Integer))
            dtCastPlan_Det_0.Columns.Add("Position", GetType(Integer))          
            dtCastPlan_Det_0.Columns.Add("cavity", GetType(Integer))         
            dtCastPlan_Det_0.Columns.Add("Mold", GetType(String))
            dtCastPlan_Det_0.Columns.Add("model", GetType(String))
            dtCastPlan_Det_0.Columns.Add("assembly_line_id", GetType(Integer))
            dtCastPlan_Det_0.Columns.Add("shift", GetType(Integer))

            dtCastPlan_Det_0.Columns.Add("mold_pos_from", GetType(Integer))
            dtCastPlan_Det_0.Columns.Add("mold_pos_to", GetType(Integer))
            dtCastPlan_Det_0.Columns.Add("barcode", GetType(String))
            dtCastPlan_Det_0.Columns.Add("status", GetType(Integer))
          
            dtCastPlan_Det_0.AcceptChanges()
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

Private Function retrieveData(Optional ByVal Flag As Integer = 0) As DataSet
        Try
           
            drawCastPlanDetTable()

            dtCastPlan_New = objclsBarcodeGen.getPlanningData(RadDateTimePicker1.Value, Convert.ToInt32(ddlBench.SelectedValue), Convert.ToInt32(txtShiftFrom.Text), Convert.ToInt32(txtShiftTo.Text), Convert.ToInt32(ddlProcessOwner.SelectedValue), Flag)

            dtCastPlan_New.Columns.Add("Status_Description", GetType(String))

            Dim drValid As DataRow()
            Dim drValid0 As DataRow()
            Dim drNew As DataRow

            dtCastPlan_New_0 = dtCastPlan_New.Clone
            For cnt As Integer = 0 To dtCastPlan_New.Rows.Count - 1
                drValid = dtCastPlan_New.Select("Bench_id=" & dtCastPlan_New.Rows(cnt).Item("Bench_id") & " and shift_num=" & dtCastPlan_New.Rows(cnt).Item("shift_num") & "")
                If drValid.Length > 0 Then
                    If Not dtCastPlan_New_0.Rows.Count > 0 Then
                        drNew = dtCastPlan_New_0.NewRow
                        drNew("bench_id") = drValid(0).Item("bench_id")
                        drNew("bench") = drValid(0).Item("bench")                      
                        drNew("num_installed") = drValid(0).Item("num_installed")                      
                        drNew("assembly_line_id") = drValid(0).Item("assembly_line_id")                    
                        drNew("shift_num") = drValid(0).Item("shift_num")
                        drNew("cavity") = drValid(0).Item("cavity")
                        drNew("start_barcode") = drValid(0).Item("start_barcode")
                        drNew("end_barcode") = drValid(0).Item("end_barcode")
                        drNew("status") = drValid(0).Item("status")                      
                        drNew("Status_Description") = String.Empty
                        dtCastPlan_New_0.Rows.Add(drNew)
                    Else
                        drValid0 = dtCastPlan_New_0.Select("Bench_id=" & dtCastPlan_New.Rows(cnt).Item("Bench_id") & " and shift_num=" & dtCastPlan_New.Rows(cnt).Item("shift_num") & "")
                        If Not drValid0.Length > 0 Then
                            drNew = dtCastPlan_New_0.NewRow                          
                            drNew("bench_id") = drValid(0).Item("bench_id")
                            drNew("bench") = drValid(0).Item("bench")                           
                            drNew("num_installed") = drValid(0).Item("num_installed")                          
                            drNew("assembly_line_id") = drValid(0).Item("assembly_line_id")                         
                            drNew("shift_num") = drValid(0).Item("shift_num")
                            drNew("cavity") = drValid(0).Item("cavity")
                            drNew("start_barcode") = drValid(0).Item("start_barcode")
                            drNew("end_barcode") = drValid(0).Item("end_barcode")
                            drNew("status") = drValid(0).Item("status")                         
                            dtCastPlan_New_0.Rows.Add(drNew)
                        End If
                    End If
                End If

            Next
            dtCastPlan_New_0.AcceptChanges()

            Dim drChild As DataRow

            For iChdCnt As Integer = 0 To dtCastPlan_New.Rows.Count - 1

                For iCavityCnt As Integer = 1 To dtCastPlan_New.Rows(iChdCnt).Item("cavity")
                    drChild = dtCastPlan_Det_0.NewRow                   
                    drChild("bench_id") = dtCastPlan_New.Rows(iChdCnt).Item("bench_id")
                    drChild("bench") = dtCastPlan_New.Rows(iChdCnt).Item("bench")
                    drChild("mold_type_id") = dtCastPlan_New.Rows(iChdCnt).Item("mold_type_id")
                    drChild("Position") = dtCastPlan_New.Rows(iChdCnt).Item("mold_position")                   
                    drChild("cavity") = iCavityCnt                   
                    drChild("Mold") = dtCastPlan_New.Rows(iChdCnt).Item("Mold")
                    drChild("model") = dtCastPlan_New.Rows(iChdCnt).Item("model")
                    drChild("assembly_line_id") = dtCastPlan_New.Rows(iChdCnt).Item("assembly_line_id")
                    drChild("shift") = dtCastPlan_New.Rows(iChdCnt).Item("shift_num")
                    drChild("mold_pos_from") = 0
                    drChild("mold_pos_to") = 0
                    drChild("barcode") = String.Empty
                    drChild("status") = DBNull.Value                 
                    dtCastPlan_Det_0.Rows.Add(drChild)
                Next

            Next

            dtCastPlan_Det_0.AcceptChanges()

            Dim intInstallMold, intMoldPosFrm, intMoldPosTo As Integer
            Dim drInstallValid As DataRow()
            For iRowCnt As Integer = 0 To dtCastPlan_New_0.Rows.Count - 1
                intInstallMold = 0
                intMoldPosFrm = 1
                intMoldPosTo = 1

                drInstallValid = dtCastPlan_New.Select("Bench_id=" & dtCastPlan_New_0.Rows(iRowCnt).Item("Bench_id") & " and shift_num=" & dtCastPlan_New_0.Rows(iRowCnt).Item("shift_num") & "")
                If drInstallValid.Length > 0 Then
                    For i As Integer = 0 To drInstallValid.Length - 1
                        intInstallMold = intInstallMold + drInstallValid(i).Item("num_installed")
                        intMoldPosTo = intMoldPosTo + i
                    Next
                    dtCastPlan_New_0.Rows(iRowCnt).Item("num_installed") = intInstallMold
                    dtCastPlan_New_0.Rows(iRowCnt).Item("mold_pos_from") = intMoldPosFrm
                    dtCastPlan_New_0.Rows(iRowCnt).Item("mold_pos_to") = intMoldPosTo
                End If
            Next
            dtCastPlan_New_0.AcceptChanges()

            dsCastPlan.Tables.Clear()
            dsCastPlan.Tables.Add(dtCastPlan_New_0)
            dsCastPlan.Tables(0).TableName = "BenchMold"
            dsCastPlan.Tables.Add(dtCastPlan_Det_0)
            dsCastPlan.Tables(1).TableName = "MoldPosition"

            lblLastBarcode.Text = objclsBarcodeGen.getLastBarcode()
            Return dsCastPlan
        Catch ex As Exception
            Throw ex
        End Try
    End Function

Pls help me