[109] | 1 | Imports System.Diagnostics |
---|
| 2 | Imports System.Drawing |
---|
| 3 | Imports System.Drawing.Imaging |
---|
| 4 | Imports System.Drawing.Drawing2D |
---|
| 5 | |
---|
| 6 | Public Class ImageCropBox |
---|
| 7 | Private Const Spacing As Integer = 2 |
---|
| 8 | Private Const SpotSize As Integer = 7 |
---|
| 9 | Private _Image As Bitmap |
---|
| 10 | Private _FadeImage As Bitmap |
---|
| 11 | Private _MinimalSelectionSize As Size |
---|
| 12 | Private _SelectionRectangle As Rectangle |
---|
[119] | 13 | Private _PreserveAspectRatio As Boolean = False |
---|
[109] | 14 | Private ClientImageOrigin As Point |
---|
| 15 | Private ClientImageExtent As Size |
---|
| 16 | Private ClientSelectionRectangle As Rectangle |
---|
| 17 | Private BoundaryPenA As Pen |
---|
| 18 | Private BoundaryPenB As Pen |
---|
| 19 | Private SpotBrush As Brush |
---|
| 20 | Private SpotPen As Pen |
---|
| 21 | Private DragSpotIndex As Integer ' 0..3 Corner Resize, 4 Body Move |
---|
| 22 | Private MouseDownSelection As Rectangle |
---|
| 23 | Private MouseDownPosition As Point |
---|
| 24 | |
---|
| 25 | Public Event SelectionRectangleChanged As EventHandler |
---|
| 26 | Public Event SelectionDoubleClick As EventHandler |
---|
| 27 | |
---|
| 28 | Public Sub New() |
---|
| 29 | ' This call is required by the designer. |
---|
| 30 | InitializeComponent() |
---|
| 31 | ' Add any initialization after the InitializeComponent() call. |
---|
| 32 | _MinimalSelectionSize = New Size(0, 0) |
---|
[119] | 33 | _PreserveAspectRatio = False |
---|
[109] | 34 | End Sub |
---|
| 35 | |
---|
[119] | 36 | Private Function ApplyMinimalSelection(ByVal SelectionRectangle As Rectangle) As Rectangle |
---|
[120] | 37 | Dim MinimalSelectionSize = EffectiveMinimalSelectionSize |
---|
[119] | 38 | If SelectionRectangle.Width < MinimalSelectionSize.Width Then |
---|
| 39 | SelectionRectangle.Width = MinimalSelectionSize.Width |
---|
| 40 | If _Image IsNot Nothing AndAlso SelectionRectangle.Right > _Image.Width Then SelectionRectangle.X = Math.Max(0, _Image.Width - SelectionRectangle.Width) |
---|
| 41 | End If |
---|
| 42 | If SelectionRectangle.Height < MinimalSelectionSize.Height Then |
---|
| 43 | SelectionRectangle.Height = MinimalSelectionSize.Height |
---|
| 44 | If _Image IsNot Nothing AndAlso SelectionRectangle.Bottom > _Image.Height Then SelectionRectangle.Y = Math.Max(0, _Image.Height - SelectionRectangle.Height) |
---|
| 45 | End If |
---|
| 46 | ApplyMinimalSelection = SelectionRectangle |
---|
| 47 | End Function |
---|
| 48 | Private Function ApplyAspectRatio(ByVal SelectionRectangle As Rectangle, ByRef AdjustedSelectionRectangle As Rectangle) As Boolean |
---|
| 49 | AdjustedSelectionRectangle = SelectionRectangle |
---|
| 50 | ApplyAspectRatio = False |
---|
| 51 | If Not _PreserveAspectRatio Then Exit Function |
---|
| 52 | If _Image Is Nothing Then Exit Function |
---|
| 53 | Debug.Assert(_Image.Height > 0 AndAlso _Image.Width > 0) |
---|
| 54 | If SelectionRectangle.Width <= 0 Or SelectionRectangle.Height <= 0 Then Exit Function |
---|
| 55 | Dim AdjustedHeight As Integer = Math.Round(SelectionRectangle.Width * _Image.Height / _Image.Width) |
---|
| 56 | Dim AdjustedWidth As Integer = Math.Round(SelectionRectangle.Height * _Image.Width / _Image.Height) |
---|
| 57 | Debug.Assert(AdjustedWidth >= SelectionRectangle.Width Or AdjustedHeight >= SelectionRectangle.Height) |
---|
| 58 | If AdjustedWidth < SelectionRectangle.Width Then |
---|
| 59 | AdjustedSelectionRectangle.Width = AdjustedWidth |
---|
| 60 | ApplyAspectRatio = True |
---|
| 61 | ElseIf AdjustedHeight < SelectionRectangle.Height Then |
---|
| 62 | AdjustedSelectionRectangle.Height = AdjustedHeight |
---|
| 63 | ApplyAspectRatio = True |
---|
| 64 | End If |
---|
| 65 | End Function |
---|
| 66 | Private Function ApplyAspectRatioAndCenterRectangle(ByVal SelectionRectangle As Rectangle) As Rectangle |
---|
| 67 | Dim AdjustedSelectionRectangle As Rectangle |
---|
| 68 | If ApplyAspectRatio(SelectionRectangle, AdjustedSelectionRectangle) Then |
---|
| 69 | AdjustedSelectionRectangle.Offset((SelectionRectangle.Width - AdjustedSelectionRectangle.Width) / 2, (SelectionRectangle.Height - AdjustedSelectionRectangle.Height) / 2) |
---|
| 70 | ApplyAspectRatioAndCenterRectangle = AdjustedSelectionRectangle |
---|
| 71 | Else |
---|
| 72 | ApplyAspectRatioAndCenterRectangle = SelectionRectangle |
---|
| 73 | End If |
---|
| 74 | End Function |
---|
| 75 | |
---|
[109] | 76 | Public Property Image As Bitmap |
---|
| 77 | Get |
---|
| 78 | Image = _Image |
---|
| 79 | End Get |
---|
| 80 | Set(value As Bitmap) |
---|
| 81 | _Image = value |
---|
| 82 | If _Image IsNot Nothing Then |
---|
[120] | 83 | SelectionRectangle = New Rectangle(value.Width * 1 / 16, value.Height * 1 / 16, value.Width * 14 / 16, value.Height * 14 / 16) |
---|
[119] | 84 | 'SelectionRectangle = New Rectangle(0, 0, value.Width, value.Height) |
---|
[109] | 85 | _FadeImage = _Image.Clone |
---|
| 86 | Dim FadeImageGraphics As Graphics = Graphics.FromImage(_FadeImage) |
---|
| 87 | Dim FadeBrush As HatchBrush = New HatchBrush(HatchStyle.Percent25, Color.FromArgb(0, Color.Black), Color.FromArgb(255, Color.Black)) |
---|
| 88 | FadeImageGraphics.FillRectangle(FadeBrush, 0, 0, _FadeImage.Width, _FadeImage.Height) |
---|
| 89 | FadeImageGraphics.Save() |
---|
| 90 | Else |
---|
| 91 | _FadeImage = Nothing |
---|
| 92 | End If |
---|
| 93 | Update() |
---|
| 94 | End Set |
---|
| 95 | End Property |
---|
| 96 | Public Property MinimalSelectionSize As Size |
---|
| 97 | Get |
---|
| 98 | MinimalSelectionSize = _MinimalSelectionSize |
---|
| 99 | End Get |
---|
| 100 | Set(value As Size) |
---|
| 101 | Debug.Assert(value.Width >= 0 And value.Height >= 0) |
---|
| 102 | _MinimalSelectionSize = value |
---|
| 103 | ' TODO: Update SelectionRectangle |
---|
| 104 | End Set |
---|
| 105 | End Property |
---|
[120] | 106 | Private ReadOnly Property EffectiveMinimalSelectionSize As Size |
---|
| 107 | Get |
---|
| 108 | EffectiveMinimalSelectionSize = MinimalSelectionSize |
---|
| 109 | If MinimalSelectionSize.Width > 0 And MinimalSelectionSize.Height > 0 And PreserveAspectRatio And Image IsNot Nothing Then |
---|
| 110 | Dim Position = New Rectangle(0, 0, MinimalSelectionSize.Width, MinimalSelectionSize.Height) |
---|
| 111 | Dim AdjustedPositon As Rectangle |
---|
| 112 | If ApplyAspectRatio(Position, AdjustedPositon) Then EffectiveMinimalSelectionSize = AdjustedPositon.Size |
---|
| 113 | End If |
---|
| 114 | End Get |
---|
| 115 | End Property |
---|
[109] | 116 | Public Property SelectionRectangle As Rectangle |
---|
| 117 | Get |
---|
| 118 | SelectionRectangle = _SelectionRectangle |
---|
| 119 | End Get |
---|
| 120 | Set(value As Rectangle) |
---|
[119] | 121 | Dim EffectiveSelectionRectangle As Rectangle = ApplyMinimalSelection(value) |
---|
| 122 | If PreserveAspectRatio Then EffectiveSelectionRectangle = ApplyAspectRatioAndCenterRectangle(EffectiveSelectionRectangle) |
---|
| 123 | Dim SelectionRectangleChanged As Boolean = _SelectionRectangle <> EffectiveSelectionRectangle |
---|
| 124 | _SelectionRectangle = EffectiveSelectionRectangle |
---|
[109] | 125 | RaiseEvent SelectionRectangleChanged(Me, New System.EventArgs()) |
---|
| 126 | If SelectionRectangleChanged Then Invalidate() |
---|
| 127 | End Set |
---|
| 128 | End Property |
---|
[119] | 129 | Public Property PreserveAspectRatio As Boolean |
---|
| 130 | Get |
---|
| 131 | PreserveAspectRatio = _PreserveAspectRatio |
---|
| 132 | End Get |
---|
| 133 | Set(value As Boolean) |
---|
| 134 | If _PreserveAspectRatio = value Then Exit Property |
---|
| 135 | _PreserveAspectRatio = value |
---|
| 136 | If _PreserveAspectRatio Then SelectionRectangle = ApplyAspectRatioAndCenterRectangle(_SelectionRectangle) |
---|
| 137 | End Set |
---|
| 138 | End Property |
---|
[109] | 139 | |
---|
| 140 | Private Sub ImageCropBox_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load |
---|
| 141 | BoundaryPenA = New Pen(Brushes.White) |
---|
| 142 | BoundaryPenA.Width = 1 |
---|
| 143 | BoundaryPenA.DashPattern = New Single() {8.0F, 4.0F} |
---|
| 144 | BoundaryPenB = New Pen(Brushes.Black) |
---|
| 145 | BoundaryPenB.Width = 1 |
---|
| 146 | BoundaryPenB.DashPattern = New Single() {4.0F, 8.0F} |
---|
| 147 | BoundaryPenB.DashOffset = 4 |
---|
| 148 | SpotBrush = Brushes.Black |
---|
| 149 | SpotPen = New Pen(Brushes.White) |
---|
| 150 | SpotPen.Width = 1 |
---|
| 151 | ResizeRedraw = True |
---|
| 152 | End Sub |
---|
| 153 | Private Sub DrawSpot(Graphics As Graphics, Position As Point) |
---|
| 154 | Graphics.FillRectangle(SpotBrush, Position.X - CInt(SpotSize / 2) - 1, Position.Y - CInt(SpotSize / 2) - 1, SpotSize + 2, SpotSize + 2) |
---|
| 155 | Graphics.DrawRectangle(SpotPen, Position.X - CInt(SpotSize / 2), Position.Y - CInt(SpotSize / 2), SpotSize, SpotSize) |
---|
| 156 | End Sub |
---|
| 157 | Private Sub DrawSpot(Graphics As Graphics, PositionX As Integer, PositionY As Integer) |
---|
| 158 | DrawSpot(Graphics, New Point(PositionX, PositionY)) |
---|
| 159 | End Sub |
---|
| 160 | Private Sub ImageCropBox_Paint(sender As System.Object, e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint |
---|
| 161 | If Image Is Nothing Then Exit Sub |
---|
| 162 | Dim Extent = Me.Size |
---|
| 163 | Extent.Width -= Spacing + SpotSize + Spacing |
---|
| 164 | Extent.Height -= Spacing + SpotSize + Spacing |
---|
| 165 | If Extent.Width <= 0 Or Extent.Height <= 0 Then Exit Sub |
---|
| 166 | Debug.Assert(Image.Width > 0 AndAlso Image.Height > 0) |
---|
| 167 | Dim Ratio As Double = Math.Max(Image.Width / Extent.Width, Image.Height / Extent.Height) |
---|
| 168 | If Ratio > 1 And Ratio < 1.1 Then Ratio = 1.0 ' Snap to 100% |
---|
| 169 | ClientImageExtent.Width = Math.Round(Image.Width / Ratio) |
---|
| 170 | ClientImageExtent.Height = Math.Round(Image.Height / Ratio) |
---|
| 171 | ClientImageOrigin.X = Spacing + SpotSize / 2 + (Extent.Width - ClientImageExtent.Width) / 2 |
---|
| 172 | ClientImageOrigin.Y = Spacing + SpotSize / 2 + (Extent.Height - ClientImageExtent.Height) / 2 |
---|
| 173 | e.Graphics.DrawImage(_FadeImage, ClientImageOrigin.X, ClientImageOrigin.Y, ClientImageExtent.Width, ClientImageExtent.Height) |
---|
| 174 | ClientSelectionRectangle.X = Math.Round(_SelectionRectangle.Left / Ratio) |
---|
| 175 | ClientSelectionRectangle.Y = Math.Round(_SelectionRectangle.Top / Ratio) |
---|
| 176 | ClientSelectionRectangle.Width = Math.Round(_SelectionRectangle.Right / Ratio) - ClientSelectionRectangle.X |
---|
| 177 | ClientSelectionRectangle.Height = Math.Round(_SelectionRectangle.Bottom / Ratio) - ClientSelectionRectangle.Y |
---|
| 178 | ClientSelectionRectangle.Offset(ClientImageOrigin) |
---|
| 179 | e.Graphics.SetClip(ClientSelectionRectangle) |
---|
| 180 | e.Graphics.DrawImage(_Image, ClientImageOrigin.X, ClientImageOrigin.Y, ClientImageExtent.Width, ClientImageExtent.Height) |
---|
| 181 | e.Graphics.ResetClip() |
---|
| 182 | e.Graphics.DrawRectangle(BoundaryPenA, ClientSelectionRectangle) |
---|
| 183 | e.Graphics.DrawRectangle(BoundaryPenB, ClientSelectionRectangle) |
---|
| 184 | DrawSpot(e.Graphics, ClientSelectionRectangle.Left, ClientSelectionRectangle.Top) |
---|
| 185 | DrawSpot(e.Graphics, ClientSelectionRectangle.Right, ClientSelectionRectangle.Top) |
---|
| 186 | DrawSpot(e.Graphics, ClientSelectionRectangle.Left, ClientSelectionRectangle.Bottom) |
---|
| 187 | DrawSpot(e.Graphics, ClientSelectionRectangle.Right, ClientSelectionRectangle.Bottom) |
---|
| 188 | End Sub |
---|
[111] | 189 | Private Function SourcePointFromPoint(Position As Point) As Point |
---|
[109] | 190 | Dim SourcePosition As Point |
---|
| 191 | SourcePosition.X = Math.Round((Position.X - ClientImageOrigin.X) * Image.Width / ClientImageExtent.Width) |
---|
| 192 | SourcePosition.Y = Math.Round((Position.Y - ClientImageOrigin.Y) * Image.Height / ClientImageExtent.Height) |
---|
| 193 | SourcePointFromPoint = SourcePosition |
---|
| 194 | End Function |
---|
[111] | 195 | Private Function PointFromSourcePoint(SourcePosition As Point) As Point |
---|
[109] | 196 | Dim Position As Point |
---|
| 197 | Position.X = ClientImageOrigin.X + Math.Round(SourcePosition.X * ClientImageExtent.Width / Image.Width) |
---|
| 198 | Position.Y = ClientImageOrigin.Y + Math.Round(SourcePosition.Y * ClientImageExtent.Height / Image.Height) |
---|
| 199 | PointFromSourcePoint = Position |
---|
| 200 | End Function |
---|
| 201 | Private Function IsSpotPosition(SpotPosition As Point, Position As Point) As Boolean |
---|
| 202 | Dim SpotPositionEx = New Rectangle(SpotPosition.X - SpotSize / 2, SpotPosition.Y - SpotSize / 2, SpotSize, SpotSize) |
---|
| 203 | IsSpotPosition = SpotPositionEx.Contains(Position) |
---|
| 204 | End Function |
---|
| 205 | Private Function IsSpotPosition(SpotPositionX As Integer, SpotPositionY As Integer, PositionX As Integer, PositionY As Integer) As Boolean |
---|
| 206 | IsSpotPosition = IsSpotPosition(New Point(SpotPositionX, SpotPositionY), New Point(PositionX, PositionY)) |
---|
| 207 | End Function |
---|
| 208 | Private Sub ApplyPointConstraint(ByRef Position As Point, P1 As Point, P2 As Point) |
---|
| 209 | If Position.X > P2.X Then Position.X = P2.X |
---|
| 210 | If Position.Y > P2.Y Then Position.Y = P2.Y |
---|
| 211 | If Position.X < P1.X Then Position.X = P1.X |
---|
| 212 | If Position.Y < P1.Y Then Position.Y = P1.Y |
---|
| 213 | End Sub |
---|
| 214 | Private Sub ImageCropBox_MouseMove(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove |
---|
| 215 | Dim Position As Point = e.Location, SourcePosition As Point |
---|
| 216 | If Capture Then |
---|
[120] | 217 | Dim MinimalSelectionSize = EffectiveMinimalSelectionSize |
---|
[109] | 218 | Dim P1 As Point, P2 As Point |
---|
[120] | 219 | Dim NewSelectionRectangle As Rectangle |
---|
[109] | 220 | Select Case DragSpotIndex |
---|
| 221 | Case 0 ' Left Top |
---|
| 222 | P1 = ClientImageOrigin |
---|
| 223 | P2 = PointFromSourcePoint(New Point(SelectionRectangle.Right - MinimalSelectionSize.Width, SelectionRectangle.Bottom - MinimalSelectionSize.Height)) |
---|
| 224 | ApplyPointConstraint(Position, P1, P2) |
---|
| 225 | SourcePosition = SourcePointFromPoint(Position) |
---|
[119] | 226 | NewSelectionRectangle = Rectangle.FromLTRB(SourcePosition.X, SourcePosition.Y, SelectionRectangle.Right, SelectionRectangle.Bottom) |
---|
[120] | 227 | NewSelectionRectangle = ApplyMinimalSelection(ApplyAspectRatioAndCenterRectangle(NewSelectionRectangle)) |
---|
| 228 | NewSelectionRectangle.Offset(SelectionRectangle.Right - NewSelectionRectangle.Right, SelectionRectangle.Bottom - NewSelectionRectangle.Bottom) |
---|
| 229 | SelectionRectangle = NewSelectionRectangle |
---|
[109] | 230 | Case 1 ' Right Top |
---|
| 231 | P1 = New Point(ClientImageOrigin.X + ClientImageExtent.Width, ClientImageOrigin.Y) |
---|
| 232 | P2 = PointFromSourcePoint(New Point(SelectionRectangle.Left + MinimalSelectionSize.Width, SelectionRectangle.Bottom - MinimalSelectionSize.Height)) |
---|
| 233 | ApplyPointConstraint(Position, New Point(P2.X, P1.Y), New Point(P1.X, P2.Y)) |
---|
| 234 | SourcePosition = SourcePointFromPoint(Position) |
---|
[119] | 235 | NewSelectionRectangle = Rectangle.FromLTRB(SelectionRectangle.Left, SourcePosition.Y, SourcePosition.X, SelectionRectangle.Bottom) |
---|
[120] | 236 | NewSelectionRectangle = ApplyMinimalSelection(ApplyAspectRatioAndCenterRectangle(NewSelectionRectangle)) |
---|
| 237 | NewSelectionRectangle.Offset(SelectionRectangle.Left - NewSelectionRectangle.Left, SelectionRectangle.Bottom - NewSelectionRectangle.Bottom) |
---|
| 238 | SelectionRectangle = NewSelectionRectangle |
---|
[109] | 239 | Case 2 ' Left Bottom |
---|
| 240 | P1 = New Point(ClientImageOrigin.X, ClientImageOrigin.Y + ClientImageExtent.Height) |
---|
| 241 | P2 = PointFromSourcePoint(New Point(SelectionRectangle.Right - MinimalSelectionSize.Width, SelectionRectangle.Top + MinimalSelectionSize.Height)) |
---|
| 242 | ApplyPointConstraint(Position, New Point(P1.X, P2.Y), New Point(P2.X, P1.Y)) |
---|
| 243 | SourcePosition = SourcePointFromPoint(Position) |
---|
[119] | 244 | NewSelectionRectangle = Rectangle.FromLTRB(SourcePosition.X, SelectionRectangle.Top, SelectionRectangle.Right, SourcePosition.Y) |
---|
[120] | 245 | NewSelectionRectangle = ApplyMinimalSelection(ApplyAspectRatioAndCenterRectangle(NewSelectionRectangle)) |
---|
| 246 | NewSelectionRectangle.Offset(SelectionRectangle.Right - NewSelectionRectangle.Right, SelectionRectangle.Top - NewSelectionRectangle.Top) |
---|
| 247 | SelectionRectangle = NewSelectionRectangle |
---|
[109] | 248 | Case 3 ' Right Bottom |
---|
| 249 | P1 = PointFromSourcePoint(New Point(SelectionRectangle.Left + MinimalSelectionSize.Width, SelectionRectangle.Top + MinimalSelectionSize.Height)) |
---|
| 250 | P2 = ClientImageOrigin + ClientImageExtent |
---|
| 251 | ApplyPointConstraint(Position, P1, P2) |
---|
| 252 | SourcePosition = SourcePointFromPoint(Position) |
---|
[119] | 253 | NewSelectionRectangle = Rectangle.FromLTRB(SelectionRectangle.Left, SelectionRectangle.Top, SourcePosition.X, SourcePosition.Y) |
---|
[120] | 254 | NewSelectionRectangle = ApplyMinimalSelection(ApplyAspectRatioAndCenterRectangle(NewSelectionRectangle)) |
---|
| 255 | NewSelectionRectangle.Offset(SelectionRectangle.Left - NewSelectionRectangle.Left, SelectionRectangle.Top - NewSelectionRectangle.Top) |
---|
| 256 | SelectionRectangle = NewSelectionRectangle |
---|
[109] | 257 | Case 4 ' Move |
---|
[111] | 258 | Dim Move As Size = SourcePointFromPoint(e.Location) - SourcePointFromPoint(MouseDownPosition) |
---|
[109] | 259 | Dim PreSelection As Rectangle = MouseDownSelection |
---|
| 260 | PreSelection.Offset(Move) |
---|
| 261 | PreSelection.Offset(Math.Max(0, -PreSelection.Left), Math.Max(0, -PreSelection.Top)) |
---|
| 262 | PreSelection.Offset(-Math.Max(0, PreSelection.Right - Image.Width), -Math.Max(0, PreSelection.Bottom - Image.Height)) |
---|
| 263 | SelectionRectangle = PreSelection |
---|
| 264 | End Select |
---|
| 265 | Exit Sub |
---|
| 266 | Else |
---|
| 267 | If IsSpotPosition(ClientSelectionRectangle.Left, ClientSelectionRectangle.Top, e.X, e.Y) Then |
---|
| 268 | Cursor = Cursors.SizeNWSE |
---|
| 269 | Exit Sub |
---|
| 270 | End If |
---|
| 271 | If IsSpotPosition(ClientSelectionRectangle.Right, ClientSelectionRectangle.Top, e.X, e.Y) Then |
---|
| 272 | Cursor = Cursors.SizeNESW |
---|
| 273 | Exit Sub |
---|
| 274 | End If |
---|
| 275 | If IsSpotPosition(ClientSelectionRectangle.Left, ClientSelectionRectangle.Bottom, e.X, e.Y) Then |
---|
| 276 | Cursor = Cursors.SizeNESW |
---|
| 277 | Exit Sub |
---|
| 278 | End If |
---|
| 279 | If IsSpotPosition(ClientSelectionRectangle.Right, ClientSelectionRectangle.Bottom, e.X, e.Y) Then |
---|
| 280 | Cursor = Cursors.SizeNWSE |
---|
| 281 | Exit Sub |
---|
| 282 | End If |
---|
| 283 | If ClientSelectionRectangle.Contains(e.Location) Then |
---|
| 284 | Cursor = Cursors.SizeAll |
---|
| 285 | Exit Sub |
---|
| 286 | End If |
---|
| 287 | End If |
---|
| 288 | Cursor = Cursors.Default |
---|
| 289 | End Sub |
---|
| 290 | Private Sub ImageCropBox_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown |
---|
| 291 | DragSpotIndex = -1 |
---|
| 292 | MouseDownSelection = SelectionRectangle |
---|
| 293 | MouseDownPosition = e.Location |
---|
| 294 | If IsSpotPosition(ClientSelectionRectangle.Left, ClientSelectionRectangle.Top, e.X, e.Y) Then |
---|
| 295 | DragSpotIndex = 0 |
---|
| 296 | Capture = True |
---|
| 297 | Exit Sub |
---|
| 298 | End If |
---|
| 299 | If IsSpotPosition(ClientSelectionRectangle.Right, ClientSelectionRectangle.Top, e.X, e.Y) Then |
---|
| 300 | DragSpotIndex = 1 |
---|
| 301 | Capture = True |
---|
| 302 | Exit Sub |
---|
| 303 | End If |
---|
| 304 | If IsSpotPosition(ClientSelectionRectangle.Left, ClientSelectionRectangle.Bottom, e.X, e.Y) Then |
---|
| 305 | DragSpotIndex = 2 |
---|
| 306 | Capture = True |
---|
| 307 | Exit Sub |
---|
| 308 | End If |
---|
| 309 | If IsSpotPosition(ClientSelectionRectangle.Right, ClientSelectionRectangle.Bottom, e.X, e.Y) Then |
---|
| 310 | DragSpotIndex = 3 |
---|
| 311 | Capture = True |
---|
| 312 | Exit Sub |
---|
| 313 | End If |
---|
| 314 | If ClientSelectionRectangle.Contains(e.Location) Then |
---|
| 315 | DragSpotIndex = 4 |
---|
| 316 | Capture = True |
---|
| 317 | Exit Sub |
---|
| 318 | End If |
---|
| 319 | End Sub |
---|
| 320 | Private Sub ImageCropBox_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp |
---|
| 321 | Capture = False |
---|
| 322 | End Sub |
---|
| 323 | Private Sub ImageCropBox_MouseDoubleClick(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDoubleClick |
---|
| 324 | If ClientSelectionRectangle.Contains(e.Location) Then |
---|
| 325 | RaiseEvent SelectionDoubleClick(Me, New System.EventArgs) |
---|
| 326 | Exit Sub |
---|
| 327 | End If |
---|
| 328 | End Sub |
---|
| 329 | End Class |
---|