Por qué el oDLG cambia de color?

[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

[Antonio Linares]

En la función Salir() incluye oWindow:oBar:End()

a ver si asi queda solucionado

[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