¿Cómo puedo dejar disable un botón de una toolbar?

Post Reply
Leonel
Posts: 11
Joined: Wed Jun 20, 2007 9:22 pm

¿Cómo puedo dejar disable un botón de una toolbar?

Post by Leonel »

La pregunta es, ¿Cómo puedo dejar disable un botón de una toolbar?

El código:

DEFINE TBBUTTON OF oToolBar2 ACTION (C_GD(oWnd,oMenuIt[26])) TOOLTIP "Emisión de Guías de Despacho a Clientes"

La función:

Function C_GD(oWnd,oMenuIt)

oMenuIt:Disable()

Con eso dejo disable el item del menú, pero no tengo idea qué parámetro debo usar o bien, qué when debo usar para dejar en el mismo estado el botón asociado a esa opción.

Agradeceré cualquier colaboración.

Saludos, Leonel.
User avatar
Armando
Posts: 2479
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México
Contact:

Post by Armando »

Leonel:

A ver si te sirve este pequeño ejemplo

DEFINE BUTTON aBotones[ 4] OF oBarra RESOURCE "Btn04";
ACTION (aSubM1[ 4]:Disable(),; // Desactivamos la opción del menu
aBotones[ 4]:Disable(),; // Desactivamos el botón
WinNom1D(oWindow,cAplicacion),; // Llamamos a un PRG
aSubM1[ 4]:Enable(),; // Activamos la opción del menú
aBotones[ 4]:Enable()); // Activamos el botón
TOOLTIP "Crea archivo de nómina (CTRL+N)";
MESSAGE "Crea archivo de nómina mezclando conceptos fijos y excepciones";
GROUP

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

Leonel,

oToolBar2:EnableButton( 2, .F. ) // Deshabilita el segundo botón
regards, saludos

Antonio Linares
www.fivetechsoft.com
Leonel
Posts: 11
Joined: Wed Jun 20, 2007 9:22 pm

Post by Leonel »

Antonio, nuevamente gracias, creo que era justamente el método que me faltaba aprender a usar.

Por cierto, tengo otra duda, se que las toolbars no tienen el método Menu, por lo tanto, hay que colgar menús desde una función, la pregunta es, cómo puedo dejar disable la opción de un popup que cuelga del botón de una toolbar, ya que al activar el menú, vuelve a activar los items.

Código:

Function MCCC(oMainWnd )
LOCAL oMenu, nRow:=63, nCol:=44, aPos := GetCursorPos()
MENU oMenu POPUP ;
MenuItem oMIt[1] Prompt "Cuenta Corriente Individual";
ACTION (Rec_Com(oWnd,oMenuIt[23],oMIt[1]))
Separator
MenuItem oMIt[2] Prompt "Cuenta Corriente General";
ACTION (ConsCom(oWnd,oMenuIt[24],oMIt[2]))
ENDMENU
ACTIVATE MENU oMenu AT nRow, nCol OF oMainWnd
oMainWnd:Refresh()
RETURN NIL


Se supone que con oMIt:Disable() debería dejar en ese estado la opción del menú desactivada, pero al activar el menú, la mantiene activa.
Post Reply