Ignore:
Timestamp:
Dec 25, 2011, 9:40:28 PM (13 years ago)
Author:
chronos
Message:
  • Upraveno: Přidáno analyzování HTTP POST informací.
  • Upraveno: Příprava pro zpracování hodnot z objektů HTML formulářů.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Pages/UUserControlPage.pas

    r66 r67  
    4848        Title := 'Přihlášení';
    4949        ClassId := 'WideTable';
     50        //Action.AsString := '/dev/zdechovnet/trunk/serverinfoo';
    5051        with AddNewGroup do begin
    5152          Title := '';
    5253          with AddNewItem do begin
    5354            Caption := 'Jméno';
     55            Name := 'Name';
    5456            Hint := 'Zadejte vaše přihlašovací jméno';
    5557            Required := True;
    … …  
    5759          with AddNewItem do begin
    5860            Caption := 'Heslo';
     61            Name := 'Password';
    5962            Hint := 'Zadejte vaše heslo';
    6063            Required := True;
    … …  
    6265          end;
    6366        end;
    64         with AddNewAction do
    65           Name := 'Přihlásit';
     67        with AddNewAction do begin
     68          Caption := 'Přihlásit';
     69          Action := 'Login';
     70        end;
    6671      end;
    6772    end else
    … …  
    7479          with AddNewItem do begin
    7580            Caption := 'Jméno';
     81            Name := 'Name';
    7682            Hint := 'Zadejte vaše přihlašovací jméno';
    7783            Required := True;
    … …  
    7985          with AddNewItem do begin
    8086            Caption := 'Email';
     87            Name := 'Email';
    8188            Hint := 'Zadejte vaši elektronickou poštovní schránku';
    8289            Required := True;
    … …  
    8491          with AddNewItem do begin
    8592            Caption := 'Heslo';
     93            Name := 'Password';
    8694            Hint := 'Zadejte vaše heslo';
    8795            Required := True;
    … …  
    9098          with AddNewItem do begin
    9199            Caption := 'Ověření hesla';
     100            Name := 'PasswordConfirm';
    92101            Hint := 'Zadejte znovu vaše heslo pro ověření';
    93102            Required := True;
    … …  
    95104          end;
    96105        end;
    97         with AddNewAction do
    98           Name := 'Registrovat';
     106        with AddNewAction do begin
     107          Caption := 'Registrovat';
     108          Action := 'Register';
     109        end;
    99110      end;
    100111    end;
Note: See TracChangeset for help on using the changeset viewer.