Changeset 45 for trunk/Pages/UMainPage.pas
- Timestamp:
- Dec 31, 2010, 9:56:34 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Pages/UMainPage.pas
r41 r45 7 7 uses 8 8 Classes, SysUtils, USqlDatabase, UCore, UCustomApplication, UHtmlClasses, 9 UHTTPServer ;9 UHTTPServer, UWebObjects; 10 10 11 11 procedure Links(App: TCustomApplication; HandlerData: THTTPHandlerData); … … 362 362 var 363 363 PageName: string; 364 NewForm: TQueryForm; 365 NewGroup: TQueryFormGroup; 366 NewItem: TQueryFormItem; 364 367 begin 365 368 App.HtmlDocument.Title := 'Uživatel'; … … 370 373 if PageName = 'prihlaseni' then begin 371 374 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); 373 393 end else Text := ''; 374 394 end;
Note:
See TracChangeset
for help on using the changeset viewer.