FiveTech Support Forums

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 )

   ACTIVATE WINDOW oWindow MAXIMIZED ON INIT ( LaBarra( oWindow ), oWindow:Refresh( ) ) VALID Salir()

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

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

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