Here is actual source code ... perhaps you can see something here that Is causing the problem.
The font's are drawn from the windows defaults, and not defined since they are all inherited
A dialog is created with one control ( tFolderEX ). There are two folder tabs created using child dialogs.
I have commented out lSeekBar, but the problem still exists. It still has the problem.
Code: Select all | Expand
FROM THE RC
// This is the main dialog:
CLISVCw DIALOG 0, 0, 850, 460
STYLE WS_POPUP | WS_CAPTION
CAPTION "Client and Vehicle Services"
{
CONTROL "",1600,"TFolderex",WS_TABSTOP,10,5,830,450
}
// This is the dialog for a folder:
EDITCLIw DIALOG 0,0, 845, 440
STYLE WS_CHILD | WS_VISIBLE
{
CONTROL "", 101, "TBar", 0|WS_CHILD|WS_VISIBLE, 0,0, 840, 40
CONTROL "",860,"TxBrowse",WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP,10,185,805,245
...... all other controls follow
}
From the .prg file, you can see the Dialog is created, calling the main dialog control with folders. Then one of the folders is defined ( there are actually two ).
Code: Select all | Expand
// Here is the dialog creation:
DEFINE DIALOG oDlgCSE RESOURCE "CLISVCw" BRUSH oBrush TRANSPARENT OF oWnd
// Define the folder
REDEFINE FOLDEREX oFldCSE ID 1600 OF oDlgCSE ;
PROMPT " &Client ", " "+aTit[1] + " " ;
DIALOGS "EDITCLIw", "EDITVEHw" ;
ROUND 5 TRANSPARENT
oFldCSE:aGradUnSel := { { 0.50,16776960,16777215 }, { 0.50,16777215,16776960 } }
oFldCSE:aGradOverUnSel := { { 0.25, nRGB( 100, 149, 237 ), nRGB( 100, 149, 237 ) },{ 0.75, 16777215,16776960 } }
// Define the control
REDEFINE XBROWSE oLBxcl ;
DATASOURCE oClients ;
HEADERS "Account", "Client", "City", "Phone", "Cellular", "Email", "Last Visti", "Total Sales", " " ;
COLUMNS "acrnum", "clicom", "clicty", "clipho", "clicel", "clieml", "clidls", "acrytd", " " ;
ID 860 ;
OF oFldCSE:aDialogs[ 1 ];
ON CHANGE ( oClientsr:load(), oFldCSE:aDialogs[ 1 ]:update() ) ;
ON DBLCLICK ( lCliScoped := oServiceUnits:ScopeUnits( oClientsr, lCliScoped ), oLbvm:refresh( ),;
oServiceUnitsr:load( ), oFldCSE:aDialogs[2]:update( ),oFldCSE:setoption(2) ) ;
AUTOSORT UPDATE
// Provide the header gradient and styles
oLbxcl:bClrGrad := aPubGrad
oLbxcl:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLbxcl:nColDividerStyle := LINESTYLE_RAISED
oLbxcl:nRowDividerStyle := LINESTYLE_RAISED
oLbxcl:nHeadStrAligns := AL_CENTER
oLbxcl:nStretchCol := STRETCHCOL_LAST
// Use for incremental search on opened database
oLbxcl:bSeek := { |c| oClients:Seek( Upper( c )) }
// oLbxcl:lSeekBar := .t.
// Activate the dialog
ACTIVATE DIALOG oDlgCSE ON INIT ( oReBar:hide(), oBarCL:lTransparent := .F., oBarVE:lTransparent := .F.) ;
ON PAINT oFldCSE:setoption(nType) CENTERED
