ImageEn, unit iexUserInteractions

TIECropToolInteraction.BitmapPolygon

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;


See Also

 GetBitmapPolygon
 SetBitmapPolygon
 RotatedPolygon
 Rotation