trichview.com

trichview.support




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?





Powered by ABC Amber Outlook Express Converter