Estimados
Hay alguna forma de eliminar un item del toolbar
saludos
Patricio
#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 )
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 28 guests