FiveTech Software tech support forums

... of oDialog action (oTexto:cText('A')) redefine button oBut2 id 4002 of oDialog action (oTexto:cText('B')) activate dialog oDialog on init(oTexto:lPassword := .f.) (This code stopped working in the new version of fivewin 24.4) In TGET.PRG comentei a seguinte linha: METHOD Initiate( hDlg ) CLASS ...

Bira,

Sinceramente, não entendi o que você deseja fazer.

Tens um exemplo simples, pls?

Regards, saludos.

... of oDialog action (oTexto:cText('A')) redefine button oBut2 id 4002 of oDialog action (oTexto:cText('B')) activate dialog oDialog on init(oTexto:lPassword := .f.) (This code stopped working in the new version of fivewin 24.4) In TGET.PRG comentei a seguinte linha: METHOD Initiate( hDlg ) CLASS ...

... se muestra el el comun gray/blanco. he intentado usar con el style ES_PASSWORD desde dialogo resource, o quitando ese estilo y usando la data oGet:lPassword := .T. este es el codigo que controla eso en la clase tget, igualmente he intentado cambiarlo sin exito method paint ...      if IsWindowEnabled( ...

... 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