Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : BOXLIB.ZIP
Filename : BOXLIB.CH

/*
BOXLIB.CH
Copyright (c) 1989, 1990, The Leylan Factor

The Leylan Factor
98-626 Moanalua Loop, #201
Aiea, HI 96701-5172

(808) 487-2230

Compuserve : 74216,3212

distribute freely with this header intact

*/

#define BX_TOP 1
#define BX_LEFT 2
#define BX_LENGTH 3
#define BX_WIDTH 4
#define BX_COLOR 5
#define BX_SHADOW 6
#define BX_FRAME 7
#define BX_TITLE 8
#define BX_XTOP 9
#define BX_XLEFT 10
#define BX_XBOTTOM 11
#define BX_XRIGHT 12
#define BX_XSCRN 13

#translate Box:Top => bhObj\[ BX_TOP ]
#translate Box:Left => bhObj\[ BX_LEFT ]
#translate Box:Length => bhObj\[ BX_LENGTH ]
#translate Box:Width => bhObj\[ BX_WIDTH ]
#translate Box:Color => bhObj\[ BX_COLOR ]
#translate Box:Shadow => bhObj\[ BX_SHADOW ]
#translate Box:Frame => bhObj\[ BX_FRAME ]
#translate Box:Title => bhObj\[ BX_TITLE ]

#translate Box:xTop => bhObj\[ BX_XTOP ]
#translate Box:xLeft => bhObj\[ BX_XLEFT ]
#translate Box:xBottom => bhObj\[ BX_XBOTTOM ]
#translate Box:xRight => bhObj\[ BX_XRIGHT ]
#translate Box:xScrn => bhObj\[ BX_XSCRN ]

#translate Box:Bottom => (bhObj\[ BX_TOP ] + bhObj\[ BX_LENGTH ] - 1)
#translate Box:Right => (bhObj\[ BX_LEFT ] + bhObj\[ BX_WIDTH ] - 1)