FiveTech Software tech support forums

... DEFINE BUTTONBAR oBar 3D SIZE 40,40 OF oEdit:oDlg DEFINE lBUTTON oBtn OF oBar; ACTION (oEditOm:aMemo[8]:=oEdit:oWnd:oClient:GetText(),; oEdit:lCancel:=.t.,oEdit:nOption:=0,oEdit:Close(),; EVAL(bRun,oEditOm) ,; DpFocus(oFocus)); FILE oDp:BitMaps+"XSALVA.BMP"; MESSAGE "F2: Aceptar"; ...

Antonio, Pero no es el cancel para todos los gets del diàlogo, que cada uno tiene un valid diferente. He visto el fuente de Tbutton y la data lcancel. Eso falta en la clase tbtnbmp y sería muy fàcil implementarlo. Yo podría modificar la clase, peeo lo suyo sería que esa modificaciòn fuera dentro ...

... local oDlg, oRad, oPageIni, oPageEnd local nOption := 1, nFirst := 1, nLast := Len( ::oDevice:aMeta ) // DEVICE local oThis := Self local lCancel := .t. if nLast != 1 DEFINE DIALOG oDlg SIZE 400, 183 TITLE FWString( "Printing" ) oDlg:lTruePixel := .f. @ 8, 8 GROUP PROMPT FWString( ...

... un código para no introducir uno repetido, y colocas la clausa CANCEL en el BUTTON (de cancelar o salir) o si no esta disponible utilizar oBtn:lCancel := .T. eso te permite no trancarte en una validacion de un GET. Yo utilizo un validador basico //------------------------------------------------------------------------------FUNCTION ...

... un código para no introducir uno repetido, y colocas la clausa CANCEL en el BUTTON (de cancelar o salir) o si no esta disponible utilizar oBtn:lCancel := .T. eso te permite no trancarte en una validacion de un GET. Yo utilizo un validador basico //------------------------------------------------------------------------------FUNCTION ...

... un código para no introducir uno repetido, y colocas la clausa CANCEL en el BUTTON (de cancelar o salir) o si no esta disponible utilizar oBtn:lCancel := .T. eso te permite no trancarte en una validacion de un GET. Yo utilizo un validador basico //------------------------------------------------------------------------------FUNCTION ...

Carlos, te pongo como lo hago y me funciona al pelo y uso lCancel en un boton, saludos... :shock:    REDEFINE BUTTONBMP aBtn[3] ID 203 OF oDlg ; // CALCELAR      ACTION IIF( MsgNoYes( "Seguro Desea Salir/Cancelar Inscripción.?", ...

... has action clause it does not fire the valid when you are on other gets. It seems that it should skip the valid only on it's own get. Maybe the lCancel for the button should be set when the tget gets the focus from another control and turned off when the tget loses focus to another control.

Maestro,

Aún aceptando haga clic en el BMP.

El problema está realmente en lCancel, se activa el botón para recibir el clic incondicionalmente.

Como lo hizo antes está la solución.

Gracias.

Antonio, Realmente lCancel es despreciar la válida, sin embargo, esto afecta cuando el botón está dentro del GET. Así que estaba aceptando el clic y la realización de la acción y haciendo caso omiso de la otra valid de la GET (que ...

Alexandre,

Pero la DATA lCancel no es para habilitar y deshabilitar un botón. lCancel se usa para que el botón se salte la validación del control en curso.

Es extraño que te funcione bien con eso.

Que error te dió el código que te sugerí ?

Maestro, La forma en que ha pasado dio error. Sin embargo, cambié el TGet y así lo hizo: METHOD CreateButton() CLASS TGet ... ::oBtn:lCancel = .f. // Inicia FALSO para ser habilitado na GOTFOCUS (Alexandre Pereira) ... METHOD LostFocus( hCtlFocus ) CLASS TGet ... // Desabilitando quando ...

... := TButton:New( nRow, nCol, cCaption, oWnd, bAction, nWidth, nHeight, nHelpId, oFont, lDefault,; lPixel, lDesign, cMsg, lUpdate, bWhen, bValid, lCancel,cVarName, lMultiline ) ó oBtn[nButon]:= TButton:ReDefine( nId, bAction, oWnd, nHelpId, cMsg, lUpdate, bWhen, bValid, cPrompt, lCancel )

...     3318 LBUTTONDOWN()          (function  in ?)    WINDOW.PRG      674  2426 LBUTTONUP()            (function  in ?)    WINDOW.PRG      675  2436 LCANCEL                WINDOW.PRG      438 LCAPTION                WINDOW.PRG      486  1115  1123  1130  1131  1132  1133 LCHECKED                WINDOW.PRG ...

Mario,

oRBtn:lCancel := .T.