TWBrowse refiniment

[TimStone]

Here is another item that I find interesting with TWBrowse. If you have a database, set the filter, and gotop( ), even if there are no records, the browse shows an empty record. My clients assume this is a blank ready to be filled in ( I require an Add button be pressed to include a new record ), and they fill in the data, hit Save, and it disappears.

Yes, I can program around this, but I often wonder why anything shows up if there are no records.

Essentially, its the highlight bar frame that displays.

Tim

[Enrico Maria Giordano]

I see no blank row in the following sample. Do you?

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBrw

    DEFINE DIALOG oDlg;
           SIZE 400, 400

    @ 1, 1 LISTBOX oBrw FIELDS

    ACTIVATE DIALOG oDlg;
             ON INIT oDlg:SetControl( oBrw );
             CENTER

    RETURN NIL

EMG

[James Bott]

Enrico,

But there is a blank highlighted row when you do this:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBrw

    use test
    index on last to temp for recno()<1
    go top

    DEFINE DIALOG oDlg;
           SIZE 400, 400

    @ 1, 1 LISTBOX oBrw FIELDS alias "test"

    ACTIVATE DIALOG oDlg;
             ON INIT oDlg:SetControl( oBrw );
             CENTER

    RETURN NIL

[Enrico Maria Giordano]

Try this:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBrw

    use test
    index on field -> last to temp for recno()<1
    go top

    DEFINE DIALOG oDlg;
           SIZE 400, 400

    @ 1, 1 LISTBOX oBrw FIELDS alias "test"

    oBrw:bLogicLen = { || ( oBrw:cAlias ) -> ( OrdKeyCount() ) }

    ACTIVATE DIALOG oDlg;
             ON INIT oDlg:SetControl( oBrw );
             CENTER

    RETURN NIL

EMG

[James Bott]

Enrico,

Ah, you got me again! That does work properly.

You may remember me stating recently that I often forget to assign bLogicLen. That is why I developed a TWBrowse modification to do it automatically. I hope to get that change included in the stock TWBrowse.

Tim, did you get that? Don't forget to assign bLogicLen.

James

[Enrico Maria Giordano]

Enrico,

Ah, you got me again!

You may remember me stating recently that I often forget to assign bLogicLen. That is why I developed a TWBrowse modification to do it automatically.

Me too.

EMG

[James Bott]

Enrico,

It's back!

It shows when you do a filter containing no records. I think this will require a code change to fix.

This is actually what Tim said.

Code: Select all  Expand view  RUN

FUNCTION MAIN()

    LOCAL oDlg, oBrw

    use test
    //index on field -> last to temp for recno()<1
    set filter to recno() < 1
    go top

    DEFINE DIALOG oDlg;
           SIZE 400, 400

    @ 1, 1 LISTBOX oBrw FIELDS alias "test"

    oBrw:bLogicLen = { || ( oBrw:cAlias ) -> ( OrdKeyCount() ) }

    ACTIVATE DIALOG oDlg;
             ON INIT oDlg:SetControl( oBrw );
             CENTER

    RETURN NIL

[Enrico Maria Giordano]

No, you simply forgot to add

REQUEST DBFCDX

and

RDDSETDEFAULT( "DBFCDX" )

Anyway, it seems to be a bug in DBFNTX. I will report it to the [x]Harbour developer's lists.

EMG

[James Bott]

Enrico,

I see that it does work OK with CDXs.

I think the problem is with ordKeyNo(). With CDXs and no records in the filter, it reports zero. With NTXs it reports reccount() + 1.

James

[Enrico Maria Giordano]

Enrico,

I see that it does work OK with CDXs.

I think the problem is with ordKeyNo().

OrdKeyCount()

With CDXs and no records in the filter, it reports zero. With NTXs it reports reccount() + 1.

No, it returns exactly reccount().

I already reported the problem to Harbour and xHarbour developer's lists. Let's wait the Przemek's answer...

EMG