TIECropToolInteraction.BitmapPolygon

Declaration

property BitmapPolygon: TIEDPointArray; (Read-only)

Description

Returns the area of the image the user has selected for cropping.

Note:
◼BitmapPolygon does not consider the Rotation
◼BitmapPolygon is an array [0..3] of type, TDPoint. Item 0 is Top-Left, item 1 is Top-Right, item 2 is Bottom-Right and item 3 is Bottom-Left
◼To assign BitmapPolygon to an array, use GetBitmapPolygon

Example

// Show the size of the selection while resizing
procedure TForm1.ImageEnView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ImageEnView1.MouseCapture then // selection being made or altered
    with ImageEnView1.CropTool do
      Caption := 'Selection: ' + IntToStr( abs( Round( BitmapPolygon[2].X - BitmapPolygon[0].X ))) + ' x ' + IntToStr( abs( Round( BitmapPolygon[2].Y - BitmapPolygon[0].Y )));
end;

TIECropToolInteraction.BitmapPolygon