TMS AdvStringGrid onGetCellColor (第1列条件满足时最第2列加颜色)
procedure TFRGroupCT.sgListGetCellColor(Sender: TObject; ARow,
ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
begin
//highlight value if >=0.01
if ((ARow>=2) and (ACol=2) and (sgList.Cells[ACol,ARow]>='0.01' ) ) then
begin
ABrush.Color:=clYellow;
end;
end;
如上代码所示:
如果第3列(ACOL=2)的值>=0.01,如何将第4列的颜色设置成黄色?因为上面代码只能对第3列设置颜色,但不能对第四列设置颜色。
谢谢!
[解决办法]
if ((ARow>=2) and ((ACol=2) or (ACol=3)) and (sgList.Cells[ACol,ARow]>='0.01' ) ) then
begin
ABrush.Color:=clYellow;
end;
[解决办法]
if ((ARow>=2) and (ACol=3) and (sgList.Cells[ACol-1,ARow]>='0.01' ) ) then
begin
ABrush.Color:=clYellow;
end;