FiveTech Software tech support forums

... voy a inventigar que tiene de nuevo esta opción o si es algo Adicional @ 030, 006 GET oGet[2] VAR cPass SIZE 80, 10 PIXEL OF oDlg Update * oGet[2]:lPassWord := .T. Quedo de la siguiente manera @ 030, 006 GET oGet[2] VAR cPass SIZE 90, 10 PIXEL OF oDlg password Update

Resuelto.

EL problema es la opción password del get, lo he comentado y se envió el mensaje, voy a inventigar que tiene de nuevo esta opción o si es algo Adicional

@ 030, 006 GET oGet[2] VAR cPass SIZE 80, 10 PIXEL OF oDlg Update
* oGet[2]:lPassWord := .T.

... (abajo la linea que uso) GRACIAS REDEFINE GET oPass VAR cPass ID 120 OF oDlg PICTURE "@KR" VALID chkvalpas(cPass) ACTION ( oPass:lPassword := !oPass:lPassword, oPass:Refresh() ) BITMAP "#8007"

... acorde con lo que se usa actualmente. REDEFINE GET oPass VAR cPass ID 120 OF oDlg PICTURE "@KR" VALID chkvalpas(cPass) ACTION ( oPass:lPassword := !oPass:lPassword, oPass:Refresh() ) BITMAP "FIND16x16" oPass:lPassword := .T.

... todo el trabajo esta en el codigo : REDEFINE GET oPass VAR cPass ID 120 OF oDlg PICTURE "@KR" VALID chkvalpas(cPass) ACTION ( oPass:lPassword := !oPass:lPassword, oPass:Refresh() ) oPass:lPassword := .T. https://www.consorcioinformatico.net/password.jpg Ahora 3 temas ...

... la linea de programa : cPass:=space(10) REDEFINE GET oPass VAR cPass ID 120 OF oDlg PICTURE "@X" VALID chkvalpas(cPass) ACTION ( oPass:lPassword := !oPass:lPassword, oPass:Refresh() ) aqui el dialogo del recurso : CVINGPAS DIALOG FIXED IMPURE 101, 36, 298, 79 STYLE WS_POPUP|DS_MODALFRAME|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE ...

... abajo la linea de codigo, Muchas Gracias REDEFINE GET oPass VAR cPass ID 120 OF oDlg PICTURE "@X" VALID chkvalpas(cPass) ACTION ( oPass:lPassword := !oPass:lPassword, oPass:Refresh() )

... xx,xx SAY and @ xx,xx GET commands rather than the resources. It seems like redefining to resources is an afterthought. With @ xx,xx GET, you have lPassword as an option, but it is not available for a REDEFINE. I will guess the error lies in not properly getting the ES_PASSWORD status from the ...

... exist in 20.06 or 20.07 In doing a comparison, I can see that a lot of the tGet code in 20.07 was removed in 20.08. I'm wondering if the variable lPassword is remaining false in a Dialog GET that contains ES_PASSWORD. For example line 574 seems to require lPassword to be .T. in addition to ES_PASSWORD ...

Thanks i will try. For now i have removed in the RC clausula "password", in my program i set oGet:lPassword to .T.. Now is functioning.

Antonio, busca en la carpeta de sources/function el prg MSGGET.PRG
Puedes usar esa function, poniéndole como parámetro oFont y quitándole los parámetros relativos a los gets: lMemo, lPassword
Elimina el código de los GETS y prácticamente lo tienes hecho

... = GetWindowText( ::hWnd ) ::oGet:Pos = GetCaretPos()[ 2 ] ::oGet:Assign() if ::bChange != nil Eval( ::bChange,,, Self ) endif endif IF SELF:LPASSWORD IF SELF:CTRL_V$'Y' //** DO NOT REFRESH IF CTRL_V PASTE - CONTINUE ELSE SELF:REFRESH() //** Right mouse button click - Paste opt selected ENDIF ...

I have used fwh 1302 for many years until recently, when I upgraded to fwh 1905. I found a difference when specifying lPassword := .t. on a tget() object. If I paste a value into the "masked" get-object created with the 1302 version, no problem. The get displays all asterisks, ...

... Get oGetpas VAR cPass ID 110 OF oDlg FONT oFontArial UPDATE oGetpass:bValid := {||CambioGet(oGetpass) } FUNCTION CAMBIOGET(oGetpass) oGetpass:lPassword:=.t. oGetpass:Refresh() Return(.T.) Saudos Ruben Dario Fernandez Maestros: Willi y Fernandez, muuchasss gracias, lo probé y quedó. Son buenos ...

... : REDEFINE GET oRec[2,1] VAR oRec[2,2] ID 201 OF oDlg_Rec PICTURE "9999999999" FONT aLetras[21] oRec[2,1]:bLostFocus := {|| oRec[2,1]:lPassword := .T.} oRec[2,1]:bSetfocuss := {|| oRec[2,1]:lPassword := .F.} Espero y te sirva.