TCropArea

type TCropArea = class(TObject)

protected

  fOwner: TBGRAImageManipulation;

  OwnerList: TCropAreaList;

  rScaledArea: TRect;

  rArea: TRectF;

  rAreaUnit: TResolutionUnit;

  rRatio: TRatio;

  rAspectX: Integer;

  rAspectY: Integer;

  rMinHeight: Integer;

  rMinWidth: Integer;

  rAspectRatio: string;

  rName: string;

  rKeepAspectRatio: BoolParent;

  Loading: Boolean;

  rIcons: TCropAreaIcons;

  procedure CopyAspectFromParent;

  procedure setAspectRatio();

  procedure setKeepAspectRatio();

  procedure setScaledArea();

  function getLeft;

  procedure setLeft();

  function getTop;

  procedure setTop();

  function getWidth;

  procedure setWidth();

  function getHeight;

  procedure setHeight();

  function getMaxHeight;

  function getMaxWidth;

  function getRealAspectRatio();

  function getRealKeepAspectRatio;

  function getIndex;

  function getIsNullSize;

  procedure setArea();

  procedure setAreaUnit();

  procedure setName();

  procedure setIcons();

  procedure Render_Refresh;

  procedure GetImageResolution();

  procedure CalculateScaledAreaFromArea;

  procedure CalculateAreaFromScaledArea;

  function GetPixelArea();

  function CheckScaledOutOfBounds();

  function CheckAreaOutOfBounds();

  property ScaledArea: TRect; [rw]

public

  Rotate: Single;

  UserData: Integer;

  BorderColor: TBGRAPixel;

  function getResampledBitmap;

  function getBitmap;

  constructor Create();

  destructor Destroy; override;

  procedure BringToFront;

  procedure BringToBack;

  procedure BringForward;

  procedure BringBackward;

  procedure RotateLeft;

  procedure RotateRight;

  procedure FlipHLeft;

  procedure FlipHRight;

  procedure FlipVUp;

  procedure FlipVDown;

  procedure SetSize();

  property Area: TRectF; [rw]

  property AreaUnit: TResolutionUnit; [rw]

  property Top: Single; [rw]

  property Left: Single; [rw]

  property Width: Single; [rw]

  property Height: Single; [rw]

  property MaxWidth: Single; [r]

  property MaxHeight: Single; [r]

  property AspectRatio: string; [rw]

  property KeepAspectRatio: BoolParent; [rw]

  property Index: LongInt; [r]

  property Name: string; [rw]

  property isNullSize: Boolean; [r]

  property Icons: TCropAreaIcons; [rw]

end;

TCropArea

TObject