DBAdvGrid RowColor

VCL TMS VCL UI Pack
2

Use OnGetCellColor event, and check the condition(s) using the corresponding column(s).

procedure TMyForm.MyDBAdvGridGetCellColor(Sender: TObject; ARow,
  ACol: Integer; AState: TGridDrawState; ABrush: TBrush; AFont: TFont);
var
  LCol : integer;
begin
  if (ARow >= MyDBAdvGrid.FixedRows) and (ACol >= MyDBAdvGrid.FixedCols) then begin
    try
      LCol := MyDBAdvGrid.ColumnByFieldName['CityName'].Index;
    except
      LCol := -1;
    end;
    if LCol > 0 then
      if MyDBAdvGrid.Cells[LCol, ARow].ToLower.Trim = 'new york' then begin
         AFont.Color := clNavy;
         ABrush.Color := clYellow;
      end;
  end;
end;