FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index Bugs report & fixes / Informe de errores y arreglos Enable/disable scroll bar
Posts: 375
Joined: Tue Feb 10, 2015 09:48 AM

Enable/disable scroll bar

Posted: Thu Jul 09, 2015 10:51 AM
Hello,
Developing I see that the Enable/Disable method does not work for "non-true ScrollBar Controls".
I tried with:

for scrllbar.prg
Code (fw): Select all Collapse
   METHOD Enable() INLINE ::lActive := .t.,;
                     if( ::lIsChild, EnableScrollBar(::oWnd:hWnd,  If( ::lVertical, SB_VERT, SB_HORZ ), .T.), ; 
                              ::Super:Enable() )
   METHOD Disable() INLINE ::lActive := .f.,;
                     if( ::lIsChild, EnableScrollBar(::oWnd:hWnd,  If( ::lVertical, SB_VERT, SB_HORZ ), .f.), ; 
                              ::Super:Disable() )

for scroll.c
Code (fw): Select all Collapse
HB_FUNC( ENABLESCROLLBAR )
{
   EnableScrollBar( ( HWND ) hb_parnl( 1 ),
                   hb_parni( 2 ),
                   hb_parl( 3 )? ESB_ENABLE_BOTH : ESB_DISABLE_BOTH );
}

//----------------------------------------------------------------------------//


if needs:
Code (fw): Select all Collapse
#define ESB_ENABLE_BOTH     0x0000
#define ESB_DISABLE_BOTH    0x0003


the problem is that in msdn says that EnableScrollBar is for windows vista and later, it is correct?

can someone try to compile with borland 5, please?
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: Enable/disable scroll bar

Posted: Fri Jul 10, 2015 12:12 PM

Antonino,

I just compiled it with bcc 7 and Visual Studio and compiled fine

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion