TImageEnView.CropTool

Declaration

property CropTool: TIECropToolInteraction;

Description

Provides access to the methods and properties of the TIECropToolInteraction class, which is used when MouseInteractGeneral is miCropTool.

The crop tool allows the user to select an area of the image to keep and then click "Enter" to apply the crop. The selection can be rotated to rotate the image before cropping.
Also, if the Mode is set to iectmPerspective, the perspective correction can be performed.

In Crop Tool mode:
◼User can resize crop box by dragging grips
◼User can rotate crop by dragging outside grips
◼User can click "Enter" to enact the crop
◼User can click "Esc" to cancel the crop

Note:
◼Specify the color of the crop selection using SelColor1 and SelColor2
◼Specify the style of crop selection grips using SetSelectionGripStyle
◼Hold the Shift key to force rotation in 15 deg. increments

Demo

Demos\ImageEditing\CropTool\CropTool.dpr

Rectangular Crop (with optional rotation)

// Enable crop mode
ImageEnView1.MouseInteractGeneral := [miCropTool];
ImageEnView1.CropTool.Mode := iectmRectangle;

Perspective Fix

// Enable Perspective fixing mode
ImageEnView1.MouseInteractGeneral := [miCropTool];
ImageEnView1.CropTool.Mode := iectmPerspective;

Example

// Disable guide lines (on image thirds)
ImageEnView1.CropTool.DrawGuides := False;

// Make larger grips
ImageEnView1.CropTool.GripSize := 12;

// High quality cropping when rotated
ImageEnView1.CropTool.AntialiasMode := ierBicubic;

// Enable crop mode
ImageEnView1.MouseInteractGeneral := [miCropTool];

// Enact crop (same as user clicking "Enter")
ImageEnView1.CropTool.Enact();

// Cancel crop tool (same as user clicking "Esc")
ImageEnView1.CropTool.Cancel();

TImageEnView.CropTool