SelectCurrenParagraph?

[philip]

Hi,

There are SelectCurrentLine and SelectCurrentWord. Why not a SelectCurrentParagraph?. Or ... how can I do that?

Thank you.

Philip.

[philip]

Hi,

Ok I writted this and it works, but if the paragraph is in a table cell, then the whole table is selected, and I don't understand why.

Code: Select all

procedure WPSelectParagraph(RV: TCustomRichViewEdit);
var
  iFirst, iLast, i: integer;
begin
  iFirst := RV.CurItemNo;
  for i := iFirst to RV.ItemCount - 1 do
  begin
    if RV.IsParaStart(iFirst) then Break;
    Dec(iFirst);
  end;
  iLast := RV.CurItemNo + 1;
  for i := iLast to RV.ItemCount - 1 do
  begin
    if RV.IsParaStart(iLast) then Break;
    Inc(iLast);
  end;
  Dec(iLast);
  RV.SetSelectionBounds(iFirst, RV.GetOffsBeforeItem(iFirst),
                        iLast, RV.GetOffsAfterItem(iLast));
end;

Philip

[Sergey Tkachenko]

Add the line:

Code: Select all

RV := RV.TopLevelEditor;

at the beginning.