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 :)