TplDesignHandles

type TplDesignHandles = class(TComponent)

protected

  function GetHandleWidth;

  function GetSelectionRect;

  function SelectedToScreenRect();

  procedure CreateHandles;

  procedure SetContainer();

  procedure SetHandleRects();

  procedure SetResizeable();

  procedure SetSelected();

  procedure ShowHideHandles();

public

  Handles: array [0..3] of TplDesignHandle;

  constructor Create(); override;

  function HitRect();

  function SelectedToContainer();

  procedure RepaintHandles;

  procedure UpdateHandles;

  property Container: TWinControl; [rw]

  property HandleWidth: Integer; [r]

  property Resizeable: Boolean; [rw]

  property Selected: TControl; [rw]

end;

TplDesignHandles

TObject