Posted 24 February 2020, 3:08 am EST
In the “data tree” example (demo Component One framework 4.0), we noticed a BUG, in practice the Flex Grid control does not manage heights greater than -32.768 on child grids.
In the C1FlexDataTree.vb file of the DataTree.vbproj project, the UpdatePosition function when a value greater than -32.768 (example -40.000) is passed to the Location property (part highlighted in Yellow) (the property remains at -32.768 (smallInt), the repositioning of the child grid doesn’t work properly.
Private Sub UpdatePosition()
' sanity
Dim parent As C1FlexDataTree = TryCast(Me.Parent, C1FlexDataTree)
Dim parentRow As Row = TryCast(Tag, Row)
If parent Is Nothing OrElse parentRow Is Nothing Then
Return
End If
' get cell rectangle
Dim row As Integer = parentRow.Index
Dim rc As Rectangle = parent.GetCellRectDisplay(row, 0)
' calculate child location and client size
rc.X = rc.Right
rc.Y = rc.Bottom
rc.Width = Cols(Cols.Count - 1).Right
rc.Width = Math.Max(Cols(Cols.Count - 1).Right, parent.ScrollableRectangle.Width)
rc.Height = Rows(Rows.Count - 1).Bottom
' make sure child grid width doesn't extend past parent client width
Dim maxRight As Integer = parent.ClientSize.Width - 2
If rc.Right > maxRight Then
rc.Width = maxRight - rc.X
End If
' update size/position
If Location <> rc.Location Then
Location = rc.Location
End If
If ClientSize <> rc.Size Then
ClientSize = rc.Size
End If
' update height of container row
parent.Rows(row + 1).Height = Height
End Sub
