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;

Reply via email to