Re: Tables\Cells styles

Return to index

Author

Message

Sergey Tkachenko

Posted: 01/30/2003 0:30:24

Thank you, Yernar.

This does not related directly to this question, but I'd recommend use

documented methods:

procedure TForm1.Button1Click(Sender: TObject);

var

  Table: TRVTableItemInfo;

begin

  Table := FindTableByName(OrganizeRichViewEdit, 'Body');

  if Table <> nil then

  begin

    Table.Select(0, 0, Table.Rows.Count - 1,

      Table.Rows[Table.Rows.Count -1].Count - 1);

      OrganizeRichViewEdit.ApplyParaStyle(0);

     Table.Deselect;

  end;

end;