I tried, but I am unable to get what you could get.
This is my code:
- Code: Select all Expand view
local oDlg, oFld, oFont, oBrw
USE CUSTOMER NEW ALIAS CUST
DEFINE FONT oFont NAME "VERDANA" SIZE 0,-16
DEFINE DIALOG oDlg SIZE 800,500 PIXEL TRUEPIXEL FONT oFont
@ 20,20 FOLDEREX oFld SIZE 760,460 PIXEL OF oDlg ;
PROMPT "Customer"
@ 10,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oFld:aDialogs[ 1 ] ;
DATASOURCE "CUST" ;
COLUMNS "ID", "FIRST+CHR(13)+CHR(10)+LAST", ;
"STREET+CHR(13)+CHR(10)+CITY+CHR(13)+CHR(10)+STATE+ '-' + ZIP" ;
HEADERS "ID", "NAME", "ADDRESS" ;
CELL LINES NOBORDER
WITH OBJECT oBrw
:nDataLines := 3
//
:CreateFromCode()
END
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
This is what I got:
![Image](https://imagizer.imageshack.com/v2/xq90/922/tUxdri.png)
Note: XBrowse uses Adjust() method internally. Please never use it directly in the application program.
I am very interested in knowing how did you manage to get the appearance you posted.
Please let us have a simple self
contained code reproducing the issue.