Good morning.
I have a problem with the vertical scrollbar in a toolwindow. I use your RadControls for WinForms Q3 2009 release. I did the following steps:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
RadPanelBar1.Items.Clear()
For i As Integer = 0 To 10
Dim ri As New Telerik.WinControls.UI.RadPanelBarGroupElement
ri.Caption = "GroupItem" & i
RadPanelBar1.Items.Add(ri)
Next
End Sub
If the form is small enough, you can see that no vertical scrollbar appears. As soon as you click on a groupitem, the scrollbar appears. If you click the button again, again the scrollbar disappears. What can I do to solve this problem?
Thank you.
Private Sub frmTradingApplication_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load |
'START: Set Theme for all Telerik Controls |
Telerik.WinControls.ThemeResolutionService.ApplicationThemeName = AppTheme |
'END: Set Theme for all Telerik Controls |
'Force Name into Name Field |
With rtxtTradeS1_Name |
.Text = FullName |
.ReadOnly = True |
End With |
'Load Data into Large Cap Combo Box |
BgWkr_LoadComboBox.RunWorkerAsync() |
'Disable Large Cap Combo Box & Other Text Box |
rcbTradeS1_LargeCapIfYes.Enabled = False |
rtxtTradeS1_LargeCapUnlisted.Enabled = False |
Private Sub rcbTradeS1_LargeCapIfYes_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rcbTradeS1_LargeCapIfYes.SelectedIndexChanged |
Select Case rcbTradeS1_LargeCapIfYes.SelectedItem.ToString |
Case "Please Select Large Cap Stock..." |
ErrorProvider_NewTrade.SetError(rtxtTradeS1_LargeCapUnlisted, "Invalid Selection!") |
Case "Other / Not Listed - Other / Not Listed" |
rcbTradeS1_LargeCapIfYes.Enabled = True |
rtxtTradeS1_LargeCapUnlisted.NullText = "Please enter the Large Cap Stock you are trading here..." |
Case Else |
'Large Cap Selection OK / Disable & Clear Unlisted Box |
With rtxtTradeS1_LargeCapUnlisted |
.Enabled = False |
.NullText = "Large Cap Selection OK" |
End With |
End Select |
End Sub |
Private Sub rrbTradeS1_LargeCapYes_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles rrbTradeS1_LargeCapYes.ToggleStateChanged |
If rrbTradeS1_LargeCapYes.ToggleState = Telerik.WinControls.Enumerations.ToggleState.On Then |
rcbTradeS1_LargeCapIfYes.Enabled = True |
Else |
rcbTradeS1_LargeCapIfYes.Enabled = False |
End If |
End Sub |
Private Sub rrbTradeS1_LargeCapNo_ToggleStateChanged(ByVal sender As System.Object, ByVal args As Telerik.WinControls.UI.StateChangedEventArgs) Handles rrbTradeS1_LargeCapNo.ToggleStateChanged |
If rrbTradeS1_LargeCapYes.ToggleState = Telerik.WinControls.Enumerations.ToggleState.On Then |
rcbTradeS1_LargeCapIfYes.Enabled = True |
Else |
rcbTradeS1_LargeCapIfYes.Enabled = False |
End If |
End Sub |
Private Sub BgWkr_LoadComboBox_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BgWkr_LoadComboBox.DoWork |
Try |
BgWkr_LoadComboBox.WorkerReportsProgress = True |
My.Forms.frmMain.sbarProgress.ShowProgressIndicator = True |
Dim dbAdapter As New SqlDataAdapter("SELECT * FROM eTAS.dbo.viewLargeCapStockOrigins", My.Settings.eTASConnectionString) |
Dim dbDataSet As New DataSet |
Dim PercentValue As Integer |
Dim RowCounter As Integer = 0 |
dbAdapter.Fill(dbDataSet) |
For Each dbRow As DataRow In dbDataSet.Tables(0).Rows |
RowCounter += 1 |
Dim rcbTradeS1_LargeCapIfYesItem As New Telerik.WinControls.UI.RadComboBoxItem |
rcbTradeS1_LargeCapIfYesItem.Text = "" |
rcbTradeS1_LargeCapIfYesItem.Text = dbRow.Item("CountryName").ToString & " - " & dbRow.Item("LargeCapStockName").ToString |
rcbTradeS1_LargeCapIfYesItem.Value = dbRow.Item("CountryName").ToString & " - " & dbRow.Item("LargeCapStockName").ToString |
rcbTradeS1_LargeCapIfYes.Items.Add(New Telerik.WinControls.UI.RadComboBoxItem(rcbTradeS1_LargeCapIfYesItem.Text, CObj(rcbTradeS1_LargeCapIfYesItem.Value))) |
PercentValue = CInt(((RowCounter / dbDataSet.Tables(0).Rows.Count) * 100)) |
BgWkr_LoadComboBox.ReportProgress(PercentValue, "Loading Large Cap Stocks... " & PercentValue & "% Complete...") |
Next |
Catch ex As Exception |
MsgBox(ex.Message, MsgBoxStyle.Critical, "Load Combo Box Error...") |
End Try |
End Sub |
Private Sub BgWkr_LoadComboBox_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BgWkr_LoadComboBox.ProgressChanged |
Try |
My.Forms.frmMain.sbarStatus.Text = e.UserState |
My.Forms.frmMain.sbarProgress.Value1 = e.ProgressPercentage |
My.Forms.frmMain.sbarMain.Refresh() |
CollectGarbage() |
Catch ex As Exception |
MsgBox(ex.Message & vbCrLf & vbCrLf & ex.InnerException.ToString, MsgBoxStyle.Critical, "BgWkr_LoadComboBox_ProgressChanged Error") |
End Try |
End Sub |
Private Sub BgWkr_LoadComboBox_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BgWkr_LoadComboBox.RunWorkerCompleted |
My.Forms.frmMain.sbarStatus.Text = "Large Cap Stocks Loaded OK" |
My.Forms.frmMain.sbarProgress.Value1 = 0 |
My.Forms.frmMain.sbarMain.Refresh() |
CollectGarbage() |
End Sub |
Hi,
if I try to add nodes with the nodes designer everything works fine except, there is no way to accept the changes. The nodes editor dialog has no accept button or something similar. Using the return doesn't help, too. Thereto, see attached image.
Regards
Martin