AdvStringGrid 单元格字体颜色、背景颜色

procedure TForm5.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  AdvStringGrid1.RowCount := 50;//一共50行0..49
  AdvStringGrid1.ColWidths[0] := 50;//改变第一列的宽度。
  AdvStringGrid1.AddCheckBoxColumn(0);//表示这一列都需要复选框
  //第0行是标题头,所以从1..49开始
  for I := 1 to 49 do
  begin
    //AdvStringGrid1.AddCheckBox(0, I, False, False); //可以写在这里, 表示某个单元格 需要增加 复选框
    AdvStringGrid1.Cells[1,I] := '第二列' + I.ToString;
    AdvStringGrid1.Cells[2,I] := '第三列' + I.ToString;
  end;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
  AdvStringGrid1.Colors[1,3] := clBlue;//直接把某一个单元格的背景色修改

  AdvStringGrid1.ColorsTo[1,5] := clBlue; //从白色渐变到蓝色

  AdvStringGrid1.FontColors[1,7] := clRed; //修改某一个单元格字体的颜色

  AdvStringGrid1.Color := clYellow; //整体背景变成黄色
end;