Page 1 of 1
Toolbar
Posted: Tue Jun 27, 2006 9:12 pm
by Patricio Avalos Aguirre
Estimados
Hay alguna forma de eliminar un item del toolbar
saludos
Patricio
Posted: Wed Jun 28, 2006 10:22 am
by Antonio Linares
Patricio,
Añade este método a la Clase TToolBar:
Code: Select all
#define TB_DELETEBUTTON 1046
METHOD DelButton( nButton ) CLASS TToolBar
SendMessage( ::hWnd, TB_DELETEBUTTON, nButton - 1, 0 )
return nil
Posted: Wed Jun 28, 2006 8:10 pm
by Patricio Avalos Aguirre
Gracias antonio
Perfecto..
Saludos
Patricio
Posted: Thu Jun 29, 2006 1:14 pm
by Patricio Avalos Aguirre
De nuevo por aqui
Como puedo ocultar y mostrar un icono del toolbar, buscando en internet vi estos ejemplos pero no funcionan
alguien me puede orientar
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 )
Saludos
Patricio
Posted: Thu Jul 06, 2006 1:31 pm
by Patricio Avalos Aguirre
Estimados
Viendo estos metodos llegue a la conclusion que si funcionan, lo raro es que hay que ir a la inversa y diferencia del delbuton que el boton no se resta -1
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
Posted: Thu Jul 06, 2006 4:32 pm
by Antonio Linares
Patricio,
Gracias!
Posted: Fri Jul 07, 2006 10:33 pm
by Patricio Avalos Aguirre
Aqui hay otra y funciona bien
Code: Select all
#define TB_ISBUTTONHIDDEN 1036
METHOD IsButtonHidden( nButton ) INLINE (SendMessage( ::hWnd, TB_ISBUTTONHIDDEN, nButton, 0 ) <> 0 )
Saludos
Patricio
Posted: Sat Jul 08, 2006 6:46 am
by Antonio Linares
Patricio,
Muchas gracias