tmssoftware.com

TAdvStringGrid - Dropdowngrid Filtering

VCL TMS VCL UI Pack
#1

Hi there,

in an TadvStringGrid I want to have a (virtual) column that upon entering drops down a grid, and when I type something into the cell the dropdowngrid should be filtered according to the current value in the cell.

I got the filtering part working, but when I use the filter function in grid.SetEditText or grid.BeforeDropDown something breaks and the whole grid isn't drawn anymore.

I need a hint how would I achieve what I want to. Thanks in advance!

#2

Do you have somewhat more details.
Am I right this is a grid with the editor type edGridDropDown?
Is the cell you edit a virtual column or is the lookup in a virtual column in the dropdown grid?
How exactly & from where do you filter and what exactly do you do in SetEditText?
It would help a lot if you could isolate this and provide a sample source project with which we can reproduce this here so we have all information, properties, event handlers, code, ...

#3

The grid is completely virtual, meaning no data stored inside the grid but in external objects, cell values are provided via onGetDisplText.

There is a GridDropDown with 3 columns, corresponding to 3 columns of the grid which are declared as AEditor := edGridDropDown. In onGetEditorProp I'm setting the grid.GridDropDown.LookupColumn to the respective column.

The GridDropDown is populated with static data using grid.GridDropDown.Items.Add. Depending on other information set in different columns I want the GridDropDown to be filtered - before the dropdown happens, and after user inputs data to narrow the selection down.

To filter the GridDropDown, I'm using this function:

procedure Tprodplanform.filterplangridDropdown(anlage: Integer; artikelnr,
  bezeichnung: String);
begin
   with plangrid.GridDropDown.FGrid do begin
      filter.Clear;
      filteractive := False;

      if artikelnr <> '' then with filter.add do begin
         condition := '*'+artikelnr+'*';
         CaseSensitive := false;
         column := 0;
      end;

      if bezeichnung <> '' then with filter.add do begin
         condition := '*'+bezeichnung+'*';
         CaseSensitive := false;
         column := 1;
      end;

      with filter.add do begin
         condition := '*A'+inttostr(anlage)+'B*';
         CaseSensitive := false;
         column := 3;
      end;


      filteractive := true;
  end;
end;

I'm calling this function in

procedure Tprodplanform.plangridSetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: string);
begin
   if Acol in [12,13] then begin
      if (ACol=12) then filterplangridDropdown(gl[ARow].Anlage, '', value);
      if (ACol=13) then filterplangridDropdown(gl[ARow].Anlage, value, '');
   end;
end;

as well as in plangrid.GridDropDown.OnBeforeDropDown.

Can you give me a hint on what I'm doing wrong here, or do you need a demo project? Thanks in advance!

#4

A sample source test project will at least enable me to get this setup & investigating much faster than trying to reassemble all bits & pieces from this post, with the risk of overlooking what specific properties you have set that might be relevant.

© tmssoftware.com