DrawingAttributes Class

'A new stroke object, MyStroke, is created and is added to the StrokeCollection object
'of the InkPresenter, MyIP
Private Sub MyIP_MouseLeftButtonDown(ByVal sender As Object, ByVal e As MouseEventArgs)
    MyIP.CaptureMouse()
    Dim MyStylusPointCollection As StylusPointCollection = New StylusPointCollection
    MyStylusPointCollection.Add(e.StylusDevice.GetStylusPoints(MyIP))
    MyStroke = New Stroke(MyStylusPointCollection)
    MyStroke.DrawingAttributes = CloneDrawingAttributes(MyDA)
    MyIP.Strokes.Add(MyStroke)
End Sub

'StylusPoint objects are collected from the MouseEventArgs and added to MyStroke
Private Sub MyIP_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
    If (Not (MyStroke) Is Nothing) Then
        MyStroke.StylusPoints.Add(e.StylusDevice.GetStylusPoints(MyIP))
    End If
End Sub

'MyStroke is completed
Private Sub MyIP_LostMouseCapture(ByVal sender As Object, ByVal e As MouseEventArgs)
    MyStroke = Nothing
End Sub

Private Function CloneDrawingAttributes(ByVal attributes As DrawingAttributes) As DrawingAttributes
    If (attributes Is Nothing) Then
        Return attributes
    End If
    Dim cloneAttribute As DrawingAttributes = New DrawingAttributes
    cloneAttribute.Color = attributes.Color
    cloneAttribute.Height = attributes.Height
    cloneAttribute.OutlineColor = attributes.OutlineColor
    cloneAttribute.Width = attributes.Width
    Return cloneAttribute
End Function

'Set drawing attributes to simulate a pen
Private Sub BtPen_Click(ByVal sender As Object, ByVal e As EventArgs)
    MyDA.Width = 1
    MyDA.Height = (Double.Epsilon - 1)
    MyDA.Color = Colors.Black
    MyDA.OutlineColor = Colors.Black
End Sub

'Set drawing attributes to simulate a marker
Private Sub BtMarker_Click(ByVal sender As Object, ByVal e As EventArgs)
    MyDA.Width = 10
    MyDA.Height = 4
    MyDA.Color = Colors.Blue
    MyDA.OutlineColor = Colors.Blue
End Sub

'Set drawing attributes to simulate a highlighter
Private Sub BtHighlighter_Click(ByVal sender As Object, ByVal e As EventArgs)
    MyDA.Width = 25
    MyDA.Height = 5
    MyDA.Color = Colors.Yellow
    MyDA.OutlineColor = Colors.Yellow
End Sub

'Clear the strokes from the inkpresenter control
Private Sub BtEraser_Click(ByVal sender As Object, ByVal e As EventArgs)
    MyIP.Strokes.Clear()
End Sub

//A new stroke object named MyStroke is created. MyStroke is added to the StrokeCollection of the InkPresenter named MyIP
private void MyIP_MouseLeftButtonDown(object sender, MouseEventArgs e)
{
    MyIP.CaptureMouse();
    StylusPointCollection MyStylusPointCollection = new StylusPointCollection();
    MyStylusPointCollection.Add(e.StylusDevice.GetStylusPoints(MyIP));
    MyStroke = new Stroke(MyStylusPointCollection);
    MyStroke.DrawingAttributes = CloneDrawingAttributes(MyDA);
    MyIP.Strokes.Add(MyStroke);
}

//StylusPoint objects are collected from the MouseEventArgs and added to MyStroke
private void MyIP_MouseMove(object sender, MouseEventArgs e)
{
    if (MyStroke != null)
        MyStroke.StylusPoints.Add(e.StylusDevice.GetStylusPoints(MyIP));
}

//MyStroke is completed
private void MyIP_LostMouseCapture(object sender, MouseEventArgs e)
{
    MyStroke = null;
}

private DrawingAttributes CloneDrawingAttributes(DrawingAttributes attributes)
{
    if (attributes == null)
        return attributes;

    DrawingAttributes cloneAttribute = new DrawingAttributes();
    cloneAttribute.Color = attributes.Color;
    cloneAttribute.Height = attributes.Height;
    cloneAttribute.OutlineColor = attributes.OutlineColor;
    cloneAttribute.Width = attributes.Width;
    return cloneAttribute;
}

//Set drawing attributes to simulate a pen
private void BtPen_Click(object sender, EventArgs e)
{
    MyDA.Width = 1;
    MyDA.Height = Double.Epsilon - 1;
    MyDA.Color = Colors.Black;
    MyDA.OutlineColor = Colors.Black;
}

//Set drawing attributes to simulate a marker
private void BtMarker_Click(object sender, EventArgs e)
{
    MyDA.Width = 10;
    MyDA.Height = 4;
    MyDA.Color = Colors.Blue;
    MyDA.OutlineColor = Colors.Blue;
}

//Set drawing attributes to simulate a highlighter
private void BtHighlighter_Click(object sender, EventArgs e)
{
    MyDA.Width = 25;
    MyDA.Height = 5;
    MyDA.Color = Colors.Yellow;
    MyDA.OutlineColor = Colors.Yellow;
}

//Clear the strokes from the inkpresenter control
private void BtEraser_Click(object sender, EventArgs e)
{
    MyIP.Strokes.Clear();
}

private void SetBoundary()
{
    RectangleGeometry MyRectangleGeometry = new RectangleGeometry();
    MyRectangleGeometry.Rect = new Rect(0, 0, MyIP.ActualHeight, MyIP.ActualWidth);
    MyIP.Clip = MyRectangleGeometry;
}