4 replies to this topic

[Marc]

A lot of my users are not appreciate the "horizontal scrolling" when you use wheel mouse and there is only one page on the screen.

Could you fix this ?

Thanks

[Boki (Berg)]

Hello Marc,

This is a feature, it appear in Windows Explorer too.

I will add one more flag in Options to enable/disable this feature.

Best regards

[Marc]

Hello Marc,

This is a feature, it appear in Windows Explorer too.

I will add one more flag in Options to enable/disable this feature.

Best regards

Thanks

[Marc]

I have updated wheel mouse comportment in my app like this :

CODE

procedure TfMain.FormMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
var
  ndbgGrid: TNextDBGrid;
begin
  ndbgGrid := nil;

  if (ActiveControl is TNextDBGrid) and (ActiveControl.Focused) then
    ndbgGrid := TNextDBGrid(ActiveControl);

  if ndbgGrid <> nil then
  begin
    ndbgGrid.SelectedRow := ndbgGrid.SelectedRow - WheelDelta div 120;
    Handled := True;
  end;
end;

after tuning off the wheelmouse property of nextdbgrids

[Boki (Berg)]

Hello Marc,

I have update my version and fix this bug. You may replace next procedure in NxCustomGrid.pas:

CODE

function TNxCustomGrid.DoMouseWheelDown(Shift: TShiftState; MousePos: TPoint): Boolean;
begin
  Result := inherited DoMouseWheelDown(Shift, MousePos);
  if Result and not(gtEdit in GridState) then
  begin
    case (VertScrollBar.Max > 0) and (VertScrollBar.Position < VertScrollBar.Max) of
      True: if ssCtrl in Shift then VertScrollBar.PageDown else VertScrollBar.Next;
      else if (GridStyle = gsReport) and (HorzScrollBar.Max > 0) and not VertScrollBar.Visible
        then if ssCtrl in Shift then HorzScrollBar.PageDown else HorzScrollBar.Next;
    end;
  end;
end;

I hope that this is what you need.

Best regards