Saludos tengo una actualización a FWH24.02 y veo que al abrir la ventana el Xbrowse se monta sobre el la barra de botones cosa q no pasaba antes
DEFINE WINDOW oWnd FROM 0,0 TO nHeith,nWith PIXEL MDICHILD OF oWind ;
TITLE "Mantenimiento de Valorizaciones" ICON oIco NOZOOM NOICONIZE
@ 10,10 XBROWSE oBrw OF oWnd ;
DATASOURCE oQry ;
COLUMNS aCols ;
LINES CELL AUTOSORT SIZE -10,-10 PIXEL FONT oFont
WITH OBJECT oBrw
:bClrRowFocus := oBrw:bClrSelFocus
:nRowHeight := 25
:nHeaderLines := 4
:nHeaderHeight := 70
HeaderFonts := oFont
:nFooterHeight := 20
:nFooterLines := 2
:nStretchCol := 3
:lAllowColHiding := .F.
:lAllowColSwapping := .F.
:lDisplayZeros := .F.
:lRecordSelector := .F.
:lHScroll := .F.
:l2007 := .F.
:lFooter := .T.
:lDrawBorder := .T.
:lAllowColReGroup := .T.
:lColDividerComplete := .T.
:lIncrFilter := .F.
:nStretchCol := STRETCHCOL_WIDEST
:bClrSel := { || { CLR_BLACK, CLR_HGRAY } }
:bClrStd := {|| IIf( oBrw:KeyNo() % 2 == 0, { CLR_BLACK, RGB( 198, 255, 198 ) }, { CLR_BLACK, RGB( 232, 255, 232 ) } ) }
END
AEval( oBrw:aCols, {|o| o:nHeadStrAlign := AL_CENTER, o:oDataFont := aFont[1]} )
oBrw:CreateFromCode()
oWnd:oClient := oBrw
BrwBtnBar( oBrw )
WaitOff( @oWait )
ACTIVATE WINDOW oWnd
Return
//------------------------------------------------------------------------------
// Barra de opciones
//------------------------------------------------------------------------------
Static Procedure BrwbtnBar( oBrw )
local oBar, oBtn, oBold
DEFINE BUTTONBAR oBar OF oBrw:oWnd SIZE 75,75 3D 2015 HEIGHT 96
oBold := oBar:oFont:Bold()
oBar:oGrpFont := oBold
oBar:bClrGrad = { || { { 0.10,15724527,7303023 },{ 0.10,7303023,15724527 } } } // grey
DEFINE BUTTON OF oBar ;
FILE op:bmp32+"new.bmp" TOP ;
PROMPT "&Nuevo" ;
GROUP LABEL "MANTENIMIENTO" ;
COLORS CLR_BLACK, CLR_HGREEN ;
TOOLTIP { "Crear Nueva Valorización", "Mantenimiento" };
ACTION (valorizar(),MyRefresh())
DEFINE BUTTON OF oBar ;
FILE op:png+"payment32.png" TOP ;
PROMPT "Orden Pago" ;
TOOLTIP { "Elaborar Orden de Pago desde las valorizaciones", "Mantenimiento" } ;
ACTION OrdenPago()
DEFINE BUTTON OF oBar ;
FILE op:bmp32+"excel32.bmp" TOP ;
PROMPT "Excel" ;
GROUP LABEL "CONSULTA" ;
COLORS CLR_BLACK, CLR_HRED ;
TOOLTIP { "Enviar Consulta a Excel", "Consultas" } ;
ACTION oBrw:ToExcel()
DEFINE BUTTON OF oBar ;
FILE op:png+"appchart.png" TOP ;
PROMPT "Cuadro Resumen" ;
TOOLTIP { "Elaborar cuadro resumen de valorizaciones", "Consultas" } ;
ACTION CuadroValoriza()
DEFINE BUTTON OF oBar ;
FILE op:bmp32+"quit.bmp" TOP ;
PROMPT "&Salir" ;
GROUP LABEL "SALIR" ;
ACTION (oQry:End(),oWnd:End());
TOOLTIP { "Cerrar Ventana", "Mantenimiento" }
return oBar