cerrar ejectutable solamente con salir

Post Reply
postinelli
Posts: 149
Joined: Tue Jul 15, 2008 7:12 pm
Location: Argentina

cerrar ejectutable solamente con salir

Post by postinelli »

Estimados

tengo el siguiente tema, que tal vez sea una pavada, pero no he logrado solucionarlo

en mi programada defino

DEFINE WINDOW oWnd NOSYSMENU TITLE "Sistema Generico " MENU BuildMenu()
>>>
>>>
ACTIVATE WINDOW oWnd MAXIMIZED VALID MsgYesNo("Seguro de Salir del Sistema ?", "Sistema Generico")

con esto logro que no aparezca ni el minimizar, ni maximizar ni la cruz para cerrar

ahora bien, en el menu tengo el boton Salir que busco que sea la unica forma de cerrar el programa

pero si en la barra de tareas de windows le doy boton derecho del mouse, aparece cerrar ventana y asi sin mas me la cierra

hay alguna forma de evitarlo? y que si o si salgan por el boton salir ??

gracias de antemano
Top
User avatar
nageswaragunupudi
Posts: 10691
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:
Contact nageswaragunupudi

Re: cerrar ejectutable solamente con salir

Post by nageswaragunupudi »

Code: Select all | Expand

#include "fivewin.ch"

function Main()

   local oWnd, oBar
   local lExit := .f.

   DEFINE WINDOW oWnd
   DEFINE BUTTONBAR oBar OF oWnd SIZE 60,40
   DEFINE BUTTON PROMPT "Exit" OF oBar ACTION ( lExit := .t., oWnd:End() )

   ACTIVATE WINDOW oWnd CENTERED VALID lExit

return nil
 
Regards

G. N. Rao.
Hyderabad, India
Top
User avatar
karinha
Posts: 7885
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Contact:
Contact karinha

Re: cerrar ejectutable solamente con salir

Post by karinha »

Code: Select all | Expand

// C:\FWH..\SAMPLES\TUTOR09.PRG

#Include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   LOCAL obar, oBmp, oIco

   DEFINE ICON oIco FILE "..\icons\fax.ico"

   // DEFINE WINDOW oWnd NOSYSMENU TITLE "Sistema Generico " ;
   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 TITLE "Sistema Generico "  ;
      MENU BuildMenu() ICON oIco NOSYSMENU
      // NOZOOM NOMINIMIZE BORDER NONE NOICONIZE

   DEFINE BUTTONBAR oBar _3D SIZE 40, 40 OF oWnd 2015

   oBar:bRClicked := { || ( NIL ) } // Mouse Direito
   oBar:bLClicked := { || ( NIL ) } // Mouse Esquerdo

   oBar:nClrText := CLR_BLACK
   oBar:Adjust()

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\new.bmp" FLAT ;
      ACTION MsgInfo( "New" ) ;
      TOOLTIP "Creates a new document" PROMPT "New" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\open.bmp" FLAT ;
      ACTION MsgInfo( cGetFile( "*.*", "Select a document to open" ) ) ;
      TOOLTIP "Opens a document" WHEN .f. PROMPT "Open" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\floppy.bmp" FLAT ;
      ACTION MsgInfo( Time() ) TOOLTIP "Saves this document" PROMPT "Doc" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT ;
      ACTION MsgInfo( "Prints this document" ) TOOLTIP "Print this document" ;
      GROUP PROMPT "Print"

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\prop.bmp" FLAT ;
      ACTION PrinterSetup() TOOLTIP "Setup the printer" PROMPT "Prop" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\HelpInd.bmp" FLAT ;
      ACTION MsgInfo( Version() ) TOOLTIP "A multiple lines" + ;
      Chr( 13 ) + Chr( 10 ) + "tooltip!" GROUP PROMPT "Help"

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Help.bmp" FLAT ;
      ACTION MsgInfo( "fivewin power!" ) TOOLTIP "fivewin power!"  ;
      PROMPT "Power" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT ;
      ACTION( oWnd:End(), SIERRA_TODO() ) TOOLTIP "Exit this app" GROUP ;
      PROMPT "Exit"

   SET MESSAGE OF oWnd TO "© kapiabafwh@gmail.com" NOINSET CLOCK DATE KEYBOARD COLOR CLR_HBLUE, CLR_WHITE 2015

   DEFINE BITMAP oBmp FILENAME "..\bitmaps\visual.bmp"

   oWnd:bPainted = { | hDC | BmpTiled( hDC, oWnd, oBmp ) }

   ACTIVATE WINDOW oWnd MAXIMIZED

RETURN NIL

FUNCTION BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "Information"
      MENU
         MENUITEM "&About..." ;
            ACTION MsgInfo( FWDESCRIPTION ) ;
            FILENAME "..\bitmaps\16x16\info.bmp"
         SEPARATOR
         MENUITEM "&End..."  ;
            ACTION( oWnd:End(), SIERRA_TODO() ) ;
            FILENAME "..\bitmaps\16x16\exit.bmp"

      ENDMENU

      MENUITEM "&Clients"
      MENU
         MENUITEM "&New..." ;
            ACTION ( MsgStop( "New Clients" ),;
                     oWnd:Say( 5, 5, "New Clients...", "GR+/G" ) ) ;
            FILENAME "..\bitmaps\16x16\faces.bmp"

         MENUITEM "&Modify..."  ACTION MsgInfo( "Modif. Clients" ) ;
            FILENAME "..\bitmaps\edit.bmp"

         MENUITEM "&Delete..."  ACTION MsgAlert( "Del Clients" ) ;
            FILENAME "..\bitmaps\16x16\delete.bmp"

         SEPARATOR

         MENUITEM "&Browse..."  ACTION MsgInfo( "Browse Clients" ) ;
            FILENAME "..\bitmaps\16x16\browse.bmp"

      ENDMENU

      MENUITEM "&Utilities"
      MENU
         MENUITEM "&Calculator..." ACTION WinExec( "Calc" ) ;
            FILENAME "..\bitmaps\16x16\calc.bmp"

         MENUITEM "&Internet..." ;
            ACTION WinExec( "start iexplore www.fivetech.com", 0 ) ;
            FILENAME "..\bitmaps\16x16\explorer.bmp"
      ENDMENU
   ENDMENU

RETURN( oMenu )

FUNCTION SIERRA_TODO()

   IF FILE( "TUTOR09.LOG" )
      DELETEFILE( "TUTOR09.LOG" )
   ENDIF

   DbCommitAll()
   DbUnLockAll()
   DbCloseAll()
   FreeResources()
   Release All
   SysRefresh()

   HB_GCALL( .T. )

   CLEAR MEMORY

   PostQuitMessage( 0 )

   QUIT

RETURN NIL

STATIC FUNCTION BmpTiled( hDC, oWnd, oBmp )

   local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()
   local nRow := 0, nCol := 0, n
   local nBmpWidth  := oBmp:nWidth(),  nBmpHeight := oBmp:nHeight()

   if oBmp:hBitmap == 0
      return nil
   endif

   while nRow < nHeight
      nCol = 0
      while nCol < nWidth
         PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )
         nCol += nBmpWidth
      end
      nRow += nBmpHeight
   end

RETURN NIL

// FIN / END - kapiabafwh@gmail.com
 
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Top
paquitohm
Posts: 284
Joined: Fri Jan 14, 2022 8:37 am

Re: cerrar ejectutable solamente con salir

Post by paquitohm »

Hola,

"pero si en la barra de tareas de windows le doy boton derecho del mouse, aparece cerrar ventana y asi sin mas me la cierra"

Me parece a mi que eso funciona como el administrador de tareas que permite finalizar tarea y no pasa por el bucle de eventos de la aplicacion y cierra sin contemplaciones

Salu2
Top
postinelli
Posts: 149
Joined: Tue Jul 15, 2008 7:12 pm
Location: Argentina

Re: cerrar ejectutable solamente con salir

Post by postinelli »

paquitohm wrote:Hola,

"pero si en la barra de tareas de windows le doy boton derecho del mouse, aparece cerrar ventana y asi sin mas me la cierra"

Me parece a mi que eso funciona como el administrador de tareas que permite finalizar tarea y no pasa por el bucle de eventos de la aplicacion y cierra sin contemplaciones

Salu2
Exactamente, se cierra sin mas
estoy buscando que no sea asi
Top
postinelli
Posts: 149
Joined: Tue Jul 15, 2008 7:12 pm
Location: Argentina

Re: cerrar ejectutable solamente con salir

Post by postinelli »

estimada Karina

si bien hago algo similar en mi boton salir, esto NO evita que se pueda cerrar el ejecutable desde la barra de tareas con cerrar ventana
y ahi no hace el proceso de cierre SIERRA_TODO()
karinha wrote:

Code: Select all | Expand

// C:\FWH..\SAMPLES\TUTOR09.PRG

#Include "FiveWin.ch"

STATIC oWnd

FUNCTION Main()

   LOCAL obar, oBmp, oIco

   DEFINE ICON oIco FILE "..\icons\fax.ico"

   // DEFINE WINDOW oWnd NOSYSMENU TITLE "Sistema Generico " ;
   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 TITLE "Sistema Generico "  ;
      MENU BuildMenu() ICON oIco NOSYSMENU
      // NOZOOM NOMINIMIZE BORDER NONE NOICONIZE

   DEFINE BUTTONBAR oBar _3D SIZE 40, 40 OF oWnd 2015

   oBar:bRClicked := { || ( NIL ) } // Mouse Direito
   oBar:bLClicked := { || ( NIL ) } // Mouse Esquerdo

   oBar:nClrText := CLR_BLACK
   oBar:Adjust()

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\new.bmp" FLAT ;
      ACTION MsgInfo( "New" ) ;
      TOOLTIP "Creates a new document" PROMPT "New" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\open.bmp" FLAT ;
      ACTION MsgInfo( cGetFile( "*.*", "Select a document to open" ) ) ;
      TOOLTIP "Opens a document" WHEN .f. PROMPT "Open" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\floppy.bmp" FLAT ;
      ACTION MsgInfo( Time() ) TOOLTIP "Saves this document" PROMPT "Doc" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT ;
      ACTION MsgInfo( "Prints this document" ) TOOLTIP "Print this document" ;
      GROUP PROMPT "Print"

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\prop.bmp" FLAT ;
      ACTION PrinterSetup() TOOLTIP "Setup the printer" PROMPT "Prop" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\HelpInd.bmp" FLAT ;
      ACTION MsgInfo( Version() ) TOOLTIP "A multiple lines" + ;
      Chr( 13 ) + Chr( 10 ) + "tooltip!" GROUP PROMPT "Help"

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Help.bmp" FLAT ;
      ACTION MsgInfo( "fivewin power!" ) TOOLTIP "fivewin power!"  ;
      PROMPT "Power" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT ;
      ACTION( oWnd:End(), SIERRA_TODO() ) TOOLTIP "Exit this app" GROUP ;
      PROMPT "Exit"

   SET MESSAGE OF oWnd TO "© kapiabafwh@gmail.com" NOINSET CLOCK DATE KEYBOARD COLOR CLR_HBLUE, CLR_WHITE 2015

   DEFINE BITMAP oBmp FILENAME "..\bitmaps\visual.bmp"

   oWnd:bPainted = { | hDC | BmpTiled( hDC, oWnd, oBmp ) }

   ACTIVATE WINDOW oWnd MAXIMIZED

RETURN NIL

FUNCTION BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "Information"
      MENU
         MENUITEM "&About..." ;
            ACTION MsgInfo( FWDESCRIPTION ) ;
            FILENAME "..\bitmaps\16x16\info.bmp"
         SEPARATOR
         MENUITEM "&End..."  ;
            ACTION( oWnd:End(), SIERRA_TODO() ) ;
            FILENAME "..\bitmaps\16x16\exit.bmp"

      ENDMENU

      MENUITEM "&Clients"
      MENU
         MENUITEM "&New..." ;
            ACTION ( MsgStop( "New Clients" ),;
                     oWnd:Say( 5, 5, "New Clients...", "GR+/G" ) ) ;
            FILENAME "..\bitmaps\16x16\faces.bmp"

         MENUITEM "&Modify..."  ACTION MsgInfo( "Modif. Clients" ) ;
            FILENAME "..\bitmaps\edit.bmp"

         MENUITEM "&Delete..."  ACTION MsgAlert( "Del Clients" ) ;
            FILENAME "..\bitmaps\16x16\delete.bmp"

         SEPARATOR

         MENUITEM "&Browse..."  ACTION MsgInfo( "Browse Clients" ) ;
            FILENAME "..\bitmaps\16x16\browse.bmp"

      ENDMENU

      MENUITEM "&Utilities"
      MENU
         MENUITEM "&Calculator..." ACTION WinExec( "Calc" ) ;
            FILENAME "..\bitmaps\16x16\calc.bmp"

         MENUITEM "&Internet..." ;
            ACTION WinExec( "start iexplore http://www.fivetech.com", 0 ) ;
            FILENAME "..\bitmaps\16x16\explorer.bmp"
      ENDMENU
   ENDMENU

RETURN( oMenu )

FUNCTION SIERRA_TODO()

   IF FILE( "TUTOR09.LOG" )
      DELETEFILE( "TUTOR09.LOG" )
   ENDIF

   DbCommitAll()
   DbUnLockAll()
   DbCloseAll()
   FreeResources()
   Release All
   SysRefresh()

   HB_GCALL( .T. )

   CLEAR MEMORY

   PostQuitMessage( 0 )

   QUIT

RETURN NIL

STATIC FUNCTION BmpTiled( hDC, oWnd, oBmp )

   local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()
   local nRow := 0, nCol := 0, n
   local nBmpWidth  := oBmp:nWidth(),  nBmpHeight := oBmp:nHeight()

   if oBmp:hBitmap == 0
      return nil
   endif

   while nRow < nHeight
      nCol = 0
      while nCol < nWidth
         PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )
         nCol += nBmpWidth
      end
      nRow += nBmpHeight
   end

RETURN NIL

// FIN / END - kapiabafwh@gmail.com
 
Regards, saludos.
Top
User avatar
karinha
Posts: 7885
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Contact:
Contact karinha

Re: cerrar ejectutable solamente con salir

Post by karinha »

Code: Select all | Expand

// C:\FWH..\SAMPLES\TUTOR09.PRG
// Modificado en: 21/09/2023

#Include "FiveWin.ch"

#Define aPubGrad {| lInvert | If( lInvert, ;
                 { { 1 / 3, nRGB( 255, 253, 222 ), nRGB( 255, 231, 151 ) }, ;
                 { 2 / 3, nRGB( 255, 215,  84 ), nRGB( 255, 233, 162 ) }    ;
                 },                                                         ;
                 { { 1 / 2, nRGB( 219, 230, 244 ), nRGB( 207 - 50, 221 - 25, 255 ) }, ;
                 { 1 / 2, nRGB( 201 - 50, 217 - 25, 255 ), nRGB( 231, 242, 255 ) }    ;
                 } ) }

STATIC oWnd
STATIC lSalida := .F.
STATIC oFont, nHFont, cFont, nWFont, cFontH, oBrush, oFnt, oFont40

FUNCTION Main()

   LOCAL obar, oBmp, oIco

   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO YEAR( DATE() ) - 30
   SET SOFTSEEK OFF
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   SET _3DLOOK ON
   SET UNIQUE OFF
   SET ESCAPE OFF
   SET EXACT ON
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF
   SET OPTIMIZE ON

   SetBalloon( .T. )

   SkinButtons()

   cFont   := "Segoe UI Symbol"  //"Calibri"
   cFontH  := -16  //-10 //-12 //-16 //-18  //-20

   IF !IsWin8() .and. !IsWindows10()
      cFont   := "Calibri"   //"Tahoma"
   ENDIF

   DEFINE FONT oFont   NAME cFont    SIZE 0, cFontH WEIGHT 300
   DEFINE FONT oFont40 NAME 'Tahoma' SIZE 0, -40 BOLD
   DEFINE ICON oIco FILE "..\icons\fax.ico"

   DEFINE WINDOW oWnd FROM 1, 1 TO 22, 75 TITLE "Sistema Generico "  ;
      MENU BuildMenu() ICON oIco NOSYSMENU

   DEFINE BUTTONBAR oBar _3D SIZE 40, 40 OF oWnd 2007

   oBar:bClrGrad := aPubGrad

   oBar:bRClicked := { || ( NIL ) } // Mouse Direito
   oBar:bLClicked := { || ( NIL ) } // Mouse Esquerdo

   oBar:nClrText := CLR_BLACK
   oBar:Adjust()

   oBar:SetFont( oFont )

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\new.bmp" FLAT ;
      ACTION MsgInfo( "New" ) ;
      TOOLTIP "Creates a new document" PROMPT "New" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\open.bmp" FLAT ;
      ACTION MsgInfo( cGetFile( "*.*", "Select a document to open" ) ) ;
      TOOLTIP "Opens a document" WHEN .f. PROMPT "Open" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\floppy.bmp" FLAT ;
      ACTION MsgInfo( Time() ) TOOLTIP "Saves this document" PROMPT "Doc" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT ;
      ACTION MsgInfo( "Prints this document" ) TOOLTIP "Print this document" ;
      GROUP PROMPT "Print"

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\prop.bmp" FLAT ;
      ACTION PrinterSetup() TOOLTIP "Setup the printer" PROMPT "Prop" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\HelpInd.bmp" FLAT ;
      ACTION MsgInfo( Version() ) TOOLTIP "A multiple lines" + ;
      Chr( 13 ) + Chr( 10 ) + "tooltip!" GROUP PROMPT "Help"

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Help.bmp" FLAT ;
      ACTION MsgInfo( "fivewin power!" ) TOOLTIP "fivewin power!"  ;
      PROMPT "Power" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT ;
      ACTION( oWnd:End(), CIERRA_TODO( lSalida := .T. ) )          ;
      TOOLTIP "Exit this app" GROUP ;
      PROMPT "Exit"

   SET MESSAGE OF oWnd TO "© kapiabafwh@gmail.com - Skype: joao@pleno.com.br" ;
       NOINSET CLOCK DATE KEYBOARD COLOR CLR_HBLUE, CLR_WHITE 2007 FONT oFont

   DEFINE BITMAP oBmp FILENAME "..\bitmaps\sea.bmp"

   oWnd:bPainted = { | hDC | BmpTiled( hDC, oWnd, oBmp ) }

   ACTIVATE WINDOW oWnd MAXIMIZED VALID( lSalida )

RETURN NIL

FUNCTION BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "Information"
      MENU
         MENUITEM "&About..." ;
            ACTION MsgInfo( FWDESCRIPTION ) ;
            FILENAME "..\bitmaps\16x16\info.bmp"
         SEPARATOR
         MENUITEM "&End..."  ;
            ACTION( oWnd:End(), CIERRA_TODO( lSalida := .T. ) ) ;
            FILENAME "..\bitmaps\16x16\exit.bmp"

      ENDMENU

      MENUITEM "&Clients"
      MENU
         MENUITEM "&New..." ;
            ACTION ( MsgStop( "New Clients" ),;
                     oWnd:Say( 5, 5, "New Clients...", "GR+/G" ) ) ;
            FILENAME "..\bitmaps\16x16\faces.bmp"

         MENUITEM "&Modify..."  ACTION MsgInfo( "Modif. Clients" ) ;
            FILENAME "..\bitmaps\edit.bmp"

         MENUITEM "&Delete..."  ACTION MsgAlert( "Del Clients" ) ;
            FILENAME "..\bitmaps\16x16\delete.bmp"

         SEPARATOR

         MENUITEM "&Browse..."  ACTION MsgInfo( "Browse Clients" ) ;
            FILENAME "..\bitmaps\16x16\browse.bmp"

      ENDMENU

      MENUITEM "&Utilities"
      MENU
         MENUITEM "&Calculator..." ACTION WinExec( "Calc" ) ;
            FILENAME "..\bitmaps\16x16\calc.bmp"

         MENUITEM "&Internet..." ;
            ACTION WinExec( "start iexplore www.fivetech.com", 0 ) ;
            FILENAME "..\bitmaps\16x16\explorer.bmp"
      ENDMENU
   ENDMENU

RETURN( oMenu )

FUNCTION CIERRA_TODO()

   IF FILE( "TUTOR09.LOG" )
      DELETEFILE( "TUTOR09.LOG" )
   ENDIF

   lSalida := .F.

   DbCommitAll()
   DbUnLockAll()
   DbCloseAll()
   FreeResources()
   Release All
   SysRefresh()

   HB_GCALL( .T. )

   CLEAR MEMORY

   PostQuitMessage( 0 )

   QUIT

RETURN NIL

STATIC FUNCTION BmpTiled( hDC, oWnd, oBmp )

   local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight()
   local nRow := 0, nCol := 0, n
   local nBmpWidth  := oBmp:nWidth(),  nBmpHeight := oBmp:nHeight()

   if oBmp:hBitmap == 0
      return nil
   endif

   while nRow < nHeight
      nCol = 0
      while nCol < nWidth
         PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap )
         nCol += nBmpWidth
      end
      nRow += nBmpHeight
   end

RETURN NIL

// FIN / END - kapiabafwh@gmail.com
 
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Top
postinelli
Posts: 149
Joined: Tue Jul 15, 2008 7:12 pm
Location: Argentina

Re: cerrar ejectutable solamente con salir

Post by postinelli »

nageswaragunupudi wrote:

Code: Select all | Expand

#include "fivewin.ch"

function Main()

   local oWnd, oBar
   local lExit := .f.

   DEFINE WINDOW oWnd
   DEFINE BUTTONBAR oBar OF oWnd SIZE 60,40
   DEFINE BUTTON PROMPT "Exit" OF oBar ACTION ( lExit := .t., oWnd:End() )

   ACTIVATE WINDOW oWnd CENTERED VALID lExit

return nil
 

Funcionó prefecto, muchas gracias
Top
Post Reply

Return to “FiveWin para Harbour/xHarbour”