Unit HandleSL

Classes

TXControlHandle -

Functions

Types

THandleType

Constants

cHandleHeight
cHandleWidth
DefaultWindowClass
SizeCursors
WName

Variables


Functions


Types


THandleType=(thtN,thtNE,thtE,thtSE,thtS,thtSW,thtW,thtNW);

Constants

cHandleHeight = chandleWidth

cHandleWidth = 7

Handle dimensions

DefaultWindowClass = ( style: 0; lpfnWndProc: nil; cbClsExtra: 0; cbWndExtra: 6; hInstance: 0; hIcon: 0; hCursor: 0; hbrBackground: 0; lpszMenuName: nil; lpszClassName: nil)

SizeCursors = (crSizeNS, crSizeNESW, crSizeWE, crSizeNWSE, crSizeNS, crSizeNESW, crSizeWE, crSizeNWSE)

WName = 'TXControlhandle'

Renamed from Handles.pas 6/14/1998 Paul Rice to avoid conflicts with others' work. this form defines control handles for designer They are not delphi controls cos its the easiest way to avoid 'AlignControl' wars where the handles keep getting in the way with their visble and position changes and the scrollby changes which happen TO them

Variables