Saving Loading Document with Custom Classes

I implemented a custom port but the saving and loading of the diagram does not work. How do I save a drawing with custom classes?

Private Sub butSave_Click(sender As Object, e As EventArgs) Handles butSave.Click

Dim pm As New NPersistencyManager

pm.SaveDocumentToFile(document, "c:\\temp\\drawing1.nds")

End Sub

Private Sub butLoad_Click(sender As Object, e As EventArgs) Handles butLoad.Click

Dim pm As New NPersistencyManager

document = pm.LoadDocumentFromFile("c:\\temp\\drawing1.nds")

view.Document = document

End Sub

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

Author	Message
Thunis Kruger	Posted 11 Years Ago
Forum Newbie Group: Forum Members Last Active: 11 Years Ago Posts: 6, Visits: 1	I implemented a custom port but the saving and loading of the diagram does not work. How do I save a drawing with custom classes? Private Sub butSave_Click(sender As Object, e As EventArgs) Handles butSave.Click Dim pm As New NPersistencyManager pm.SaveDocumentToFile(document, "c:\\temp\\drawing1.nds") End Sub Private Sub butLoad_Click(sender As Object, e As EventArgs) Handles butLoad.Click Dim pm As New NPersistencyManager document = pm.LoadDocumentFromFile("c:\\temp\\drawing1.nds") view.Document = document End Sub 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
	REPLY QUOTE

Threaded View