Changeset 25 for branches/lazarus/Pages/UMainPage.pas

Timestamp:

Sep 8, 2010, 8:34:15 PM (14 years ago)

Author:

george

Message:

• Opraveno: Zobrazování jednotlivých stránek.
• Opraveno: Zobrazení výpisu historie sítě.

File:

• branches/lazarus/Pages/UMainPage.pas (modified) (15 diffs)

branches/lazarus/Pages/UMainPage.pas

@@ -16 +16 @@
   App.HtmlDocument.Title := 'Odkazy';
 
-  App.Output.Add('<strong>Odkazy související s obcí:</strong><br/>' +
+  with App.HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+    Text := '<strong>Odkazy související s obcí:</strong><br/>' +
 
     '<a href="http://www.zdechov.cz/">Obec Zděchov</a> - oficiální stránky  obce<br/>' +
@@ -28 +29 @@
 
     '<strong>Hostované servery:</strong><br/>' +
-    '<a href="http://www.heroesoffantasy.cz/">Heroes of Fantasy</a> - free World of Warcraft server<br/>' +
+    //'<a href="http://www.heroesoffantasy.cz/">Heroes of Fantasy</a> - free World of Warcraft server<br/>' +
     '<a href="http://wowpreklad.zdechov.net/">WoWpřeklad</a> - překlad hry WoW do češtiny<br/>' +
-    '<a href="http://archangel-portal.cz/">Archangel portál</a> - herní server<br/>' +
+    '<a href="http://www.unitedstorm.eu/">UnitedStorm</a> - herní server<br/>' +
     '<a href="http://victus.cz/">Victus</a> - herní server hry WoW<br/>' +
     '<a href="http://gameshoot.eu/">GameShoot</a> - herní portál<br/>' +
@@ -44 +45 @@
     'document.write (\''<img align="right" src="http://toplist.cz/count.asp?id=90148&amp;logo=mc&amp;http=\''+escape(document.referrer)+\''&amp;wi=\''+escape(window.screen.width)+\''&he=\''+escape(window.screen.height)' +
     '+\''&amp;cd=\''+escape(window.screen.colorDepth)+\''&amp;t=\''+escape(document.title)+\''" width=88 height=60 border=0 alt="TOPlist"/>'';' +
-    '//--></script></a>');
-
-  App.Output.Add('<strong>Komunitní sítě v okolí:</strong><br/>' +
+    '//--></script></a>' +
+
+    '<strong>Komunitní sítě v okolí:</strong><br/>' +
     '<a href="http://www.hovnet.cz/">Hovnet</a> - síť v Hovězí, Janové, Huslenkách a dalších obcích<br/>' +
-    '//<a href="http://czvk3.net/">czvk3net</a> - síť ve Valašských Kloboucích<br/>');
-  App.Output.Add('<a href="http://hvfree.net/">HvFree.net</a> - síť v Tylovicích, Hážovicích, Viganticích a Hutisku<br/>' +
+    //'<a href="http://czvk3.net/">czvk3net</a> - síť ve Valašských Kloboucích<br/>' +
+    '<a href="http://hvfree.net/">HvFree.net</a> - síť v Tylovicích, Hážovicích, Viganticích a Hutisku<br/>' +
     '<a href="http://www.ustinet.cz/">Ústí.Net</a> - síť v Ústí u Vsetína<br/>' +
-    '<br/>');
+    '<br/>';
+  end;
 end;
 
@@ -62 +64 @@
     HtmlDocument.Title := 'Historie sítě';
 
-    Output.Add('<table>');
-    try
-      DbRows := Database.Query('SELECT * FROM History ORDER BY Date DESC');
-      for I := 0 to DbRows.Count - 1 do begin
-        //Output.Add('<tr><td style="text-align: right; vertical-align: top;">' +
-        //  HumanDate(MysqlDateToTime(DbRows[I].Values['Date'])) + '&nbsp;- </td><td>' +
-        //  DbRows[I].Values['Text'] + '</td></tr>');
+    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+      Text := '<table>';
+      try
+        DbRows := Database.Query('SELECT * FROM History ORDER BY Date DESC');
+        for I := 0 to DbRows.Count - 1 do begin
+          Text := Text + '<tr><td style="text-align: right; vertical-align: top;">' +
+            HumanDate(SQLToDateTime(DbRows[I].Values['Date'])) + '&nbsp;- </td><td>' +
+            DbRows[I].Values['Text'] + '</td></tr>';
+        end;
+      finally
+        DbRows.Free;
       end;
-    finally
-      DbRows.Free;
-    end;
-    Output.Add('</table>');
+      Text := Text + '</table>';
+    end;
   end;
 end;
@@ -82 +86 @@
     HtmlDocument.Title := 'Internet';
 
-    Output.Add('Hlavní náplní činnosti sítě je poskytovat výhodné připojení k internetu pro občany.<br/><br/>');
-    Output.Add('<strong>Nabídka tarifů:</strong><br/>' +
+    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(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/>' +
 
       '<table class="WideTable">' +
@@ -97 +102 @@
       'Rychlost všech tarifů je symetrická, není omezován objem přenášených dat, ceny včetně DPH.<br/>' +
       '<br/>' +
-      '<i>Aktualizováno: 1.7.2010</i>');
+      '<i>Aktualizováno: 1.7.2010</i>';
+    end;
   end;
 end;
@@ -104 +110 @@
 begin
   with App do begin
-    Output.Add('Volejte levněji do pevných a mobilních sítí s sekundovou tarifikací a bez měsíčního paušálu.<br/>' +
-    '<br/>');
-    Output.Add('Doporučujueme: <a href="http://voip.mikrotech.cz/">VoIP Mikrotech</a>' +
+    HtmlDocument.Title := 'VoIP';
+
+    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(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/>' +
+      'Doporučujueme: <a href="http://voip.mikrotech.cz/">VoIP Mikrotech</a>' +
     '<ul><li>Zřízení zdarma</li>' +
     '<li>Měsíční paušál: 0 Kč</li>' +
@@ -127 +136 @@
     '<li>Bez počátečních investic - softwarový telefon</li>' +
     '<li>Pro telefonování nepotřebujete počítač - hardwarový VoIP telefon</li>' +
-    '</ol>');
+    '</ol>';
+    end;
   end;
 end;
@@ -139 +149 @@
     HtmlDocument.Title := 'Hosting';
 
-    Output.Add('V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>');
-    Output.Add('<strong>Standardní varianty:</strong><br/>' +
+    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(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/>' +
       '<table class="WideTable">' +
-      '<tr><th>Označení</th><th>Rychlost</th><th>Vyhrazená paměť</th><th>Pevný disk</th><th>Procesor</th><th>Cena [Kč/měsíc]</th></tr>');
-    try
-      DbRows := Database.Query('SELECT * FROM VPSHosting ORDER BY Price DESC');
-      for I := 0 to DbRows.Count - 1 do
-        Output.Add('<tr><td>' + DbRows[I].Values['Name'] + '</td><td align="center">' +
-          DbRows[I].Values['Internet'] + '</td><td align="center">' + DbRows[I].Values['Memory'] +
-          '</td><td align="center">' + DbRows[I].Values['Space'] + '</td><td align="center">' +
-          DbRows[I].Values['CPU'] + '</td><td align="center">' + DbRows[I].Values['Price'] + '</td></tr>');
-    finally
-      DbRows.Free;
-    end;
-    Output.Add('</table>' +
+      '<tr><th>Označení</th><th>Rychlost</th><th>Vyhrazená paměť</th><th>Pevný disk</th><th>Procesor</th><th>Cena [Kč/měsíc]</th></tr>';
+      try
+        DbRows := Database.Query('SELECT * FROM VPSHosting ORDER BY Price DESC');
+        for I := 0 to DbRows.Count - 1 do
+          Text := Text + '<tr><td>' + DbRows[I].Values['Name'] + '</td><td align="center">' +
+            DbRows[I].Values['Internet'] + '</td><td align="center">' + DbRows[I].Values['Memory'] +
+            '</td><td align="center">' + DbRows[I].Values['Space'] + '</td><td align="center">' +
+            DbRows[I].Values['CPU'] + '</td><td align="center">' + DbRows[I].Values['Price'] + '</td></tr>';
+      finally
+        DbRows.Free;
+      end;
+      Text := Text + '</table>' +
       '<br/>' +
       'První měsíc zdarma, denní zálohování disků, ceny včetně DPH<br/>' +
       'Použité technologie: <a href="http://www.linux.cz/">GNU/Linux</a>, <a href="http://openvz.org/">OpenVZ</a>, <a href="http://pve.proxmox.com/">Proxmox VE</a>, <a href="http://backuppc.sourceforge.net/">BackupPC</a><br/>' +
       '<br/>' +
-      '<i>Aktualizováno: 1.7.2010</i>');
+      '<i>Aktualizováno: 1.7.2010</i>';
+    end;
   end;
 end;
@@ -169 +181 @@
     HtmlDocument.Title := 'O síti';
 
-    TextBlock := THtmlString.Create;
-    HtmlDocument.Body.SubItems.Add(TextBlock);
-    TextBlock.Text := '<img align="left" src="images/umisteni.gif" alt="Umístění obce">' +
-      '<a href="images/pokryti.jpg"><img align="right" src="images/pokryti_nahled.jpg" width="170" height="334" alt="Pokrytí obce signálem"></a>' +
+    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+    Text := '<img align="left" src="images/umisteni.gif" alt="Umístění obce"/>' +
+      '<a href="images/pokryti.jpg"><img align="right" src="images/pokryti_nahled.jpg" width="170" height="334" alt="Pokrytí obce signálem"/></a>' +
       '<strong>Informace o obci:</strong><br/>' +
       'Vesnice Zděchov se nachází pár kilometrů od obce Huslenky, jihovýchodním směrem od Vsetína. ' +
@@ -194 +205 @@
       '</ul><br/>';
 
-    TextBlock.Text := TextBlock.Text + '<br/>' +
-      '<a href="images/pohlednice_stara.jpg"><img align="right" src="images/pohlednice_stara_mala.jpg" alt="Stará pohlednice"></a>';
-
-    TextBlock.Text := TextBlock.Text + '<strong>Počty zákazníků:</strong><br/>' +
+    Text := Text + '<br/>' +
+      '<a href="images/pohlednice_stara.jpg"><img align="right" src="images/pohlednice_stara_mala.jpg" alt="Stará pohlednice" /></a>';
+
+    Text := Text + '<strong>Počty zákazníků:</strong><br/>' +
       'Připojených domácností v obci: 99<br/>' +
       'Připojených institucí: 1<br/>' +
@@ -209 +220 @@
       '<br/>' +
       '<i>Aktualizováno: 3.7.2009</i>';
+    end;
   end;
 end;
@@ -217 +229 @@
     HtmlDocument.Title := 'Dokumenty';
 
-    Output.Add('<strong>O obci:</strong><br/>');
-
-    Output.Add(IconedLink('docs/Zdechovska_historie_a_soucasnost.pdf', 'Zděchovská historie a současnost') + ' (1,6 MB)<br/>');
-    Output.Add('<img src="images/icons/pdf.gif" alt=""> Zděchov - klíč od hřebene Javorníků - propagační publikace obce (kvalita ' +
+    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+      Text := '<strong>O obci:</strong><br/>' +
+
+      IconedLink('docs/Zdechovska_historie_a_soucasnost.pdf', 'Zděchovská historie a současnost') + ' (1,6 MB)<br/>' +
+      '<img src="images/icons/pdf.gif" alt=""> Zděchov - klíč od hřebene Javorníků - propagační publikace obce (kvalita ' +
 '<a href="docs/Zděchov - klíč od hřebene Javorníků (nízká kvalita).pdf">nízká (1,8 MB)</a> ' +
 '<a href="docs/Zděchov - klíč od hřebene Javorníků (střední kvalita).pdf">střední (3,7 MB)</a> ' +
 '<a href="docs/Zděchov - klíč od hřebene Javorníků (vysoká kvalita).pdf">vysoká (7,2 MB)</a>)' +
-'<br/><br/>');
-    Output.Add('<strong>Propagace sítě v obci:</strong><br/>');
-
-    Output.Add(IconedLink('docs/info_na_infokanal_1.6.2006.pdf', 'Aktualita na infokanálu (1.6.2006)') + '<br/>');
-    Output.Add(IconedLink('docs/info_na_infokanal_4.3.2005.pdf', 'Aktualita na infokanálu (4.3.2005)') + '<br/>');
-    Output.Add(IconedLink('docs/info_na_infokanal_24.9.2004.pdf', 'Aktualita na infokanálu (24.9.2004)') + '<br/>');
-    Output.Add(IconedLink('docs/vyzva_do_infokanalu_15.8.2004.pdf', 'Výzva do infokanálu (15.8.2004)') + '<br/>');
+'<br/><br/>' +
+    '<strong>Propagace sítě v obci:</strong><br/>' +
+
+      IconedLink('docs/info_na_infokanal_1.6.2006.pdf', 'Aktualita na infokanálu (1.6.2006)') + '<br/>' +
+      IconedLink('docs/info_na_infokanal_4.3.2005.pdf', 'Aktualita na infokanálu (4.3.2005)') + '<br/>' +
+      IconedLink('docs/info_na_infokanal_24.9.2004.pdf', 'Aktualita na infokanálu (24.9.2004)') + '<br/>' +
+      IconedLink('docs/vyzva_do_infokanalu_15.8.2004.pdf', 'Výzva do infokanálu (15.8.2004)') + '<br/>';
+    end;
   end;
 end;
@@ -238 +252 @@
   App.HtmlDocument.Title := 'Kontakt';
 
-  App.Output.Add('<strong>Kontaktní informace</strong><br/>' +
+  with App.HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
+    Text := '<strong>Kontaktní informace</strong><br/>' +
     'Provozovatel: Ing. Jiří Hajda<br/>' +
     'Adresa: Zděchov 208, 75607<br/>' +
@@ -245 +260 @@
     'IČ: 75904535<br/>' +
     'DIČ: CZ8303255884<br/>' +
-    'Bankovní účet: 218098370 / 0300<br/>');
+    'Bankovní účet: 218098370 / 0300<br/>';
+  end;
 end;
 
 procedure MainPage(App: TCustomCGIApplication);
 begin
-  About(App);
-  with App do begin
-    //Show('index');
-  end;
+  if App.PageName = 'Internet' then Internet(App)
+  else if App.PageName = 'Hosting' then Hosting(App)
+  else if App.PageName = 'History' then History(App)
+  else if App.PageName = 'Documents' then Documents(App)
+  else if App.PageName = 'VoIP' then VoIP(App)
+  else if App.PageName = 'Links' then Links(App)
+  else if App.PageName = 'Contact' then Contact(App)
+  else About(App);
 end;