Buen dia
Al pasar de fwh 24.02 a 24.09 con xhb.com
Si existe un METROBUTTON con la OPCION "MENU ...XXX()", no despliega el METROPANEL actual
- Code: Select all Expand view
DEFINE FONT oFont NAME "Segoe UI Light" SIZE 0, -46 BOLD
DEFINE FONT oFon3 NAME "Segoe UI Light" SIZE 0, -20 BOLD
DEFINE FONT oFon2 NAME 'Tahoma' SIZE 0, -13
DEFINE METROPANEL oMe1Met OF oWnd TITLE "Russoft ERP by RusSoft Ltda." ;
COLOR CLR_BLACK,CLR_WHITE
oMe1Met:oBtnFont:End()
oMe1Met:lDesignMode := .T.
oMe1Met:nMetroTop = 100
oMe1Met:nMetroMargin = 140
oMe1Met:nBtnSize = 130
oMe1Met:nSliderTop = 100
oMe1Met:oFont := oFont
oWnd:bMouseWheel = { | nKey, nDelta, nXPos, nYPos | oMe1Met:MouseWheel( nKey, nDelta, nXPos, nYPos ) }
DEFINE METROBUTTON oBtn OF oMe1Met ;
BODYTEXT "Pedidos; Ordenes de; Compra; Cotizaciones" ;
TEXTALIGN "TOPRIGHT" ;
BITMAP "imagenes\32x32\pedidoS.bmp" ;
BMPALIGN "BOTTOMLEFT" ;
COLOR CLR_WHITE, RGB(247,144,39);
MENU touchmenu7(oMe1Met,oWnd)
//*************************************
static function touchmenu7(ometro,oWnd)
LOCAL OBTN , oFont, oFon2
IF oMe7Met == nil
DEFINE FONT oFont NAME "Segoe UI Light" SIZE 0, -36 BOLD
DEFINE FONT oFon2 NAME 'Tahoma' SIZE 0, -13
IF SW_FONDO
DEFINE METROPANEL oMe7Met OF oWnd TITLE "Russoft ERP [ Pedidos, Ordenes de Compra ... ]";
COLOR CLR_WHITE,CLR_BLACK
ELSE
DEFINE METROPANEL oMe7Met OF oWnd TITLE "Russoft ERP [ Pedidos, Ordenes de Compra ... ]" ;
COLOR CLR_BLACK,CLR_WHITE
ENDIF
oMe7Met:lDesignMode := .T.
oMe7Met:nMetroTop = 140
oMe7Met:nMetroMargin = 140
oMe7Met:nBtnSize = 130
oMe7Met:nSliderTop = 140
oMe7Met:oFont := oFont
verImagenFondo(oMe7Met)
DEFINE METROBUTTON oBtn OF oMe7Met ;
CAPTION "" ;
ALIGN "TOPLEFT" ;
BODYTEXT "Registro de;Transacciones;[Auxiliares]" ;
TEXTALIGN "BOTTOMRIGHT" ;
FONT oFon2 ;
ACTION ( IF(M->lManPed,A_ProdCapt_Captura( 0,0,0,cNomEmp,cNomSis,cAnoSys,dFecUsr,cPatSis,cPatInt,lSisInt,cNomUsr,cCodCaj,"A"),.T.) ,CIERRATODO() )
DEFINE METROBUTTON oBtn OF oMe7Met ;
CAPTION "" ;
ALIGN "TOPLEFT" ;
BODYTEXT "Mantenimiento de;Transacciones" ;
TEXTALIGN "BOTTOMRIGHT" ;
FONT oFon2 ;
ACTION ( IF(M->lManPed,A_ProdMant_Mantenimiento(0,0,0,cNomEmp,cNomSis,cAnoSys,dFecUsr,cPatSis,cPatInt,lSisInt,cNomUsr,cCodCaj,"A",NIL,"no cierra tablas"),.T.), CIERRATODO() )
DEFINE METROBUTTON oBtn OF oMe7Met ;
CAPTION "Regresar" ;
ALIGN "TOPLEFT" ;
COLOR CLR_BLACK, RGB(244,244,0) ;
FONT oFon2 ;
BITMAP "imagenes\32x32\REGRESA.bmp" ;
ACTION (oMe7Met:HIDE(),;
oMETRO:Show() )
ELSE
oMe7Met:SHOW()
ENDIF
M->oMetWin := oMe7Met
RETURN oMe7Met
Al compilar el ejemplo TOUCH.PRG, despliega BuildMetroPanel()
JONSSON RUSSI