Dim
row
As
Telerik.Windows.Controls.GridView.GridViewRow =
DirectCast
(e.Row, Telerik.Windows.Controls.GridView.GridViewRow)
For
Each
cell
As
Telerik.Windows.Controls.GridView.GridViewCell
In
row.Cells
If
Object
.Equals(cell.Column, e.Column) = False
Then
cell.IsInEditMode =
True
End
If
Next
<
Style
TargetType
=
"telerik:GridViewCell"
>
<
Style.Triggers
>
<
DataTrigger
Binding
=
"{Binding Path=IsInEditMode, RelativeSource={RelativeSource AncestorType={x:Type telerik:GridViewRow}}}"
Value
=
"True"
>
<
Setter
Property
=
"Foreground"
Value
=
"Aqua"
/>
<
Setter
Property
=
"IsInEditMode"
Value
=
"True"
/>
</
DataTrigger
>
</
Style.Triggers
>
</
Style
>
<telerik:RadGridView Height="200" Width="545" Name="gvNoteList" Grid.Row="1" Grid.Column="1" RowStyle="{StaticResource GridViewRowStyle}" AlternateRowStyle="{StaticResource GridViewAlternateRowStyle}" Style="{StaticResource GridReadOnly}" SelectionChanged="gvNoteList_SelectionChanged">
<telerik:RadGridView.Resources>
<Style TargetType="{x:Type telerik:GridViewRow}">
<Style.Triggers>
<DataTrigger Binding="{Binding Path=IsSticky}" Value="True">
<DataTrigger.Setters>
<Setter Property="Background" Value="#FFFF80" />
<Setter Property="Foreground" Value="#000000" />
<Setter Property="FontSize" Value="12" />
</DataTrigger.Setters>
</DataTrigger>
</Style.Triggers>
</Style>
</telerik:RadGridView.Resources>
</telerik:RadGridView>
Hi,
In a self-referencing radgridview, I wanted to completely eliminate the vertical scroll bars for the child records only when a row in the grid is expanded. Is this possible ? what about the case, when the child records are fetched dynamically at run time, when the parent row is expanded by user click ?
Thanks,
Atul
<
Setter
Property
=
"HeaderTemplate"
>
<
Setter.Value
>
<!--Display the child view name on the tab header-->
<
DataTemplate
>
<!--for some reason this does not work with radTabControl-->
<
TextBlock
Text
=
"{Binding ViewName}"
/>
</
DataTemplate
>
</
Setter.Value
>
</
Setter
>
Dim
lReg
As
IRegion =
Me
.mRegionManager.Regions(
"RequestsTabReqion"
)
Dim
lRqViewID
As
String
= CommonDefinitions.Constants.BuildRqViewName(iRqId)
Dim
lInfoCardsView
As
RequestDetailsView = TryCast(lReg.GetView(lRqViewID), RequestDetailsView)
If
lInfoCardsView
Is
Nothing
Then
lInfoCardsView =
New
RequestDetailsView()
Dim
lRegMan1
As
IRegionManager = lReg.Add(lInfoCardsView, lRqViewID,
True
)
lInfoCardsView.SetRegionManager(lRegMan1)
lInfoCardsView.PopulateWithInfoCards()
mRegionManager.Regions(
"RequestsTabReqion"
).Activate(lInfoCardsView)
Else
mRegionManager.Regions(
"RequestsTabReqion"
).Activate(lInfoCardsView)
End
If
<
telerik:RadTabControl
Grid.Row
=
"1"
AutomationProperties.AutomationId
=
"RequestTabView"
DropDownDisplayMode
=
"Visible"
Margin
=
"2,2,2,2"
prism:RegionManager.RegionName
=
"RequestsTabReqion"
BackgroundVisibility
=
"Collapsed"
prism:RegionManager.RegionContext
=
"{Binding CurrentEmployee}"
TabStripPlacement
=
"Top"
BorderThickness
=
"3"
BorderBrush
=
"#FF6B43A9"
Background
=
"{x:Null}"
>
</
telerik:RadTabControl
>