-
Notifications
You must be signed in to change notification settings - Fork 0
/
MainWindow.xaml.vb
51 lines (41 loc) · 1.96 KB
/
MainWindow.xaml.vb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Imports DevExpress.Xpf.Bars
Imports DevExpress.Xpf.Core
Imports DevExpress.Xpf.Diagram
Imports System.Collections.Generic
Imports System.Windows
Namespace WpfApp7
Public Partial Class MainWindow
Public Sub New()
Me.InitializeComponent()
End Sub
End Class
Public Class DiagramDesignerControlEx
Inherits DiagramDesignerControl
Protected Overrides Iterator Function CreateContextToolBar() As IEnumerable(Of IBarManagerControllerAction)
If SelectedItems IsNot Nothing AndAlso SelectedItems.Count > 0 Then
Dim item = New BarButtonItem() With {.Glyph = DXImageHelper.GetImageSource("Images/Arrows/Stop_16x16.png")}
AddHandler item.ItemClick, AddressOf OnContextToolBarItemClick
Yield item
End If
For Each action As IBarManagerControllerAction In MyBase.CreateContextMenu()
Yield action
Next
End Function
Protected Overrides Iterator Function CreateContextMenu() As IEnumerable(Of IBarManagerControllerAction)
If SelectedItems IsNot Nothing AndAlso SelectedItems.Count > 0 Then
Dim item = New BarButtonItem() With {.Glyph = DXImageHelper.GetImageSource("Images/Arrows/Record_16x16.png"), .Content = "Custom Item"}
AddHandler item.ItemClick, AddressOf OnContextMenuItemClick
Yield item
End If
For Each action As IBarManagerControllerAction In MyBase.CreateContextMenu()
Yield action
Next
End Function
Private Sub OnContextMenuItemClick(ByVal sender As Object, ByVal e As ItemClickEventArgs)
MessageBox.Show("Custom context menu item is clicked!")
End Sub
Private Sub OnContextToolBarItemClick(ByVal sender As Object, ByVal e As ItemClickEventArgs)
MessageBox.Show("Custom context toolbar item is clicked...")
End Sub
End Class
End Namespace