TBGRAImageManipulation

type TBGRAImageManipulation = class(TBGRAGraphicCtrl)

protected

  rCropAreas: TCropAreaList;

  rNewCropArea: TCropArea;

  rSelectedCropArea: TCropArea;

  rOnCropAreaAdded: TCropAreaEvent;

  rOnCropAreaDeleted: TCropAreaEvent;

  rOnCropAreaChanged: TCropAreaEvent;

  rOnSelectedCropAreaChanged: TCropAreaEvent;

  rOnCropAreaLoad: TCropAreaLoadEvent;

  rOnCropAreaSave: TCropAreaSaveEvent;

  rOnBitmapLoadBefore: TBGRAIMBitmapLoadBefore;

  rOnBitmapLoadAfter: TBGRAIMBitmapLoadAfter;

  rOnContextPopup: TBGRAIMContextPopupEvent;

  rEmptyImage: TBGRAEmptyImage;

  rOpacity: Byte;

  function ApplyDimRestriction();

  function ApplyRatioToAxes();

  procedure ApplyRatioToArea();

  procedure CalcMaxSelection();

  procedure findSizeLimits;

  function getDirection();

  function getImageRect();

  function getWorkRect;

  function isOverAnchor();

  procedure CreateEmptyImage;

  procedure CreateResampledBitmap;

  class function GetControlClassDefaultSize; override;

  procedure CalculatePreferredSize(); override;

  procedure Loaded; override;

  procedure Paint; override;

  procedure ResizeVirtualScreen;

  procedure DoOnResize; override;

  procedure RenderBackground;

  procedure Render;

  procedure Render_Invalidate;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure DoContextPopup(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  function getAspectRatioFromImage();

  function getResampledBitmap();

  function getBitmap();

  procedure rotateLeft();

  procedure rotateRight();

  procedure RefreshBitmap;

  procedure tests;

  function addCropArea();

  function addScaledCropArea();

  procedure delCropArea();

  procedure clearCropAreas;

  procedure getAllResampledBitmaps();

  procedure getAllBitmaps();

  procedure SetEmptyImageSizeToCropAreas();

  procedure SetEmptyImageSizeToNull;

  procedure SetEmptyImageSize();

  procedure LoadFromFile();

  procedure LoadFromFileUTF8();

  procedure LoadFromStream();

  procedure SaveToFile();

  procedure SaveToFileUTF8();

  procedure SaveToStream(); overload;

  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 Opacity: Byte; [rw]

  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]

  property OnBitmapLoadBefore: TBGRAIMBitmapLoadBefore; [rw]

  property OnBitmapLoadAfter: TBGRAIMBitmapLoadAfter; [rw]

  property OnBitmapSaveBefore: TBGRAIMBitmapSaveBefore; [rw]

  property OnBitmapSaveAfter: TBGRAIMBitmapSaveAfter; [rw]

end;

TBGRAImageManipulation

TBGRAGraphicCtrl

TObject