Grid.SearchFooter fixed cell search stack overflow

VCL TMS VCL UI Pack
1

Hi,
Delphi XE 10
TMS Component Pack 8.0.0.0

Create a new project, drop a grid and add the following code:

procedure TForm1.FormCreate(Sender: TObject);
begin
   AdvStringGrid1.SearchFooter.SearchFixedCells := True;
   AdvStringGrid1.SearchFooter.Visible := True;
   AdvStringGrid1.LinearFill(True);
end;

Run the project, enter "0:1" in the search edit and press Find Previous. The form will freeze and you will get a stack overflow.

Thanks.

2

Not sure if it is related but here is another issue with SearchFooter:

procedure TForm1.FormCreate(Sender: TObject);
begin
   AdvStringGrid1.SearchFooter.SearchFixedCells := True;
   AdvStringGrid1.SearchFooter.AutoSearch := True;
   AdvStringGrid1.SearchFooter.Visible := True;
   AdvStringGrid1.LinearFill(True);
end;

If you leave AutoSearch to True and search for "0:3" it will work. Now set AutoSearch to False and try again. When you hit Find Next, nothing will happen.

3

We have fixed both issues. Next update will address this.

4

Hi,
first issue has been fixed in version 8.0.1.0 but the second issue still exists.

procedure TForm1.FormCreate(Sender: TObject);
begin
   AdvStringGrid1.SearchFooter.SearchFixedCells := True;
   AdvStringGrid1.SearchFooter.AutoSearch := True;
   AdvStringGrid1.SearchFooter.Visible := True;
   AdvStringGrid1.LinearFill(True);
end;

If
you leave AutoSearch to True and search for "0:3" it will work. Now set
AutoSearch to False and try again. When you hit Find Next, nothing will
happen.

Thanks.

5

It was the option SearchFixedCells that was not applied from the forward & backward search buttons. This is fixed now. Next update will address this.