Page 2 of 2
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.
Re: Por qué el oDLG cambia de color?
Posted: Fri Jan 10, 2025 5:52 pm
by Armando
Master Antonio y Karihna:
En ambos (ambos) casos la situación sigue igual, no hay de piña.
Saludos
Re: Por qué el oDLG cambia de color?
Posted: Mon Jan 13, 2025 2:13 pm
by karinha
Armando, no te preocupes, no es nada que afecte tu programa/sistema. Solo preocúpate si comienza a desbordarse. Entonces, probablemente tendrás que cambiar tu forma de programar. Desafortunadamente, NUNCA puedes generar una DEMOSTRACIÓN para criticar tu escritura.
Regards, saludos.