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
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour get y password en algunos funciona..
Puedes compartir un ejemplo del problema?
EMG
goosfancito wrote: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.
LOCAL cPasword := Space(10) // Por poner un ejemplo, si son 10 caracteres.Saludos.
Jose.
Fwh 24.07 64 bits + Harbour 64 bits 3.2dev(r2407221137) + MSVC64
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.
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.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
2012
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
The dialog contains 4 gets. First Get is a normal get and the other 3 are password gets.
PRG:
Please copy the prg and rc to fwh\samples folder and build and run with buildh.bat.
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
#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:
#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 nilPlease copy the prg and rc to fwh\samples folder and build and run with buildh.bat.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India