Barra de menu

Barra de menu

Postby landaga » Tue Sep 23, 2008 7:56 am

He creado una ventana hija dentro de la ventana principal de la aplicación pero la barra de menú de la hija no aparece hasta que paso el ratón por encima. En su lugar se ve el fondo de la ventana principal. Si ejecuto otros diálogos, al salir queda, en la barra de menú de la hija, una parte de ese dialogo hasta que vuelvo a pasar el ratón y parecen las opciones del menú. En FW no me sucedía... Alguien podria decirme como solucionarlo?
Gracias
Pedro
landaga
 
Posts: 20
Joined: Fri Sep 12, 2008 2:56 pm

Postby daniel_halon » Tue Sep 23, 2008 2:48 pm

Coloca el código para que veamos como esta e asi poder ayudarte
Buenos Aires - Argentina - Viviendo en Porto Alegre - RS - Brasil
daniel_halon@portobakers.com.br
FW 2.7- xHarbour 0.99.71 - PellesC
daniel_halon
 
Posts: 41
Joined: Tue May 13, 2008 1:53 am
Location: Porto Alegre - Brazil

Postby landaga » Tue Sep 23, 2008 5:08 pm

Este es el código, gracias:

#include 'winrom.inc' //Contiene los .ch necesarios

Static oWnd
STATIC oIco
Static MainWnd

//----------------------------------------------------------------------------//

Function MAIN()

Local oBar
LOCAL oCursorMano
LOCAL oBru
SetHandleCount(225)
SET DATE TO ITALIAN
SET RESOURCES TO 'GeroGest.DLL'
REQUEST HB_Lang_ES
HB_LANGSELECT ('ES')

DEFINE ICON oIco RESOURCE "PEOPLE"
DEFINE BRUSH oBru STYLE BORLAND
DEFINE WINDOW oWnd FROM 2, 10 TO 45, 115 ;
TITLE "GeroGest v.8.09" ;
COLOR 0;
MENU Menu() ;
BRUSH oBru ;
ICON oIco

DEFINE BUTTONBAR oBar 3D SIZE 35, 35 OF oWnd 2007

DEFINE BUTTON OF oBar RESOURCE "exit" ;
ACTION oWnd:End() ;
TOOLTIP 'Salir'

SET MESSAGE OF oWnd TO "Creado por Pedro Landa - (c) 00/2007/4915" ;
CENTERED CLOCK DATE KEYBOARD

ACTIVATE WINDOW oWnd MAXIMIZED on INIT Hija()

Return Nil

//..........................

Function Menu()

Local oMenu

MENU oMenu 2007
MENUITEM "&Residentes" ;
MESSAGE (O2A('Gestion de Residentes y Facturacion'))
MENU
MENUITEM (O2A("&Consulta de Residentes"))
MENU
MENUITEM (O2A("Actualizacion Residentes")) ;
ACTION Altas()
MENUITEM "Consultar Bajas" ;
ACTION Bajas()
ENDMENU
ENDMENU
ENDMENU
Set Echo Off
Set Talk Off
Return oMenu

//..........................

Function Hija()

Local oWndCh, oBruCh, oIcoCh, oBarCh

DEFINE ICON oIcoCh RESOURCE "CARPETAS"
DEFINE BRUSH oBruCh STYLE BRICKS
DEFINE WINDOW oWndCh OF oWnd ;
TITLE O2A('AlmaGest(c) v.8.9') FROM 10,10 TO 35,115 ;
MENU Menu1() ;
BRUSH oBruCh ;
ICON oIcoCh BORDER NONE NOICONIZE NOMAXIMIZE NOSYSMENU

DEFINE BUTTONBAR oBarCh 3D SIZE 40, 40 OF oWndCh 2007

DEFINE BUTTON OF oBarCh RESOURCE "exit" ;
ACTION oWnd:End() ;
TOOLTIP 'Salir'

ACTIVATE WINDOW oWndCh
RETURN NIL

//...........................

Function Menu1()

Local oMenu2

MENU oMenu2 2007
MENUITEM (O2A('Albaranes de Salida')) ;
MESSAGE (O2A('Alta Albaranes y Modificacio¢n de Lineas'))
MENU
MENUITEM 'Altas y Modificaciones';
ACTION Lineas()
MENUITEM 'Detalle de Albaranes con Importe' ;
ACTION ALBARAN()
Separator
MENUITEM "&Salir" ;
ACTION If( MsgYesNo( "Desea realmente salir ?","Abandonar AlmaGest"),;
oWnd:End(),) // Editado: antes ponia oWndCh:End()
ENDMENU
ENDMENU

Return oMenu2
Last edited by landaga on Wed Sep 24, 2008 3:49 pm, edited 2 times in total.
landaga
 
Posts: 20
Joined: Fri Sep 12, 2008 2:56 pm

Postby joseluisysturiz » Wed Sep 24, 2008 4:37 am

Disculpa mi ignorancia, estoy empezando con esto de ventanas familiares, madre e hija... no deberias haber colocado en la ventana hija... CHILD..? nose, pregunto, aun no hago pruebas, pero como lo he visto en otros ejemplos. espero sea aclarado para mi ayuda y de solucion al colega... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Postby wmormar » Wed Sep 24, 2008 7:38 am

landaga,

Code: Select all  Expand view  RUN
DEFINE WINDOW oWnd FROM 2, 10 TO 45, 115 ;
TITLE "GeroGest v.8.09" ;
COLOR 0;
MENU Menu() ;
BRUSH oBru ;
ICON oIco ;
MDI

ACTIVATE WINDOW oWnd MAXIMIZED on INIT Hija()

// ventana hija
Function Hija()

Local oWndCh, oBruCh, oIcoCh, oBarCh

DEFINE ICON oIcoCh RESOURCE "CARPETAS"
DEFINE BRUSH oBruCh STYLE BRICKS
DEFINE WINDOW oWndCh OF oWnd ;
TITLE O2A('AlmaGest(c) v.8.9') FROM 10,10 TO 35,115 ;
BRUSH oBruCh ;
ICON oIcoCh BORDER NONE NOICONIZE NOMAXIMIZE NOSYSMENU ;
MDICHILD

ACTIVATE WINDOW oWndCh

RETURN NIL


espero te sirva
William, Morales
Saludos

méxico.sureste
User avatar
wmormar
 
Posts: 1074
Joined: Fri Oct 07, 2005 10:41 pm
Location: México

Postby landaga » Wed Sep 24, 2008 2:00 pm

Lo compilo y te digo como funciona.
Muchas gracias
landaga
 
Posts: 20
Joined: Fri Sep 12, 2008 2:56 pm

Postby landaga » Wed Sep 24, 2008 2:13 pm

William, al incluir los comandos MDI y MDICHILD lo que hace es anularme el menu de la ventana secundaria (son ventanas con barra de botones y barra de menu).

Vamos a seguir probando
Gracias
landaga
 
Posts: 20
Joined: Fri Sep 12, 2008 2:56 pm

Postby landaga » Wed Sep 24, 2008 4:04 pm

Asi es como deberia verse siempre el menu de la ventana interior:
Image

Así es como se ve (o como no se ve) el menu antes de pasar el raton por encima:
Image

El hueco de la barra de menu esta pero parece transparente.
landaga
 
Posts: 20
Joined: Fri Sep 12, 2008 2:56 pm

Postby Daniel Garcia-Gil » Wed Sep 24, 2008 6:13 pm

Espero ser util, lo que estas haciendo no es una ambiente MDI, si deseas hacerlo MDI aqui tienes este link para que veas como se puede poner un menu en una ventana MDICHILD, porque de la forma tradiconal no se puede, la barra de menu lo asumiria la ventana principal
http://forums.fivetechsoft.com/viewtopic.php?t=8317

landaga wrote: DEFINE ICON oIcoCh RESOURCE "CARPETAS"
DEFINE WINDOW oWndCh OF oWnd ;
TITLE O2A('AlmaGest(c) v.8.9') FROM 10,10 TO 35,115 ;
MENU Menu1() ;
BRUSH oBruCh ;
ICON oIcoCh BORDER NONE NOICONIZE NOMAXIMIZE NOSYSMENU


de lo contrario si quieres dejarlo tal cual esta lo que debes hacer es eliminar de la instruccin anterior el "OF oWnd" dejalo simplemente asi:

DEFINE WINDOW oWndCh ;
TITLE O2A('AlmaGest(c) v.8.9') FROM 10,10 TO 35,115 ;
MENU Menu1() ;
BRUSH oBruCh ;
ICON oIcoCh BORDER NONE NOICONIZE NOMAXIMIZE NOSYSMENU

y haces los cambios respectivos para cerrar las ventanas, etc...
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Postby landaga » Thu Sep 25, 2008 12:27 pm

Gracias, probare cual de las diferentes opciones se ajusta mas a mis necesidades.
landaga
 
Posts: 20
Joined: Fri Sep 12, 2008 2:56 pm

Postby Armando Picon » Thu Sep 25, 2008 7:46 pm

En la ventana madre necesitas especificar que es MDI y en la ventana hija debes especificar MDICHILD, si deseas utilizar esta modalidad.

Saludos

Armando
FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com
User avatar
Armando Picon
 
Posts: 446
Joined: Mon Dec 26, 2005 9:11 pm
Location: Lima, Peru


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: SantaCroya and 46 guests