Guys:
I'm using the following code (FW 13.09) and the left vertical scroll bar disappears (I'm not using resources (RC files)):
I'm using the following code (FW 13.09) and the left vertical scroll bar disappears (I'm not using resources (RC files)):
DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-14
DEFINE DIALOG oDlg SIZE 780,600 PIXEL ;
TITLE "Customers" ;
FONT oFont
@ 10,10 XBROWSE oBrw ;
SIZE 480,230 PIXEL ;
OF oDlg ;
AUTOSORT LINES CELL NOBORDER
@ 250,10 SAY oBrw:oSeek PROMPT oBrw:cSeek SIZE 470,10 PIXEL OF oDlg ;
COLOR CLR_BLACK, CLR_YELLOW
oButtons := ARRAY(2)
@ 280,022 BUTTON oButtons[1] PROMPT "&Select" SIZE 40,10 OF oDlg PIXEL ;
ACTION EVAL( {|| SETCUSTFIELD, oDlg:End() } )
@ 280,428 BUTTON oButtons[2] PROMPT "&Close" SIZE 40,10 OF oDlg ;
PIXEL ACTION oDlg:End()
SETKEY(VK_RETURN, {|| cVar := Cust_no, oDlg:End() } )
SETKEY(ASC("Y"), {|| IIF(GetKeyState(VK_CONTROL), EVAL({|| oBrw:cseek := ;
"", oBrw:oSeek:refresh()}), NIL)})
oCol := oBrw:AddCol()
oCol:cHeader := "CUST NO."
oCol:bStrData := { || Cust_no}
oCol:bLClickHeader := {|| ORDSETFOCUS("CustNo"), EVAL({|| oBrw:cseek := "", ;
oBrw:oSeek:refresh()}), oBrw:refresh()}
oCol := oBrw:AddCol()
oCol:cHeader := "LIC. NO."
oCol:bStrData := {|| Cust_lic_no}
oCol:bLClickHeader := {|| ORDSETFOCUS("CustLicNo"), EVAL({|| oBrw:cseek := "", ;
oBrw:oSeek:refresh()}), oBrw:refresh()}
oCol := oBrw:AddCol()
oCol:cHeader := "LIC. #2."
oCol:bStrData := { || Cust_lic2}
oCol:bLClickHeader := {|| ORDSETFOCUS("CustLicNo2"), EVAL({|| oBrw:cseek := "", ;
oBrw:oSeek:refresh()}), oBrw:refresh()}
oCol := oBrw:AddCol()
oCol:cHeader := "REG. NO."
oCol:bStrData := { || Cust_regno}
oCol:bLClickHeader := {|| ORDSETFOCUS("CustRegNo"), EVAL({|| oBrw:cseek := "", ;
oBrw:oSeek:refresh()}), oBrw:refresh()}
oCol := oBrw:AddCol()
oCol:cHeader := "LIC. #3"
oCol:bStrData := { || Cust_lic3}
oCol:bLClickHeader := {|| ORDSETFOCUS("CustLicNo3"), EVAL({|| oBrw:cseek := "", ;
oBrw:oSeek:refresh()}), oBrw:refresh()}
oCol := oBrw:AddCol()
oCol:cHeader := "Last Name"
oCol:bStrData := {|| Cust_lastn}
oCol:bLClickHeader := {|| ORDSETFOCUS("CustName"), EVAL({|| oBrw:cseek := "", ;
oBrw:oSeek:refresh()}), oBrw:refresh()}
oCol := oBrw:AddCol()
oCol:cHeader := "Name"
oCol:bStrData := {|| Cust_name}
oCol:bLClickHeader := {|| ORDSETFOCUS("CustName"), EVAL({|| oBrw:cseek := "", ;
oBrw:oSeek:refresh()}), oBrw:refresh()}
oCol := oBrw:AddCol()
oCol:cHeader := "City"
oCol:bStrData := {|| Cust_city}
oCol := oBrw:AddCol()
oCol:cHeader := "Phone"
oCol:bStrData := {|| TRANSFORM(Cust_phone, "@R (999)999-9999")}
oCol := oBrw:AddCol()
oCol:cHeader := "Major"
oCol:bStrData := {|| Cust_major}
oCol := oBrw:AddCol()
oCol:cHeader := "Exp. LIC. 1"
oCol:bStrData := {|| DTOC(Cust_expd1)}
oCol := oBrw:AddCol()
oCol:cHeader := "Exp. LIC. 2"
oCol:bStrData := {|| DTOC(Cust_expd2)}
oCol := oBrw:AddCol()
oCol:cHeader := "Exp. LIC. 3"
oCol:bStrData := {|| DTOC(Cust_expd3)}
oBrw:bClrStd := {|| {CLR_WHITE, IIF(Cust_inact, CLR_HRED, CLR_HBLUE)}}
oBrw:bClrSel := {|| {CLR_CYAN, CLR_GREEN}}
WITH OBJECT oBrw
:nHeadStrAligns := AL_CENTER
:nStretchCol := STRETCHCOL_WIDEST
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:lMultiSelect := .F.
:lHScroll := .T.
:lVScroll := .T.
:bClrSelFocus := { || { CLR_YELLOW, CLR_BLACK } }
END
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED ON PAINT oBrw:setfocus()
RELEASE FONT oFont