xBrowse blank column showing

[TimStone]

I have a strange problem with xBrowse and only with this instance. The code below ends up with a blank column being added before the Code column, and in the first row below the header is has TDIALOG. If I right click on the header I see a checkmark by a blank line above the other column titles. If I uncheck it, the column goes away.

So far, I haven't seen this elsewhere. Any ideas ? Thank you.

// Create the browse control for the parts list
REDEFINE XBROWSE oLbp2 ID 1010 oDgp ON CHANGE (... ) UPDATE

// Set to the database object
oLbp2:setoDBF( oGlp )

add to oLbp2 header "Code" data oGlp:pckcod ALIGN LEFT size 120
add to oLbp2 Header "Partnumber" data oGlp:pcknum ALIGN LEFT size 200
add to oLbp2 header "Description" data oGlp:pckdes ALIGN LEFT size 250
add to oLbp2 header "Quantity" data oGlp:pckqun ALIGN RIGHT size 120

[nageswaragunupudi]

Please insert " OF " between "1010" and "oDbp" in the line "REDEFINE ... etc "

REDEFINE XBROWSE oLbp2 ID 1010 OF oDgp ON CHANGE (... ) UPDATE

[TimStone]

Thanks. I AM getting old ... l looked at that many times and skipped right by it. Perhaps it was because I was thinking columns !

Is there an option to center headers ( horizontal ) while aligning the data left or right ?

[Armando]

Tim:

Try this way

Code: Select all  Expand view

oCol:nHeadStrAlign  := AL_CENTER
oCol:nDataStrAlign  := AL_LEFT
oCol:nFootStrAlign  := AL_RIGHT
 

Regards