Using xbrowse I set a column cHeader value to the desired header, and in multiword headers I would add a CRLF where I wanted the wrap to occur. This used to work just fine.
For example I could specify "File" + CRLF + "Name", which would then display wrapped:
File
Name
With this build the CRLF is being stripped out of the header and is instead displaying as:
FileName
With no spaces, no wrap.
Robb
#include "fivewin.ch"
function main()
local oDlg, oBrw
USE CUSTOMER
DEFINE DIALOG odlg SIZE 600,300 PIXEL //TRUEPIXEL
@ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oBrw ;
DATASOURCE ALIAS() ;
COLUMNS "FIRST", "LAST", "STREET" ;
HEADERS "FIRST" + CRLF + "NAME", "LAST" + CRLF + "NAME" ;
NOBORDER
oBrw:bRClicked := { || oBrw:Edit() }
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED
return nilMr Robb
Are you assigning any value to oBrw:nHeaderHeight?
If so please remove that and see.
When the height is not adequate to display the text in two lines, the entire text is displayed in a single line. So either you specify adequate height or better do not specify the height and allow xbrowse to calculate the required height.
No, I am not specifying the nHeaderHeight value.
I just tested the trimmed down sample Antonio provided, and it does behave correctly when compiled on my local machine. I thought it might just be the particular set of values I am setting, so I just copied all the xbrowse values being set in the problematic code and put them in the sample Antonio provided and it still displayed correctly. Which means it is a problem in my local code. I'll figure it out.
There may be one other issue that is telling. I grabbed 16.12 because I wanted to test the new lSeekBar feature, but I cannot get it to work at all. I just tried to enable that in Antonio's example and it isn't working in that code either. I was kind of hoping that the two problems would track together.
Thanks for having a look, for now I'll assume it is my problem.
Robb
I grabbed 16.12 because I wanted to test the new lSeekBar feature
#include "fivewin.ch"
REQUEST DBFCDX
function Main()
local oDlg, oFont, oBrw
USE CUSTOMER NEW SHARED ALIAS CUST VIA "DBFCDX"
SET ORDER TO TAG FIRST
GO TOP
DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
DEFINE DIALOG oDlg SIZE 900,400 PIXEL TRUEPIXEL FONT oFont
@ 20,20 XBROWSE oBrw SIZE -20,-20 PIXEL OF oDlg ;
DATASOURCE "CUST" AUTOCOLS ;
AUTOSORT ; // <--- This is important
LINES NOBORDER
WITH OBJECT oBrw
:lSeekBar := .t.
:bClrEdits := { || { CLR_HRED, CLR_YELLOW } }
:CreateFromCode()
END
ACTIVATE DIALOG oDlg CENTERED
RELEASE FONT oFont
return nilHere is a critical difference. Many of us actually use resource files, so CreateFromCode() does not apply ( and is not used ).
I posted my code with the lSeekBar feature specific thread, and the discussion seems to have stopped with no resolution to the problem.
Again, the problem is specific to Harbour / MSVC, and clearly relates to fonts ( which you redefine In the xBrowse changes for 16.12 ) because it also blanks out the fonts on the prompts for the button bar.
Tim
resource files, so CreateFromCode() does not apply ( and is not used ).
the problem is specific to Harbour / MSVC,
