get y password en algunos funciona..

[goosfancito]

hola.

tengo un recurso con get con la clausula password. en un get funciona y en el otro no deja digitar todo el largo buscado, solo 3 digitos.
a alguien le pasa?
tengo la version 2020

gracias

[Enrico Maria Giordano]

Puedes compartir un ejemplo del problema?

EMG

[jvtecheto]

hola.

tengo un recurso con get con la clausula password. en un get funciona y en el otro no deja digitar todo el largo buscado, solo 3 digitos.
a alguien le pasa?
tengo la version 2020

gracias

Hola Gustavo.

Por que no pruebas a definir la variable a utilizar en el GET con los espacios que te hacen falta.

Code: Select all  Expand view  RUN

LOCAL cPasword := Space(10) // Por poner un ejemplo, si son 10 caracteres.
 

Saludos.

Jose.

[goosfancito]

el ejemplo no se como compartirlo. desde el res lo defino como get con password, aclaro que me esta pasando esto con la version que tengo ahora de harbour y fwh 2020, con la anterior que tenia no tenia este inconveniente.

al get lo defino como space(20) pero tampoco me da. si en el get del recurso le quito la clausula password funciona sin problemas.

[nageswaragunupudi]

Please indicate the correct FWH version. There is no version FWH 2020.
Versions can be one of 2002, 2004, 2006, 2007, 2008, 2012.
If you let us know the correct version, we will check it here with that version.

[goosfancito]

2012

[nageswaragunupudi]

We tested with FWH 2012 and also later versions.

We did not experience any problems indicated above. We are able to enter the passwords total number of characters upto the original width of the variable.

This is the sample we tested:

RC

Code: Select all  Expand view  RUN

#ifndef __64__
  1 24 "WinXP/WindowsXP.Manifest"
#else
  1 24 "WinXP/WindowsXP.Manifest64"
#endif

TESTPW DIALOG 99, 89, 194, 200
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Password"
FONT 8, "MS Sans Serif"
{
 CHECKBOX "EnableEdit", 100, 33, 21, 129, 11, BS_AUTOCHECKBOX | WS_TABSTOP
 EDITTEXT 101, 33, 51, 131, 14, WS_BORDER | WS_TABSTOP
 EDITTEXT 102, 33, 71, 131, 14, WS_BORDER | WS_TABSTOP | ES_PASSWORD
 EDITTEXT 103, 33, 91, 131, 14, WS_BORDER | WS_TABSTOP | ES_PASSWORD
 EDITTEXT 104, 33,111, 131, 14, WS_BORDER | WS_TABSTOP | ES_PASSWORD
 DEFPUSHBUTTON "OK", 1, 42, 150, 50, 20
 PUSHBUTTON "Cancel", 2, 102, 150, 50, 20
}

The dialog contains 4 gets. First Get is a normal get and the other 3 are password gets.

PRG:

Code: Select all  Expand view  RUN

#include "fivewin.ch"

function Main()

   local oDlg, oFont, aGet[ 4 ]
   local aText    := { "Name", "pwd", "pword", "password" }
   local lEnable  := .t.

   SetGetColorFocus()

   AEval( aText, { |c,i| aText[ i ] := PadR( c, 15 ) } )

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg RESOURCE "TESTPW" FONT oFont TITLE FWVERSION

   REDEFINE CHECKBOX lEnable ID 100 OF oDlg
   REDEFINE GET aGet[ 1 ] VAR aText[ 1 ] ID 101 OF oDlg
   REDEFINE GET aGet[ 2 ] VAR aText[ 2 ] ID 102 OF oDlg
   REDEFINE GET aGet[ 3 ] VAR aText[ 3 ] ID 103 OF oDlg
   REDEFINE GET aGet[ 4 ] VAR aText[ 4 ] ID 104 OF oDlg

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

   AEval( aText, { |c,i| aText[ i ] := Trim( c ) } )

   ? FW_ArrayAsList( aText )

return nil
 

Please copy the prg and rc to fwh\samples folder and build and run with buildh.bat.