How to refresh WPRichText after a FoundAttr.IncludeStyle?

Kym

I'm trying to add some styles to the text using:

Code

with frm_ri_prot_ap_editor do begin


    WPRichText.Refresh;
    WPRichText.Finder.Clear;
    WPRichText.Finder.ToStart;


    while WPRichText.Finder.Next('uma parte ideal*)') do
      WPRichText.Finder.FoundAttr.IncludeStyle(afsUnderline);


    WPRichText.Refresh;


  end;

Alles anzeigen

With the content of the WPRichText as the following:

01) MARIA ANTONIA JACYNTHO DOS SANTOS PICCAGLI, brasileira, viuva, do lar, portadora do RG/SSP/SP nº e do CPF nº , uma parte ideal equivalente a sessenta por cento (60%);

The bold part is where I'm adding the underline style.

When I run the code, I can see that the style is updated with the Underline option, but the screen is not updated unless I save it to the database and load again.

I tried to refresh with .Refresh, .DelayedReformat and .ReformatAll but none of these seen to update the screen, what am I missing?

PS: Using Delphi 2010 and WPtools 6.

Kym

Hello, how come everyone get an answer after your vacation time and I don't :(

support

Hi,

Zitat

When I run the code, I can see that the style is updated with the Underline option, but the screen is not updated unless I save it to the database and load again.

I overlooked your post - this was not intentional. This is an old thing when using the DB sensitive control - I guess You are using this.

You need to call "Changing" before and "ChangedText" after any change to the text done in your code.

Julian

Kym

Hello, no problem

But I'm not using the DBWPRichText, I'm using the regular WPRichText, then I load the text from database using WPRichText.AsString := Field[].AsString.

I know the text is updated because if I place the cursor over the lines that should be underlined the ToolBar shows the underline button correctly, but the only way I can update the screen is: save the data to the dabase and load it again with WPRichText.AsString := Field[].AsString.

What I want to do is refresh the WPRichText (on the screen) without have to save it to database, got it?

I tried to call "Changing" before and "ChangedText" after the changes, but still doesnt work, in fact, theres no ChangedText property or procedure in WPRichText.

support

Use ReformatAll(true, true)

Kym

Zitat von wpsupport

Use ReformatAll(true, true)

As I said in the first post, I already tried ReformatAll(True,True), still doesnt update the screen.

Here's the code:

Code

with frm_ri_prot_ap_editor do begin
      WPRichText.Refresh;
      WPRichText.Finder.Clear;
      WPRichText.Finder.ToStart;


      while WPRichText.Finder.Next('uma parte ideal*)') do
        WPRichText.Finder.FoundAttr.IncludeStyle(afsUnderline);


      WPRichText.ReformatAll(True,True);
      WPRichText.Modified := True;
    end;

Alles anzeigen

Kym

Any other ideas?

support

Hi,

there is no other way to update the screen than ReformatAll(true, true).

If this does not work, there is something special in the project.

Please place a seperate TWPRichText on that form, temporarily and try there. It should work.

Then check, using breakpoints, when your data is loaded and saved.

Julian

ehimmer

I have to agree with Kym... I can't get the WPRichText to update either. In my case, when I toggle the numbered bullets to either restart or continue numbering, the numbering sequence does not update until I save and reload the WPRichText. With or without the ReformatAll and/or a Refresh. What I had to do is this (snippet):

Code

var
  vStr: String;
  vCPPosition: Integer;
begin
  WPRichText_Cmt.ActiveParagraph.ASet(WPAT_NumberStart, 1);
  // It seems the only way to resequence the numbers is to reload the comment
  vCPPosition := WPRichText_Cmt.CPPosition;
  vStr := WPRichText_Cmt.AsString;
  WPRichText_Cmt.AsString := vStr;
  WPRichText_Cmt.CPPosition := vCPPosition;
  WPRichText_Cmt.ChangeApplied;
  WPRichText_Cmt.Refresh();
end;

Alles anzeigen

Eric
(WPTools5, but sounds like it is in WPTools6 as well)

support

I thought very long about this.

I also created an example with a TWPRichText and 2 buttons. This is the code:

Code

procedure TForm1.FormShow(Sender: TObject);
var i,j : Integer;
begin
  for i:=1 to 10 do
  begin
    WPRichText1.CurrAttr.NumberStyle := 3;
    for j:=1 to 100 do
     WPRichText1.InputString('bla blo bla ');
     WPRichText1.InputString(#13);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  WPRichText1.Finder.ToStart;
  while WPRichText1.Finder.Next('blo') do
    WPRichText1.Finder.FoundAttr.IncludeStyles([afsBold,afsUnderline]);
  WPRichText1.ReformatAll(true, true); // Initialize, Format AND Paint
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  WPRichText1.CPParNr := 4;
  WPRichText1.ActiveParagraph.Insert(0, 'New numbers start here .... ',0);
  WPRichText1.ActiveParagraph.ASet(WPAT_NumberStart, 1);
  WPRichText1.ReformatAll(false, true);  // Format AND Paint
end;

Alles anzeigen

For both button actions the screen is updated correctly and at once.

Button2 does not need "Initialize" since it does not change the character attributes (i.e. "bold") with low level API like Button1 does.

Julian

ehimmer

As I've mentioned in a similar post in WPTools5, I've emailed you a sample app showing the problem (even your example fails for me). Perhaps it's a version issue since I am still on 5.54. I sent both a compile version and the source so you can compare.

support

Hi,

I tested your demo and the code

Code

procedure TfrmBullets.ContinueNumbering1Click(Sender: TObject);
begin
  WPRichText1.ActiveParagraph.ADel(WPAT_NumberStart);
  WPRichText1.ChangeApplied;
  WPRichText1.Refresh();
end;


procedure TfrmBullets.RestartNumbering1Click(Sender: TObject);
begin
  WPRichText1.ActiveParagraph.ASet(WPAT_NumberStart, 1);
  WPRichText1.ChangeApplied;
  WPRichText1.Refresh();
end;

Alles anzeigen

Is sufficient to update the screen on its own. The other actions, ReformatAll, Reload do not change the display at all.

Julian

ehimmer

I updated from WPTools 5.54 to 5.58.1 and it now works as you say it should.

Thanks!