Send TTMSFNCDataGrid mouse wheel event to parent datagrid when subgrid does not need scroll

FNC TMS FNC UI Pack
1

Hi !

In VCL.TMSFNCDataGrid.pas could you please add 2 lines, so when a subgrid does not need scroll it would process the event in the parent grid?



procedure TTMSFNCCustomDataGrid.HandleMouseWheel(Shift: TShiftState; WheelDelta: Integer; var Handled: Boolean);


...

...

  r := Root.XYToRenderer(c.X, c.Y);
  if not Assigned(r) then
    r := Root

  else if (r.Height >= r.TotalRowHeight) then
    r := Root

  ;


...
...

This "else" worked perfectly!

When having several grids in cells, and cells are high enough to fit them, when the user uses the mouse wheel over a subgrid there's no visible reason for it to keep stuck and not make the whole grid scroll.

Thanks!

2

Hi,

I went ahead and applied this improvement, next version will have this included. Thank for the suggestion!