TplDesignSelector

type TplDesignSelector = class(TplDesignCustomSelector)

protected

  function FindHandles();

  function GetCount; override;

  function GetHandles();

  function GetSelection(); override;

  procedure SetHandles();

  procedure SetHandleWidth();

  procedure SetSelection(); override;

  procedure ShowHideResizeHandles;

  property Handles []: TplDesignHandles; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  function GetClientControl(); override;

  function GetCursor(); override;

  function GetHitHandle(); override;

  function IsSelected(); override;

  procedure AddToSelection(); override;

  procedure ClearSelection; override;

  procedure RemoveFromSelection(); override;

  procedure Update; override;

published

  property HandleWidth: Integer; [rw]

end;

TplDesignSelector

TplDesignCustomSelector

TObject