Funciona cláusula CANCEL en Button de Buttonbar ?

Funciona cláusula CANCEL en Button de Buttonbar ?

Postby gdeteran » Fri Sep 24, 2010 8:47 pm

Agradecido de antemanos...
Saludos,
Gonzalo
Puerto Montt - CHILE
FWH 22.12 - Harbour 3.2.0dev (r2008190002) - Borland/Embarcadero C++ 7.0(32-bit)
User avatar
gdeteran
 
Posts: 115
Joined: Fri Oct 14, 2005 7:10 pm
Location: Puerto Montt - CHILE

Re: Funciona cláusula CANCEL en Button de Buttonbar ?

Postby gdeteran » Tue Sep 28, 2010 8:37 pm

Como puedo bypasear las cláusulas VALID y cancelar un Dialog ?

Sé que con BUTTON se puede hacer pero, como puedo simular lo mismo con Button de un ButtonBar?
Saludos,
Gonzalo
Puerto Montt - CHILE
FWH 22.12 - Harbour 3.2.0dev (r2008190002) - Borland/Embarcadero C++ 7.0(32-bit)
User avatar
gdeteran
 
Posts: 115
Joined: Fri Oct 14, 2005 7:10 pm
Location: Puerto Montt - CHILE

Re: Funciona cláusula CANCEL en Button de Buttonbar ?

Postby Ruben Fernandez » Sat Oct 02, 2010 4:46 pm

Hola gdeteran: quizas esto te ayude, yo lo hago asi.

DEFINE BUTTON boton4 OF oBtnBar1 RESNAME "SALE" ;
MESSAGE "Salir" ;
ACTION( SalirTbx:=.T.,xDlg1:END() ) ;
PROMPT "Salir" Font oFontBarra
RETURN(.F.)

SalirTbx:=.T. esta variable la pongo como condicion para cerrar el díalogo, si la declaro local hay que pasarla como referencia

Saludos
Gracias y Saludos
Ruben Fernandez - Uruguay
FWH 11.06, Harbour, Borland 5.82
Ruben Fernandez
 
Posts: 366
Joined: Wed Aug 30, 2006 5:25 pm
Location: Uruguay

Re: Funciona cláusula CANCEL en Button de Buttonbar ?

Postby gdeteran » Mon Oct 04, 2010 9:16 pm

Gracias Rubén, la verdad es que lo solucioné así:

@ 00, 11 BUTTONBAR oBar1 OF oDlg

DEFINE BUTTON oBtnTermina OF oBar1 NOBORDER;
FILE "..\bitmaps\EXIT2.BMP" ;
MESSAGE "Terminar" ;
ACTION oDlg:End()

oBtnTermina:lCancel := .T.
Saludos,
Gonzalo
Puerto Montt - CHILE
FWH 22.12 - Harbour 3.2.0dev (r2008190002) - Borland/Embarcadero C++ 7.0(32-bit)
User avatar
gdeteran
 
Posts: 115
Joined: Fri Oct 14, 2005 7:10 pm
Location: Puerto Montt - CHILE


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 45 guests