table content linespacing

[isemago]

Hellow !

How can i doubled linespacing in table

Code: Select all

    Table := aDocument.Paras.InsertTableAtPos(sel.FirstPos);
    Table.Name := vAliasName   
     table.AddRows(2, 3);
     for j := 0 to 2 do
     begin
       Table.Cells[0, j].Paras.PlainText := 'row ' + intToStr(j) + 'column 0';
       Table.Cells[1, j].Paras.PlainText :=  'row ' + intToStr(j) + 'column 1';
      end
 
     TableFormat:= TAXWPAPX.Create(aDocument.MasterPAP);
     TableFormat.LineSpacing := 2;
     Table.Paras.ApplyParaFormat(TableFormat, Table.FirstPara, Table.LastPara)

this doesn't work out.

[larsa]

Hello

You set the format for the table itself, not the cells.

To set the cells format, use this:

Code: Select all

   Table := FWriter.Editor.MainDoc.Paras.AddTable;

   TableFormat:= TAXWPAPX.Create(FWriter.Editor.MainDoc.MasterPAP);
   TableFormat.LineSpacing := 2;

   table.AddRows(2, 3);
   for j := 0 to 2 do begin
     Table.Cells[0, j].Paras.PlainText := 'row ' + intToStr(j) + 'column 0';
     Table.Cells[0, j].Paras.ApplyParaFormat(TableFormat,Table.Cells[0, j].Paras.First, Table.Cells[0, j].Paras.Last);

     Table.Cells[1, j].Paras.PlainText :=  'row ' + intToStr(j) + 'column 1';
     Table.Cells[1, j].Paras.ApplyParaFormat(TableFormat, Table.Cells[1, j].Paras.First, Table.Cells[1, j].Paras.Last);
    end;

[isemago]

thanks !