ImageViewerRubberBandInteractiveMode Class

Imports Leadtools 
Imports Leadtools.Controls 
Imports Leadtools.Codecs 
Imports Leadtools.Drawing 
Imports Leadtools.ImageProcessing 
Imports Leadtools.ImageProcessing.Color 
 
Public Shared Function AddRoundRect(ByVal path As GraphicsPath, ByVal bounds As LeadRect, ByVal xRadius As Integer, ByVal yRadius As Integer) As Boolean 
   If bounds.Width < 1 OrElse bounds.Height < 1 Then 
      Return False 
   End If 
 
   If xRadius < 1 OrElse yRadius < 1 Then 
      ' Add a rectangle 
      path.AddRectangle(New Rectangle(bounds.X, bounds.Y, bounds.Width, bounds.Height)) 
      Return True 
   End If 
 
   Dim x As Integer = bounds.X 
   Dim y As Integer = bounds.Y 
   Dim width As Integer = bounds.Width 
   Dim height As Integer = bounds.Height 
 
   ' adapt horizontal and vertical diameter if the rectangle is too little 
   Dim xDiameter As Integer = xRadius * 2 
   Dim yDiameter As Integer = yRadius * 2 
   If width < (xDiameter) Then 
      xDiameter = width 
   End If 
   If height < (yDiameter) Then 
      yDiameter = height 
   End If 
   xRadius = xDiameter \ 2 
   yRadius = yDiameter \ 2 
 
   Dim xw As Integer = x + width 
   Dim yh As Integer = y + height 
   Dim xwr As Integer = xw - xRadius 
   Dim yhr As Integer = yh - yRadius 
   Dim xr As Integer = x + xRadius 
   Dim yr As Integer = y + yRadius 
   Dim xwr2 As Integer = xw - xDiameter 
   Dim yhr2 As Integer = yh - yDiameter 
 
   path.StartFigure() 
 
   path.AddArc(x, y, xDiameter, yDiameter, 180, 90) 
   path.AddLine(xr, y, xwr, y) 
   path.AddArc(xwr2, y, xDiameter, yDiameter, 270, 90) 
   path.AddLine(xw, yr, xw, yhr) 
   path.AddArc(xwr2, yhr2, xDiameter, yDiameter, 0, 90) 
   path.AddLine(xwr, yh, xr, yh) 
   path.AddArc(x, yhr2, xDiameter, yDiameter, 90, 90) 
   path.AddLine(x, yhr, x, yr) 
   path.CloseFigure() 
 
   Return True 
End Function 
 
Public Sub ImageViewerRubberBandInteractiveMode_Example() 
   Dim rubberBandMode As ImageViewerRubberBandInteractiveMode = New ImageViewerRubberBandInteractiveMode() 
 
   For Each shape As ImageViewerRubberBandShape In System.Enum.GetValues(GetType(ImageViewerRubberBandShape)) 
      _rubberBandShapesComboBox.Items.Add(shape) 
   Next shape 
 
   _rubberBandShapesComboBox.SelectedItem = rubberBandMode.Shape 
 
   AddHandler _rubberBandShapesComboBox.SelectedIndexChanged, Sub(sender, e) rubberBandMode.Shape = CType(_rubberBandShapesComboBox.SelectedItem, 
      ImageViewerRubberBandShape) 
 
   AddHandler rubberBandMode.RubberBandCompleted, 
       Sub(sender, e) 
          If e.IsCanceled Then 
             Return 
          End If 
 
          If rubberBandMode.Item Is Nothing Then 
             Return 
          End If 
 
          Dim points As LeadPoint() = New LeadPoint(e.Points.Count - 1) {} 
          Dim i As Integer = 0 
          Do While i < points.Length 
             points(i) = LeadPoint.Create(e.Points(i).X, e.Points(i).Y) 
             i += 1 
          Loop 
 
          Dim min As LeadPoint = LeadPoint.Empty 
          Dim max As LeadPoint = LeadPoint.Empty 
 
          i = 0 
          Do While i < points.Length 
             points(i) = _imageViewer.ConvertPoint(rubberBandMode.Item, ImageViewerCoordinateType.Control, ImageViewerCoordinateType.Image, points(i)) 
             If i = 0 Then 
                min = points(i) 
                max = points(i) 
             Else 
                min.X = Math.Min(min.X, points(i).X) 
                min.Y = Math.Min(min.Y, points(i).Y) 
                max.X = Math.Max(max.X, points(i).X) 
                max.Y = Math.Max(max.Y, points(i).Y) 
             End If 
             i += 1 
          Loop 
 
          Dim center As LeadPoint = LeadPoint.Create(min.X + (max.X - min.X) \ 2, min.Y + (max.Y - min.Y) \ 2) 
 
          Dim rasterItem As ImageViewerItem = rubberBandMode.Item 
          Dim image As RasterImage = rasterItem.Image 
          Dim hdc As IntPtr = RasterImagePainter.CreateLeadDC(image) 
          Using graphics As Graphics = graphics.FromHdc(hdc) 
             Using path As GraphicsPath = New GraphicsPath() 
                Select Case rubberBandMode.Shape 
                   Case ImageViewerRubberBandShape.Rectangle, ImageViewerRubberBandShape.Ellipse 
                      Dim rect As LeadRect = LeadRect.Normalize(LeadRect.FromLTRB(points(0).X, points(0).Y, points(1).X, points(1).Y)) 
                      Dim rc As Rectangle = New Rectangle(rect.X, rect.Y, rect.Width, rect.Height) 
                      If rubberBandMode.Shape = ImageViewerRubberBandShape.Rectangle Then 
                         path.AddRectangle(rc) 
                      Else 
                         path.AddEllipse(rc) 
                      End If 
 
                   Case ImageViewerRubberBandShape.RoundRectangle 
                      Dim radius As LeadSize = rubberBandMode.RoundRectangleRadius 
                      Dim rect As LeadRect = LeadRect.Normalize(LeadRect.FromLTRB(points(0).X, points(0).Y, points(1).X, points(1).Y)) 
                      AddRoundRect(path, rect, radius.Width, radius.Height) 
 
                   Case ImageViewerRubberBandShape.Freehand 
                      Dim firstPoint As Boolean = True 
                      Dim lastPoint As LeadPoint = LeadPoint.Empty 
 
                      For Each pt As LeadPoint In points 
                         If (Not firstPoint) Then 
                            path.AddLine(lastPoint.X, lastPoint.Y, pt.X, pt.Y) 
                         Else 
                            firstPoint = False 
                         End If 
 
                         lastPoint = pt 
                      Next pt 
 
                   Case Else 
                End Select 
 
                path.CloseFigure() 
 
                If image.Width > 1000 OrElse image.Height > 1000 Then 
                   Using pen As Pen = New Pen(Color.Yellow, 8) 
                      graphics.DrawPath(pen, path) 
                   End Using 
                Else 
                   graphics.DrawPath(Pens.Yellow, path) 
                End If 
             End Using 
          End Using 
 
          RasterImagePainter.DeleteLeadDC(hdc) 
          _imageViewer.Invalidate() 
       End Sub 
 
   rubberBandMode.AutoItemMode = ImageViewerAutoItemMode.AutoSet 
   rubberBandMode.ItemPart = ImageViewerItemPart.Image 
   _imageViewer.InteractiveModes.BeginUpdate() 
   _imageViewer.InteractiveModes.Add(rubberBandMode) 
   Dim autopan As ImageViewerAutoPanInteractiveMode = New ImageViewerAutoPanInteractiveMode() 
   autopan.PanDelay = 100 
   _imageViewer.InteractiveModes.Add(autopan) 
   _imageViewer.InteractiveModes.EndUpdate() 
End Sub