TplSizeControl

type TplSizeControl = class(TComponent)

protected

  procedure Hide;

  procedure Show;

  procedure UpdateBtnCursors;

  procedure MoveTargets();

  procedure SizeTargets();

  procedure Notification(); override;

  function DoKeyDown();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Update;

  function RegisterControl();

  procedure UnRegisterControl();

  procedure UnRegisterAll;

  function RegisteredIndex();

  function AddTarget();

  procedure DeleteTarget();

  procedure ClearTargets;

  function TargetIndex();

  function TargetCtrlFromPt();

  property Enabled: Boolean; [rw]

  property Targets []: TControl; [r]

  property TargetCount: Integer; [r]

published

  property GridSize: Integer; [rw]

  property MoveOnly: Boolean; [rw]

  property BtnColor: TColor; [rw]

  property BtnColorDisabled: TColor; [rw]

  property MultiTargetResize: Boolean; [rw]

  property PopupMenu: TPopupMenu; [rw]

  property OnStartSizeMove: TStartEndEvent; [rw]

  property OnDuringSizeMove: TDuringEvent; [rw]

  property OnEndSizeMove: TStartEndEvent; [rw]

  property OnTargetChange: TNotifyEvent; [rw]

  property OnKeyDown: TKeyEvent; [rw]

  property OnMouseDown: TMouseDownEvent; [rw]

  property OnSetCursor: TSetCursorEvent; [rw]

  property OnContextPopup: TContextPopupEvent; [rw]

end;

TplSizeControl

TObject