15 replies to this topic

[Taifun]

Hello Boki,

I have a problem with the NextDBGrid:
I have a DataSet connected with a table in a database.
Depending on the selected key in the table the recordcount can't be determined.
If this is the case, the NextDBGrid gets the higher recordcount (the overall records in the table) and sets the scrollbar size accordingly.
Now if you scroll over the edge, the NextDBGrid scrolls further down and shows the last row again and again.

The NextDBGrid should stop scrolling at this point and set the scrollbar size accordingly.
The grid knows where to stop, if it reacts on the return value of TDataSet.GetRecord (grEOF).

This works in the standard component DBGrid in the VCL.
Also the scroll speed is pretty low: when you scroll down, you shortly see the selection on the current AND the next row.

Regards,
Taifun

[Boki (Berg)]

Hello Taifun,

I will answer on this question shortly.

Best regards

[Boki (Berg)]

Hello Taifun,

This unfortunatelly can't be changed easily due to complete organization of NextDBGrid

I will see to add one more property to control this in future, but not know when and if is possible.

I am sorry again.

Best regards

[Taifun]

Hello Boki,

I can only tell you how important this is to us.
Otherwise we can't work with our DataSet and therefore can't use your component ...

A new property to control this would be really really helpful.
Regards,
Taifun

[Boki (Berg)]

Hello Taifun,

I will try to do something about this issue. I hope that it is possible.

Thank you.

[Taifun]

Hello Boki,

I already tried to mess a little bit with your source, but unfortunately it didn't work.
My starting point was the TNextDBGrid.GetVertMax function, where I tried to react on the Eof of the DataLink.
But the result wasn't nearly as expected. This is what I did:

CODE

function TNextDBGrid.GetVertMax: Integer;
var
  RecordCount: Integer;
begin
  Result := 0;
  if IsUpdating then Exit;
  if IsDataSetActive then
  begin
    if FDataLink.Eof and not FScrollCountSet then
    begin
      FScrollCount:=VertScrollBar.Position;
      FScrollCountSet:=true;
    end;
    if FScrollCountSet then
    begin
      Result:=FScrollCount;
    end else
    begin
      RecordCount:=FDataLink.DataSet.RecordCount;
      if FDataLink.DataSet.State=dsInsert then Inc(RecordCount);
      Result:=RecordCount-GetVisibleRecordsCount(True);
    end;
  end else Result := 0;
end;

It works with getting the last position, but the scrollbar is not really updated.
And afterwards scrolling is totally off ...

Regards,
Taifun

[Boki (Berg)]

Hello Taifun,

Unfortunatelly it will need more time to I take a look on it. If I have a small chance to add this as option, I will add it.

I hope that this help you a little bit

Best regards

[Taifun]

Hello Boki,

I made a short break with developing our new program, but now I would like to resume my work.
Therefore this issue is again at hand.

Any progress? I really really need that, otherwise I can't use your component and bought it for nothing.

Thanks and regards,
Taifun

[Boki (Berg)]

Hello Taifun,

Unfortunately no significant progress yet. It will need some time to work on this delicate problem. I will continue to work on it, but not sure when it may be done.

Unfortunately, if you are not satisfied with purchase, I may offer refund.

Best regards

[Taifun]

Hello Boki,

if you are really working on it and it may take 2-3 weeks, then everything is ok.
But I've not time forever and if you're not working on it and there is no progress on this issue, then I need to look for another solution.

I really like your components and I hope you'll find a solution which will allow us to work with them.

Regards,
Taifun

[Boki (Berg)]

Hello Taifun,

Please make note that is not 100% sure that is possible to add this ability inside NextDBGrid, but I will do my best.

Best regards

[Taifun]

Hello Boki,

then I will wait a while.
I'm positiv that you will find a solution

I will asked for progress next week.
Regards,
Taifun

[Boki (Berg)]

Hello Taifun,

Thank you for your patience, I will do my best to solve this problem. Please note that I will go on small trip (3 days) next week, so I may delay on answering about this issue, but will do my best. I think that it will be the best to add new flag in DataAwareOptions to jump into unknown rowcount mode.

Best regards

[Taifun]

Hello Boki,

sounds great!
Let me know, if I can help you in any way.

Regards,
Taifun

[Taifun]

Hello Boki,

here I am again.
Any progress on this issue? Anything I can help you with?

Regards,
Taifun

[Boki (Berg)]

Hello Taifun,

I am working on it. Today new release is out, but I hope that this feature will be ready for first next release.

Thank you for waiting.

Best regards