Error Fwh 24.02 con XBROWSE

Error Fwh 24.02 con XBROWSE

Postby CARLOS ATUNCAR » Mon Apr 08, 2024 6:31 pm

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
:oHeaderFonts := 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

Image
Carlos Atuncar - CaSoftSystem
Chincha - Perú
carlosalbatun@gmail.com
CARLOS ATUNCAR
 
Posts: 176
Joined: Thu Sep 17, 2015 11:40 pm
Location: Chincha - Peru

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Adolfredo Martinez, Google [Bot] and 56 guests