Cómo: Crear una directiva suplente
En el siguiente ejemplo de código se muestra cómo implementar una directiva de suplente personalizada para una clase derivada de DockPanel. Para obtener una solución completa, vea el ejemplo Primary Selection Policy en el sitio WPF Designer Extensibility Samples.
Ejemplo
En este tutorial se muestra cómo crear una directiva de suplente que proporciona la semántica de contenedor de un elemento seleccionado. Utilizando esta directiva, el control contenedor DemoDockPanel proporciona tareas adicionales y adornos en sus elementos secundarios.
Imports System
Imports System.Windows
' The DemoDockPanel control provides a DockPanel that
' has custom design-time behavior.
Public Class DemoDockPanel
Inherits System.Windows.Controls.DockPanel
End Class
using System;
using System.Windows;
namespace DemoControlLibrary
{
// The DemoDockPanel control provides a DockPanel that
// has custom design-time behavior.
public class DemoDockPanel : System.Windows.Controls.DockPanel
{
}
}
Imports System
Imports System.Collections.Generic
Imports System.Windows
Imports System.Windows.Input
Imports System.Windows.Media
Imports System.Windows.Shapes
Imports Microsoft.Windows.Design.Interaction
Imports Microsoft.Windows.Design.Model
Imports Microsoft.Windows.Design.Policies
' The DockPanelAdornerProvider class implements an adorner
' that you can use to set the Margin property by using a
' drag operation. The DockPanelPolicy class enables a
' container policy for offering additional tasks and
' adorners on the panel's children.
<UsesItemPolicy(GetType(DockPanelPolicy))> _
Class DockPanelAdornerProvider
Inherits AdornerProvider
Public Sub New()
' The adorner is a Rectangle element.
Dim r As New Rectangle()
r.Width = 23.0
r.Height = 23.0
r.Fill = AdornerColors.GlyphFillBrush
' Set the rectangle's placement in the adorner panel.
AdornerPanel.SetAdornerHorizontalAlignment(r, AdornerHorizontalAlignment.OutsideLeft)
AdornerPanel.SetAdornerVerticalAlignment(r, AdornerVerticalAlignment.OutsideTop)
Dim p As New AdornerPanel()
p.Children.Add(r)
AdornerPanel.SetTask(r, New DockPanelMarginTask())
Adorners.Add(p)
End Sub
End Class
using System;
using System.Collections.Generic;
using System.Windows;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Shapes;
using Microsoft.Windows.Design.Interaction;
using Microsoft.Windows.Design.Model;
using Microsoft.Windows.Design.Policies;
namespace DemoControlLibrary.VisualStudio.Design
{
// The DockPanelAdornerProvider class implements an adorner
// that you can use to set the Margin property by using a
// drag operation. The DockPanelPolicy class enables a
// container policy for offering additional tasks and
// adorners on the panel's children.
[UsesItemPolicy(typeof(DockPanelPolicy))]
class DockPanelAdornerProvider : AdornerProvider
{
public DockPanelAdornerProvider()
{
// The adorner is a Rectangle element.
Rectangle r = new Rectangle();
r.Width = 23.0;
r.Height = 23.0;
r.Fill = AdornerColors.GlyphFillBrush;
// Set the rectangle's placement in the adorner panel.
AdornerPanel.SetAdornerHorizontalAlignment(r, AdornerHorizontalAlignment.OutsideLeft);
AdornerPanel.SetAdornerVerticalAlignment(r, AdornerVerticalAlignment.OutsideTop);
AdornerPanel p = new AdornerPanel();
p.Children.Add(r);
AdornerPanel.SetTask(r, new DockPanelMarginTask());
Adorners.Add(p);
}
}
}
Imports System
Imports System.Windows.Controls
Imports Microsoft.Windows.Design.Interaction
Imports Microsoft.Windows.Design.Model
Imports Microsoft.Windows.Design.Policies
Imports System.Windows
Imports Microsoft.Windows.Design.Metadata
' The DockPanelContextMenuProvider class implements a
' context menu group for setting the Dock property of
' the target control. The menu feature provider is bound to
' a policy that enables a context menu for children of
' a DemoDockPanel.
<UsesItemPolicy(GetType(DockPanelPolicy))> _
Class DockPanelContextMenuProvider
Inherits ContextMenuProvider
Private lastFill As MenuAction
Public Sub New()
' Create and populate the menu group.
Dim group As New MenuGroup("Dock", "Dock")
group.Items.Add(New DockMenuAction(Dock.Left))
group.Items.Add(New DockMenuAction(Dock.Right))
group.Items.Add(New DockMenuAction(Dock.Top))
group.Items.Add(New DockMenuAction(Dock.Bottom))
lastFill = New MenuAction("Last Child Fill")
lastFill.Checkable = True
AddHandler lastFill.Execute, AddressOf lastFill_Execute
group.Items.Add(lastFill)
AddHandler UpdateItemStatus, AddressOf DockPanelContextMenu_UpdateItemStatus
' The group appears in a flyout menu.
group.HasDropDown = True
Items.Add(group)
End Sub
Sub DockPanelContextMenu_UpdateItemStatus(ByVal sender As Object, ByVal e As MenuActionEventArgs)
Dim parent As ModelItem = e.Selection.PrimarySelection.Parent
Dim check As Boolean = CBool(parent.Properties("LastChildFill").ComputedValue)
lastFill.Checked = check
End Sub
Sub lastFill_Execute(ByVal sender As Object, ByVal e As MenuActionEventArgs)
Dim parent As ModelItem = e.Selection.PrimarySelection.Parent
If lastFill.Checked Then
parent.Properties("LastChildFill").ClearValue()
Else
parent.Properties("LastChildFill").SetValue(lastFill.Checked)
End If
End Sub
Private Class DockMenuAction
Inherits MenuAction
Private dockValue As Dock
Friend Sub New(ByVal value As Dock)
MyBase.New(value.ToString())
dockValue = value
AddHandler Execute, AddressOf OnExecute
End Sub
Private Sub OnExecute(ByVal sender As Object, ByVal args As MenuActionEventArgs)
Dim pi As New PropertyIdentifier(GetType(DockPanel), "Dock")
Dim item As ModelItem = args.Selection.PrimarySelection
item.Properties(pi).SetValue(dockValue)
End Sub
End Class
End Class
using System;
using System.Windows.Controls;
using Microsoft.Windows.Design.Interaction;
using Microsoft.Windows.Design.Metadata;
using Microsoft.Windows.Design.Model;
using Microsoft.Windows.Design.Policies;
using System.Windows;
namespace DemoControlLibrary.VisualStudio.Design
{
// The DockPanelContextMenuProvider class implements a
// context menu group for setting the Dock property of
// the target control. The menu feature provider is bound to
// a policy that enables a context menu for children of
// a DemoDockPanel.
[UsesItemPolicy(typeof(DockPanelPolicy))]
class DockPanelContextMenuProvider : ContextMenuProvider
{
MenuAction lastFill;
public DockPanelContextMenuProvider()
{
// Create and populate the menu group.
MenuGroup group = new MenuGroup("Dock", "Dock");
group.Items.Add(new DockMenuAction(Dock.Left));
group.Items.Add(new DockMenuAction(Dock.Right));
group.Items.Add(new DockMenuAction(Dock.Top));
group.Items.Add(new DockMenuAction(Dock.Bottom));
lastFill = new MenuAction("Last Child Fill");
lastFill.Checkable = true;
lastFill.Execute +=
new EventHandler<MenuActionEventArgs>(lastFill_Execute);
group.Items.Add(lastFill);
UpdateItemStatus +=
new EventHandler<MenuActionEventArgs>(
DockPanelContextMenu_UpdateItemStatus);
// The group appears in a flyout menu.
group.HasDropDown = true;
Items.Add(group);
}
void DockPanelContextMenu_UpdateItemStatus(
object sender,
MenuActionEventArgs e)
{
ModelItem parent = e.Selection.PrimarySelection.Parent;
bool check = (bool)parent.Properties["LastChildFill"].ComputedValue;
lastFill.Checked = check;
}
void lastFill_Execute(object sender, MenuActionEventArgs e)
{
ModelItem parent = e.Selection.PrimarySelection.Parent;
if (lastFill.Checked)
{
parent.Properties["LastChildFill"].ClearValue();
}
else
{
parent.Properties["LastChildFill"].SetValue(lastFill.Checked);
}
}
private class DockMenuAction : MenuAction
{
private Dock dockValue;
internal DockMenuAction(Dock value) : base(value.ToString())
{
dockValue = value;
Execute += OnExecute;
}
private void OnExecute(object sender, MenuActionEventArgs args)
{
PropertyIdentifier pi = new PropertyIdentifier( typeof( DockPanel ), "Dock" );
ModelItem item = args.Selection.PrimarySelection;
item.Properties[pi].SetValue(dockValue);
}
}
}
}
Imports System
Imports System.Collections.Generic
Imports System.Windows
Imports System.Windows.Input
Imports Microsoft.Windows.Design.Interaction
' A DockPanelMarginTask is attached to to the adorner
' offered by the DockPanelAdornerProvider class. When
' you drag the adorner, the target control's Margin
' property changes.
Class DockPanelMarginTask
Inherits Task
Private dragBinding, endDragBinding As InputBinding
Private initialMargin As Thickness
' The DockPanelMarginTask constructor establishes mappings
' between user inputs and commands.
Public Sub New()
Dim beginDrag As New ToolCommand("BeginDrag")
Dim drag As New ToolCommand("Drag")
Dim endDrag As New ToolCommand("EndDrag")
Dim resetMargins As New ToolCommand("ResetMargins")
Me.InputBindings.Add(New InputBinding( _
beginDrag, _
New ToolGesture(ToolAction.DragIntent, MouseButton.Left)))
Me.InputBindings.Add( _
New InputBinding( _
resetMargins, _
New ToolGesture(ToolAction.DoubleClick, MouseButton.Left)))
Me.dragBinding = New InputBinding( _
drag, _
New ToolGesture(ToolAction.Move))
Me.endDragBinding = New InputBinding( _
endDrag, _
New ToolGesture(ToolAction.DragComplete))
Me.ToolCommandBindings.Add(New ToolCommandBinding(beginDrag, AddressOf OnBeginDrag))
Me.ToolCommandBindings.Add(New ToolCommandBinding(drag, AddressOf OnDrag))
Me.ToolCommandBindings.Add(New ToolCommandBinding(endDrag, AddressOf OnEndDrag))
Me.ToolCommandBindings.Add(New ToolCommandBinding(resetMargins, AddressOf OnResetMargins))
End Sub
Private Sub OnBeginDrag(ByVal sender As Object, ByVal args As ExecutedToolEventArgs)
Dim data As GestureData = GestureData.FromEventArgs(args)
Me.BeginFocus(data)
Me.InputBindings.Add(dragBinding)
Me.InputBindings.Add(endDragBinding)
Me.initialMargin = CType(data.ImpliedSource.Properties("Margin").ComputedValue, Thickness)
End Sub
Private Sub OnDrag(ByVal sender As Object, ByVal args As ExecutedToolEventArgs)
Dim data As MouseGestureData = MouseGestureData.FromEventArgs(args)
Dim offX As Double = data.PositionDelta.X
Dim offY As Double = data.PositionDelta.Y
Dim newMargin As Thickness = initialMargin
newMargin.Bottom += offY
newMargin.Top += offY
newMargin.Left += offX
newMargin.Right += offX
data.ImpliedSource.Properties("Margin").SetValue(newMargin)
End Sub
Private Sub OnEndDrag(ByVal sender As Object, ByVal args As ExecutedToolEventArgs)
Description = "Adjust margin"
Me.Complete()
End Sub
Protected Overrides Sub OnCompleted(ByVal e As EventArgs)
Me.Cleanup()
MyBase.OnCompleted(e)
End Sub
Protected Overrides Sub OnReverted(ByVal e As EventArgs)
Me.Cleanup()
MyBase.OnReverted(e)
End Sub
Private Sub Cleanup()
Me.InputBindings.Remove(dragBinding)
Me.InputBindings.Remove(endDragBinding)
End Sub
Private Sub OnResetMargins(ByVal sender As Object, ByVal args As ExecutedToolEventArgs)
Dim data As GestureData = GestureData.FromEventArgs(args)
data.ImpliedSource.Properties("Margin").ClearValue()
End Sub
End Class
using System;
using System.Collections.Generic;
using System.Windows;
using System.Windows.Input;
using Microsoft.Windows.Design.Interaction;
namespace DemoControlLibrary.VisualStudio.Design
{
// A DockPanelMarginTask is attached to to the adorner
// offered by the DockPanelAdornerProvider class. When
// you drag the adorner, the target control's Margin
// property changes.
class DockPanelMarginTask : Task
{
InputBinding dragBinding, endDragBinding;
Thickness initialMargin;
// The DockPanelMarginTask constructor establishes mappings
// between user inputs and commands.
public DockPanelMarginTask()
{
ToolCommand beginDrag = new ToolCommand("BeginDrag");
ToolCommand drag = new ToolCommand("Drag");
ToolCommand endDrag = new ToolCommand("EndDrag");
ToolCommand resetMargins = new ToolCommand("ResetMargins");
this.InputBindings.Add(
new InputBinding(
beginDrag,
new ToolGesture(ToolAction.DragIntent, MouseButton.Left)));
this.InputBindings.Add(
new InputBinding(
resetMargins,
new ToolGesture(ToolAction.DoubleClick, MouseButton.Left)));
this.dragBinding = new InputBinding(
drag,
new ToolGesture(ToolAction.Move));
this.endDragBinding = new InputBinding(
endDrag,
new ToolGesture(ToolAction.DragComplete));
this.ToolCommandBindings.Add(
new ToolCommandBinding(beginDrag, OnBeginDrag));
this.ToolCommandBindings.Add(
new ToolCommandBinding(drag, OnDrag));
this.ToolCommandBindings.Add(
new ToolCommandBinding(endDrag, OnEndDrag));
this.ToolCommandBindings.Add(
new ToolCommandBinding(resetMargins, OnResetMargins));
}
private void OnBeginDrag(object sender, ExecutedToolEventArgs args)
{
GestureData data = GestureData.FromEventArgs(args);
this.BeginFocus(data);
this.InputBindings.Add(dragBinding);
this.InputBindings.Add(endDragBinding);
this.initialMargin = (Thickness)data.ImpliedSource.Properties[
"Margin"].ComputedValue;
}
private void OnDrag(object sender, ExecutedToolEventArgs args)
{
MouseGestureData data = MouseGestureData.FromEventArgs(args);
double offX = data.PositionDelta.X;
double offY = data.PositionDelta.Y;
Thickness newMargin = initialMargin;
newMargin.Bottom += offY;
newMargin.Top += offY;
newMargin.Left += offX;
newMargin.Right += offX;
data.ImpliedSource.Properties["Margin"].SetValue(newMargin);
}
private void OnEndDrag(object sender, ExecutedToolEventArgs args)
{
Description = "Adjust margin";
this.Complete();
}
protected override void OnCompleted(EventArgs e)
{
this.Cleanup();
base.OnCompleted(e);
}
protected override void OnReverted(EventArgs e)
{
this.Cleanup();
base.OnReverted(e);
}
private void Cleanup()
{
this.InputBindings.Remove(dragBinding);
this.InputBindings.Remove(endDragBinding);
}
private void OnResetMargins(object sender, ExecutedToolEventArgs args)
{
GestureData data = GestureData.FromEventArgs(args);
data.ImpliedSource.Properties["Margin"].ClearValue();
}
}
}
Imports System
Imports System.Collections.Generic
Imports Microsoft.Windows.Design.Model
Imports Microsoft.Windows.Design.Policies
' The DockPanelPolicy class implements a surrogate policy that
' provides container semantics for a selected item. By using
' this policy, the DemoDockPanel container control offers
' additional tasks and adorners on its children.
Class DockPanelPolicy
Inherits PrimarySelectionPolicy
Public Overrides ReadOnly Property IsSurrogate() As Boolean
Get
Return True
End Get
End Property
Public Overrides Function GetSurrogateItems( _
ByVal item As Microsoft.Windows.Design.Model.ModelItem) _
As System.Collections.Generic.IEnumerable( _
Of Microsoft.Windows.Design.Model.ModelItem)
Dim parent As ModelItem = item.Parent
Dim e As New System.Collections.Generic.List(Of ModelItem)
If (parent IsNot Nothing) Then
e.Add(parent)
End If
Return e
End Function
End Class
using System;
using System.Collections.Generic;
using Microsoft.Windows.Design.Model;
using Microsoft.Windows.Design.Policies;
namespace DemoControlLibrary.VisualStudio.Design
{
// The DockPanelPolicy class implements a surrogate policy that
// provides container semantics for a selected item. By using
// this policy, the DemoDockPanel container control offers
// additional tasks and adorners on its children.
class DockPanelPolicy : PrimarySelectionPolicy
{
public override bool IsSurrogate
{
get
{
return true;
}
}
public override IEnumerable<ModelItem> GetSurrogateItems(ModelItem item)
{
ModelItem parent = item.Parent;
if (parent != null)
{
yield return parent;
}
}
}
}
Imports System
Imports DemoControlLibrary
Imports Microsoft.Windows.Design.Metadata
Imports Microsoft.Windows.Design.Features
' The ProvideMetadata assembly-level attribute indicates to designers
' that this assembly contains a class that provides an attribute table.
<Assembly: ProvideMetadata(GetType(DemoControlLibrary.VisualStudio.Design.Metadata))>
' Container for any general design-time metadata to initialize.
' Designers look for a type in the design-time assembly that
' implements IProvideAttributeTable. If found, designers instantiate
' this class and access its AttributeTable property automatically.
Friend Class Metadata
Implements IProvideAttributeTable
' Accessed by the designer to register any design-time metadata.
Public ReadOnly Property AttributeTable() As AttributeTable _
Implements IProvideAttributeTable.AttributeTable
Get
Dim builder As New AttributeTableBuilder()
InitializeAttributes(builder)
Return builder.CreateTable()
End Get
End Property
Private Sub InitializeAttributes(ByVal builder As AttributeTableBuilder)
builder.AddCallback(GetType(DemoDockPanel), AddressOf AddDockPanelAttributes)
End Sub
Private Sub AddDockPanelAttributes(ByVal builder As AttributeCallbackBuilder)
builder.AddCustomAttributes( _
New FeatureAttribute(GetType(DockPanelAdornerProvider)), _
New FeatureAttribute(GetType(DockPanelContextMenuProvider)))
End Sub
End Class
using System;
using DemoControlLibrary;
using Microsoft.Windows.Design.Metadata;
using Microsoft.Windows.Design.Features;
// The ProvideMetadata assembly-level attribute indicates to designers
// that this assembly contains a class that provides an attribute table.
[assembly: ProvideMetadata(typeof(DemoControlLibrary.VisualStudio.Design.Metadata))]
namespace DemoControlLibrary.VisualStudio.Design
{
// Container for any general design-time metadata to initialize.
// Designers look for a type in the design-time assembly that
// implements IProvideAttributeTable. If found, designers instantiate
// this class and access its AttributeTable property automatically.
internal class Metadata : IProvideAttributeTable
{
public AttributeTable AttributeTable
{
get
{
AttributeTableBuilder builder = new AttributeTableBuilder();
InitializeAttributes(builder);
return builder.CreateTable();
}
}
private void InitializeAttributes(AttributeTableBuilder builder)
{
builder.AddCallback(typeof(DemoDockPanel), AddDockPanelAttributes);
}
private void AddDockPanelAttributes(AttributeCallbackBuilder builder)
{
builder.AddCustomAttributes(
new FeatureAttribute(typeof(DockPanelAdornerProvider)),
new FeatureAttribute(typeof(DockPanelContextMenuProvider))
);
}
}
}
<Window x:Class="DemoApplication.MainWindow"
xmlns="https://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="https://schemas.microsoft.com/winfx/2006/xaml"
xmlns:c="clr-namespace:DemoControlLibrary;assembly=DemoControlLibrary"
Title="Window1" Height="300" Width="300">
<Grid>
<c:DemoDockPanel>
<Button />
<Button />
</c:DemoDockPanel>
</Grid>
</Window>
Compilar el código
Para obtener una solución completa, vea el ejemplo Primary Selection Policy en el sitio WPF Designer Extensibility Samples.
Vea también
Referencia
Otros recursos
Conceptos de extensibilidad avanzada