mirror of
https://github.com/staxrip/staxrip.git
synced 2026-10-18 06:31:02 +08:00
Dendraspis
536 lines
21 KiB
VB.net
536 lines
21 KiB
VB.net
|
|
Imports StaxRip.UI
|
|
|
|
Public Class EventCommandEditor
|
|
Inherits DialogBase
|
|
|
|
#Region " Designer "
|
|
Friend WithEvents tbName As TextBoxEx
|
|
Friend WithEvents cbEvent As ComboBoxEx
|
|
Friend WithEvents TipProvider As TipProvider
|
|
Friend WithEvents CriteriaControl As CriteriaControl
|
|
Friend WithEvents tbCommand As TextBoxEx
|
|
Friend WithEvents bnCommand As ButtonEx
|
|
Friend WithEvents cmsCommands As ContextMenuStripEx
|
|
Friend WithEvents pgParameters As PropertyGridEx
|
|
Friend WithEvents lParameters As LabelEx
|
|
Friend WithEvents rbMatchAllCriteria As RadioButton
|
|
Friend WithEvents rbMatchAnyCriteria As RadioButton
|
|
Friend WithEvents gbCriteria As GroupBoxEx
|
|
Friend WithEvents gbCommand As GroupBoxEx
|
|
Friend WithEvents gbName As GroupBoxEx
|
|
Friend WithEvents gbEvent As GroupBoxEx
|
|
Friend WithEvents bnCancel As ButtonEx
|
|
Friend WithEvents bnOK As ButtonEx
|
|
Friend WithEvents tlpMain As TableLayoutPanel
|
|
Friend WithEvents FlowLayoutPanel1 As FlowLayoutPanelEx
|
|
Friend WithEvents bnAdd As ButtonEx
|
|
Friend WithEvents FlowLayoutPanel2 As FlowLayoutPanelEx
|
|
Friend WithEvents tlpCommand As TableLayoutPanel
|
|
Private components As System.ComponentModel.IContainer
|
|
|
|
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Me.tbName = New TextBoxEx()
|
|
Me.cbEvent = New ComboBoxEx()
|
|
Me.tbCommand = New TextBoxEx()
|
|
Me.bnCommand = New ButtonEx()
|
|
Me.cmsCommands = New ContextMenuStripEx(Me.components)
|
|
Me.CriteriaControl = New CriteriaControl()
|
|
Me.TipProvider = New TipProvider(Me.components)
|
|
Me.rbMatchAllCriteria = New RadioButton()
|
|
Me.rbMatchAnyCriteria = New RadioButton()
|
|
Me.pgParameters = New PropertyGridEx()
|
|
Me.lParameters = New LabelEx()
|
|
Me.gbCriteria = New GroupBoxEx()
|
|
Me.FlowLayoutPanel1 = New FlowLayoutPanelEx()
|
|
Me.bnAdd = New ButtonEx()
|
|
Me.gbCommand = New GroupBoxEx()
|
|
Me.tlpCommand = New TableLayoutPanel()
|
|
Me.gbName = New GroupBoxEx()
|
|
Me.gbEvent = New GroupBoxEx()
|
|
Me.bnCancel = New ButtonEx()
|
|
Me.bnOK = New ButtonEx()
|
|
Me.tlpMain = New TableLayoutPanel()
|
|
Me.FlowLayoutPanel2 = New FlowLayoutPanelEx()
|
|
Me.gbCriteria.SuspendLayout()
|
|
Me.FlowLayoutPanel1.SuspendLayout()
|
|
Me.gbCommand.SuspendLayout()
|
|
Me.tlpCommand.SuspendLayout()
|
|
Me.gbName.SuspendLayout()
|
|
Me.gbEvent.SuspendLayout()
|
|
Me.tlpMain.SuspendLayout()
|
|
Me.FlowLayoutPanel2.SuspendLayout()
|
|
Me.SuspendLayout()
|
|
'
|
|
'tbName
|
|
'
|
|
Me.tbName.Dock = DockStyle.Fill
|
|
Me.tbName.Location = New System.Drawing.Point(15, 63)
|
|
Me.tbName.Margin = New Padding(10)
|
|
Me.tbName.Name = "tbName"
|
|
Me.tbName.Size = New System.Drawing.Size(496, 55)
|
|
Me.tbName.TabIndex = 0
|
|
'
|
|
'cbEvent
|
|
'
|
|
Me.cbEvent.Dock = DockStyle.Fill
|
|
Me.cbEvent.DropDownStyle = ComboBoxStyle.DropDownList
|
|
Me.cbEvent.FormattingEnabled = True
|
|
Me.cbEvent.Location = New System.Drawing.Point(15, 63)
|
|
Me.cbEvent.Margin = New Padding(10)
|
|
Me.cbEvent.Name = "cbEvent"
|
|
Me.cbEvent.Size = New System.Drawing.Size(496, 56)
|
|
Me.cbEvent.Sorted = True
|
|
Me.cbEvent.TabIndex = 0
|
|
'
|
|
'tbCommand
|
|
'
|
|
Me.tbCommand.Anchor = CType((AnchorStyles.Left Or AnchorStyles.Right), AnchorStyles)
|
|
Me.tbCommand.Location = New System.Drawing.Point(0, 7)
|
|
Me.tbCommand.Margin = New Padding(0, 0, 10, 0)
|
|
Me.tbCommand.Name = "tbCommand"
|
|
Me.tbCommand.ReadOnly = True
|
|
Me.tbCommand.Size = New System.Drawing.Size(954, 55)
|
|
Me.tbCommand.TabIndex = 0
|
|
'
|
|
'bnCommand
|
|
'
|
|
Me.bnCommand.Anchor = AnchorStyles.None
|
|
Me.bnCommand.ContextMenuStrip = Me.cmsCommands
|
|
Me.bnCommand.Location = New System.Drawing.Point(964, 0)
|
|
Me.bnCommand.Margin = New Padding(0)
|
|
Me.bnCommand.ShowMenuSymbol = True
|
|
Me.bnCommand.Size = New System.Drawing.Size(70, 70)
|
|
'
|
|
'cmsCommands
|
|
'
|
|
Me.cmsCommands.ImageScalingSize = New System.Drawing.Size(29, 29)
|
|
Me.cmsCommands.Name = "cmsCommands"
|
|
Me.cmsCommands.Size = New System.Drawing.Size(61, 4)
|
|
'
|
|
'CriteriaControl
|
|
'
|
|
Me.CriteriaControl.Anchor = CType((((AnchorStyles.Top Or AnchorStyles.Bottom) _
|
|
Or AnchorStyles.Left) _
|
|
Or AnchorStyles.Right), AnchorStyles)
|
|
Me.CriteriaControl.FlowDirection = FlowDirection.TopDown
|
|
Me.CriteriaControl.Location = New System.Drawing.Point(16, 137)
|
|
Me.CriteriaControl.Margin = New Padding(10)
|
|
Me.CriteriaControl.Name = "CriteriaControl"
|
|
Me.CriteriaControl.Size = New System.Drawing.Size(1034, 56)
|
|
Me.CriteriaControl.TabIndex = 1
|
|
'
|
|
'rbMatchAllCriteria
|
|
'
|
|
Me.rbMatchAllCriteria.Location = New System.Drawing.Point(5, 5)
|
|
Me.rbMatchAllCriteria.Margin = New Padding(5)
|
|
Me.rbMatchAllCriteria.Name = "rbMatchAllCriteria"
|
|
Me.rbMatchAllCriteria.Size = New System.Drawing.Size(253, 70)
|
|
Me.rbMatchAllCriteria.TabIndex = 0
|
|
Me.rbMatchAllCriteria.TabStop = True
|
|
Me.rbMatchAllCriteria.Text = "Match All"
|
|
Me.TipProvider.SetTipText(Me.rbMatchAllCriteria, "Command gets only executed if all criteria is true.")
|
|
'
|
|
'rbMatchAnyCriteria
|
|
'
|
|
Me.rbMatchAnyCriteria.Location = New System.Drawing.Point(268, 5)
|
|
Me.rbMatchAnyCriteria.Margin = New Padding(5)
|
|
Me.rbMatchAnyCriteria.Name = "rbMatchAnyCriteria"
|
|
Me.rbMatchAnyCriteria.Size = New System.Drawing.Size(273, 70)
|
|
Me.rbMatchAnyCriteria.TabIndex = 2
|
|
Me.rbMatchAnyCriteria.TabStop = True
|
|
Me.rbMatchAnyCriteria.Text = "Match Any"
|
|
Me.TipProvider.SetTipText(Me.rbMatchAnyCriteria, "Command gets executed if any criteria is true.")
|
|
'
|
|
'pgParameters
|
|
'
|
|
Me.pgParameters.Anchor = CType((((AnchorStyles.Top Or AnchorStyles.Bottom) _
|
|
Or AnchorStyles.Left) _
|
|
Or AnchorStyles.Right), AnchorStyles)
|
|
Me.pgParameters.HelpVisible = False
|
|
Me.pgParameters.Location = New System.Drawing.Point(14, 166)
|
|
Me.pgParameters.Margin = New Padding(7)
|
|
Me.pgParameters.Name = "pgParameters"
|
|
Me.pgParameters.PropertySort = PropertySort.Alphabetical
|
|
Me.pgParameters.Size = New System.Drawing.Size(1036, 44)
|
|
Me.pgParameters.TabIndex = 2
|
|
Me.pgParameters.ToolbarVisible = False
|
|
'
|
|
'lParameters
|
|
'
|
|
Me.lParameters.AutoSize = True
|
|
Me.lParameters.Location = New System.Drawing.Point(15, 117)
|
|
Me.lParameters.Margin = New Padding(7, 0, 7, 0)
|
|
Me.lParameters.Name = "lParameters"
|
|
Me.lParameters.Size = New System.Drawing.Size(205, 48)
|
|
Me.lParameters.TabIndex = 1
|
|
Me.lParameters.Text = "Parameters:"
|
|
'
|
|
'gbCriteria
|
|
'
|
|
Me.gbCriteria.Anchor = CType((((AnchorStyles.Top Or AnchorStyles.Bottom) _
|
|
Or AnchorStyles.Left) _
|
|
Or AnchorStyles.Right), AnchorStyles)
|
|
Me.tlpMain.SetColumnSpan(Me.gbCriteria, 2)
|
|
Me.gbCriteria.AutoSize = True
|
|
Me.gbCriteria.Controls.Add(Me.FlowLayoutPanel1)
|
|
Me.gbCriteria.Controls.Add(Me.CriteriaControl)
|
|
Me.gbCriteria.Location = New System.Drawing.Point(10, 170)
|
|
Me.gbCriteria.Margin = New Padding(10, 0, 10, 0)
|
|
Me.gbCriteria.Name = "gbCriteria"
|
|
Me.gbCriteria.Padding = New Padding(7)
|
|
Me.gbCriteria.Size = New System.Drawing.Size(1064, 207)
|
|
Me.gbCriteria.TabIndex = 2
|
|
Me.gbCriteria.TabStop = False
|
|
Me.gbCriteria.Text = "Criteria"
|
|
'
|
|
'FlowLayoutPanel1
|
|
'
|
|
Me.FlowLayoutPanel1.AutoScroll = True
|
|
Me.FlowLayoutPanel1.AutoSize = True
|
|
Me.FlowLayoutPanel1.AutoSizeMode = AutoSizeMode.GrowAndShrink
|
|
Me.FlowLayoutPanel1.Controls.Add(Me.rbMatchAllCriteria)
|
|
Me.FlowLayoutPanel1.Controls.Add(Me.rbMatchAnyCriteria)
|
|
Me.FlowLayoutPanel1.Controls.Add(Me.bnAdd)
|
|
Me.FlowLayoutPanel1.Location = New System.Drawing.Point(14, 50)
|
|
Me.FlowLayoutPanel1.Margin = New Padding(5)
|
|
Me.FlowLayoutPanel1.Name = "FlowLayoutPanel1"
|
|
Me.FlowLayoutPanel1.Size = New System.Drawing.Size(756, 80)
|
|
Me.FlowLayoutPanel1.TabIndex = 3
|
|
'
|
|
'bnAdd
|
|
'
|
|
Me.bnAdd.Location = New System.Drawing.Point(551, 5)
|
|
Me.bnAdd.Margin = New Padding(5)
|
|
Me.bnAdd.Size = New System.Drawing.Size(200, 70)
|
|
Me.bnAdd.Text = "Add"
|
|
'
|
|
'gbCommand
|
|
'
|
|
Me.gbCommand.Anchor = CType((((AnchorStyles.Top Or AnchorStyles.Bottom) _
|
|
Or AnchorStyles.Left) _
|
|
Or AnchorStyles.Right), AnchorStyles)
|
|
Me.tlpMain.SetColumnSpan(Me.gbCommand, 2)
|
|
Me.gbCommand.Controls.Add(Me.tlpCommand)
|
|
Me.gbCommand.Controls.Add(Me.pgParameters)
|
|
Me.gbCommand.Controls.Add(Me.lParameters)
|
|
Me.gbCommand.Location = New System.Drawing.Point(10, 377)
|
|
Me.gbCommand.Margin = New Padding(10, 0, 10, 0)
|
|
Me.gbCommand.Name = "gbCommand"
|
|
Me.gbCommand.Padding = New Padding(7)
|
|
Me.gbCommand.Size = New System.Drawing.Size(1064, 224)
|
|
Me.gbCommand.TabIndex = 4
|
|
Me.gbCommand.TabStop = False
|
|
Me.gbCommand.Text = "Command"
|
|
'
|
|
'tlpCommand
|
|
'
|
|
Me.tlpCommand.Anchor = CType(((AnchorStyles.Top Or AnchorStyles.Left) _
|
|
Or AnchorStyles.Right), AnchorStyles)
|
|
Me.tlpCommand.ColumnCount = 2
|
|
Me.tlpCommand.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 50.0!))
|
|
Me.tlpCommand.ColumnStyles.Add(New ColumnStyle())
|
|
Me.tlpCommand.Controls.Add(Me.bnCommand, 1, 0)
|
|
Me.tlpCommand.Controls.Add(Me.tbCommand, 0, 0)
|
|
Me.tlpCommand.Location = New System.Drawing.Point(16, 49)
|
|
Me.tlpCommand.Margin = New Padding(10, 0, 10, 0)
|
|
Me.tlpCommand.Name = "tlpCommand"
|
|
Me.tlpCommand.RowCount = 1
|
|
Me.tlpCommand.RowStyles.Add(New RowStyle(SizeType.Percent, 50.0!))
|
|
Me.tlpCommand.Size = New System.Drawing.Size(1034, 70)
|
|
Me.tlpCommand.TabIndex = 4
|
|
'
|
|
'gbName
|
|
'
|
|
Me.gbName.Anchor = CType((AnchorStyles.Left Or AnchorStyles.Right), AnchorStyles)
|
|
Me.gbName.Controls.Add(Me.tbName)
|
|
Me.gbName.Location = New System.Drawing.Point(10, 10)
|
|
Me.gbName.Margin = New Padding(10, 10, 6, 10)
|
|
Me.gbName.Name = "gbName"
|
|
Me.gbName.Padding = New Padding(15)
|
|
Me.gbName.Size = New System.Drawing.Size(526, 150)
|
|
Me.gbName.TabIndex = 1
|
|
Me.gbName.TabStop = False
|
|
Me.gbName.Text = "Name"
|
|
'
|
|
'gbEvent
|
|
'
|
|
Me.gbEvent.Anchor = CType((AnchorStyles.Left Or AnchorStyles.Right), AnchorStyles)
|
|
Me.gbEvent.Controls.Add(Me.cbEvent)
|
|
Me.gbEvent.Location = New System.Drawing.Point(548, 10)
|
|
Me.gbEvent.Margin = New Padding(6, 10, 10, 10)
|
|
Me.gbEvent.Name = "gbEvent"
|
|
Me.gbEvent.Padding = New Padding(15)
|
|
Me.gbEvent.Size = New System.Drawing.Size(526, 150)
|
|
Me.gbEvent.TabIndex = 3
|
|
Me.gbEvent.TabStop = False
|
|
Me.gbEvent.Text = "Event"
|
|
'
|
|
'bnCancel
|
|
'
|
|
Me.bnCancel.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Right), AnchorStyles)
|
|
Me.bnCancel.DialogResult = DialogResult.Cancel
|
|
Me.bnCancel.Location = New System.Drawing.Point(270, 10)
|
|
Me.bnCancel.Margin = New Padding(10)
|
|
Me.bnCancel.Size = New System.Drawing.Size(250, 70)
|
|
Me.bnCancel.Text = "Cancel"
|
|
'
|
|
'bnOK
|
|
'
|
|
Me.bnOK.Anchor = CType((AnchorStyles.Bottom Or AnchorStyles.Right), AnchorStyles)
|
|
Me.bnOK.DialogResult = DialogResult.OK
|
|
Me.bnOK.Location = New System.Drawing.Point(10, 10)
|
|
Me.bnOK.Margin = New Padding(10)
|
|
Me.bnOK.Size = New System.Drawing.Size(250, 70)
|
|
Me.bnOK.Text = "OK"
|
|
'
|
|
'tlpMain
|
|
'
|
|
Me.tlpMain.ColumnCount = 2
|
|
Me.tlpMain.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 50.0!))
|
|
Me.tlpMain.ColumnStyles.Add(New ColumnStyle(SizeType.Percent, 50.0!))
|
|
Me.tlpMain.Controls.Add(Me.gbName, 0, 0)
|
|
Me.tlpMain.Controls.Add(Me.gbEvent, 1, 0)
|
|
Me.tlpMain.Controls.Add(Me.gbCriteria, 0, 1)
|
|
Me.tlpMain.Controls.Add(Me.gbCommand, 0, 2)
|
|
Me.tlpMain.Controls.Add(Me.FlowLayoutPanel2, 1, 3)
|
|
Me.tlpMain.Dock = DockStyle.Fill
|
|
Me.tlpMain.Location = New System.Drawing.Point(0, 0)
|
|
Me.tlpMain.Margin = New Padding(5)
|
|
Me.tlpMain.Name = "tlpMain"
|
|
Me.tlpMain.RowCount = 4
|
|
Me.tlpMain.RowStyles.Add(New RowStyle())
|
|
Me.tlpMain.RowStyles.Add(New RowStyle(SizeType.Percent, 48.0!))
|
|
Me.tlpMain.RowStyles.Add(New RowStyle(SizeType.Percent, 52.0!))
|
|
Me.tlpMain.RowStyles.Add(New RowStyle())
|
|
Me.tlpMain.Size = New System.Drawing.Size(1084, 704)
|
|
Me.tlpMain.TabIndex = 6
|
|
'
|
|
'FlowLayoutPanel2
|
|
'
|
|
Me.FlowLayoutPanel2.Anchor = AnchorStyles.Right
|
|
Me.FlowLayoutPanel2.AutoSize = True
|
|
Me.FlowLayoutPanel2.AutoSizeMode = AutoSizeMode.GrowAndShrink
|
|
Me.FlowLayoutPanel2.Controls.Add(Me.bnOK)
|
|
Me.FlowLayoutPanel2.Controls.Add(Me.bnCancel)
|
|
Me.FlowLayoutPanel2.Location = New System.Drawing.Point(554, 607)
|
|
Me.FlowLayoutPanel2.Margin = New Padding(0, 6, 0, 6)
|
|
Me.FlowLayoutPanel2.Name = "FlowLayoutPanel2"
|
|
Me.FlowLayoutPanel2.Size = New System.Drawing.Size(530, 90)
|
|
Me.FlowLayoutPanel2.TabIndex = 9
|
|
'
|
|
'EventCommandEditor
|
|
'
|
|
Me.AcceptButton = Me.bnOK
|
|
Me.AutoScaleDimensions = New System.Drawing.SizeF(288.0!, 288.0!)
|
|
Me.AutoScaleMode = AutoScaleMode.Dpi
|
|
Me.CancelButton = Me.bnCancel
|
|
Me.ClientSize = New System.Drawing.Size(1084, 704)
|
|
Me.Controls.Add(Me.tlpMain)
|
|
Me.FormBorderStyle = FormBorderStyle.Sizable
|
|
Me.KeyPreview = True
|
|
Me.Margin = New Padding(9)
|
|
Me.Name = "EventCommandEditor"
|
|
Me.Text = $"Event Command Editor - {g.DefaultCommands.GetApplicationDetails()}"
|
|
Me.gbCriteria.ResumeLayout(False)
|
|
Me.gbCriteria.PerformLayout()
|
|
Me.FlowLayoutPanel1.ResumeLayout(False)
|
|
Me.gbCommand.ResumeLayout(False)
|
|
Me.gbCommand.PerformLayout()
|
|
Me.tlpCommand.ResumeLayout(False)
|
|
Me.tlpCommand.PerformLayout()
|
|
Me.gbName.ResumeLayout(False)
|
|
Me.gbName.PerformLayout()
|
|
Me.gbEvent.ResumeLayout(False)
|
|
Me.tlpMain.ResumeLayout(False)
|
|
Me.tlpMain.PerformLayout()
|
|
Me.FlowLayoutPanel2.ResumeLayout(False)
|
|
Me.ResumeLayout(False)
|
|
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Private GridTypeDescriptor As New GridTypeDescriptor
|
|
Private CommandParameters As CommandParameters
|
|
Private EventCommandValue As EventCommand
|
|
|
|
Sub New(ev As EventCommand)
|
|
MyBase.New()
|
|
InitializeComponent()
|
|
IsComposited = False
|
|
ScaleClientSize(50, 33)
|
|
EventCommandValue = ev
|
|
tbName.Text = EventCommandValue.Name
|
|
|
|
cbEvent.Items.AddRange(ListBag(Of ApplicationEvent).GetBagsForEnumType)
|
|
ListBag(Of ApplicationEvent).SelectItem(cbEvent, EventCommandValue.Event)
|
|
|
|
rbMatchAllCriteria.Checked = Not ev.OrOnly
|
|
rbMatchAnyCriteria.Checked = ev.OrOnly
|
|
|
|
Dim allCriteria As New List(Of Criteria)
|
|
|
|
For Each m In Macro.GetMacros(True, False, True, True, False)
|
|
Dim c = Criteria.Create(m.Type)
|
|
c.Name = m.FriendlyName
|
|
c.Description = m.Description
|
|
c.Macro = m.Name
|
|
allCriteria.Add(c)
|
|
Next
|
|
|
|
allCriteria.Sort(New Comparer(Of Criteria)(NameOf(Criteria.Name)))
|
|
|
|
CriteriaControl.AllCriteria = allCriteria
|
|
CriteriaControl.CriteriaList = EventCommandValue.CriteriaList
|
|
|
|
If EventCommandValue.CommandParameters IsNot Nothing Then
|
|
CommandParameters = ObjectHelp.GetCopy(EventCommandValue.CommandParameters)
|
|
End If
|
|
|
|
SetCommandParameters(CommandParameters)
|
|
Command.PopulateCommandMenu(cmsCommands.Items, New List(Of Command)(g.MainForm.CustomMainMenu.CommandManager.Commands.Values), AddressOf MenuClick)
|
|
|
|
For Each i As ToolStripMenuItem In cmsCommands.Items
|
|
If i.Text = "Dynamic" Then
|
|
i.Visible = False
|
|
End If
|
|
Next
|
|
|
|
TipProvider.SetTip("Parameters used to execute the command.", pgParameters, lParameters)
|
|
TipProvider.SetTip("Criteria can be defined optionally to execute the command only if the criteria is matched.", CriteriaControl, gbCriteria)
|
|
TipProvider.SetTip("Command to be executed.", tbCommand, gbCommand)
|
|
TipProvider.SetTip("The event on which the command gets executed.", cbEvent, gbEvent)
|
|
TipProvider.SetTip("Name of the Event Command.", tbName, gbName)
|
|
|
|
ApplyTheme()
|
|
|
|
AddHandler ThemeManager.CurrentThemeChanged, AddressOf OnThemeChanged
|
|
End Sub
|
|
|
|
Protected Overrides Sub Dispose(disposing As Boolean)
|
|
RemoveHandler ThemeManager.CurrentThemeChanged, AddressOf OnThemeChanged
|
|
components?.Dispose()
|
|
MyBase.Dispose(disposing)
|
|
End Sub
|
|
|
|
Sub OnThemeChanged(theme As Theme)
|
|
ApplyTheme(theme)
|
|
End Sub
|
|
|
|
Sub ApplyTheme()
|
|
ApplyTheme(ThemeManager.CurrentTheme)
|
|
End Sub
|
|
|
|
Sub ApplyTheme(theme As Theme)
|
|
If DesignHelp.IsDesignMode Then
|
|
Exit Sub
|
|
End If
|
|
|
|
BackColor = theme.General.BackColor
|
|
End Sub
|
|
|
|
Sub MenuClick(c As Command)
|
|
CommandParameters = New CommandParameters(c.MethodInfo.Name, c.GetDefaultParameters.ToArray)
|
|
SetCommandParameters(CommandParameters)
|
|
End Sub
|
|
|
|
Sub SetCommandParameters(cp As CommandParameters)
|
|
If cp Is Nothing Then
|
|
pgParameters.Visible = False
|
|
lParameters.Visible = False
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim cm = g.MainForm.CustomMainMenu.CommandManager
|
|
|
|
If Not cm.HasCommand(cp.MethodName) Then
|
|
pgParameters.Visible = False
|
|
lParameters.Visible = False
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim c = g.MainForm.CustomMainMenu.CommandManager.GetCommand(cp.MethodName)
|
|
tbCommand.Text = cp.MethodName
|
|
|
|
If cp.Parameters Is Nothing OrElse cp.Parameters.Count = 0 Then
|
|
pgParameters.Visible = False
|
|
lParameters.Visible = False
|
|
Exit Sub
|
|
End If
|
|
|
|
Dim mi = c.MethodInfo
|
|
|
|
If mi Is Nothing Then
|
|
pgParameters.Visible = False
|
|
lParameters.Visible = False
|
|
Exit Sub
|
|
End If
|
|
|
|
pgParameters.Visible = True
|
|
lParameters.Visible = True
|
|
|
|
GridTypeDescriptor.Items.Clear()
|
|
|
|
Dim params = mi.GetParameters
|
|
|
|
For i = 0 To params.Length - 1
|
|
Dim gp As New GridProperty With {
|
|
.Name = DispNameAttribute.GetValue(params(i).GetCustomAttributes(False))
|
|
}
|
|
|
|
If gp.Name Is Nothing Then
|
|
gp.Name = params(i).Name.ToTitleCase
|
|
End If
|
|
|
|
gp.Value = c.FixParameters(cp.Parameters)(i)
|
|
gp.Description = DescriptionAttributeHelp.GetDescription(params(i).GetCustomAttributes(False))
|
|
gp.TypeEditor = EditorAttributeHelp.GetEditor(params(i).GetCustomAttributes(False))
|
|
|
|
GridTypeDescriptor.Add(gp)
|
|
Next
|
|
|
|
pgParameters.SelectedObject = GridTypeDescriptor
|
|
SetSplitter()
|
|
End Sub
|
|
|
|
Sub EventCommandEditor_FormClosed() Handles Me.FormClosed
|
|
If DialogResult = DialogResult.OK Then
|
|
EventCommandValue.Name = tbName.Text
|
|
EventCommandValue.Event = ListBag(Of ApplicationEvent).GetValue(cbEvent)
|
|
EventCommandValue.CriteriaList = CriteriaControl.CriteriaList
|
|
EventCommandValue.CommandParameters = CommandParameters
|
|
EventCommandValue.OrOnly = rbMatchAnyCriteria.Checked
|
|
End If
|
|
End Sub
|
|
|
|
Sub EventCommandEditor_HelpRequested() Handles Me.HelpRequested
|
|
g.ShowWikiPage("Commands")
|
|
End Sub
|
|
|
|
Sub pgParameters_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles pgParameters.PropertyValueChanged
|
|
CommandParameters.Parameters.Clear()
|
|
|
|
For Each i As DictionaryEntry In GridTypeDescriptor.Items
|
|
CommandParameters.Parameters.Add(DirectCast(i.Value, GridProperty).Value)
|
|
Next
|
|
End Sub
|
|
|
|
Sub EventCommandEditor_Shown() Handles Me.Shown
|
|
SetSplitter()
|
|
End Sub
|
|
|
|
Sub EventCommandEditor_SizeChanged() Handles Me.SizeChanged
|
|
SetSplitter()
|
|
End Sub
|
|
|
|
Sub SetSplitter()
|
|
pgParameters.MoveSplitter(pgParameters.Width \ 3)
|
|
End Sub
|
|
|
|
Sub bnAdd_Click(sender As Object, e As EventArgs) Handles bnAdd.Click
|
|
CriteriaControl.AddItem(Nothing)
|
|
End Sub
|
|
End Class
|