Problem with saving a table

petrut

Hello Julian,

I have a problem with wprichtext1. I have just a table in my WpRichText and I would like to save it and to reload it. I created a short example here.
When I load the file RTF, the file is displayed but the table does no longer exist.
In the following example, before saving, anything is ok.
After reloading, the table name is not displayed and rowCount is 0.
But when I display in notepad the rtf file, all of the informations are here !!!

Code

var
  Form1: TForm1;
  table : TParagraph;




implementation


{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
var cell, row            : TParagraph;
    rowstyle             : TWPTableRowStyle;
    i : integer ;
begin
WPRichText1.EditOptions := [wpNoEditOutsideTable];
WPRichText1.WPToolBar := WpToolBar1 ;
WPRichText1.ActiveText := WPRichText1.BodyText;
WPRichText1.ActiveText.Clear(true);
table := WPRichText1.ActiveText.CreateTable(nil);
table.ASet(WPAT_BorderFlags, WPBRD_DRAW_All4);
table.Name := 'tab_unique' ;


for i := 1 to 3 do
    begin
    rowstyle := table.CreateRow(nil, true);
    cell := rowstyle.InputCell;
    cell.Name := chr(64+i) ;
    cell.ClearCharAttr(true);
    cell.ADel(WPAT_BorderFlags) ;
    cell.ASet(WPAT_BorderFlags, WPBRD_DRAW_Bottom );
    cell.ASetFontName('Arial');
    cell.ASet(WPAT_CharFontSize, 9*100);
    cell.ASetColor(WPAT_CharColor, clBlack);
    cell.ASetCharStyle(true,1);
    cell.ClearCharAttr(true);
    cell.SetText(chr(64+i));
    row := table.EndRow(rowstyle);
    end ;
WPRichText1.EditOptions := [wpNoEditOutsideTable];
WPRichText1.Refresh;


showmessage(inttostr(table.RowCount)) ;


wprichtext1.SaveToFile( 'fic1.rtf',false,'' ) ;
table.Name := 'empty' ;


while Table.Rows[0] <> nil do
    table.Rows[0].DeleteParagraph;


wprichtext1.LoadFromFile( 'fic1.rtf' , true , '' ) ;
WPRichText1.ReformatAll(false,false);


showmessage(table.name) ;
showmessage(inttostr(table.RowCount)) ;


end;

Alles anzeigen

Any help is welcome.
Bye

support

Hi,

This code

while Table.Rows[0] <> nil do
table.Rows[0].DeleteParagraph;

will create an empty table object, the editor is in an unexpected state then.

Since you have only a table in the editor, why not simply celar it before you load the text?

Julian

petrut

of course I tried to do it.

Guess what ?

It doesn't work.

I also tried wprichtext1.clear, and it doesn't work

so my question is the following: how can I save a rtf which has just a table inside and to download it back and to have as many rows in the table as before ? and to have also the name of the table, because when I load the rtf file, the table has no longer any name...

I gave here a very simple code, so may be you have 5 minutes to test it and to tell me what is wrong

Thanks in advance

support

Of course I tried it and it works (rowcount=3, name=tab_unique)

If you cannot load back the RTF file you should check whats really in the RTF file.

The code

while Table.Rows[0] <> nil do
table.Rows[0].DeleteParagraph;

still does not make any sense to me - sorry that gave this useless hint.

petrut

Julian,

it really doesn't work.

I downloaded the latest version of wptools 5.xx.

I have Delphi 7 on windows xp SP 2

after loading, the table has 0 rows and the table has no name

could I send you my small project (the one above, with 3 lines in a table), and the exe file ?

you will see yourself it doesn't work

what's strange is anything seems correct in the rtf file, 3 rows with one cell per row and the names of the table and the cells...

I'm waiting for your answer

Have a nice day

support

Hi,

I believe it has nothing to do with load or save.

Problem is likely that after the LoadFromFile(..., true) the reference "table" does not point to the original table object anymore since LoadFromFile created a new one.

Try this:

wprichtext1.LoadFromFile( 'fic1.rtf' , true , '' ) ;
WPRichText1.ReformatAll(false,false);
table := wprichtext1.FirstPar;
showmessage(table.name) ;
showmessage(inttostr(table.RowCount)) ;

Demoproject:
https://www.wpcubed.com/ftp/ex/SaveTbl.zip

Julian

petrut

Julian,

your solution work for a simple table.

The problem is in my program, cells have some images , I have rows with several cells (one cell per row, or 4 cells per row).

When I save the table and I load it again, the table is "dispatched" in several "sections", and when I try to add a new row, it is inserted in the middle of my table (probably after the first "section").

before saving, any row is inserted at the end, as I want it to be.

I tried to do "table := lastPar" , but it doesn't work

Could you give me a hint ?

support

Hi,

If you have a prototype project form me I can touch it up for you so it works.

Julian

petrut

Hello Julian,

6 days ago I sent you my project with this bug of the table

Do you have some news ?

Can you confirm there is a bug inside, a bug with the table ?

Thank you

Petrut

support

Hi Petrut, oo wptools bug here - You have a

WPRichText1.ProtectedProp := [ppParProtected]; //--- pour protéger les cellules qui ont le WPAT_ParProtected

burried deep in the code. When you remove it, your code works again.

To make it better servicable better change you code so You set protected and editoptions outside of the code which creates the text.

The text creation You can wrap inside

WPRichText1.Memo.DisableProtection;
...

WPRichText1.Memo.EnableProtection;

Some other notes:

Code

table.clear ;...wprichtext1.LoadFromFile( 'fic1.rtf' , true , '' ) ;

table.Clear is not required.

Later You use the Finder to locate cells:

Code

while WPRichText1.Finder.Next(#10) do    begin

You should better do a loop like this:

Code

row := table.ChildPar; 
while row<>nil do
begin
   cell := row.ChildPar; 
   while cell<>nil do
   begin

     Now you can fix up the cells if required    

     cell := cell.NextPar; // NOT "cell.next" here!
   end;
   row:= row.NextPar; // NOT "row.next" here!
end;

Alles anzeigen

petrut

Hi Julian,

thank you very much for your help.

I saw you also found the bug, that's a good thing.

I will implement your sugestions, if I have any problem, I will contact you again.

Have a nice day

Petrut

petrut

Hi Julian,

sorry for the long delay, but I was busy with another project.

two days ago, I started to work on your suggestions, and, unfortunately, it doesn't work...

I removed all the lines with WPAT_ParProtected, but this doesn't change absolutely nothing to the behaviour of the table : when I load a table from a file and I want to add a new row, it is not added AT THE END of the table.

Is there a way to position programatically the new row at the end ?

Thank you for your help

Petrut

support

Hi,

Zitat

two days ago, I started to work on your suggestions, and, unfortunately, it doesn't work...

If you need a new row at the end of a table you would use "low level" code. Basically you call "Duplicate" for the last row which is the last child of a table.

Code

var aTable, aRow : TParagraph;


  aTable := WPRichText1.Table;
  if aTable = nil then raise Exception.Create('The cursor must be inside of a table');
  aRow := aTable.LastChild;
  if aRow = nil then raise Exception.Create('The table must not be empty');


  aRow := aRow.Duplicate(false, true, false, [wpParCopyName]);


  aRow.ColFirst.SetText('This is a new cell');


  WPRichText1.TextCursor.MoveTo(aRow.ColFirst,0);
  WPRichText1.ReformatAll(true, true);

Alles anzeigen

petrut

Julian,

thank you for your quick answer, but this doesn't work.

If you kept the source code I had sent you by email, you can test it :
1 - you remove the WpAT_ParProtected everywhere in the code
2 - you put a button "at the end" on the form with the code you posted here
3 - you run the exe
4 - you clik on "load" in order to load a file
5 - you click on "at the end"

and you can see the lines are not duplicated at the end of the table !

if you didn't keep my project, I can send it to you again, with the new button, you will see this problem ; it's really a bug in the TABLE of wptools

this is a blocking bug, how can I do to add a line AT THE END of the table AFTER having loaded a file ?

thank you for your help

support

Hi,

after you have loaded a file you need to move the cursor to the table where you want to add new rows. Or, better, you do not use the cursor and locate the TParagraph object which represents this table.

I would expect you want to add to the last table in your text.

So you can create some code to move there:

This code first locates the last paragraph and then moves up until it finds a table:
aTable := WPRichText1.LastPar;
while (aTable<>nil) and (aTable.ParagraphType<>wpIsTable) do
aTable := aTable.PrevPar;

This is the complete code for "at the end":

Code

procedure Tfiche_edit_reunion.Button3Click(Sender: TObject);
var aTable, aRow : TParagraph; 
begin
  aTable := WPRichText1.LastPar;
  while (aTable<>nil) and (aTable.ParagraphType<>wpIsTable) do aTable := aTable.PrevPar;


  if aTable = nil then raise Exception.Create('We did not find a table'); 
  aRow := aTable.LastChild;
  if aRow = nil then raise Exception.Create('The table must not be empty'); 


  aRow := aRow.Duplicate(false, true, false, [wpParCopyName]); 


  aRow.ColFirst.SetText('This is a new cell'); 


  WPRichText1.TextCursor.MoveTo(aRow.ColFirst,0); 
  WPRichText1.ReformatAll(true, true);
end;

Alles anzeigen

petrut

Thank you, Julian,

this time it works !

without the instructions "enableProtection" and "DisableProtection" ...

that's all what I needed.

Have a nice day

Petrut

Problem with saving a table

Ähnliche Themen

PNG Scrolls

WPTOOLS Changelog