Page History

...

     Begin_Com Role(*EXTENDS #PRIM_WEB) Height(528) Width(896) Theme(#SYS_THEME) 

        Define_Com Class(#PRIM_MD.Edit) Name(#Password) DisplayPosition(1) Label('Password') Left(16) Parent(#COM_OWNER) TabPosition(1) Top(16) Width(473) PasswordChar('*') 

        Evtroutine Handling(#Password.Changed) 

           If (#Password.Value.IsValidPassword( Medium )) 
              
              #Password.HelperText := "Medium" 
           Endif 

           If (#Password.Value.IsValidPassword( Strong )) 
              #Password.HelperText := "Strong" 
           Endif 

           If ((*Not #Password.Value.IsValidPassword( Medium )) *And (*Not #Password.Value.IsValidPassword( Strong ))) 
              #Password.HelperText := "Password must be min at least 6 with one upper, one lower and one numeric" 
           Endif 

        Endroutine 

     End_Com

参照

すべてのコンポーネント クラス
テクニカルリファレンス