Por qué el oDLG cambia de color?

[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

[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

[Armando]

Master:

Tampoco funcionó.

Saludos

[Antonio Linares]

Intenta así:

AEval( oWindow:oBar:aControls, { | oCtrl | oCtrl:FreeBitmaps() } )

[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.

[Armando]

Master Antonio y Karihna:

En ambos (ambos) casos la situación sigue igual, no hay de piña.

Saludos

[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.