[Example] DeleteBlankLines, RemoveParagraphBreaks, etc.

[Sergey Tkachenko]

Use CanUpdate:

Code: Select all

  SRichViewEdit1.CanUpdate := False;
  DeleteBlankLines(SRichViewEdit1.ActiveEditor.RVData);
  SRichViewEdit1.ActiveEditor.ClearUndo;
  SRichViewEdit1.Format;
  SRichViewEdit1.CanUpdate := True;

[filo]

Solved, thank you!

[jonjon]

Hi Sergey,
Could you please provide a fix for "Paragraph breaks -> line breaks" which converts the line before the first selected text?
See attached screenshot, when you select from test2 to test5, it will also convert the paragraph break before test2 when it shouldn't.
See attached sample project to quickly reproduce this problem.
Thank you.

[Sergey Tkachenko]

Code: Select all

procedure MakeSoftLineBreaksEd(rve: TCustomRichViewEdit);
var ItemNo1, Offs1, ItemNo2, Offs2: Integer;
    Whole, FR: Boolean;
  i: Integer;
begin
  rve := rve.TopLevelEditor;
  if not rve.BeforeChange(False) then
    exit;
  rve.GetSelectionBounds(ItemNo1, Offs1, ItemNo2, Offs2, True);
  Whole := (ItemNo1<0) or ((ItemNo1=ItemNo2) and (Offs1=Offs2));
  if Whole then 
  begin
    ItemNo1 := 0;
    ItemNo2 := rve.ItemCount-1;
  end
  
  // ADDED
  
  else 
   inc(ItemNo1); 
  
  // END ADDED
  
  
  rve.BeginUndoGroup(rvutPara);
  rve.SetUndoGroupMode(True);
  if ItemNo1<1 then
    ItemNo1 := 1;
  for i := ItemNo2 downto ItemNo1 do
    if rve.IsParaStart(i) and (rve.GetItemStyle(i)<>rvsListMarker) and
      not rve.GetItem(i-1).GetBoolValue(rvbpFullWidth) then
       TRVEditRVData(rve.RVData).Do_BR(i, True, FR);
  rve.SetUndoGroupMode(False);
  rve.Change;
  rve.Reformat;
end;

[jonjon]

Thank you Sergey but it looks like this fix is incomplete: if only part of the first line is selected (e.g. instead of selecting "test2" you only select "st2") then the line before that one is converted when it shouldn't.

[Sergey Tkachenko]

I modified the code in my previous reply to fix it.

[jonjon]

Great. Thanks.