Up

Header columns

• ObjHead
  


• _ADDheaderColumn
  fun [ObjHead I I I S] ObjHead


• _CRheader
  fun [Chn ObjWin I I I I I] ObjHead

Example

typeof Win = ObjWin;;
typeof Head = ObjHead;;

fun cbWin (obj, user_parameter)=
	_closemachine;;
	
fun main ()=
	_showconsole;
	set Win = _CRwindow _channel nil 0 0 300 200 WN_NORMAL "Test  header window";
	_CBwinDestroy Win @cbWin 0;
	
	set Head = _CRheader _channel Win 0 0 300 20 0;
	_ADDheaderColumn Head 0 100 0 "Left";
	_ADDheaderColumn Head 1 100 0 "Center";
	_ADDheaderColumn Head 2 100 0 "Right";
	
	_CRwindow _channel Win 0 25 99 200 WN_CHILD "";
	_CRwindow _channel Win 100 25 99 200 WN_CHILD "";
	_CRwindow _channel Win 200 25 99 200 WN_CHILD "";
	0;;