Page 2 of 2
Re: Por qué el oDLG cambia de color?
Posted: Fri Jan 03, 2025 8:26 pm
by Armando
Master:
Es una ventana
Code: Select all | Expand
STATIC FUNCTION LaBarra( oWindow )
LOCAL oBarra
LOCAL oCursor
DEFINE CURSOR oCursor RESOURCE "Dedo"
DEFINE BUTTONBAR oBarra SIZE 45, 45 OF oWindow CURSOR oCursor 2007
oBarra:bClrGrad = { | lInvert | IF( ! lInvert, ;
{ { 0.50, nRGB( 178, 187, 202 ), nRGB( 137, 155, 179 ) }, ;
{ 0.50, nRGB( 129, 149, 174 ), nRGB( 114, 132, 156 ) } }, ;
{ { 0.50, nRGB( 139, 166, 193 ), nRGB( 69, 119, 170 ) }, ;
{ 0.50, nRGB( 52, 104, 152 ), nRGB( 50, 107, 162 ) } } ) }
oBarra:nClrText = nRGB( 255, 255, 255 )
....
....
....
Code: Select all | Expand
ACTIVATE WINDOW oWindow MAXIMIZED ON INIT ( LaBarra( oWindow ), oWindow:Refresh( ) ) VALID Salir()
Saludos
Re: Por qué el oDLG cambia de color?
Posted: Fri Jan 03, 2025 9:49 pm
by Antonio Linares
En la función Salir() incluye oWindow:oBar:End()
a ver si asi queda solucionado
Re: Por qué el oDLG cambia de color?
Posted: Fri Jan 03, 2025 11:35 pm
by Armando
Master:
No, no funca.
Code: Select all | Expand
STATIC FUNCTION Salir( )
IF MsgNoYes( "Seguro desea salir de la aplicación ?", oApp:cAplicacion) // + " " + oApp:cVersion)
SET RESOURCES TO
WinHelp( GetHelpFile( ), 2 )
MEMORY( - 1 )
oApp:oCon:Close( )
oWindow:oBar:End()
CheckRes()
RETURN ( .T. )
ELSE
RETURN ( .F. )
ENDIF
RETURN ( .F. )
Y la función ResAllFree() ya no existe.
Saludos
Re: Por qué el oDLG cambia de color?
Posted: Sat Jan 04, 2025 6:38 am
by Antonio Linares
Prueba asi:
Code: Select all | Expand
STATIC FUNCTION Salir( )
IF MsgNoYes( "Seguro desea salir de la aplicación ?", oApp:cAplicacion) // + " " + oApp:cVersion)
SET RESOURCES TO
WinHelp( GetHelpFile( ), 2 )
MEMORY( - 1 )
oApp:oCon:Close( )
AEval( oWindow:oBar:aControls, { | oCtrl | oCtrl:End() } )
CheckRes()
RETURN ( .T. )
ELSE
RETURN ( .F. )
ENDIF
RETURN ( .F. )
la función ResAllFree() era solo para 16 bits. En 32 bits ya no es necesaria pues Windows 32/64 libera todos los recursos.
function ResAllFree() ; return nil
Re: Por qué el oDLG cambia de color?
Posted: Fri Jan 10, 2025 4:20 am
by Armando
Master:
Tampoco funcionó.
Saludos
Re: Por qué el oDLG cambia de color?
Posted: Fri Jan 10, 2025 7:22 am
by Antonio Linares
Intenta así:
AEval( oWindow:oBar:aControls, { | oCtrl | oCtrl:FreeBitmaps() } )
Re: Por qué el oDLG cambia de color?
Posted: Fri Jan 10, 2025 2:08 pm
by karinha
Armando,
Code: Select all | Expand
STATIC FUNCTION Salir( )
IF MsgNoYes( "Seguro desea salir de la aplicación ?", oApp:cAplicacion) // + " " + oApp:cVersion)
// FONTES aqui:
// RELEASE BRUSH oBrush
// RELEASE FONT oFont
DbCommitAll()
DbUnLockAll()
DbCloseAll()
FreeResources() // SET RESOURCES TO
Release All
SysRefresh()
HB_GCALL( .T. ) // .T. -> Forca a limpeza de lixo(basuras).
CLEAR MEMORY
WinHelp( GetHelpFile(), 2 )
// MEMORY( - 1 ) // ESTO NO FUNCIONA MAS
oApp:oCon:Close( ) // ??
oWindow:oBar:End() // ???
// oWnd:End() // ??
IF FILE( "checkres.txt" )
FErase( "checkres.txt" )
ENDIF
CheckRes()
PostQuitMessage( 0 )
QUIT
RETURN ( .T. )
ELSE
RETURN ( .F. )
ENDIF
RETURN( .F. )
Regards, saludos.