FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour FWH2404 TGet lPassword problem - solved
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
FWH2404 TGet lPassword problem - solved
Posted: Fri Aug 30, 2024 01:19 PM

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?

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: FWH2404 TGet lPassword problem
Posted: Sun Sep 01, 2024 03:43 PM

Bira,

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

Tens um exemplo simples, pls?

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: FWH2404 TGet lPassword problem
Posted: Tue Sep 03, 2024 04:02 PM
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 (fw): Select all Collapse
ACTIVATE DIALOG oDlg ON INIT oTexto:lShowPassword := .t.
and not to make any changes to the tget.prg
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion