TgmSelectionTransformation

type TgmSelectionTransformation = class(TObject)

protected

  FTransformMode: TgmTransformMode;

  FSelection: TgmSelection;

  FMaskBorderStartCopy: TPoint;

  FMaskBorderEndCopy: TPoint;

  FForegroundCopy: TBitmap32;

  FResizeMaskCopy: TBitmap32;

  FRectTopLeft: TPoint;

  FRectBottomRight: TPoint;

  FRectReady: Boolean;

  FTransforming: Boolean;

  FTT: TTransformation;

  FPT: TProjectiveTransformation;

  FVertices: array [0..3] of TPoint;

  FExtraHandles: array [0..3] of TPoint;

  FVerticesLength: array [0..3] of Extended;

  FVerticesRadians: array [0..3] of Extended;

  FSelectionCenterCoord: TFloatPoint;

  procedure InitVertices;

  procedure GenTransform;

  procedure DoTransform;

  function GetVertexByIndex();

  function GetExtraHandleByIndex();

  function GetVertexLengthByIndex();

  function GetVertexRadiansByIndex();

public

  constructor Create(); virtual;

  destructor Destroy; override;

  procedure ExecuteTransform;

  procedure AssignTransformData();

  procedure DrawOutline();

  function GetHandleAtPoint();

  function PointOnSelectionBody();

  procedure GetExtraHandles;

  procedure ChangeVertices();

  procedure ChangeVertices_Distort();

  procedure ChangeVertices_Rotate();

  procedure ChangeVertices_Scale();

  procedure TranslateVertices();

  procedure AcceptTransform;

  procedure CancelTransform;

  procedure ShowTransformedSelection();

  procedure ConnectSelection();

  property TransformMode: TgmTransformMode; [rw]

  property SelectionCenterCoord: TFloatPoint; [r]

  property Vertices []: TPoint; [r]

  property ExtraHandles []: TPoint; [r]

  property MaskBorderStartCopy: TPoint; [r]

  property MaskBorderEndCopy: TPoint; [r]

  property RectTopLeft: TPoint; [r]

  property RectBottomRight: TPoint; [r]

  property IsRectReady: Boolean; [r]

  property IsTransforming: Boolean; [rw]

  property ForegroundCopy: TBitmap32; [r]

  property ResizeMaskCopy: TBitmap32; [r]

  property VerticesLength []: Extended; [r]

  property VerticesRadians []: Extended; [r]

end;

TgmSelectionTransformation

TObject