TKSizingGrips

type TKSizingGrips = class

protected

  function GripRect();

public

  constructor Create;

  class procedure ClsAffectRect();

  procedure DrawTo();

  function HitTest();

  function CursorAt();

  function CursorFor();

  property BoundsRect: TRect; [rw]

  property GripColor: TColor; [rw]

  property GripSize: Integer; [rw]

  property MidGripConstraint: Integer; [rw]

end;

TKSizingGrips

TObject