Toolbar
Posted: Tue Jun 27, 2006 9:12 pm
Estimados
Hay alguna forma de eliminar un item del toolbar
saludos
Patricio
Hay alguna forma de eliminar un item del toolbar
saludos
Patricio
Code: Select all
#define TB_DELETEBUTTON 1046
METHOD DelButton( nButton ) CLASS TToolBar
SendMessage( ::hWnd, TB_DELETEBUTTON, nButton - 1, 0 )
return nil
Code: Select all
#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 )
Code: Select all
#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
Code: Select all
#define TB_ISBUTTONHIDDEN 1036
METHOD IsButtonHidden( nButton ) INLINE (SendMessage( ::hWnd, TB_ISBUTTONHIDDEN, nButton, 0 ) <> 0 )