Ups, i forgot to include a litte change in forms.pp.
Here is a second patch.
(its only needed if VerboseScrollingWinControl is defined.)
Index: forms.pp
===================================================================
--- forms.pp (revision 11660)
+++ forms.pp (working copy)
@@ -127,6 +127,9 @@
function GetHorzScrollBar: TControlScrollBar; virtual;
function GetVertScrollBar: TControlScrollBar; virtual;
property Size: integer read GetSize write SetSize stored false;
+ {$IFDEF VerboseScrollingWinControl}
+ procedure VerboseScrollingWinControl(aText : String);
+ {$ENDIF}
published
property Increment: TScrollBarInc read GetIncrement write SetIncrement
default 8;
property Page: TScrollBarInc read GetPage write SetPage default 80;