TntvCustomSplitter

type TntvCustomSplitter = class(TGraphicControl)

protected

  procedure OnControlChanged();

  procedure AnchorSideChanged(); override;

  procedure AlignTo();

  procedure BoundsChanged; override;

  function AdaptAnchors();

  function CheckNewSize(); virtual;

  function CheckOffset(); virtual;

  procedure MouseEnter; override;

  procedure MouseLeave; override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure Paint; override;

  procedure Notification(); override;

  procedure SetAlign(); override;

  procedure SetAnchors(); override;

  procedure SetResizeAnchor(); virtual;

  procedure StartSplitterMove();

  procedure StopSplitterMove();

  procedure UpdateCursor;

public

  constructor Create(); override;

  procedure Loaded; override;

  procedure MoveSplitter();

  property AutoSnap: Boolean; [rw]

  property Style: TntvSplitterStyle; [rw]

  property ResizeAnchor: TAnchorKind; [rw]

  property ResizeStyle: TntvResizeStyle; [rw]

  property ResizeControl: TControl; [rw]

  property OnCanOffset: TCanOffsetEvent; [rw]

  property OnCanResize: TCanResizeEvent; [rw]

  property OnMoved: TNotifyEvent; [rw]

end;

TntvCustomSplitter

TObject