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
FiveTech Software tech support forums
www.FiveTechSoft.com
cerrar ejectutable solamente con salir
8 posts • Page 1 of 1
cerrar ejectutable solamente con salir
by postinelli » Wed Sep 20, 2023 6:11 pm
- postinelli
- Posts: 149
- Joined: Tue Jul 15, 2008 7:12 pm
- Location: Argentina
Re: cerrar ejectutable solamente con salir
by nageswaragunupudi » Wed Sep 20, 2023 7:01 pm
- Code: Select all Expand view RUN
- #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
G. N. Rao.
Hyderabad, India
-
nageswaragunupudi - Posts: 10646
- Joined: Sun Nov 19, 2006 5:22 am
- Location: India
Re: cerrar ejectutable solamente con salir
by karinha » Wed Sep 20, 2023 7:21 pm
- Code: Select all Expand view RUN
// 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
-
karinha - Posts: 7831
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
Re: cerrar ejectutable solamente con salir
by paquitohm » Thu Sep 21, 2023 8:44 am
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
"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
- paquitohm
- Posts: 266
- Joined: Fri Jan 14, 2022 8:37 am
Re: cerrar ejectutable solamente con salir
by postinelli » Thu Sep 21, 2023 12:49 pm
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
- postinelli
- Posts: 149
- Joined: Tue Jul 15, 2008 7:12 pm
- Location: Argentina
Re: cerrar ejectutable solamente con salir
by postinelli » Thu Sep 21, 2023 12:53 pm
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()
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 view RUN
// 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.
- postinelli
- Posts: 149
- Joined: Tue Jul 15, 2008 7:12 pm
- Location: Argentina
Re: cerrar ejectutable solamente con salir
by karinha » Thu Sep 21, 2023 3:27 pm
- Code: Select all Expand view RUN
// 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
-
karinha - Posts: 7831
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
Re: cerrar ejectutable solamente con salir
by postinelli » Fri Sep 22, 2023 11:31 am
nageswaragunupudi wrote:
- Code: Select all Expand view RUN
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
- postinelli
- Posts: 149
- Joined: Tue Jul 15, 2008 7:12 pm
- Location: Argentina
8 posts • Page 1 of 1
Return to FiveWin para Harbour/xHarbour
Who is online
Users browsing this forum: Google [Bot] and 65 guests