How to Modify Menu of NDrawingViewWithCommandBarsControl


Author
Message
Ashley Davy
Ashley Davy
Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)Forum Newbie (8 reputation)
Group: Forum Members
Posts: 36, Visits: 119
I am migrating from Diagram .NET to Diagram NOV.   The code below is what I used to customize the menu of Diagram .NET.  I want to customize the menu the same way for Diagram NOV NDrawingViewWithCommandBarsControl.  I have looked at the examples but I cannot figure out how to access the menu and toolbars.  Can you provide me with an equivalent example based on the code below to customize the NDrawingViewWithCommandBarsControl.

Thanks,
Ashley



  NDiagramCommandBarsManager1.Toolbars(0).Hide()
      NDiagramCommandBarsManager1.Toolbars(1).Hide()
      NDiagramCommandBarsManager1.Toolbars(2).Hide()

      NDiagramCommandBarsManager1.Toolbars(3).Hide()
      NDiagramCommandBarsManager1.Toolbars(4).Hide()
      NDiagramCommandBarsManager1.Toolbars(5).Hide()

      NDiagramCommandBarsManager1.Toolbars(6).Hide()
      NDiagramCommandBarsManager1.Toolbars(7).Hide()





      NDiagramCommandBarsManager1.Toolbars(3).Show()
      NDiagramCommandBarsManager1.Toolbars(3).Moveable = False
      NDiagramCommandBarsManager1.Toolbars(3).AllowReset = False
      NDiagramCommandBarsManager1.Toolbars(3).HasPendantCommand = False

      ColHold = New Collection

      For Each X As Nevron.UI.WinForm.Controls.NCommand In NDiagramCommandBarsManager1.Toolbars(3).Commands

       If X.ToString.ToLower = "start arrowhead style..." Then
        ColHold.Add(X)
       End If

       If X.ToString.ToLower = "end arrowhead style..." Then
        ColHold.Add(X)
       End If

       If X.ToString.ToLower = "bridge style..." Then
        ColHold.Add(X)
       End If

       If X.ToString.ToLower = "interactivity style..." Then
        ColHold.Add(X)
       End If

      Next

      For Each X As Nevron.UI.WinForm.Controls.NCommand In ColHold

       NDiagramCommandBarsManager1.Toolbars(3).Commands.Remove(X)

      Next



      NDiagramCommandBarsManager1.Toolbars(6).Show()
      NDiagramCommandBarsManager1.Toolbars(6).Moveable = False
      NDiagramCommandBarsManager1.Toolbars(6).AllowReset = False
      NDiagramCommandBarsManager1.Toolbars(6).HasPendantCommand = False

      ColHold = New Collection

      For Each X As Nevron.UI.WinForm.Controls.NCommand In NDiagramCommandBarsManager1.Toolbars(6).Commands

       'If X.ToString.ToLower = "connector tool" Then
       '  ColHold.Add(X)
       'End If

      Next

      For Each X As Nevron.UI.WinForm.Controls.NCommand In ColHold

       NDiagramCommandBarsManager1.Toolbars(6).Commands.Remove(X)

      Next



      NDiagramCommandBarsManager1.Toolbars(4).Show()
      NDiagramCommandBarsManager1.Toolbars(4).Moveable = False
      NDiagramCommandBarsManager1.Toolbars(4).AllowReset = False
      NDiagramCommandBarsManager1.Toolbars(4).HasPendantCommand = False

      ColHold = New Collection

      For Each X As Nevron.UI.WinForm.Controls.NCommand In NDiagramCommandBarsManager1.Toolbars(4).Commands

       If X.ToString.ToLower = "connector tool" Then
        ColHold.Add(X)
       End If

      Next

      For Each X As Nevron.UI.WinForm.Controls.NCommand In ColHold

       NDiagramCommandBarsManager1.Toolbars(4).Commands.Remove(X)

      Next



      NDiagramCommandBarsManager1.Toolbars(2).Show()
      NDiagramCommandBarsManager1.Toolbars(2).Moveable = False
      NDiagramCommandBarsManager1.Toolbars(2).AllowReset = False
      NDiagramCommandBarsManager1.Toolbars(2).HasPendantCommand = False

      ColHold = New Collection

      For Each X As Nevron.UI.WinForm.Controls.NCommand In NDiagramCommandBarsManager1.Toolbars(2).Commands

       If X.ToString.ToLower = "pan and zoom" Then
        ColHold.Add(X)
       End If

       If X.ToString.ToLower = "property browser" Then
        ColHold.Add(X)
       End If

       If X.ToString.ToLower = "library browser" Then
        ColHold.Add(X)
       End If

       If X.ToString.ToLower = "status bar" Then
        ColHold.Add(X)
       End If

      Next

      For Each X As Nevron.UI.WinForm.Controls.NCommand In ColHold

       NDiagramCommandBarsManager1.Toolbars(2).Commands.Remove(X)

      Next



      NDiagramCommandBarsManager1.Toolbars(4).RowIndex = 1
      NDiagramCommandBarsManager1.Toolbars(2).RowIndex = 1
      NDiagramCommandBarsManager1.Toolbars(3).RowIndex = 2
      NDiagramCommandBarsManager1.Toolbars(6).RowIndex = 2


      Me.NDrawingView1.Dock = DockStyle.Fill

Reply
Nevron Support
Nevron Support
Supreme Being (4.5K reputation)Supreme Being (4.5K reputation)Supreme Being (4.5K reputation)Supreme Being (4.5K reputation)Supreme Being (4.5K reputation)Supreme Being (4.5K reputation)Supreme Being (4.5K reputation)Supreme Being (4.5K reputation)Supreme Being (4.5K reputation)
Group: Administrators
Posts: 3.1K, Visits: 4.2K
Hello,

Please take a look at the following documentation topic for information how to customize and remove commands from the NOV Diagram command bar's UI:

NOV Diagram Command Bars

If you decide to use the ribbon, you can also use the WinForms designer to hide commands or ribbon tabs:
NOV Diagram Ribbon

Let us know if you have any questions.


Best Regards,
Nevron Support Team


GO

Merge Selected

Merge into selected topic...



Merge into merge target...



Merge into a specific topic ID...





Similar Topics

Reading This Topic

Login

Explore
Messages
Mentions
Search