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,

If you are using the WinForms designer and the NDrawingViewWithCommandBars controls, it's not possible to access the command builders, because they already have built the commanding UI. To access and modify the command bar builders, create the drawing view and the commanding UI via code by using the NDiagramCommandBarBuilder class.

The sample code below creates a drawing view, then creates a command bar UI around it using the NDiagramCommandBarBuilder class and removes the View menu and the View toolbar builders.

C# Code

NDrawingView drawingView = new NDrawingView();

NDiagramCommandBarBuilder builder = new NDiagramCommandBarBuilder();
builder.MenuDropDownBuilders.Remove(NDiagramCommandBarBuilder.MenuViewName);
builder.ToolBarBuilders.Remove(NDiagramCommandBarBuilder.ToolbarViewName);

NWidget commandBarUI = builder.CreateUI(drawingView);

NNovWidgetHost<NWidget> host = new NNovWidgetHost<NWidget>(commandBarUI);
host.Dock = DockStyle.Fill;
Controls.Add(host);


Visual Basic Code

Dim drawingView As NDrawingView = New NDrawingView()

Dim builder As NDiagramCommandBarBuilder = New NDiagramCommandBarBuilder()
builder.MenuDropDownBuilders.Remove(NDiagramCommandBarBuilder.MenuViewName)
builder.ToolBarBuilders.Remove(NDiagramCommandBarBuilder.ToolbarViewName)

Dim commandBarUI As NWidget = builder.CreateUI(drawingView)

Dim host As NNovWidgetHost(Of NWidget) = New NNovWidgetHost(Of NWidget)(commandBarUI)
host.Dock = DockStyle.Fill
Controls.Add(host)



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