Procedure TWPStyleScroller.WMWPTOOLSUPDATE(Message:TMessage)Unit: WPCTRStyleScrollerClass: WPCTRStyleScroller.TWPStyleScrollerParameters Message:TMessage