Public Class DLogicalLinePort

Inherits NLogicalLinePort

Public Overrides Sub Paint(ByVal context As NPaintContext)

' Compute the bounds of the port in device coordinates

Dim location__1 As NPointF = context.SceneToDevice.TransformPoint(Location)

Dim width As Single = NDR.BitmapPortSize.Width

Dim height As Single = NDR.BitmapPortSize.Height

Dim bounds As New NRectangleF(location__1.X - width / 2, location__1.Y - height / 2, width, height)

' Clip test

If context.DevicePaintArea.IntersectsWith(bounds) = False Then

Return

End If

' Paint the port

Dim circle As New NEllipsePath(bounds.Location, bounds.RightBottom)

NStyle.SetFillStyle(circle, New NColorFillStyle(Color.FromArgb(125, Color.Yellow)))

NStyle.SetStrokeStyle(circle, New NStrokeStyle(KnownArgbColorValue.Red))

circle.Paint(context)

End Sub

End Class

Hi,

All custom classes you want to take part in the serialization process should be marked as Serializable. If you do not want to serialize any of the class fields simply mark it as NonSerialized.

Best Regards,
Nevron Support Team