FiveTech Support Forums

#define TB_DELETEBUTTON        1046

METHOD DelButton( nButton ) CLASS TToolBar

   SendMessage( ::hWnd, TB_DELETEBUTTON, nButton - 1, 0 )
   
return nil

#define TB_HIDEBUTTON          1028

METHOD HideButton( nButton ) INLINE SendMessage(::hwnd,   TB_HIDEBUTTON, nButton-1, 1 )

METHOD ShowButton( nButton ) INLINE SendMessage(::hwnd, TB_HIDEBUTTON, nButton-1, 0 )

#define TB_DELETEBUTTON        1046
#define TB_HIDEBUTTON           1028

METHOD HideButton( nButton ) INLINE SendMessage(::hwnd, TB_HIDEBUTTON, nButton, 1 )

METHOD ShowButton( nButton ) INLINE SendMessage(::hwnd, TB_HIDEBUTTON, nButton, 0 )

METHOD DelButton(  nButton ) INLINE SendMessage( ::hWnd, TB_DELETEBUTTON, nButton - 1, 0 )

for i := len( aBnt ) to 1 STEP -1

  aBtn[i]:HideButton( i )

next i

#define TB_ISBUTTONHIDDEN      1036


METHOD IsButtonHidden( nButton ) INLINE (SendMessage( ::hWnd, TB_ISBUTTONHIDDEN, nButton, 0 ) <> 0 )