10 replies to this topic

[am2]

Hello Boki,

I'm trying to use the input line for filtering through the OnEdit event handler:

...OnEdit(Sender: TObject; ACol,
ARow: Integer; Value: WideString);
var grid: TNextGrid;
s: WideString;
i: Integer;
visible: Boolean;
begin
if ARow>=0 then exit;
grid := (Sender as TNextGrid);
grid.BeginUpdate;
for i := 0 to grid.RowCount - 1 do begin
s := WideUpperCase(Value);
visible := (s = '') or (WidePos(s, WideUpperCase(grid.Cells[0, i])) > 0);
grid.RowVisible[i] := visible;
end;
grid.EndUpdate;
end;

This works almost well, I've got only one problem: when I press a key - the very first time - inside the input line, this code does the filtering but it selects the text inside the inputline too (I gues the RowVisible is responsible for this) - is there any workaround?

[Boki (Berg)]

Hello Am,

Can you please send me one small demo for me. It will help a lot.

regards

[am2]

Hello Boki,

It seems that it happens only when there are more elements in the grid that can be displayed. I'm sending you a test project. Enter five elements into the grid through the input line and then add the sixth, seventh and you'll see the problem.

Best regards

Attached Files

•  test.zip   346.58KB   6 downloads

[Boki (Berg)]

Hello Am2,

I have fix it. Do you want to I send you component again.

Best regards

[am2]

Hello Am2,

I have fix it. Do you want to I send you component again.

Best regards

Hello Boki

Yes, please. Thank you!

[Boki (Berg)]

Hello Am2,

Please look for fixed version in attachment.

Best regards

Attached Files

•  nextgrid_d7.zip   1.19MB   5 downloads

[am2]

Hello Am2,

Please look for fixed version in attachment.

Best regards

Hello Boki,

It's working, but there is now another issue: a square appears at the end of the unicode text. I could not reproduce this using the test project, so I'm sending you a picture as a demonstration. I'll try to reproduce this using the test project.

Best regards

Attached Files

•  untitled.JPG   13.63KB   0 downloads

[Boki (Berg)]

Hello Am2,

Can you please send me this small project again since I can't detect this problem with my testings.

Best regards

[am2]

Hello Boki,

I couldn't reproduce the symptom with the test project, but I can send you my program if you wish. It needs some additional packages and components: SQLite.dll, Aducom's ASQLite package, LMD SE package, Delphi fundamentals and of course tnt and nextgrid. Just let me know if you are willing to install these packages.

I'm saving new elements into the SQLite db inside the OnInputAccept event handler and it seems to me that the square appears somewhere during that operation. I must convert WideString to UTF8 for SQLite.

Best regards

[Boki (Berg)]

Hello Am2,

Maybe is better that you use InputLine for filtering only, but other field for adding new items

Best regards

[am2]

Hello Boki,

I've found the cause of the trouble: it wasn't NextGrid but one of Aducom's ASQLite component.

Best regards