i'm not use insertItem methode

Return to index

Author

Message

������

Posted: 05/21/2002 14:30:33

r := 3;

c := 3;

table := TRVTableItemInfo.CreateEx(r,c, RichViewEdit1.RVData);

table.options :=

[rvtoEditing,rvtoRowSizing,rvtoColSizing,rvtoRowSelect,rvtoColSelect];

table.Options := table.Options + [rvtoHideGridLines];

table.CellBorderStyle := rvtbColor;

table.CellBorderColor := frmTableMake.basic_Color.Color;

table.CellBorderWidth := round(frmTableMake.Basic_Width.Value);

table.CellHSpacing := -1;

table.CellVSpacing := -1;

for i := 0 to r - 1 do begin

        for j := 0 to c - 1 do begin

           table.Cells[i,j].BestWidth :=

(ruler.IndentRight-(Ruler.IndentLeft*2)) div c - 1;

           table.Cells[i,j].Clear;

           table.Cells[i,j].AddNLATag('',4,4,0);

        end;

end;

if RichViewEdit1.InsertItem('', table) then begin

end;

RichViewEdit1.Format;

.....

....

StackOverFlow......... Error....

You're OK?