How to copy value colors to row state

markschahl

I have manually assigned column value colors through column properties. Is there a way to copy the value color scheme to the row states via scripting? I tried the following, but it  didn't work since the get property returns a list:

For Each Row(Color of(row state(row()))= :PolyGrade <<get property("Value Colors"));

Mark_Bailey

Try this:

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );

:age << Set Property( "Value Colors", {12 = -13977687, 13 = -3780931, 14 = -4222943, 15 = -13596966, 16 = -2211217, 17 = -10562780} );

value color property = :age << Get Property( "Value Colors" );

For( i = 1, i <= N Items( value color property ), i++,

value = Arg( value color property[i], 1 );

color = Arg( value color property[i], 2 );

target = dt << Get Rows Where( :age == value );

For( r = 1, r <= N Rows( target ), r++,

Row State( target[r] ) = Color State( color );

);

);