FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Deshabilitar MenuItem
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Deshabilitar MenuItem
Posted: Thu Sep 30, 2010 11:49 PM

Amigos del foro, 驴se puede deshabilitar-habilitar items del men煤 desde acciones de la BUTTONBAR?
Desde los mismos items del men煤 se puede hacer, pero en el c贸digo que desarrollo se necesita hacerlo al accionar cualquier bot贸n de la barra de botones. Toda ayuda es bien recibida.

Saludos

Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Deshabilitar MenuItem
Posted: Fri Oct 01, 2010 12:40 AM
Hola...
Claro, se puede, pero depende de manera directa de como defines los items del men煤.

Si defines as铆:

Code (fw): Select all Collapse
MENUITEM oMenuitem01 PROMPT "Mi opci贸n de menu 1";
聽 聽 聽ACTION MsgInfo()
MENUITEM oMenuitem02 PROMPT "Mi opci贸n de menu 2";
聽 聽 聽ACTION MsgInfo()


Luego al button puedes ponerle:

Code (fw): Select all Collapse
REDEFINE BTNBMP Btn1 ID 200 OF oDlg ;
聽 聽 聽 ACTION oMenuitem01:Disable();
聽 聽 聽 TOOLTIP "Deshabilito opci贸n de men煤 1"

REDEFINE BTNBMP Btn2 ID 201 OF oDlg ;
聽 聽 聽 ACTION oMenuitem02:Disable();
聽 聽 聽 TOOLTIP "Deshabilito opci贸n de men煤 2"

REDEFINE BTNBMP Btn3 ID 202 OF oDlg ;
聽 聽 聽 ACTION oMenuitem01:Enable();
聽 聽 聽 TOOLTIP "Habilito opci贸n de men煤 1"

REDEFINE BTNBMP Btn4 ID 203 OF oDlg ;
聽 聽 聽 ACTION oMenuitem02:Enable();
聽 聽 聽 TOOLTIP "Habilito opci贸n de men煤 2"


Espero te sirva.
Saludos desde Argentina, Esteban.
Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Deshabilitar MenuItem
Posted: Fri Oct 01, 2010 01:20 AM
Esteban, gracias por contestar. As铆 mismo defino los items del men煤.
Lo que necesito es poder activar-desactivar X item desde un bot贸n de la BUTTONBAR, la que como sabes, pertenece a la ventana principal oWnd, y estoy trabajando en entorno MDI.

Lo intento as铆 pero da error:

Function Main()
local oMenu, oBar,oBoto1

DEFINE WINDOW oWnd TITLE "FRANCISCO JOSE ALEGRIA PEREZ" ;
MDI ;
MENU ( oMenu:=BuildMenu() ) MENUINFO 2

DEFINE BUTTONBAR oBar OF oWnd SIZE 60, 60 2007
Color_oBar(oBar,ColorSkin)

DEFINE BUTTON oBoto1 RESOURCE "CDIARIO" PROMPT "CDiario" OF oBar TOOLTIP "Elaborar Comprobantes de Diario" ACTION Comprobante(.t.,"CD",oMenu:oItem1) //mucho menos s贸lo oItem1


Nuevamente gracias.

Saludos
Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Deshabilitar MenuItem
Posted: Fri Oct 01, 2010 01:45 AM

Francisco...
Fijate que yo en el ejemplo que te escrib铆...
Cada item del men煤 es un objeto y por lo tanto le puedo aplicar el m茅todo "Enable() y Disable()" tantas veces como quiera.
Hay que ver como defines tu men煤 en la funci贸n "BuildMenu()"
Yo uso esa forma en un entorno MDI y funciona correctamente.
Saludos, desde Argentina, Esteban.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Deshabilitar MenuItem (RESUELTO)
Posted: Fri Oct 01, 2010 02:04 AM
Lo resolv铆 con:

DEFINE BUTTON oBoto1 RESOURCE "CDIARIO" PROMPT "CDiario" OF oBar TOOLTIP "Elaborar Comprobantes de Diario" ACTION Comprobante(.t.,"CD",oMenu:aMenuItems[4])

Saludos
Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql

Continue the discussion