TCropAreaList

type TCropAreaList = class(TObjectList)

protected

  fOwner: TBGRAImageManipulation;

  rName: string;

  rLoading: Boolean;

  function getCropArea();

  procedure setCropArea();

  procedure setLoading();

  procedure Notify(); override;

  property Loading: Boolean; [rw]

public

  constructor Create();

  function add();

  procedure Load();

  procedure Save();

  procedure LoadFromStream();

  procedure LoadFromFile();

  procedure SaveToStream();

  procedure SaveToFile();

  procedure RotateLeft;

  procedure RotateRight;

  procedure FlipHLeft;

  procedure FlipHRight;

  procedure FlipVUp;

  procedure FlipVDown;

  property items []: TCropArea; default; [rw]

  property Name: string; [rw]

end;

TCropAreaList

TObject