Changeset 71 for trunk/Pages/UUserControlPage.pas

Timestamp:

Feb 11, 2012, 10:43:06 AM (13 years ago)

Author:

chronos

Message:

• Upraveno: Periodické načítání obrázků kamery se nyní provádí na pozadí kvůli zamezení problikávání.

File:

• trunk/Pages/UUserControlPage.pas (modified) (1 diff)

trunk/Pages/UUserControlPage.pas

@@ -170 +170 @@
 
 procedure TUserControlPage.HandleProfile(HandlerData: THTTPHandlerData);
-begin
-
+var
+  Form: TQueryForm;
+begin
+  with MainModule, HtmlDocument.Body do begin
+    Form := TQueryForm.Create;
+    with Form do begin
+      Title := 'Nastavení profilu';
+      ClassId := 'WideTable';
+      with AddNewGroup do begin
+        Title := '';
+        with AddNewItem do begin
+          Caption := 'Jméno';
+          Name := 'UserName';
+          Hint := 'Zadejte vaše přihlašovací jméno';
+          Required := True;
+        end;
+        with AddNewItem do begin
+          Caption := 'Heslo';
+          Name := 'Password';
+          Hint := 'Zadejte vaše heslo';
+          Required := True;
+          ItemType := fitPassword;
+        end;
+        with AddNewItem do begin
+          Caption := 'Email';
+          Name := 'Email';
+          Hint := 'Zadejte vaši emailovou adresu';
+          Required := True;
+          ItemType := fitText;
+        end;
+        with AddNewItem do begin
+          Caption := 'Celé jméno';
+          Name := 'FullName';
+          Hint := 'Zadejte vaše celé jméno';
+          Required := False;
+          ItemType := fitText;
+        end;
+      end;
+      with AddNewAction do begin
+        Caption := 'Uložit';
+        Action := 'Save';
+      end;
+    end;
+    if HandlerData.Request.Post.IndexOfName('Save') <> -1 then
+    with HandlerData.Request do begin
+      Form.Load(HandlerData.Request.Post);
+      with THtmlString(SubItems.AddNew(THtmlString.Create)) do
+        Text := 'Profil uživatele: ' + TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value + ' uložen';
+      Form.Free;
+    end else SubItems.AddNew(Form);
+  end;
 end;