color TableBox rows

itzikd

I have a table box that has text but also buttons and I want to color it it more then 1 color

 

col1 = {1, 2, 3};
col2 = {1, 2, 3};
col3 = {1, 2, 3};
myPlatform = New Window( "test",
	tb = Table Box(
		Number Col Box( "a", col1 ),
		Number Col Box( "b", col2 ),
		Number Col Box( "c", col3 ),
		bb = Col Box( "Open Graph" )
	)
);


bblist = {};
For( i = 1, i <= 3, i++,
	bb_expr = Eval Insert( "\[bblist[i] = buttonbox("ok")]\" );
	Eval( Parse( bb_expr ) );
	bb << append( bblist[i] );
);

tb << Set Selectable Rows(1);
dt = tb << Make into Data Table( invisible );
rs = dt << Get Rows Where( :a > 1 );
tb << Set Selected Rows( rs );
tb << Set Selected Row Color( "red" );
rs = dt << Get Rows Where( :a == 1 );
tb << Set Selected Rows( rs );
tb << Set Selected Row Color( "green" );

The problem is that if I remove the last 2 lines, it colors the last 2 lines in red, but if I do run the last 2 lines, it removes the red color and colors in green the top line instead of leaving the red color as well

 

before running last 2 lines:

 

after running last 2 lines

 

 

is there a way to color the table box in more then 1 color? (I want it to have both red and green colors)

I tried working with journal as well, but then I'm not sure how to add the buttons.

 

thanks!

 

jthi

I had one script where I wanted to do something similar (in the end I gave up with it and went with different approach for the application, because it got a bit too complicated for my taste for no reason).

 

I modified it a bit and this will get you the basic window:

Names Default To Here(1);
dt = New Table("Untitled",
	Add Rows(3),
	Compress File When Saved(1),
	New Column("a",
		Numeric,
		"Continuous",
		Format("Best", 12),
		Set Values([1, 2, 3])
	),
	New Column("b",
		Numeric,
		"Continuous",
		Format("Best", 12),
		Set Values([2, 2, 3])
	),
	New Column("c",
		Numeric,
		"Continuous",
		Format("Best", 12),
		Set Values([2, 2, 3])
	),
	invisible
);

dt << Select Where(:a > 1);
For(i = 1, i <= N Cols(dt), i++,
	Column(dt, i) << Color Cells("Red");	
);
dt << Clear Select;

dt << Select Where(:a == 1);
For(i = 1, i <= N Cols(dt), i++,
	Column(dt, i) << Color Cells("Green");	
);
dt << Clear Select;
rep = dt << get as report;
Close(dt, no save);
nw = New Window("Example", 
	hlb = h list box()
);
rep << append(Col Box("Open Graph", Button Box("ok"),Button Box("ok"),Button Box("ok")));
hlb << append(rep);
tb = (hlb << XPath("//TableBox"))[1];
tb << Set Scrollable(5,5);

Idea was to color the datatable, get the datatable as report, add buttons to that report and finally append that to new window (and resize).