Changeset 48 for trunk/Pages/UMainPage.pas

Timestamp:

Mar 28, 2011, 9:31:28 AM (13 years ago)

Author:

george

Message:

 

File:

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

trunk/Pages/UMainPage.pas

@@ -29 +29 @@
   App.HtmlDocument.Title := 'Odkazy';
 
-  with App.HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+  with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
     Text := '<strong>Odkazy související s obcí:</strong><br/>' +
 
@@ -69 +69 @@
     HtmlDocument.Title := 'Historie sítě';
 
-    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
       Text := '<table>';
       try
@@ -95 +95 @@
     HtmlDocument.Title := 'Plánované projekty';
 
-    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
       Text := '<table>';
       try
@@ -129 +129 @@
     HtmlDocument.Title := 'Internet';
 
-    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
       Text := Text + 'Hlavní náplní činnosti sítě je poskytovat výhodné připojení k internetu pro občany.<br/><br/>' +
       '<strong>Nabídka tarifů:</strong><br/>' +
@@ -158 +158 @@
     HtmlDocument.Title := 'Webové kamery';
 
-    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
       Text := '<table style="width: 100%"><tr><td style="width: 20%">' +
         '<strong>Kamery v okolí:</strong><br />' +
@@ -201 +201 @@
     HtmlDocument.Title := 'VoIP';
 
-    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
       Text := 'Volejte levněji do pevných a mobilních sítí s sekundovou tarifikací a bez měsíčního paušálu.<br/>' +
       '<br/>' +
@@ -238 +238 @@
     HtmlDocument.Title := 'Hosting';
 
-    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
       Text := 'V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>' +
       '<strong>Standardní varianty:</strong><br/>' +
@@ -301 +301 @@
     HtmlDocument.Title := 'Síť';
 
-    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
       Text := MakeLink('Historie', NavigationLink('/historie/')) + '<br/>' +
         MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '<br/>' +
@@ -316 +316 @@
     HtmlDocument.Title := 'Úvod';
 
-    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
     Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +
       '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' +
@@ -366 +366 @@
     HtmlDocument.Title := 'Dokumenty';
 
-    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
       Text := '<strong>O obci:</strong><br/>' +
 
@@ -389 +389 @@
   App.HtmlDocument.Title := 'Kontakt';
 
-  with App.HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+  with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
     Text := '<strong>Kontaktní informace</strong><br/>' +
     'Provozovatel: Ing. Jiří Hajda<br/>' +
@@ -414 +414 @@
   if HandlerData.Request.QueryParts.Count > 1 then PageName := HandlerData.Request.QueryParts[1]
     else PageName := '';
-  with App.HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+  with App.HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
     if PageName = 'prihlaseni' then begin
       Text := 'Login';
-      with App.HtmlDocument.Body, TQueryForm(SubItems[SubItems.Add(TQueryForm.Create)]) do begin
+      with App.HtmlDocument.Body, TQueryForm(SubItems.AddNew(TQueryForm.Create)) do begin
         Title := 'Přihlášení';
-        with TQueryFormGroup(Groups[Groups.Add(TQueryFormGroup.Create)]) do begin
+        ClassId := 'Form';
+        with TQueryFormGroup(Groups.AddNew(TQueryFormGroup.Create)) do begin
           Title := 'Základní údaje';
-          with TQueryFormItem(Rows[Rows.Add(TQueryFormItem.Create)]) do begin
+          with TQueryFormItem(Rows.AddNew(TQueryFormItem.Create)) do begin
             Caption := 'Jméno';
             Hint := 'Zadejte vaše přihlašovací jméno';
             Required := True;
           end;
-          with TQueryFormItem(Rows[Rows.Add(TQueryFormItem.Create)]) do begin
+          with TQueryFormItem(Rows.AddNew(TQueryFormItem.Create)) do begin
             Caption := 'Heslo';
             Hint := 'Zadejte vaše heslo';
             Required := True;
+            ItemType := fitPassword;
           end;
         end;