Toolbar

[Patricio Avalos Aguirre]

Estimados

Hay alguna forma de eliminar un item del toolbar

saludos
Patricio

[Antonio Linares]

Patricio,

Añade este método a la Clase TToolBar:

Code: Select all  Expand view

#define TB_DELETEBUTTON        1046

METHOD DelButton( nButton ) CLASS TToolBar

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


[Patricio Avalos Aguirre]

Gracias antonio

Perfecto..

Saludos
Patricio

[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  Expand view

#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

[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  Expand view

#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



[Antonio Linares]

Patricio,

Gracias!

[Patricio Avalos Aguirre]

Aqui hay otra y funciona bien

Code: Select all  Expand view

#define TB_ISBUTTONHIDDEN      1036


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


Saludos
Patricio

[Antonio Linares]

Patricio,

Muchas gracias