Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Pages/UMainPage.pas

    r41 r45  
    77uses
    88  Classes, SysUtils, USqlDatabase, UCore, UCustomApplication, UHtmlClasses,
    9   UHTTPServer;
     9  UHTTPServer, UWebObjects;
    1010
    1111procedure Links(App: TCustomApplication; HandlerData: THTTPHandlerData);
     
    362362var
    363363  PageName: string;
     364  NewForm: TQueryForm;
     365  NewGroup: TQueryFormGroup;
     366  NewItem: TQueryFormItem;
    364367begin
    365368  App.HtmlDocument.Title := 'Uživatel';
     
    370373    if PageName = 'prihlaseni' then begin
    371374      Text := 'Login';
    372 
     375      NewForm := TQueryForm.Create;
     376      NewForm.Title := 'Přihlášení';
     377//        NewForm.Action := THTMLInput.Create;
     378//        NewForm.Action
     379      NewGroup := TQueryFormGroup.Create;
     380      NewGroup.Title := 'Základní údaje';
     381      NewItem := TQueryFormItem.Create;
     382      NewItem.Caption := 'Jméno';
     383      NewItem.Hint := 'Zadejte vaše přihlašovací jméno';
     384      NewItem.Required := True;
     385      NewGroup.Rows.Add(NewItem);
     386      NewItem := TQueryFormItem.Create;
     387      NewItem.Caption := 'Heslo';
     388      NewItem.Hint := 'Zadejte vaše heslo';
     389      NewItem.Required := True;
     390      NewGroup.Rows.Add(NewItem);
     391      NewForm.Groups.Add(NewGroup);
     392      App.HtmlDocument.Body.SubItems.Add(NewForm);
    373393    end else Text := '';
    374394  end;
Note: See TracChangeset for help on using the changeset viewer.