TRichView.com

Code: Select all

function GetParaStyleWithAlignment(Alignment: TRVAlignment; Style: TRVStyle): Integer;
var
  ParaStyle: TParaInfo;
begin
  ParaStyle := TParaInfo.Create(nil);
  ParaStyle.Alignment := Alignment;
  Result := Style.FindParaStyle(ParaStyle);
  ParaStyle.Free;
end;

...
var
  Table: TRVTableItemInfo;
  r, c, ParaNo: Integer;
begin
  ParaNo := GetParaStyleWithAlignment(rvaRight, RichViewEdit1.Style);
  Table := TRVTableItemInfo.CreateEx(5, 5, RichViewEdit1.RVData);
  for r := 0 to Table.RowCount - 1 do
    for c := 0 to Table.ColCount - 1 do
      if Table.Cells[r, c] <> nil then
      begin
        Table.Cells[r, c].Clear;
        Table.Cells[r, c].AddNL('', 0, ParaNo);
      end;
  RichViewEdit1.InsertItem('', Table);
end;

Code: Select all

table.Cells[0,0].AddNL('',0,2);

Code: Select all

table.Cells[0,0].AddNL('',0,GetParaStyleWithAlignment(rvaRight, RichView1.Style));

Code: Select all

table := TRVTableItemInfo.CreateEx(3, 2, richView1.RVData);
  with table do
  begin
    BorderWidth := 1;
    CellBorderWidth := 1;
  end;

  table.Cells[0, 0].BestWidth := -80;
  table.Cells[0, 1].BestWidth := -20;

  table.Cells[0, 0].BestHeight := 38;
  table.Cells[0, 0].VAlign := TRVCellVAlign.rvcMiddle;
  table.Cells[0, 1].VAlign := TRVCellVAlign.rvcMiddle;
  table.Cells[1, 0].BestHeight := 38;
  table.Cells[2, 0].BestHeight := 38;

  table.Cells[0,0].Clear;
  table.Cells[0,0].AddNL('',0,GetParaStyleWithAlignment(rvaRight,richView1.Style));
  richView1.AddItem('mytest1', table);
  tb:=TRVTableItemInfo.CreateEx(2,2,table.Cells[0,0]);
  tb.BestWidth:=60;
  tb.BorderColor:=clBlack;
  tb.BorderWidth:=1;
  table.Cells[0,0].AddItem('mytest2',tb);
  richView1.Format;

Code: Select all

 table.Cells[0,0].AddItem('mytest2',tb);

Code: Select all

 tb.ParaNo := GetParaStyleWithAlignment(rvaRight,richView1.Style);