Changeset 111 for trunk/Snippets/CropImage

Timestamp:

Sep 1, 2012, 10:45:02 AM (11 years ago)

Author:

roman

Message:

 

File:

• trunk/Snippets/CropImage/ImageCropBox.vb (modified) (3 diffs)

trunk/Snippets/CropImage/ImageCropBox.vb

@@ -124 +124 @@
         DrawSpot(e.Graphics, ClientSelectionRectangle.Right, ClientSelectionRectangle.Bottom)
     End Sub
-    Private Function SourcePointFromPoint(Position As Point)
+    Private Function SourcePointFromPoint(Position As Point) As Point
         Dim SourcePosition As Point
         SourcePosition.X = Math.Round((Position.X - ClientImageOrigin.X) * Image.Width / ClientImageExtent.Width)
@@ -130 +130 @@
         SourcePointFromPoint = SourcePosition
     End Function
-    Private Function PointFromSourcePoint(SourcePosition As Point)
+    Private Function PointFromSourcePoint(SourcePosition As Point) As Point
         Dim Position As Point
         Position.X = ClientImageOrigin.X + Math.Round(SourcePosition.X * ClientImageExtent.Width / Image.Width)
@@ -179 +179 @@
                     SelectionRectangle = Rectangle.FromLTRB(SelectionRectangle.Left, SelectionRectangle.Top, SourcePosition.X, SourcePosition.Y)
                 Case 4 ' Move
-                    Dim Move As Size = e.Location - MouseDownPosition
+                    Dim Move As Size = SourcePointFromPoint(e.Location) - SourcePointFromPoint(MouseDownPosition)
                     Dim PreSelection As Rectangle = MouseDownSelection
                     PreSelection.Offset(Move)