FrameRegion(RasterImage,Graphics,RasterRegionXForm,Int32) Method

'Declaration
 
Public Overloads Shared Sub FrameRegion( _
   ByVal image As RasterImage, _
   ByVal graphics As Graphics, _
   ByVal xform As RasterRegionXForm, _
   ByVal frameIndex As Integer _
) 

Public Sub FrameRegionExample()
      Dim f As New FrameRegionForm()
      f.ShowDialog()
   End Sub

   Class FrameRegionForm
      Inherits Form
      Private frameIndex As Integer
      Private image As RasterImage
      Private timer As System.Windows.Forms.Timer
      Private fillRegion As Boolean

      Public Sub New()
         ' Load the image
         Using codecs As New RasterCodecs()
            Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp")
            image = codecs.Load(srcFileName)
         End Using

         ' Add a region to the image
         Dim rc As New LeadRect(image.Width \ 3, image.Height \ 3, image.Width \ 3, image.Height \ 3)
         Dim xform As New RasterRegionXForm()
         xform.ViewPerspective = RasterViewPerspective.TopLeft
         image.AddEllipseToRegion(xform, rc, RasterRegionCombineMode.Set)

         ' initialize the frame index
         frameIndex = 0

         fillRegion = True

         Text = "Double click to enable/disable filling the region"

         ' Create the timer
         timer = New System.Windows.Forms.Timer()
         timer.Interval = 100
         AddHandler timer.Tick, AddressOf timer_Tick
         timer.Start()
      End Sub

      Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         ' Clean up
         If disposing Then
            If Not IsNothing(timer) Then
               timer.Dispose()
            End If

            If Not IsNothing(image) Then
               image.Dispose()
            End If

         End If

         MyBase.Dispose(disposing)
      End Sub

      Protected Overrides Sub OnDoubleClick(ByVal e As EventArgs)
         fillRegion = Not fillRegion
         Invalidate()

         MyBase.OnDoubleClick(e)
      End Sub

      Private Function GetXForm(ByVal destRect As LeadRect) As RasterRegionXForm
         ' Calculate xform when the image is painted into 'destRect'
         Dim xform As New RasterRegionXForm()
         xform.ViewPerspective = RasterViewPerspective.TopLeft
         xform.XOffset = destRect.Left
         xform.YOffset = destRect.Top
         xform.XScalarDenominator = image.Width
         xform.XScalarNumerator = destRect.Width
         xform.YScalarDenominator = image.Height
         xform.YScalarNumerator = destRect.Height

         Return xform
      End Function

      Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
         ' Draw the image fit and center on this form
         Dim destRect As LeadRect = LeadRect.FromLTRB(ClientRectangle.Left, ClientRectangle.Top, ClientRectangle.Right, ClientRectangle.Bottom)
         destRect = RasterImage.CalculatePaintModeRectangle( _
             image.ImageWidth, _
             image.ImageHeight, _
             destRect, _
             RasterPaintSizeMode.Fit, _
             RasterPaintAlignMode.Center, _
             RasterPaintAlignMode.Center)

         Dim clipRect As LeadRect = LeadRect.FromLTRB(e.ClipRectangle.Left, e.ClipRectangle.Top, e.ClipRectangle.Right, e.ClipRectangle.Bottom)
         RasterImagePainter.Paint(image, e.Graphics, LeadRect.Empty, LeadRect.Empty, destRect, clipRect, RasterPaintProperties.Default)

         If fillRegion Then
            Dim xform As RasterRegionXForm = GetXForm(destRect)
            RasterImagePainter.FillRegion(image, e.Graphics, xform, New RasterColor(255, 0, 255))
         End If

         MyBase.OnPaint(e)
      End Sub

      Private Sub timer_Tick(ByVal sender As Object, ByVal e As EventArgs)
         ' Frame the image region
         Dim destRect As LeadRect = LeadRect.FromLTRB(ClientRectangle.Left, ClientRectangle.Top, ClientRectangle.Right, ClientRectangle.Bottom)

         destRect = RasterImage.CalculatePaintModeRectangle( _
            image.ImageWidth, _
            image.ImageHeight, _
            destRect, _
            RasterPaintSizeMode.Fit, _
            RasterPaintAlignMode.Center, _
            RasterPaintAlignMode.Center)

         Dim xform As RasterRegionXForm = GetXForm(destRect)

         Using g As Graphics = CreateGraphics()
            RasterImagePainter.FrameRegion(image, g, xform, frameIndex)
         End Using

         ' advance to next frame
         frameIndex = frameIndex + 1
         If frameIndex > RasterImagePainter.MaxRegionFrameIndex Then
            frameIndex = 0
         End If
      End Sub
   End Class

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class