To All
I have a client who wants extra large fonts and I was looking for a way to put a bottom horizontal scroll bar at the bottom of an xBrowse ??
Thanks
Rick Lipkin
Window styles 0x50B00000
REDEFINE xBROWSE oLBXA ;
RECORDSET oRsContact ;
COLUMNS "IDSTATUS", ;
"COMPANY", ;
"CONTACT", ;
"ADDRESS1", ;
"CITY", ;
"STATE", ;
"ZIP", ;
"PHONE", ;
"FIRSTNAME", ;
"LASTNAME" ;
COLSIZES 70,135,97,105,65,35,45,80,70,70 ;
HEADERS "IdStatus", ;
"Company", ;
"Contact", ;
"Address1", ;
"City", ;
"St", ;
"Zip", ;
"Phone", ;
"First Name", ;
"Last Name" ;
ID 114 of oPark ;
AUTOSORT AUTOCOLS LINES CELL
With object oLbxA
:lHScroll := .t. // doesn't work
End
oLbxA:lFooter := .t.
oCol := oLbxA:aCols[ 1 ]
oCol:bFooter := { || Ltrim( Str( oLbxA:KeyNo() ) ) + " / " + LTrim( Str( oLbxA:KeyCount() ) ) }
oLbxA:bChange := { || oCol:RefreshFooter() }
* oLbxA:lHScroll := .T. // doesn't work
oLbxA:lRecordSelector := .f.
oLbxA:nMarqueeStyle := MARQSTYLE_HIGHLROW
oLbxA:bClrGrad := { | lInvert | If( ! lInvert, ;
{ { 0.50, 15790320, 15790320 }, ;
{ 0.50, 15790320, 15790320 } }, ;
{ { 0.50, 15790320, 15790320 }, ;
{ 0.50, 15790320, 15790320 } } ) }
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 64 guests