SupportsStroke Property

C#
Visual Basic
Objective-C
Java
C++

public virtual bool SupportsStroke {get;}

'Declaration
 
Public Overridable ReadOnly Property SupportsStroke As Boolean

'Usage
 
Dim instance As AnnObject
Dim value As Boolean
 
value = instance.SupportsStroke

public:
virtual property bool SupportsStroke {
   bool get();
}

Property Value

true if this AnnObject object supports a stroke; false otherwise.

C#
Visual Basic
WinRT C#
WinRT JavaScript
Silverlight C#
Silverlight VB

Copy Code

Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations

Private Sub AnnObjectBase_SupportsStroke(ByVal container As AnnContainer)
   For Each obj As AnnObject In container.Children
      If obj.SupportsStroke Then
         obj.Stroke = Colors.Blue
         obj.StrokeThickness = 1.0
      End If
      If obj.SupportsFill Then
         obj.Fill = Colors.White
      End If

      If TypeOf obj Is IAnnFont Then
         Dim font As IAnnFont = DirectCast(obj, IAnnFont)
         font.FontFamilyName = "Arial"
         font.FontSize = 10.0
         DirectCast(obj, IAnnText).Foreground = Colors.Red
      End If
   Next obj
End Sub

using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Demos;
using Leadtools.Help;

private void AnnObjectBase_SupportsStroke(AnnContainer container)
{
   foreach (AnnObject obj in container.Children)
   {
      if (obj.SupportsStroke)
      {
         obj.Stroke = Colors.Blue;
         obj.StrokeThickness = 1.0;
      }
      if (obj.SupportsFill)
         obj.Fill = Colors.White;

      if (obj is IAnnFont)
      {
         IAnnFont font = (obj as IAnnFont);
         font.FontFamilyName = "Arial";
         font.FontSize = 10.0;
         (obj as IAnnText).Foreground = Colors.Red;
      }
   }

}

using Leadtools.Windows.Controls;
using Leadtools.Windows.Annotations;
using Leadtools.Examples;
using Leadtools.Silverlight.Demos;

private void AnnObjectBase_SupportsStroke(AnnContainer container)
{
   foreach (AnnObject obj in container.Children)
   {
      if (obj.SupportsStroke)
      {
         obj.Stroke = Colors.Blue;
         obj.StrokeThickness = 1.0;
      }
      if (obj.SupportsFill)
         obj.Fill = Colors.White;

      if (obj is IAnnFont)
      {
         IAnnFont font = (obj as IAnnFont);
         font.FontFamilyName = "Arial";
         font.FontSize = 10.0;
         (obj as IAnnText).Foreground = Colors.Red;
      }
   }

}

Imports Leadtools.Windows.Controls
Imports Leadtools.Windows.Annotations
Imports Leadtools.Silverlight.Demos

Private Sub AnnObjectBase_SupportsStroke(ByVal container As AnnContainer)
   For Each obj As AnnObject In container.Children
      If obj.SupportsStroke Then
         obj.Stroke = Colors.Blue
         obj.StrokeThickness = 1.0
      End If
      If obj.SupportsFill Then
         obj.Fill = Colors.White
      End If

      If TypeOf obj Is IAnnFont Then
         Dim font As IAnnFont = (TryCast(obj, IAnnFont))
         font.FontFamilyName = "Arial"
         font.FontSize = 10.0
         TryCast(obj, IAnnText).Foreground = Colors.Red
      End If
   Next obj

End Sub

Target Platforms

Reference

AnnObject Class
AnnObject Members