Changeset 66 for trunk/Pages/UUserControlPage.pas

Timestamp:

Dec 20, 2011, 9:37:35 AM (13 years ago)

Author:

chronos

Message:

• Opraveno: Generování výstupu u TQueryForm a THtmlTable.
• Přidáno: Mimo přihlašovací formulář přidán také registrační.

File:

• trunk/Pages/UUserControlPage.pas (modified) (2 diffs)

trunk/Pages/UUserControlPage.pas

@@ -42 +42 @@
   if HandlerData.Request.QueryParts.Count > 1 then PageName := HandlerData.Request.QueryParts[1]
     else PageName := '';
-  with MainModule, HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
-    PageName := 'prihlaseni';
+  with MainModule, HtmlDocument.Body do begin
+    if PageName = '' then PageName := 'prihlaseni';
     if PageName = 'prihlaseni' then begin
-      Text := 'Login';
-      with HtmlDocument.Body, TQueryForm(SubItems.AddNew(TQueryForm.Create)) do begin
+      with TQueryForm(SubItems.AddNew(TQueryForm.Create)) do begin
         Title := 'Přihlášení';
-        ClassId := 'Form';
-        with TQueryFormGroup(Groups.AddNew(TQueryFormGroup.Create)) do begin
-          Title := 'Základní údaje';
-          with TQueryFormItem(Rows.AddNew(TQueryFormItem.Create)) do begin
+        ClassId := 'WideTable';
+        with AddNewGroup do begin
+          Title := '';
+          with AddNewItem do begin
             Caption := 'Jméno';
             Hint := 'Zadejte vaše přihlašovací jméno';
             Required := True;
           end;
-          with TQueryFormItem(Rows.AddNew(TQueryFormItem.Create)) do begin
+          with AddNewItem do begin
             Caption := 'Heslo';
             Hint := 'Zadejte vaše heslo';
@@ -63 +62 @@
           end;
         end;
+        with AddNewAction do
+          Name := 'Přihlásit';
       end;
-    end else Text := '';
+    end else
+    if PageName = 'registrace' then begin
+      with TQueryForm(SubItems.AddNew(TQueryForm.Create)) do begin
+        Title := 'Registrace nového účtu';
+        ClassId := 'WideTable';
+        with AddNewGroup do begin
+          Title := '';
+          with AddNewItem do begin
+            Caption := 'Jméno';
+            Hint := 'Zadejte vaše přihlašovací jméno';
+            Required := True;
+          end;
+          with AddNewItem do begin
+            Caption := 'Email';
+            Hint := 'Zadejte vaši elektronickou poštovní schránku';
+            Required := True;
+          end;
+          with AddNewItem do begin
+            Caption := 'Heslo';
+            Hint := 'Zadejte vaše heslo';
+            Required := True;
+            ItemType := fitPassword;
+          end;
+          with AddNewItem do begin
+            Caption := 'Ověření hesla';
+            Hint := 'Zadejte znovu vaše heslo pro ověření';
+            Required := True;
+            ItemType := fitPassword;
+          end;
+        end;
+        with AddNewAction do
+          Name := 'Registrovat';
+      end;
+    end;
   end;
   MainModule.GeneratePage(HandlerData, Self);