get y password en algunos funciona..

get y password en algunos funciona..

Postby goosfancito » Sat Mar 13, 2021 9:05 am

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
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: get y password en algunos funciona..

Postby Enrico Maria Giordano » Sat Mar 13, 2021 9:09 am

Puedes compartir un ejemplo del problema?

EMG
User avatar
Enrico Maria Giordano
 
Posts: 8724
Joined: Thu Oct 06, 2005 8:17 pm
Location: Roma - Italia

Re: get y password en algunos funciona..

Postby jvtecheto » Sat Mar 13, 2021 3:13 pm

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.

Code: Select all  Expand view  RUN

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
User avatar
jvtecheto
 
Posts: 602
Joined: Mon Mar 04, 2013 4:32 pm
Location: Spain

Re: get y password en algunos funciona..

Postby goosfancito » Sat Mar 13, 2021 8:19 pm

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.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: get y password en algunos funciona..

Postby nageswaragunupudi » Sun Mar 14, 2021 7:59 pm

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
User avatar
nageswaragunupudi
 
Posts: 10690
Joined: Sun Nov 19, 2006 5:22 am
Location: India

Re: get y password en algunos funciona..

Postby goosfancito » Sun Mar 14, 2021 9:46 pm

2012
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: get y password en algunos funciona..

Postby nageswaragunupudi » Mon Mar 15, 2021 1:33 pm

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
 


Image

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

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10690
Joined: Sun Nov 19, 2006 5:22 am
Location: India


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 119 guests