How to find all Memos in Report with a given TagStr using PascalScript

swenp

How can I find (and update) all Memos with a given TagStr in the report using PascalScript?

Using the following Code only Memos in the same band as the sender are found:

procedure Memo42OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);

 var

   p: TfrxComponent;

   i: Integer;

begin

   p := Sender.Parent;       

   if p = nil then Exit;

   for i := 0 to p.Objects.Count - 1 do

   if (p.Objects[i] is TfrxMemoView) and (TfrxMemoView(p.Objects[i]).TagStr = 'Something') then

   begin

     TfrxMemoView(p.Objects[i]).Text := 'Hello World!';

     Report.Preview.Invalidate;

   end;

end;

swenp

By using

p := Sender.parent.parent

I get the TfrxReportPage object, but using this will only find all the object of the reports page.

Now I'm stuck at getting all the report pages and there objects, any clues?

swenp

Ok, got it.

Loop through all preview pages and their objects:

        for i := 0 to PreviewPages.Count-1 do
          begin
            page := PreviewPages.Page[i];
            for j := 0 to page.AllObjects.Count - 1 do
             begin
             // search for object with tag
             c := page.AllObjects[j];
             if (c is TfrxCheckboxView) then
               begin
                 if (TfrxCheckboxView(c).TagStr = tag) then
                   begin
                       // if found: update its value with 'value'
                     TfrxCheckboxView(c).Checked := StrToBool(value);
                     PreviewPages.ModifyObject(TfrxComponent(c));
                   end;
                end;
               end;
             end;