richview 添加表格

procedure TForm1.mitInserttable1Click(Sender: TObject);
var
  table: TRVTableItemInfo;
  r, c:  Integer;
begin
  table := TRVTableItemInfo.CreateEx(4, 3, RichViewEdit1.RVData);

  table.BorderStyle := rvtbRaisedColor;
  table.CellBorderStyle := rvtbLoweredColor;
  table.BorderLightColor := $00FAF1C9;
  table.BorderColor := $00A98E10;
  table.CellBorderLightColor := $00FAF1C9;
  table.CellBorderColor := $00A98E10;
  table.Color := $00EAC724;
  table.BorderWidth := 5;
  table.CellBorderWidth := 2;
  table.CellPadding := 5;
  table.CellVSpacing := 1;
  table.CellHSpacing := 1;
  table.BorderVSpacing := 1;
  table.BorderHSpacing := 1;

  for r := 0 to table.Rows.Count - 1 do
    for c := 0 to table.Rows[r].Count - 1 do
      table.Cells[r, c].BestWidth := 100;

  table.MergeCells(0, 0, 3, 1, False);
  table.MergeCells(1, 0, 1, 3, False);
  with table.Cells[0, 0] do
  begin
    Color := clInfoBk;
    Clear;
    AddBullet('', 0, il, 2);
    AddNL(' Example 1 ', 1, -1);
    AddBullet('', 0, il, -1);
    AddNL('All cells have 100 pixels width, width of table itself is calculated basing on width of cells.',
      0, 0);
  end;

  if RichViewEdit1.InsertItem('', table) then
  begin
    RichViewEdit1.Format;
  end;
end;