FiveTech Software tech support forums

usa esto

oGetArticulo:lCancel = .T.

... iNfam ID 170 OF iDlg1 FONT xFont1 PICTURE "@!" ; ACTION (FamiBus(), oGet:SetFocus(), iDlg1:Update()) ; VALID (Verfami22(iDlg1)) UPDATE oGet:oBtn:lCancel:=.t. Da el error Application =========== Path and name: C:\Fuentes32\F3CC\F3CC.Exe (32 bits) Size: 6,487,552 bytes Time from start: 0 hours ...

... function MsgMeter( bAction, cMsg, cTitle, lBoton ) local oDlg, oMeter, oText, oBtn, oFont local lEnd := .f., lCancel := .f. local nVal := 0 DEFAULT bAction := { || nil },; cMsg := "Procesando...", cTitle := "Aguarde por favor",; lBoton := .f. DEFINE DIALOG ...

Gracias por responder.

Willi, no se si entendiste lo que quiero hacer, con "oDlg:Hide()", el dialog no se cierra, sólo se oculta.

Francisco, usé "oBtn:lCancel = .T." como indicas y funcionó según mis expectativas.

Saludos.

Rolando

... se cierra sin problemas. Hay alguna manera de acceder a la rutina que se accede al clickear sobre la "X"? Gracias. Rolando :D Prueba con oBtn:lCancel = .T. ó con la clásula CANCEL REDEFINE BUTTON oBtn ID 101 OF oDlg ACTION oDlg:End() CANCEL Saludos

José,

Sería suficiente con que le asignes el dato lCancel del botón a verdadero:

REDEFINE GET ... ACTION ...

oGet:oBtn:lCancel = .T.

asi se saltará la validación del GET

REDEFINE BTNBMP oBtn ID 1000 OF ODLG ACTION(MSGINFO("TESTE")) RESOURCE "TOUCH"

oBtn:lCancel := .T.

... METHOD ReDefine(nTipo,cCampo,cExquie,cRutina,cRutf4,cExaminar,cCacebera,cCaja,nId, bAction, oWnd, nHelpId, cMsg,; lUpdate, bWhen, bValid, cPrompt, lCancel ) CONSTRUCTOR Then within method transfer 8 parameters to variable of instance as makes it the class original TButton METHOD ReDefine(nTipo,cCampo,cExquie,cRutina,cRutf4,cExaminar,cCacebera,cCaja,nId, ...

... Hello ! I'm using this class is some dialogs . I know that can assign to oBtnbmp:lCancel := .t. . In some cases I need default , but oBtnbmp:lDefault := .t. doesn't work . What to do in this situation ? Try to trap Enter key. Thank ...

... 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 ) ** Modificacao feita ...

Usando CopyFileEx, con fivewin , por ejemplo. Bueno, en un proyecto he tenido que copiar un fichero de un sitio a otro, si bueno teniamos la funcion MyCopyFile() que teniamos implementada en Fivewin de la siguiente manera: DLL32 FUNCTION MYCOPYFILE( lpExistingFileName AS STRING, lpNewFileName AS...

... ID 110 OF oDlg PROMPT "&Cancelar" ; BITMAP "CANCELROJO" TEXTRIGHT ; ACTION (oDlg:End()) oBtn:cTooltip:= "Algo" ; oBtn:oFont:= oFont ; oBtn:lCancel:=.T. Si pones el nombre del bmp sin extension lo busca en el archivo de recursos Saludos Ruben Fernandez.

... otros datos, aparecen dos botones Aceptar y Cancelar. Lo que queria saber es como controlo que se ha pulsado Cancelar, existe algo asi como oPrn:lCancel o algo parecido. Gracias de antemano

... gracias. Ahora me gustaria saber como puedo asignar una tecla aceleradora al mismo tBTNBMP Un saludo José Martin, Tienes que asignar el dato lCancel del TBtnBmp, aquí tienes un ejemplo funcionando correctamente: #include "FiveWin.ch" function Main() local oDlg, cText ...

José Martin, Tienes que asignar el dato lCancel del TBtnBmp, aquí tienes un ejemplo funcionando correctamente: #include "FiveWin.ch" function Main() local oDlg, cText := Space( 10 ), oBtn DEFINE DIALOG oDlg TITLE ...