TRichView.com

Code: Select all

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 := 0;
  table.CellBorderWidth := 0;
  table.CellPadding := 0;
  table.CellVPadding := 0;
  table.CellHPadding := 0;
  table.CellVSpacing := 0;
  table.CellHSpacing := 0;
  table.BorderVSpacing := 0;
  table.BorderHSpacing := 0;

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

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