TOCustomMultiPanel

type TOCustomMultiPanel = class(TCustomPanel)

protected

  procedure CMControlChange(); message;

  procedure CMMouseLeave(); message;

  procedure CMMouseEnter(); message;

  function GetSettingsSection; virtual;

  function GetSettingsIdent; virtual;

  procedure CalcSizing();

  function GetSizingRect();

  procedure Paint; override;

  procedure DoPaintSizingBar(); virtual;

  procedure InvalidateSplitter();

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure AlignControls(); override;

  procedure Loaded; override;

  procedure Resize; override;

  procedure ConstrainedResize(); override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure InvalidateSplitters;

  procedure ResizeControls; virtual;

  procedure LoadPositionsFromRegistry();

  procedure SavePositionsToRegistry();

  procedure LoadPositionsFromIniFile();

  procedure SavePositionsToIniFile();

  procedure DoSplitterMoved;

  function FindPanel();

  property SplitterPosition []: Integer; [r]

  property PanelCollection: TOMultiPanelCollection; [rw]

  property PanelType: TPanelType; [rw]

  property MinPosition: Double; [rws]

  property SplitterSize: Integer; [rw]

  property SplitterColor: TColor; [rw]

  property SplitterHoverColor: TColor; [rw]

  property OnSplitterMoved: TNotifyEvent; [rw]

  property OnPaintSizingBar: TOnPaintSizingBar; [rw]

  property BevelOuter;

  property BevelInner;

  property ParentColor;

end;

TOCustomMultiPanel

TObject