In the new 19/12 are no input to make on a REDEFINE GET with clausula password in the RC-file. Also the Picture-clausula are not respected!
With DEFINE GET... i do not know!
#include "Fivewin.ch"
FUNCTION Main()
LOCAL oDlg, oBtn
DEFINE DIALOG oDlg TITLE "Test PassWord"
@1.5, 2 BUTTON oBtn PROMPT "Test GET and PASSWORD" ;
ACTION TESTPASSW()
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
FUNCTION TESTPASSW()
LOCAL oDlg, oGet1, oGet2, oGet3
LOCAL cUserName := "Byte-One " + SPACE( 32 ), ;
cPassword := SPACE( 40 ), cPassword2 := SPACE( 40 )
DEFINE DIALOG oDlg TITLE "Test Password in FiveWin"
@ 1, 1 GET oGet1 VAR cUserName SIZE 120, 12 OF oDlg
@ 2, 1 GET oGet2 VAR cPassword PASSWORD SIZE 120, 12 OF oDlg
@ 3.5, 1 GET oGet3 VAR cPassword2 PASSWORD SIZE 120, 12 OF oDlg
ACTIVATE DIALOG oDlg CENTERED
RETURN NIL
/*
Using Resources:
EDITTEXT 20, 101, 63, 50, 14, ES_CENTER | ES_MULTILINE | ES_PASSWORD | WS_BORDER | WS_GROUP | WS_TABSTOP
*/
oTimer:deactivate()
if(oTimer:lactive,oTimer:deactivate(),)
byte-one wrote:Karinha, the software is also using in a automode if after start nobody types in a password. After 10 secs the password-dialog ends and a predefined password is using. If inside the 10 secs a user types in a char, the timer stops and the user must type in the password. This problem is solved.
NOT SOLVED!!
The picture-clause (in my case "@!") from a passwort-get is not respected on input and also overwrite is not functioning (also mark all and press any letter the old input is not erased)!!
In the new 19/12 are no input to make on a REDEFINE GET with clausula password in the RC-file
EDITTEXT 102, 33, 71, 131, 12, ES_PASSWORD | WS_BORDER | WS_TABSTOP
Also the Picture-clausula are not respected
EDITTEXT 102, 33, 71, 131, 12, ES_PASSWORD | WS_BORDER | WS_TABSTOP | ES_UPPERCASE
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 84 guests