首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

TMS AdvStringGrid onGetCellColor (第1列条件满足时最第2列添颜色)

2013-01-04 
TMS AdvStringGrid onGetCellColor (第1列条件满足时最第2列加颜色)procedure TFRGroupCT.sgListGetCellCo

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;

热点排行