The following methods of TScrollBar should modified as below:
The reason is that they are currently different from the other similar method: they set the new position after evaluating the codeblock. With my change they act as the other methods (GoUp(), etc.).
EMG
 METHOD PageUp() INLINE  ::SetPos( ::GetPos() - ::nPgStep ),;
              If( ::bPageUp != nil, Eval( ::bPageUp ),)
  METHOD PageDown() INLINE  ::SetPos( ::GetPos() + ::nPgStep ),;
               If( ::bPageDown != nil, Eval( ::bPageDown ),)The reason is that they are currently different from the other similar method: they set the new position after evaluating the codeblock. With my change they act as the other methods (GoUp(), etc.).
EMG
