by Xevi » Wed Dec 13, 2017 11:37 pm
Cristobal,
he estado haciendo pruebas con los distintos tipos de menues, y veo que si establecemos un tipo 2007, 2010, 2013 o 2015, el ancho que ocupa este menu és muy 'desorbitado', por decirlo de una manera. Vaya, que el espaciado que hay a la derecha es tremendamente largo.
Puedes verlo en este ejemplo...
#include "FiveWin.ch"
Static oWnd
//------------------------------------------------------------------------//
function Main()
Local oIcon, oBtn1, oBtn2
SET CENTURY ON
SET DATE FRENCH
SET DELETE ON
DEFINE ICON oIcon NAME "citroen"
DEFINE WINDOW oWnd FROM 1, 1 TO 600, 800 ;
TITLE "Prova FWH amb xEdit!" ;
ICON oIcon PIXEL
* @ 5.6, 1.6 BUTTON "&Menu" OF oWnd SIZE 100, 30 ACTION menu( oWnd, oBtn2:nTop + oBtn2:nHeight )
* @ 7.8, 1.6 BUTTON "&Menu 2007" OF oWnd SIZE 100, 30 ACTION menu2007( oWnd, oBtn2:nTop + oBtn2:nHeight )
TButton():New( 100, 10, "Menu", oWnd, {|| menu( oWnd, oBtn2:nTop + oBtn2:nHeight )}, 100, 30,,, .F., .T., .F.,, .F.,,, .F.,, .F. )
TButton():New( 140, 10, "Menu 2007", oWnd, {|| menu2007( oWnd, oBtn2:nTop + oBtn2:nHeight )}, 100, 30,,, .F., .T., .F.,, .F.,,, .F.,, .F. )
WITH OBJECT oBtn1 := TButton():New()
:SetBounds( 110, 100, 210, 130 )
* :cCaption := "Menu 2010"
:SetText( "Menu 2010" )
:bAction := {|| menu2010( oWnd, oBtn2:nTop + oBtn2:nHeight ) }
END
WITH OBJECT oBtn2 := TButton():New()
:SetBounds( 110, 140, 210, 170 )
:SetText( "Menu 2013" )
:bAction := {|| menu2013( oWnd, oBtn2:nTop + oBtn2:nHeight ) }
END
WITH OBJECT oBtn2 := TButton():New()
:SetBounds( 210, 140, 310, 170 )
:SetText( "Menu 2015" )
:bAction := {|| menu2015( oWnd, oBtn2:nTop + oBtn2:nHeight ) }
END
ACTIVATE WINDOW oWnd CENTERED
return nil
//------------------------------------------------------------------------//
FUNCTION menu( oWnd, nTop )
LOCAL oMenu
MENU oMenu POPUP
MENUITEM "Tancar " ACTION oWnd:end() RESOURCE "exitbmp"
MENUITEM "TancarJPG" RESOURCE "exitjpg"
MENUITEM "TancarPNG" RESOURCE "exitpng"
SEPARATOR
MENUITEM "Missatges Rebuts/Enviats en la sesió" RESOURCE "sendbmp"
MENUITEM "Fitxer de Dossiers Exportats" RESOURCE "servicebmp"
ENDMENU
ACTIVATE POPUP oMenu AT nTop,0 OF oWnd
RETURN NIL
//------------------------------------------------------------------------//
FUNCTION menu2007( oWnd, nTop )
LOCAL oMenu
MENU oMenu POPUP 2007
MENUITEM "Tancar " ACTION oWnd:end() RESOURCE "exitbmp"
MENUITEM "Tancar " ACTION oWnd:end() RESOURCE "exitbmp"
MENUITEM "TancarJPG" RESOURCE "exitjpg"
MENUITEM "TancarPNG" RESOURCE "exitpng"
SEPARATOR
MENUITEM "Missatges Rebuts/Enviats en la sesió" RESOURCE "sendbmp"
MENUITEM "Fitxer de Dossiers Exportats" RESOURCE "servicebmp"
ENDMENU
ACTIVATE POPUP oMenu AT nTop,0 OF oWnd
RETURN NIL
//------------------------------------------------------------------------//
FUNCTION menu2010( oWnd, nTop )
LOCAL oMenu
MENU oMenu POPUP 2010
MENUITEM "Tancar " ACTION oWnd:end() RESOURCE "exitbmp"
MENUITEM "Tancar " ACTION oWnd:end() RESOURCE "exitbmp"
MENUITEM "TancarJPG" RESOURCE "exitjpg"
MENUITEM "TancarPNG" RESOURCE "exitpng"
SEPARATOR
MENUITEM "Missatges Rebuts/Enviats en la sesió" RESOURCE "sendbmp"
MENUITEM "Fitxer de Dossiers Exportats" RESOURCE "servicebmp"
ENDMENU
ACTIVATE POPUP oMenu AT nTop,0 OF oWnd
RETURN NIL
//------------------------------------------------------------------------//
FUNCTION menu2013( oWnd, nTop )
LOCAL oMenu
MENU oMenu POPUP 2013
MENUITEM "Tancar " ACTION oWnd:end() RESOURCE "exitbmp"
MENUITEM "Tancar " ACTION oWnd:end() RESOURCE "exitbmp"
MENUITEM "TancarJPG" RESOURCE "exitjpg"
MENUITEM "TancarPNG" RESOURCE "exitpng"
SEPARATOR
MENUITEM "Missatges Rebuts/Enviats en la sesió" RESOURCE "sendbmp"
MENUITEM "Fitxer de Dossiers Exportats" RESOURCE "servicebmp"
ENDMENU
ACTIVATE POPUP oMenu AT nTop,0 OF oWnd
RETURN NIL
//------------------------------------------------------------------------//
FUNCTION menu2015( oWnd, nTop )
LOCAL oMenu
MENU oMenu POPUP 2015
MENUITEM "Tancar " ACTION oWnd:end() RESOURCE "exitbmp"
MENUITEM "Tancar " ACTION oWnd:end() RESOURCE "exitbmp"
MENUITEM "TancarJPG" RESOURCE "exitjpg"
MENUITEM "TancarPNG" RESOURCE "exitpng"
SEPARATOR
MENUITEM "Missatges Rebuts/Enviats en la sesió" RESOURCE "sendbmp"
MENUITEM "Fitxer de Dossiers Exportats" RESOURCE "servicebmp"
ENDMENU
ACTIVATE POPUP oMenu AT nTop,0 OF oWnd
RETURN NIL
son 5 botones con vision del mismo menu en los cinco tipos existendes...
Veras que el ancho del primer menu es correcto, los demás, son muy, muy anchos y con mucho espaciado a la derecha "vacio"
Un Saludo,
Xevi.
Un Saludo,
Xevi.
Aprendiz de la vida!!!