Unit SplitterWnd

************************************************) // TSplitterWnd // by Chris Monson - finished 06/03/97 // This is a very nice little control that you can // use to split up windows in Delphi 2.0, 3.0, or // C++ builder. You should have received a document // with this unit. If not, please contact me at // ckmonson@burgoyne.com. (

Classes

TPane - ********************* TPane ***************************) (
TSplitterWnd -
TSplitterWndEditor - ***************** TSplitterWndEditor ******************) (

Functions

Register - **************** Globals *****************************) (

************************************************************************) (***************************** Register **********************************) (

Types

TBarStyle
TDrawDragRectEvent
TOrientation

Constants

DEFAULT_HEIGHT
DEFAULT_HORZPANESIZE
DEFAULT_NUMPANES
DEFAULT_THICKNESS
DEFAULT_VERTPANESIZE
DEFAULT_WIDTH
SplitterWndNumVerbs
SplitterWndVerbs

Variables


Functions


procedure Register;

**************** Globals *****************************) (

************************************************************************) (***************************** Register **********************************) (


Types


TBarStyle    = ( sbCheckered, sbSolid );

TDrawDragRectEvent = procedure( Sender : TSplitterWnd;
                                  var DrawRect : TRect;
                                  var OwnerDraw : Boolean ) of object

TOrientation = ( swHorizontal, swVertical );
********************* TSplitterWnd ********************) (

Constants

DEFAULT_HEIGHT = 200

DEFAULT_HORZPANESIZE = 50

********** Defaults

DEFAULT_NUMPANES = 2

DEFAULT_THICKNESS = 3

DEFAULT_VERTPANESIZE = 75

DEFAULT_WIDTH = 400

SplitterWndNumVerbs = 2

SplitterWndVerbs = ('New Pane', 'Equalize Panes')

***********************************************) (*********** Design time constants

Variables