Code

Public Sub New()
	  MyBase.new()
	  MMSetDefaultProperties()
End Sub

Public Sub New(ByVal parent As MindFusion.Diagramming.Diagram)
	  MyBase.New(parent)
	  MMSetDefaultProperties()
End Sub


'default settings of shape
Public Sub MMSetDefaultProperties()
	  Me.MinimumSize = New SizeF(20, 20) 'Constraints.MinWidth and Constraints.MinHeight dont work! :-)
	  Me.Obstacle = True ' whether this node is considered an obstacle by the link-routing algorithm
	  Me.Bounds = SDRectangleVirginCreator(0, 0, 50, 50)
	  Me.Font = New Font("Arial", 8, FontStyle.Regular) 'font used when rendering the container's texts
	  Me.AllowIncomingLinks = True 'true - because of notes
	  Me.AllowOutgoingLinks = True 'true - because of notes
	  Me.Brush = New LinearGradientBrush(Color.White, Color.LightBlue, 45) 'brush is used to fill the interiors of geometric shapes
	  Me.Pen = New Pen("0/#FF696969/0/0/0//0/0/10/") 'pen is used to draw the outline of geometric shapes
	  Me.HandlesStyle = HandlesStyle.EasyMove 'visual styles for frames that are drawn around selected nodes
	  Me.ShadowOffsetX = 0.5 'horizontal offset of the shadow
	  Me.ShadowOffsetY = 0.5 'vertical offset of the shadow
	  Me.CaptionHeight = 6 'height of the container's caption area
	  Me.Margin = 2 'how much space should be left between contained nodes and the container borders
	  Me.AutoShrink = True 'whether the container should shrink in size when nodes are removed from it
	  Me.Foldable = False 'whether the user is allowed to fold this container
	  Me.HighlightPen = New Pen(Color.BlueViolet) 'pen used to draw the container frame lines when an item is dragged over the container
	  Me.CaptionFormat.Alignment = StringAlignment.Center  'specifies the alignment of an object relative to its container
	  Me.CaptionFormat.FormatFlags = StringFormatFlags.NoClip
	  Me.CaptionFormat.Trimming = StringTrimming.None
	  Me.Caption = GsStringDefaultValue 'the text displayed as caption of the container
End Sub