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
for scroll.c
if needs:
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?
Developing I see that the Enable/Disable method does not work for "non-true ScrollBar Controls".
I tried with:
for scrllbar.prg
Code: Select all
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() )
Code: Select all
HB_FUNC( ENABLESCROLLBAR )
{
EnableScrollBar( ( HWND ) hb_parnl( 1 ),
hb_parni( 2 ),
hb_parl( 3 )? ESB_ENABLE_BOTH : ESB_DISABLE_BOTH );
}
//----------------------------------------------------------------------------//
Code: Select all
#define ESB_ENABLE_BOTH 0x0000
#define ESB_DISABLE_BOTH 0x0003can someone try to compile with borland 5, please?