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() } )