procedure TformCrop.SetCropBoxSize;
var
  tempCropBox_LeftEdge: Integer;
  tempCropBox_BottomEdge: Integer;
  ARect: TRect;     // left, top, right, bottom
begin
  with ImageEnViewMiddle do
    begin
      SetFocus;    // If missing the first click of the mouse on the image will remove the crop box
      MouseInteract := [miCropTool];
     
      tempCropBox_LeftEdge := Trunc( (ImageEnViewMiddle.IO.Params.Width - tempLastCropBox_Width) / 2);
      tempCropBox_BottomEdge := Trunc( (ImageEnViewMiddle.IO.Params.Height - tempLastCropBox_Height) / 2);

      CropToolInteraction.LockAspectRatio := -1;
      CropToolInteraction.LockWidth := tempLastCropBox_Width;
      CropToolInteraction.LockHeight := tempLastCropBox_Height;

      ARect := Rect( tempCropBox_LeftEdge, tempCropBox_BottomEdge + tempLastCropBox_Height,
                     tempCropBox_LeftEdge + tempLastCropBox_Width, tempCropBox_BottomEdge );
  
    ImageEnViewMiddle.CropToolInteraction.SetBitmapPolygon( ARect );
      ImageEnViewMiddle.Invalidate();
    end;
end;

procedure TformCrop.StartCropping(tempStatus: Boolean);
begin
  if tempStatus = True then
    begin
      ImageEnViewMiddle.MouseInteract := [ miCropTool ];
      ImageEnViewMiddle.Cursor := crIECrossSight;
      ImageEnViewMiddle.CropToolInteraction.LockAspectRatio := -1;
      ImageEnViewMiddle.CropToolInteraction.LockWidth := tempAbsWidth;
      ImageEnViewMiddle.CropToolInteraction.LockHeight := tempAbsHeight;

      SetCursorPos(ImageEnViewMiddle.XBmp2Scr(50), ImageEnViewMiddle.YBmp2Scr(50));
//      mouse_event(MOUSEEVENTF_LEFTDOWN, ImageEnViewMiddle.XBmp2Scr(50), ImageEnViewMiddle.YBmp2Scr(50), 0, 0);
      mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
      mouse_event(MOUSEEVENTF_MOVE, 50, 50, 0, 0);
      mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
    end;
end;