FiveTech Software tech support forums

... variable and not to change all the dialogs that I have already done for many years it is possible to use ( oDlg:end( IDOK ) ) and ( oDlg:end( IDCANCEL ) ) ? and use IF oDlg:nresult == IDOK orec:save() ENDIF if I have to change all the insertion dialogs to check the get controls with the lsave ...

... oBtnClose ; PROMPT "Chiudi" SIZE 130,60 PIXEL OF oDlg; RESOURCE "INVOICE_EXIT" FLAT RIGHT; FONT oFontBold ; ACTION ( oDlg:end( IDCANCEL ) ) you can move the mouse over therse buttons but you cannot execute the command of each buttons If you press "Save" buttons the ...

... { CONTROL "&Aceptar [F5]", IDOK, "Button", WS_TABSTOP, 396, 306, 50, 14 CONTROL "&Cancelar", IDCANCEL, "Button", WS_TABSTOP, 452, 306, 50, 14 }

Hello, I compared the version where bAction of IDCANCEL works and the version where don't. I found this piece of code inside dialog.prg on method command:      case nID == IDCANCEL .and. ! ::lModal           if ::lValid()              ::bValid ...

Try using the CANCEL clause of the @ BUTTON command.

EMG

You are right, the bValid block is called, the problem is that is called even when the program closes the dialog with End.

The problem using bValid is that is called even when I close the dialog from the code with :End .
So I need to intercept the click of CANCEL button...

Try replacing WQOut() with MsgInfo().

EMG

... FUNCTION TEST()    LOCAL oDlg, nID, oBtn    DEFINE DIALOG oDlg    nID := TControl():nInitID    TControl():nInitID := IDCANCEL-1    @ 1, 20 BUTTON oBtn PROMPT "Cancel"    TControl():nInitID := nID    oBtn:bAction := {|| WQout("never happends") ...

... 12, 8, 84, 12 CONTROL "OK", IDOK, "Button", WS_TABSTOP, 160, 5, 45, 15 CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 160, 23, 45, 15 } Y el .prg sería este: #include "FiveWin.ch" #include "AutoGet.ch" static ...

... ) DEFINE DIALOG oDialog RESOURCE "GETSERIE" REDEFINE BUTTON ; ID IDOK ; OF oDialog ; ACTION ( oDialog:End( IDOK ) ) REDEFINE BUTTON ; ID IDCANCEL ; OF oDialog ; ACTION ( oDialog:End() ) CANCEL ACTIVATE DIALOG oDialog FreeResources() return nil Saludos.

... ID 102 OF oDlg MEMO REDEFINE GET cPass ID 103 OF oDlg MEMO REDEFINE BUTTON ID IDOK OF oDlg ACTION OpenOdbc(cDsn, cName, cPass) REDEFINE BUTTON ID IDCANCEL OF oDlg ACTION oDlg:End() ACTIVATE DIALOG oDlg return nil STATIC FUNCTION OpenOdbc(cDsn, cName, cPass) Local oOdbc, oDlg local aFiles local ...

... OF oDlgPsw ; SIZE 45,12 PIXEL 2007 ; BORDER LEFT ROUND ; PROMPT i18n("&Annulla") RESOURCE "DLG_NO" ; ACTION (oDlgPsw:end( IDCANCEL ) ) oBtnCon:bClrGrad = bClrGrad_2010 oBtnCon:oCursor := oCursorBtn oBtnCon:cTooltip := i18n("Conferma la copia di salvataggio archivi") ...

... 135, 14 CONTROL "&Ok", 120, "BUTTON", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 46, 37, 31, 14 CONTROL "&Cancel", IDCANCEL, "BUTTON", WS_CHILD | WS_VISIBLE | WS_TABSTOP, 88, 37, 31, 14 END

... @ 235, 182 BTNBMP oBtnCan PROMPT "&Annulla" RESOURCE "DLG_NO" SIZE 55, 12 ; LEFT 2007 ROUND ACTION ( oDlg:end( IDCANCEL ) ) oBtnCan:bClrGrad = bClrGrad oBtnCan:oCursor := oCursorBtn oBtnCan:cTooltip := i18n("Annulla la registrazione del movimento") ...

... FONT 8, "Tahoma", 0, 0, 1 { CONTROL "OK", IDOK, "Button", WS_TABSTOP, 160, 5, 45, 15 CONTROL "Cancel", IDCANCEL, "Button", WS_TABSTOP, 160, 23, 45, 15 CONTROL "This is a label:", 4001, "Static", WS_GROUP, 4, 20, 40, 8 CONTROL ...