WPREPORTER: Selecting the contents of a group band

hmuscroft

Hi,

I want to be able to select all text (including tables) inside a specified group band.

Here's my code thus far, which works fine unless there's a table immediately at the start of the group, in which case it fails to select anything. In fact, when there are one or more tables inside the group, this code doesn't work very well. Is there a better way to do this?

Code

function TWPForm.SelectGroup(const AliasName : string) : TParagraph;
var
  par : TParagraph;
  band : TWPBand;
  st, fin : integer;
begin
  Result := nil;


  // iterate paragraphs looking for start of group...
  par := WPRichText1.FirstPar;
  while (par <> nil) do
  begin
    if (par.ParagraphType = wpIsReportGroup) then
    begin
      band := GetBandForPar(par);
      if (band <> nil) and (band.Alias = AliasName) then break; // <- found it!
    end;
    par := par.Next;
  end;
  if (par = nil) then exit; // <- didn't find start of group


  // if we get here, then we found the group band...
  Result := par;            // <- return the parent paragraph for the group band


  // if the group start & end are butted up against each other, insert a child par...
  if (par.ChildPar = nil) then
    par.AppendChild();


  st := par.ChildPar.Position;


  // [2] find the end of this group...
  par := par.LastChild;
  fin := par.Position + par.CharCount;


  WPRichText1.SelStart := st;
  WPRichText1.SelLength := fin-st;
end;

Alles anzeigen

Any help would be appreciated!

Thanks in advance,

Hedley

support

To select the current group You can use this code:

Code

var par : TParagraph;begin par := SourceText.ActivePar.ParentGroup; if par<>nil then begin    SourceText.TextCursor.SelectFromHere( SourceText.ActivePar.ParentGroup, 0 );    SourceText.TextCursor.SelectToHere(par.nextPar, 0);    SourceText.Repaint; end;end;

Please note that if you need to delete or move the group it will be easier to move that paragraph directly. To duplicate a group you can use thitsd code:

Code

var par : TParagraph;
begin
 par := SourceText.ActivePar.ParentGroup;
 if par<>nil then
 begin
    par.NextPar := par.CreateCopy(par.RTFData,[]);
    SourceText.ReformatAll(false,true);
 end;
end;

To delete that group use par.DeleteParagraph;

Regards,

Julian Ziersch

MichaelW

I have found that the code suggested by wpsupport does not work if you have nested groups, as in this instance, if there is no text between the end of the group and the end of its parent group, the nextPar property returns nil.

I have found that the following code is more effective for nested groups:

Code

// Find merge bands in the text
    bndTemp := in_wpSuperMerge.getBandForPar(in_rtText.ActivePar);
    if Assigned(bndTemp) and not StrEmpty(bndTemp.Name) then
    begin
      // Select the group
      intStartPos := in_rtText.CPPosition - 1;
      parTemp := in_rtText.ActivePar.NextPar;
      if not (parTemp = nil) then
      begin
        while not (in_rtText.ActivePar = parTemp) do
          if not in_rtText.CPMoveDownPar then
            break;
      end
      else begin
        parTemp := in_rtText.ActivePar;
        while in_rtText.CPMoveDownPar do
          if not parTemp.Contains(in_rtText.ActivePar) then
            break;
      end;
      intEndPos := in_rtText.CPPosition;
      in_rtText.SetSelPosLen(intStartPos, intEndPos - intStartPos);

Alles anzeigen