Hi Przemek, Find attached two minor fixes regarding ::message initial value, which should be NIL. (maybe AS USUAL would be better there instead of nothing.) I've also changed 'dummy' initial value to "", to at least match the type.
I'll extend rto_tb.prg with these and some more. Brgds, Viktor
tbrowse.prg.gz
Description: GNU Zip compressed data
On 2008.04.17., at 21:37, Przemyslaw Czerpak wrote:
On Wed, 16 Apr 2008, Bill Smith wrote: Hi Bill, I sent any message to your return address so I'm answering here.I have a short test program which initially illustrated a minor problem withscrolling using TBrowse in the Windows environment.[...] Thank you very much for tests. I cannot replicate exactly the problem you have but I've found two bugs in positioning. 1. PGUP/PGDOWN when not executed from first/last visible row was moving the cursors two far 2. PGUP/PGDOWN executed during refreshing was not respecting currentposition in the buffer end was scrolling database less then necessaryI also cleaned unpleasure visual effect when browse standard color wasdifferent then default background color used to erase empty screen area after scroll(). Clipper uses browse colors instead of current colors setby setColor() function. It also uses HB_CLS_NOTOBJECT to keep original error messages from classy/HVM code which are Clipper compatible to make Viktor more happy when using rto_tb.prg test ;-) (BTW very nice helper tool to test some tbrowse behavior) Maybe above resolves the problem you noticed. I'm attaching fixed code. best regards, Przemek <tbrowse.prg.gz>_______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
_______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
