Raddiagram

Hello, Moe,

I have prepared a sample project that uses RadPropertyGrid together with RadDiagram in order to change the shape of a RadDiagramShape object. The attached gif file illustrates what you need to perform in order to change the shape. Please give the sample project a try and see how it works for your scenario. 

Should you have further questions please let me know.

Hello, Moe,

Instead of setting the RadProperyGrid.SelectedObject property to the currently selected RadDiagramShape, you can add just a single property item for managing the ElementShape:

 

HI Dess,

 

I have one question when I add textbox from RadDiagramRibbonBar1 after added my diagram direction is changed. Please read my coding and my pic. Please tell me how to write after I added textbox didn't change position.

 

Coding

-------------

Imports Telerik.WinControls
Imports Telerik.WinControls.UI


Public Class Form1
    Property RadDiagram As String = "radDiagram"
    Const EntityWidth As Integer = 250
    Const EntityHeight As Integer = 70
    Property EntityID As Integer = 0
    Property EntityName As String = ""
    Property EntityCategoryName As String = ""
    Dim radDiagramShapeMainEntity As RadDiagramShape
    Property radDiagram1 As UI.RadDiagram
    Property radDiagram2 As UI.RadDiagram
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        EntityID = 898989
        EntityName = "Man Testing Pte Ltd"
        AddNewRadDiagram()

        Dim radDiagramShapeRightEntity As New RadDiagramShape
        Dim radDiagramConnection1 As New RadDiagramConnection
        Dim Shape = radDiagram1.Shapes.Where(Function(s) s.Name = RadDiagram & "898989").FirstOrDefault()
        SetRadDiagramShape(radDiagramShapeRightEntity, "testing1", "Director" & vbCrLf & "ttttt" & vbCrLf & "n", 1111, False)
        Dim shapeParent As RadDiagramShape = CType(Shape, RadDiagramShape)
        SetRadDiagramConnection(radDiagramConnection1, shapeParent, radDiagramShapeRightEntity, "Bottom", "Top")


        LoadDiagramStandardSettings()
    End Sub
    Private Sub AddNewRadDiagram()
        Try
            radDiagram1 = New UI.RadDiagram

            Panel1.Controls.Add(radDiagram1)

            radDiagram1.Dock = DockStyle.Fill


            With radDiagram1
                .AllowCopy = False
                .AllowCut = False
                .AllowDelete = True
                .AllowDrop = False
                .AllowPaste = False
                .IsBackgroundSurfaceVisible = False
                .IsConnectorsManipulationEnabled = False
                .IsDraggingEnabled = True
                .IsEditable = True
                .IsInformationAdornerVisible = False
                .IsPanEnabled = False
                .IsResizingEnabled = True
                .IsRotationEnabled = False
                .IsSettingsPaneEnabled = True
                .IsZoomEnabled = True
                .ConnectionBridge = Telerik.Windows.Diagrams.Core.BridgeType.None
                .ActiveTool = Telerik.Windows.Diagrams.Core.MouseTool.PanTool
                .AutoLayout = True
            End With

            LoadMainEntity()
            RadDiagramRibbonBar1.AssociatedDiagram = radDiagram1
            RadPropertyGrid1.ToolbarVisible = True
            RadPropertyGrid1.PropertyGridElement.Children(1).Children(0).Children(0).ElementTree.ThemeName = "ddd"

            AddHandler radDiagram1.SelectionChanged, AddressOf radDiagram1_SelectionChanged
            '     AddHandler radDiagram1.MouseClick, AddressOf radDiagram1_MOuseClick

        Catch ex As Exception


            Throw
        End Try
    End Sub
    Private Sub radDiagram1_SelectionChanged(sender As Object, e As EventArgs)

        ' RadPropertyGrid1.SelectedObject = radDiagram1.SelectedItem
        Dim shapeItem As PropertyStoreItem = New PropertyStoreItem(GetType(ElementShape), "Shape", 1)
        Dim store As RadPropertyStore = New RadPropertyStore()
        store.Add(shapeItem)
        RadPropertyGrid1.SelectedObject = store
        RemoveHandler RadPropertyGrid1.PropertyValueChanged, AddressOf RadPropertyGrid1_PropertyValueChanged
        AddHandler RadPropertyGrid1.PropertyValueChanged, AddressOf RadPropertyGrid1_PropertyValueChanged


    End Sub

    Private Sub RadPropertyGrid1_PropertyValueChanged(ByVal sender As Object, ByVal e As PropertyGridItemValueChangedEventArgs)
        If Me.radDiagram1.SelectedItem IsNot Nothing Then
            Dim selectedShape As RadDiagramShape = TryCast(Me.radDiagram1.SelectedItem, RadDiagramShape)

            If selectedShape IsNot Nothing Then
                selectedShape.Shape = TryCast((CType(e.Item, PropertyGridItem)).Value, ElementShape)
            End If
        End If
    End Sub
    Private Sub LoadMainEntity()
        Try
            radDiagramShapeMainEntity = New RadDiagramShape() With {
               .Name = RadDiagram & EntityID.ToString,
               .Text = EntityName,
               .Tag = EntityID,
               .ElementShape = New RoundRectShape(),
               .BackColor = System.Drawing.Color.White,
               .DrawBorder = True,
               .Size = New Size(EntityWidth, EntityHeight)
           }
            radDiagram1.Items.Add(radDiagramShapeMainEntity)

        Catch ex As Exception


            Throw
        End Try
    End Sub

    Private Sub SetRadDiagramShape(ByRef radDiagramShape1 As RadDiagramShape, radDiagramShapeName As String, entityName As String, entityID As Nullable(Of Integer), relationshipIsActive As Boolean)
        Try
            radDiagramShape1 = New RadDiagramShape() With {
                          .Name = radDiagramShapeName,
                          .Text = entityName,
                          .Tag = entityID,
                          .ElementShape = New RoundRectShape(),
                          .BackColor = System.Drawing.Color.White,
                          .BorderBrush = New SolidBrush(System.Drawing.Color.Black),
                          .DrawBorder = True,
                          .Size = New Size(EntityWidth, EntityHeight)
                      }

            If Not relationshipIsActive Then
                radDiagramShape1.BackColor = System.Drawing.Color.Gainsboro
            End If

            radDiagram1.Items.Add(radDiagramShape1)

        Catch ex As Exception


            Throw
        End Try
    End Sub

    Private Sub SetRadDiagramConnection(ByRef radDiagramConnection1 As RadDiagramConnection, source As RadDiagramShape, target As RadDiagramShape, sourceConnectorPosition As String, targetConnectorPosition As String)
        Try
            radDiagramConnection1 = New RadDiagramConnection() With {
                        .Source = source,
                        .Target = target,
                        .TargetCapType = Telerik.Windows.Diagrams.Core.CapType.Arrow1,
                        .SourceConnectorPosition = sourceConnectorPosition,
                        .TargetConnectorPosition = targetConnectorPosition,
                        .BackColor = System.Drawing.Color.Black
                    }
            radDiagram1.Items.Add(radDiagramConnection1)

        Catch ex As Exception


            Throw
        End Try
    End Sub



    Private Sub LoadDiagramStandardSettings()
        Try
            radDiagram1.RouteConnections = False

            Dim treeLayoutSettings1 As New Telerik.Windows.Diagrams.Core.TreeLayoutSettings
            treeLayoutSettings1.AnimateTransitions = True
            treeLayoutSettings1.HorizontalSeparation = 30
            treeLayoutSettings1.VerticalSeparation = 100
            treeLayoutSettings1.TreeLayoutType = Telerik.Windows.Diagrams.Core.TreeLayoutType.TreeDown
            treeLayoutSettings1.Roots.Add(radDiagramShapeMainEntity)
            radDiagram1.SetLayout(Telerik.Windows.Diagrams.Core.LayoutType.Tree, treeLayoutSettings1)

            Dim aStarRouter1 As New Telerik.Windows.Diagrams.Core.AStarRouter(radDiagram1.DiagramElement)
            radDiagram1.RoutingService.Router = aStarRouter1

            radDiagram1.RouteConnections = True

            radDiagram1.Focus()

        Catch ex As Exception

            Throw
        End Try
    End Sub
End Class

----------------------------------------------------------------

 

 

 

Hello, Moe,

Following the provided code snippet, I have prepared a sample project to test the behavior locally. I was able to replicate the orientation changes after enabling the text tool (see the attached gif file).

The shapes repositioning comes from the applied TreeLayoutSettings and enabled RouteConnections. Once you call the SetLayout method, the shapes will be re-positioned according to the applied layout. However, this is a one time operation. You call the method, the algorithm calculates the most appropriate positions for the shapes. When you add a new shape via the Text tool, you can call the LoadDiagramStandardSettings method again and shapes position will be adjusted according to the applied algorithm: I hope this information helps. If you need any further assistance please don't hesitate to contact me.