TBGRAImageManipulation

type TBGRAImageManipulation = class(TBGRAGraphicCtrl)

protected

  rCropAreas: TCropAreaList;

  rNewCropArea: TCropArea;

  rSelectedCropArea: TCropArea;

  rOnCropAreaAdded: TCropAreaEvent;

  rOnCropAreaDeleted: TCropAreaEvent;

  rOnCropAreaChanged: TCropAreaEvent;

  rOnSelectedCropAreaChanged: TCropAreaEvent;

  rOnCropAreaLoad: TCropAreaLoadEvent;

  rOnCropAreaSave: TCropAreaSaveEvent;

  rEmptyImage: TBGRAEmptyImage;

  rLoading: Boolean;

  function ApplyDimRestriction();

  function ApplyRatioToAxes();

  procedure ApplyRatioToArea();

  procedure CalcMaxSelection();

  procedure findSizeLimits;

  function getDirection();

  function getImageRect();

  function getWorkRect;

  function isOverAnchor();

  procedure CreateEmptyImage;

  procedure CreateResampledBitmap;

  procedure Loaded; override;

  procedure Paint; override;

  procedure RepaintBackground;

  procedure Resize; override;

  procedure Render;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure DoContextPopup(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Invalidate; override;

  function getAspectRatioFromImage();

  function getResampledBitmap();

  function getBitmap();

  procedure rotateLeft;

  procedure rotateRight;

  procedure tests;

  function addCropArea();

  function addScaledCropArea();

  procedure delCropArea();

  procedure clearCropAreas;

  procedure getAllResampledBitmaps();

  procedure getAllBitmaps();

  procedure SetEmptyImageSizeToCropAreas();

  procedure SetEmptyImageSizeToNull;

  procedure SetEmptyImageSize();

  property SelectedCropArea: TCropArea; [rw]

  property CropAreas: TCropAreaList; [r]

  property PixelsPerInch: Integer; [r]

published

  property Align;

  property Anchors;

  property AnchorSize: Byte; [rw]

  property Bitmap: TBGRABitmap; [rw]

  property BorderSize: Byte; [rw]

  property AspectRatio: string; [rw]

  property KeepAspectRatio: Boolean; [rw]

  property MinHeight: Integer; [rw]

  property MinWidth: Integer; [rw]

  property Empty: Boolean; [r]

  property EmptyImage: TBGRAEmptyImage; [rws]

  property NewCropAreaDefault: TBGRANewCropAreaDefault; [rws]

  property OnCropAreaAdded: TCropAreaEvent; [rw]

  property OnCropAreaDeleted: TCropAreaEvent; [rw]

  property OnCropAreaChanged: TCropAreaEvent; [rw]

  property OnCropAreaLoad: TCropAreaLoadEvent; [rw]

  property OnCropAreaSave: TCropAreaSaveEvent; [rw]

  property OnSelectedCropAreaChanged: TCropAreaEvent; [rw]

  property OnContextPopup: TBGRAIMContextPopupEvent; [rw]

end;

TBGRAImageManipulation

TBGRAGraphicCtrl

TObject