Public Function GetTransformedCornerPoints(ByVal obj As Aurigma.GraphicsMill.WinControls.ImageVObject) As System.Drawing.PointF()
Const ProcedureName = "GetTransformedCornerPoints"
1: Dim baseRect As System.Drawing.RectangleF = obj.GetVObjectBounds()
2: Dim cornerPnts As System.Drawing.PointF() = New System.Drawing.PointF(3) {}
3: Try
4: cornerPnts(0) = baseRect.Location
5: cornerPnts(1) = New System.Drawing.PointF(baseRect.Right, baseRect.Top)
6: cornerPnts(2) = New System.Drawing.PointF(baseRect.Right, baseRect.Bottom)
7: cornerPnts(3) = New System.Drawing.PointF(baseRect.Left, baseRect.Bottom)
8: obj.Transform.TransformPoints(cornerPnts)
9: Catch ex As Exception
10: WriteErrLog(Err.Number, Err.Source, Err.Description, gstrModule, ProcedureName, Err.Erl)
11: Finally
12: End Try
13: Return cornerPnts
End Function
Public Function GetTextTransformedCornerPoints(ByVal obj As Aurigma.GraphicsMill.WinControls.TextVObject) As System.Drawing.PointF()
1: Dim baseRect As System.Drawing.RectangleF = obj.GetVObjectBounds()
2: Dim cornerPnts As System.Drawing.PointF() = New System.Drawing.PointF(3) {}
Const ProcedureName = "GetTextTransformedCornerPoints"
3: Try
4: cornerPnts(0) = baseRect.Location
5: cornerPnts(1) = New System.Drawing.PointF(baseRect.Right, baseRect.Top)
6: cornerPnts(2) = New System.Drawing.PointF(baseRect.Right, baseRect.Bottom)
7: cornerPnts(3) = New System.Drawing.PointF(baseRect.Left, baseRect.Bottom)
8: obj.Transform.TransformPoints(cornerPnts)
9: Catch ex As Exception
10: WriteErrLog(Err.Number, Err.Source, Err.Description, gstrModule, ProcedureName, Err.Erl)
11: Finally
12: End Try
13: Return cornerPnts
End Function