Hi, I was checking why TScrollBox scrolls so slowly with the mouse wheel. I found out that TControlScrollBar.ScrollHandler doesn't take FIncrement into account when scrolling causing it to scroll typically only three pixels per wheel click. I also noticed that there are a couple of places where higher level scroll handlers are used to get around this issue, but would it make sense to do it in TControlScrollBar instead? I'm thinking about a change like this:
Index: controlscrollbar.inc =================================================================== --- controlscrollbar.inc (revision 19278) +++ controlscrollbar.inc (working copy) @@ -377,7 +377,7 @@ SB_PAGEDOWN: Inc(NewPos, FPage); SB_THUMBPOSITION, SB_THUMBTRACK: - NewPos := Message.Pos; + NewPos := FPosition + (Message.Pos - FPosition) * FIncrement; SB_TOP: NewPos := 0; SB_BOTTOM: Regards, Ere _______________________________________________ Lazarus mailing list Lazarus@lazarus.freepascal.org http://www.lazarus.freepascal.org/mailman/listinfo/lazarus