Page 1 of 1

FWH2404 TGet lPassword problem - solved

Posted: Fri Aug 30, 2024 1:19 pm
by MGA
I have a GET(in .RC password=yes) in a dialog, where in ON INIT, i change password=false.

Example:

(this code worked in the old version of fivewin 16.8 )

define dialog oDialog resource 'TECLADO' //(in .RC password=yes)

redefine get oTexto var cTexto id 4020 of oDialog picture '@!k' color when .f.

redefine button oBut1 id 4001 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 TGet


::Super:Initiate( hDlg )
::oGet:SetFocus()

if lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_PASSWORD )
::lPassword = .t.
//::lWideChar = .t. <------------------------------------- HERE
endif
...

Mr. Antonio, can you confirm if I can leave it like this? If it is safe to comment on this line?

Re: FWH2404 TGet lPassword problem

Posted: Sun Sep 01, 2024 3:43 pm
by karinha
Bira,

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

Tens um exemplo simples, pls?

Regards, saludos.

Re: FWH2404 TGet lPassword problem

Posted: Tue Sep 03, 2024 4:02 pm
by nageswaragunupudi
MGA wrote:I have a GET(in .RC password=yes) in a dialog, where in ON INIT, i change password=false.

Example:

(this code worked in the old version of fivewin 16.8 )

define dialog oDialog resource 'TECLADO' //(in .RC password=yes)

redefine get oTexto var cTexto id 4020 of oDialog picture '@!k' color when .f.

redefine button oBut1 id 4001 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 TGet


::Super:Initiate( hDlg )
::oGet:SetFocus()

if lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_PASSWORD )
::lPassword = .t.
//::lWideChar = .t. <------------------------------------- HERE
endif
...

Mr. Antonio, can you confirm if I can leave it like this? If it is safe to comment on this line?
We suggest

Code: Select all | Expand

ACTIVATE DIALOG oDlg ON INIT oTexto:lShowPassword := .t.
and not to make any changes to the tget.prg