Changeset 45 for trunk/Pages/UMainPage.pas

Timestamp:

Dec 31, 2010, 9:56:34 PM (14 years ago)

Author:

george

Message:

• Přidáno: Jednotka UWebObjects, která obsahuje specifické grafické komponenty pro danou aplikaci.
• Upraveno: Konfigurace aplikace předělána z globálních konstant na proměnnou Config strukturovaného typu record.

File:

• trunk/Pages/UMainPage.pas (modified) (3 diffs)

trunk/Pages/UMainPage.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, USqlDatabase, UCore, UCustomApplication, UHtmlClasses,
-  UHTTPServer;
+  UHTTPServer, UWebObjects;
 
 procedure Links(App: TCustomApplication; HandlerData: THTTPHandlerData);
@@ -362 +362 @@
 var
   PageName: string;
+  NewForm: TQueryForm;
+  NewGroup: TQueryFormGroup;
+  NewItem: TQueryFormItem;
 begin
   App.HtmlDocument.Title := 'Uživatel';
@@ -370 +373 @@
     if PageName = 'prihlaseni' then begin
       Text := 'Login';
-
+      NewForm := TQueryForm.Create;
+      NewForm.Title := 'Přihlášení';
+//        NewForm.Action := THTMLInput.Create;
+//        NewForm.Action
+      NewGroup := TQueryFormGroup.Create;
+      NewGroup.Title := 'Základní údaje';
+      NewItem := TQueryFormItem.Create;
+      NewItem.Caption := 'Jméno';
+      NewItem.Hint := 'Zadejte vaše přihlašovací jméno';
+      NewItem.Required := True;
+      NewGroup.Rows.Add(NewItem);
+      NewItem := TQueryFormItem.Create;
+      NewItem.Caption := 'Heslo';
+      NewItem.Hint := 'Zadejte vaše heslo';
+      NewItem.Required := True;
+      NewGroup.Rows.Add(NewItem);
+      NewForm.Groups.Add(NewGroup);
+      App.HtmlDocument.Body.SubItems.Add(NewForm);
     end else Text := '';
   end;