Bug in TScrollBar [Solved]
Posted: Wed Mar 11, 2009 12:08 pm
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
Code: Select all
METHOD PageUp() INLINE ::SetPos( ::GetPos() - ::nPgStep ),;
If( ::bPageUp != nil, Eval( ::bPageUp ),)
METHOD PageDown() INLINE ::SetPos( ::GetPos() + ::nPgStep ),;
If( ::bPageDown != nil, Eval( ::bPageDown ),)EMG