GET PASSWORD ERROR

[Silvio]

I want create a GET with PASSWORD PICTURE BUT THE CLASS GET NOT RUN

FIRST SAMPLE with NO Password Parameter

REDEFINE GET oPas VAR cPas ID 112 OF oPags:aDialogs[ 1 ] PICTURE "@K!";
VALID Val_Pass(cCve,cPas,@lCont)




second sample with Password Parameter

REDEFINE GET oPas VAR cPas ID 112 OF oPags:aDialogs[ 1 ] PASSWORD ;
VALID Val_Pass(cCve,cPas,@lCont)

if I try to compile it make error
Error E0030 Syntax error: "syntax error at 'GET'"

[mmercado]

I want create a GET with PASSWORD PICTURE BUT THE CLASS GET NOT RUN

Hi Silvio:

Does your prg have the #include "FiveWin.ch" directive?

Regards.

Manuel Mercado.

[Silvio]

i SAW ONLY ON @ X,Y CRETE CONTROL

Code: Select all  Expand view

#command @ <nRow>, <nCol> GET [ <oGet> VAR ] <uVar> ;
            [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
            [ <pict: PICT, PICTURE> <cPict> ] ;
            [ VALID <ValidFunc> ] ;
            [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
            [ SIZE <nWidth>, <nHeight> ]  ;
            [ FONT <oFont> ] ;
            [ <design: DESIGN> ] ;
            [ CURSOR <oCursor> ] ;
            [ <pixel: PIXEL> ] ;
            [ MESSAGE <cMsg> ] ;
            [ <update: UPDATE> ] ;
            [ WHEN <uWhen> ] ;
            [ <lCenter: CENTER, CENTERED> ] ;
            [ <lRight: RIGHT> ] ;
            [ ON CHANGE <uChange> ] ;
            [ <readonly: READONLY, NO MODIFY> ] ;
            [ <pass: PASSWORD> ] ;
            [ <lNoBorder: NO BORDER, NOBORDER> ] ;
            [ <help:HELPID, HELP ID> <nHelpId> ] ;
            [ ACTION <uAction> ] ;
            [ BITMAP <cBmpName> ] ;
       => ;
          [ <oGet> := ] TGet():New( <nRow>, <nCol>, bSETGET(<uVar>),;
             [<oWnd>], <nWidth>, <nHeight>, <cPict>, <{ValidFunc}>,;
             <nClrFore>, <nClrBack>, <oFont>, <.design.>,;
             <oCursor>, <.pixel.>, <cMsg>, <.update.>, <{uWhen}>,;
             <.lCenter.>, <.lRight.>,;
             [\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,;
             <.pass.>, [<.lNoBorder.>], <nHelpId>,,,,,, [\{|self| <uAction> \}], <cBmpName> )

ON REDEFINE CONTROL IT IS NOT

Code: Select all  Expand view

#xcommand REDEFINE GET [ <oGet> VAR ] <uVar> ;
             [ ID <nId> ] ;
             [ <dlg: OF, WINDOW, DIALOG> <oDlg> ] ;
             [ <help:HELPID, HELP ID> <nHelpId> ] ;
             [ VALID   <ValidFunc> ]       ;
             [ <pict: PICT, PICTURE> <cPict> ] ;
             [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
             [ FONT <oFont> ] ;
             [ CURSOR <oCursor> ] ;
             [ MESSAGE <cMsg> ] ;
             [ <update: UPDATE> ] ;
             [ WHEN <uWhen> ] ;
             [ ON CHANGE <uChange> ] ;
             [ <readonly: READONLY, NO MODIFY> ] ;
             [ <spin: SPINNER> [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ;
             [ ACTION <uAction> ] ;
             [ BITMAP <cBmpName> ] ;
       => ;
          [ <oGet> := ] TGet():ReDefine( <nId>, bSETGET(<uVar>), <oDlg>,;
             <nHelpId>, <cPict>, <{ValidFunc}>, <nClrFore>, <nClrBack>,;
             <oFont>, <oCursor>, <cMsg>, <.update.>, <{uWhen}>,;
             [ \{|nKey,nFlags,Self| <uChange> \}], <.readonly.>,;
             <.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}>, [\{|self| <uAction> \}], <cBmpName> )

how it iS POSSIBLE ?

[Antonio Linares]

Silvio,

The password style for the GET has to be specified in the resource file:

ES_PASSWORD

[anserkk]

Can't we do a oPas:lPassword:=.T. after the redefine

Code: Select all  Expand view

REDEFINE GET oPas VAR cPas ID 112 OF oPags:aDialogs[ 1 ] PICTURE "@K!";
VALID Val_Pass(cCve,cPas,@lCont)

Regards
Anser

[Silvio]

Antonio,

it is already with es_password param

Code: Select all  Expand view

ACCESO_LG DIALOG 70, 94, 312, 63
STYLE WS_CHILD | WS_VISIBLE
FONT 8, "MS Sans Serif"
{
EDITTEXT 111, 149, 12, 47, 12
EDITTEXT 112, 149, 26, 47, 12, [b]ES_PASSWORD [/b]| WS_BORDER | WS_TABSTOP
PUSHBUTTON "Continuare >>", 115, 199, 25, 60, 14
CTEXT "Nombre de la Empresa, S.A. de C.V.", 120, 9, 50, 297, 8
GROUPBOX "", -1, 80, 6, 219, 40, BS_GROUPBOX
LTEXT "Codice utente :", -1, 81, 15, 60, 8
LTEXT "Chiave di accesso :", -1, 81, 28, 66, 8
CONTROL "", 100, "TImage", 0 | WS_CHILD | WS_VISIBLE, 6, 4, 70, 55
}