색상 TableBox 행텍스트와 버튼이 있는 테이블 상자가 있는데 1색 이상으로 색상을 지정하고 싶습니다.
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" );문제는 마지막 두 줄을 제거하면 마지막 두 줄을 빨간색으로 칠하지만 마지막 두 줄을 실행하면 빨간색을 그대로 두는 대신 빨간색을 제거하고 맨 위 줄을 녹색으로 채색한다는 것입니다. 잘
마지막 2줄을 실행하기 전에:
마지막 2줄 실행 후
테이블 상자를 1색 이상으로 색칠하는 방법이 있습니까? (빨간색과 녹색을 모두 갖고 싶습니다)
저널 작업도 시도했지만 버튼을 추가하는 방법을 모르겠습니다.
감사해요!
대량 맞춤화Re: TableBox 행 색상 지정열리는 창의 버튼 중 하나에서 스크립트 설정을 사용하여 문제가 무엇인지 쉽게 확인할 수 있습니다.
i는 숫자여야 할 때의 인수입니다. Eval(Parse()) 방법으로 고칠 수 있습니다.
For( i = 1, i <= 3, i++,
Insert Into(bblist, Eval(Parse("buttonbox(\!"test"||char(i)||"\!",newFunc("||char(i)||"))")));
);또는 Eval(Eval Expr()):
For( i = 1, i <= 3, i++,
Eval(EvalExpr(Insert Into(bblist, buttonbox("test"||char(expr(i)),newFunc(expr(i))))));
);Set Script가 다음과 같기를 원합니다(적어도 이 경우).
이를 수행하는 "최상의" 방법은 응용 프로그램에 따라 크게 달라질 수 있습니다.
Re: TableBox 행 색상 지정감사해요! 이것은 많은 도움이됩니다
마지막 질문이 하나 있습니다.
이 코드를 사용하여 함수에서 각 버튼에 대해 다른 값을 생성하려고 합니다.
따라서 이 예에서 버튼 1을 클릭하면 1이 인쇄되어야 하고, 2를 클릭하면 2가 인쇄되어야 합니다.
그러나 어떤 이유로 값이 "고정"되지 않고 클릭하는 모든 버튼에 4가 표시됩니다. (4는 루프가 끝난 후 i의 숫자입니다)
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
);
newFunc = function({i},
print(i);
);
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()
);
bblist = Expr(col box("Open Graph"));
For( i = 1, i <= 3, i++,
Insert Into(bblist, buttonbox("test"||char(i),newFunc(i)));
);
rep << append(bblist);
hlb << append(rep);
tb = (hlb << XPath("//TableBox"))[1];
tb << Set Scrollable(5,5);이 문제를 해결할 방법이 있습니까?
Re: TableBox 행 색상 지정무엇이 잘못되었는지 완전히 확신할 수 없습니다(Col Box()는 쉼표로 구분된 표시 상자가 필요한 것처럼 목록을 인수로 사용하지 않을 수 있음). 그러나 이것은 한 가지 방법이 될 수 있습니다.
bblist = Expr(col box("Open Graph"));
For( i = 1, i <= 3, i++,
Insert Into(bblist, buttonbox("test"||char(i)));
);
rep << append(bblist);
hlb << append(rep);Re: TableBox 행 색상 지정감사해요! 이것은 많은 도움이 됩니다!
하지만 버튼을 동적으로 만들고 싶다면 어떻게 해야 할까요?
bblist = {};
For( i = 1, i <= 3, i++,
bb_expr = Eval Insert( "\[bblist[i] = buttonbox("test")]\" );
Eval( Parse( bb_expr ) );
bb << append( bblist[i] );
);내가하려고 할 때
rep << append(Col Box("Open Graph", bb));그것은 작동하지 않습니다
어떠한 제안?
Re: TableBox 행 색상 지정나는 비슷한 것을하고 싶었던 하나의 스크립트를 가지고있었습니다 (결국 나는 그것을 포기하고 이유없이 내 취향에 비해 너무 복잡해 졌기 때문에 응용 프로그램에 대해 다른 접근 방식을 사용했습니다).
나는 그것을 약간 수정했고 이것은 당신에게 기본 창을 얻을 것입니다:
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);아이디어는 데이터 테이블을 색칠하고, 데이터 테이블을 보고서로 가져오고, 해당 보고서에 버튼을 추가하고 마지막으로 새 창에 추가하고 크기를 조정하는 것이었습니다.
Re: TableBox 행 색상 지정테이블박스로는 안되더라도 다른 방법은 없나요? 문제는 어떻게 든 버튼을 추가해야한다는 것입니다.
