TWBrowse lCellStyle bug

[Enrico Maria Giordano]

This is the sample:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oBrw

    DBCREATE( "BUGTEST", { { "TEST1", "C", 10, 0 },;
                           { "TEST2", "C", 10, 0 } } )

    USE BUGTEST

    DEFINE WINDOW oWnd

    @ 0, 0 LISTBOX oBrw FIELDS

    oBrw:lCellStyle = .T.

    oWnd:oClient = oBrw

    ACTIVATE WINDOW oWnd;
             MAXIMIZED

    CLOSE

    RETURN NIL

Try to move one cell right and you will see that a "phantom record" is displayed on the browse.

EMG

[Antonio Linares]

Enrico,

In both Methods GoLeft() and GoRight() this code has to be included at the beginning:

Code: Select all  Expand view

   if ( ::nLen := Eval( ::bLogicLen, Self ) ) < 1
      return nil
   endif


[Enrico Maria Giordano]

I think that this is better because it allows to scroll horizontally even if there are no records:

Code: Select all  Expand view

         if ::nLen > 0
            ::DrawSelect()
         endif

EMG