FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour 驴C贸mo puedo dejar disable un bot贸n de una toolbar?
Posts: 11
Joined: Wed Jun 20, 2007 09:22 PM
驴C贸mo puedo dejar disable un bot贸n de una toolbar?
Posted: Tue Jul 03, 2007 11:42 PM

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.

Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
驴C贸mo puedo dejar disable un bot贸n de una toolbar?
Posted: Wed Jul 04, 2007 02:45 AM

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
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
驴C贸mo puedo dejar disable un bot贸n de una toolbar?
Posted: Wed Jul 04, 2007 07:16 AM

Leonel,

oToolBar2:EnableButton( 2, .F. ) // Deshabilita el segundo bot贸n

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 11
Joined: Wed Jun 20, 2007 09:22 PM
驴C贸mo puedo dejar disable un bot贸n de una toolbar?
Posted: Wed Jul 04, 2007 03:43 PM

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.

Continue the discussion