FWH2404 TGet lPassword problem - solved

[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?

[karinha]

Bira,

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

Tens um exemplo simples, pls?

Regards, saludos.

[nageswaragunupudi]

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 view  RUN

ACTIVATE DIALOG oDlg ON INIT oTexto:lShowPassword := .t.

and not to make any changes to the tget.prg