夸父

Table(表格)

table是RICHVIEW里面一個比較特殊的元素，也是RICHVIEW眾元素中最復雜的一種，TABLE由單元格組成，在RICHVIEW里，每個單元格相當于一個RICHVIEW文檔，單元格里面可以表格等各種元素，理論上表格是可以無限嵌套，這樣的結構就導致了其復雜性。

Table屬性

BorderWidth 表的邊框長度

BorderStyle 邊框樣式

BorderColor 邊框顏色

BorderLightColor 3D外觀邊框顏色

VisibleBorders 邊框的顯示和隱藏

CellBorderWidth 單元格邊框長度

CellBorderStyle 單元格邊框樣式

CellBorderColor 單元格邊框顏色

CellBorderLightColor 3D外觀單元格邊框顏色

CellHSpacing 單元格之間的水平距離

CellVSpacing 單元格之間的垂直距離

BorderHSpacing 表邊框與表最外層單元格之間的水平距離

BorderVSpacing表邊框與表最外層單元格之間的垂直距離

Color 表的背景色

BackgroundImage 背景圖

BackgroundStyle 背景樣式

BackgroundImageFileName 在HTML中保存背景圖名

Table方法

InsertColsLeft 當前單元格左邊增加列

InsertColsRight 當前單元格右邊增加列

InsertRowsAbove當前單元格上面增加行

InsertRowsBelow 當前單元格下面增加行

DeleteSelectedCols刪除選中列

DeleteSelectedRows刪除選中行

MergeSelectedCells 合并單元格

UnmergeSelectedCells拆分單元格

SplitSelectedCellsHorizontally 將選中的單元格拆分成幾行

SplitSelectedCellsVertically 將選中的單元格拆分成幾列

InsertCols 指定位置增加列

InsertRows 指定位置增加行

DeleteCols 刪除指定列

DeleteRows 刪除指定行

MergeCells 合并指定范圍內的單元格

UnmergeCells 拆分指定范圍內的單元格

DeleteEmptyRows 刪除所有帶有空單元各的行

DeleteEmptyCols 刪除所有帶有空單元各的列

TABLE用法

創建

...

var table:TRVTableItemInfo;

...

table := TRVTableItemInfo.CreateEx(RowCount,ColumnCount,RVData);

RVData是你要創建表的文檔，一般是指richview.RVData或richviewedit.RVData

RICHVIEW中增加表

table.ParaNo := <Paragraph Style Index>

richview.AddItem(<Table name>, table)

Paragraph Style Index 是這個表的索引值

Table name 表的名字，一個字符串，不是指這個對象名

這個方法不用在顯示文檔之前重新格式化。

richviewedit中增加表

richviewedit.InsertItem(<Table name>, table)

這個方法是在當前位置加入表，不管光標在文檔中，還是在表格或者單元格中（光標在哪就加到哪），如果文檔是只讀或者處于保護狀態，用這個方法后，會返回一個FALSE，如果光標在表格中，這個方法將自動釋放表格

cell用法

cell（單元格）是表格的主屬性，因為每個CELL相當于一個RICHEDIT，所以用法和RICHEDIT差不多，但要注意的事，這些用法一般只是相對于光標當前所以的位置，也就是說，如果光標在表格里，同樣的方法就是對表格的作用，如果在表格外，就是對外面的RICHEDIT的作用，如果一個文檔里面同時有多個表格的時候，光標在任意地方，你想往某個表格中的某個單元格輸入內容時，這時就要自己判斷地方了。這是因為，當光標點某個地方時，RICHEDIT實際上已經幫你判斷好了位置。

那么，如何在一個文檔的表格里面的指定的一個單元格里面，輸入自己的內容呢？

假設現在有一個文檔，里面有一個表格（多個表格大家自己去想，方法一樣）

，這個表格里面有二個單元格，我現在想在第二個單元格中輸入‘我愛你’三個字，并且此時光標在任意地方，下面是最簡單實現方法

for i:= 0 to itemcount -1 do

 begin

    if getitem(i) is TRVTableItemInfo then

      begin

         RVData:=TRVTableItemInfo(item).cells[0,1].AddNLATag('我愛你', 0, 0, '');

         break;

        end;

 end;

如果此時的單元格你不知道多少個，可以用遍歷表格單元格方法，如下，我要得到表格中，每個單元格的中的文字

for row := 0 to TRVTableItemInfo(item).RowCount-1 do

 begin

    for col := 0 to table.ColCount-1 do

      if table.Cells[row,col]<>nil then

      begin

        RVData := table.Cells[row,col].GetRVData;//得到第一個單元格內容

        for i := 0 to RVData.ItemCount-1 do     //開始遍歷格子中的元素，和RICHEDIT一樣

        begin

          if (i>0) and RVData.IsFromNewLine(i) then

            Result := Result + #13#10;

          if RVData.GetItemStyle(i)=rvsTab then

            Result := Result + #9

           else if RVData.GetItemStyle(i)>=0 then

            Result := Result + RVData.GetItemText(i);//得到第一個單元格的文字

        end;

        Result := Result + table.TextColSeparator;//遍歷第一行的所有格子，值相加

      end;

    Result := Result + table.TextRowSeparator;//遍歷所有行的格子，值相加，最終得到每個格子的值

  end;