How to put a horizontal scroll bar at the bottom of xBrowse

[Rick Lipkin]

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

[Marc Venken]

Hey Rick,

Do you want a extra hor.scroll bar ? Not seen on the forum yet.

For the standart :

oBrw:nRowHeight := 40 // and use a larger font
oBrw:lHScroll := .T.

but I think you are looking for something else ...

[Rick Lipkin]

Hi Marc

Thanks for your help ... Your idea did not work .. I am looking for a horizontal scroll bar across the bottom of my browser ( xbrowse ) since I have several columns that are out of range of the screen and I just want to be able to scroll across the bottom like we do on the Verticle scroll bar

Thanks

Rick Lipkin

[Marc Venken]

But they are both standard when we setup the xbrowse ? Did you turn off the horizontal ?

with

oBrw:lHScroll := .T. or .f. we can put them on and off.

or in the

With object oBrw
...
...
:lHScroll := .T.
END

By change some of the Xbrowse code to show ?

[Armando]

Rick:

If you use a resource editor like Pelles, try this

Code: Select all  Expand view  RUN

Window styles    0x50B00000
 

I hope these can help you.

Regards

[Rick Lipkin]

Armando

Here is the code ... I do have the form in a .rc but I would think you should be able to change the browse behaviour in code ?? Rao ??

Code: Select all  Expand view  RUN

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 } } ) }


 

[Otto]

Rick,
Could it be that your xBrowse is too high for the dialog? One can't even see the arrow down at the bottom of the vertical scrollbar.
Best regards,
Otto