FiveTech Software tech support forums

... METHOD GetDlgCode( nLastKey ) CLASS TSButton If nLastKey > 0 .and. nLastKey == ::nWakeup ::nWakeup := 0 EndIf If ( ! ::oWnd:lValidating .and. ::lCancel .and. ::cAccel != Nil .and. GetAsyncKey( VK_MENU ) .and. ; GetAsyncKey( Asc( Upper( ::cAccel ) ) ) .and. ::nWakeup == 0 ) ::SendMsg( FM_CLICK ...

... aRect , cMsg, aOptions, cTitle, xIcon, nDefault, aGradiate, ; bAction, oFont, cFileRes, oIcon, uVar, cPict, bValid,; lSpinner, lMeter, oMeter, lCancel) ... ... ACTIVATE DIALOG oDlg CENTERED ; ON INIT (DlgInit(oDlg, lPosition, aRect , oFont, cMsg, aOptions, cTitle, nDefault,; aGradiate, bAction, ...

Gale YES .. your advice worked GREAT .. oButton:lCancel := .t. allowed the valid NOT to fire if the cursor was in the Valid Get ! Thanks Rick Lipkin REDEFINE BTNBMP oBUTT2 ID 112 of oREQ   ;    // cancel        ...

I don't think the Cancel clause works on btnbmp class. You have to use oButton:lCancel := .f.

Try adding
oBUTT2:lCancel := .t.

... CALCELAR REDEFINE BUTTONBMP aBtn[2] ID 202 OF oDlg UPDATE ; ACTION ( oDlg:End() ) ; BITMAP 2004 PROMPT "Cancelar" TEXTRIGHT aBtn[2]:lCancel := .T. // PARA CERRAR DIALOGO BOTON Cancelar //------ FIN DEFINICION DE LOS BOTONES ------------------------- ACTIVATE DIALOG oDlg CENTER cQry:End() ...

Hola

add obtn:lCancel := .T.

regards

Marcelo

Intenta:

LCANCEL := .T.

... asi: Upper( oWnd:Classname() ) $ "TBUTTON;TBTNBMP;TBUTTONBMP; TRBTN " .and. ; Y para que el boton cancele un Valid se debe poner oBtn:lcancel:=.T. Ahora si me quedo tranquilo, gracias a todos.

The Source-file of Function < Msgmeter >, You can find
in the FWH-subdirectory /Functions. Just make the changes You need.

@ 2.2, 10.4 BUTTON oBtn PROMPT "&Cancel" OF oDlg ;
ACTION ( lEnd:= .t., lCancel:= .t. ) SIZE 32, 11

Best Regards
Uwe

... forma automatica y controlada... tiene 2 metodos muy utiles Backup y Restore METHOD Backup( aTables, cFile, lDrop, lOver, nStep, cHeader, cFooter, lCancel ) METHOD Restore( cFile, lCancel ) este el el link del blog http://tdolphin.blogspot.com/ encontraras el codigo fuente de la clase ...

... DATA oWnd, oPagina // Ednaldo DATA nPage AS NUMERIC // Ednaldo DATA cDevice // Ralph DATA nMaxLine, nLength, nLastError AS NUMERIC // Ralph DATA lCancel, lPreview, lModograf, lIsLaser AS LOGICAL // Ralph METHOD New(cPort) CONSTRUCTOR METHOD End() METHOD StartPage() INLINE ::ShowProc() // Ednaldo ...

...    MESSAGE  "Salir Lista Productos"    ;                ACTION   oDlg:End();                TOOLTIP  "Terminar"       oBtnFin:lCancel := .T.

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

... now we can set default item selected and define Cancel button function MsgList( aData, cTitle, nTop, nLeft, nBottom, nRight, cBtnTitle, nItem, lCancel, cCapCan ) nItem -> preselected item lCancel -> define Cancel button cCapCan -> Cancel Button caption Please review samples/testml.prg ...