Tablebox - how to underline a row?

djhanson

Is there any way to underline certain row(s) within a Tablebox?

 

I'd even be happy with a graphical line drawn below the row, too.  I can color any rows of course, but would prefer a line (as a horizontal deliniation at certain points within the table).  thx, DJ

ih

You could use annotations, the user can move them though:

 

Names default to here( 1 );

win = New Window("Text Box",
	tb = Table Box(  
		sb = String Col Box( "letter", {"a", "b"} ), 
		neb = Number Col Box( "number", { 1 ,  2 } )
	),
	<< Padding( 10 )
);

//add more rows
for( i=1, i<=10, i++, tb << Add Row( {"c", 3} ) );

//make sure table is redrawn so it has the correct size
win << redraw;
wait(0);

//Function to calculate the position of the bottom of a row within the table then
//draw a line on top of the table
AddLine = function( {tablebox, row},
	ht = tablebox << Get Height;
	w = tablebox << Get Width;
	nrows = N Items( Words( sb << Get XML, "\!N" ) ) - 2;
	
	tablebox << Add Line Annotation( 
		Line( 1, floor( row * ht / nrows ) + 1, w, floor( row * ht / nrows ) + 1 )
	);
);

//Draw some lines
AddLine( tb, 2); AddLine( tb, 8); AddLine( tb, 12 );