or
With Me.rdGridBoundaries
.BeginUpdate()
.Columns.Clear()
.MasterTemplate.AllowAddNewRow = False
.MasterTemplate.AutoGenerateColumns = True
.MasterTemplate.Reset()
.TableElement.RowHeight = 30
.AutoGenerateHierarchy = True
.UseScrollbarsInHierarchy = False
.MultiSelect = False
.MasterTemplate.BestFitColumns()
.MasterTemplate.AutoSizeColumnsMode = GridViewAutoSizeColumnsMode.Fill
.ReadOnly = True
.EnableFiltering = False
.EnableGrouping = False
.EnableAlternatingRowColor = True
.EndUpdate()
Try
If gasControlLineInformation.GclObjects IsNot Nothing Then
.DataMember = "GclObjects"
.DataSource = gasControlLineInformation
Public
Sub
AddButton()
Dim
buttonElement
As
New
RadButtonElement(
"..."
)
AddHandler
buttonElement.Click,
AddressOf
buttonElement_Click
Dim
textBoxItem
As
RadTextBoxItem =
Me
.RadTextBox1.TextBoxElement.TextBoxItem
textBoxItem.Alignment = ContentAlignment.MiddleLeft
Me
.RadTextBox1.TextBoxElement.Children.Remove(textBoxItem)
Dim
dockLayoutPanel
As
New
DockLayoutPanel()
dockLayoutPanel.SetDock(textBoxItem, Telerik.WinControls.Layouts.Dock.Left)
dockLayoutPanel.SetDock(buttonElement, Telerik.WinControls.Layouts.Dock.Right)
dockLayoutPanel.Children.Add(buttonElement)
dockLayoutPanel.Children.Add(textBoxItem)
Me
.RadTextBox1.TextBoxElement.Children.Add(dockLayoutPanel)
End
Sub