Changeset 27 for branches/lazarus/Pages

Timestamp:

Sep 10, 2010, 8:09:21 AM (14 years ago)

Author:

george

Message:

• Přidáno: Systém navigace pomocí "pěkných" URL.

File:

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

branches/lazarus/Pages/UMainPage.pas

@@ -8 +8 @@
   Classes, SysUtils, USqlDatabase, UCore, UCustomCGIApplication, UHtmlClasses;
 
-procedure MainPage(App: TCustomCGIApplication);
+procedure Links(App: TCustomCGIApplication);
+procedure History(App: TCustomCGIApplication);
+procedure Internet(App: TCustomCGIApplication);
+procedure VoIP(App: TCustomCGIApplication);
+procedure Hosting(App: TCustomCGIApplication);
+procedure About(App: TCustomCGIApplication);
+procedure Documents(App: TCustomCGIApplication);
+procedure Contact(App: TCustomCGIApplication);
 
 implementation
@@ -34 +41 @@
     '<a href="http://victus.cz/">Victus</a> - herní server hry WoW<br/>' +
     '<a href="http://gameshoot.eu/">GameShoot</a> - herní portál<br/>' +
+    '<a href="http://sharp.zdechov.net/"></a> - Sharp MZ community web<br/>' +
+
     '<br/>' +
 
@@ -182 +191 @@
 
     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>' +
+    Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +
+      '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' +
+      '<img align="right" src="' + NavigationLink('/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. ' +
@@ -206 +216 @@
 
     Text := Text + '<br/>' +
-      '<a href="images/pohlednice_stara.jpg"><img align="right" src="images/pohlednice_stara_mala.jpg" alt="Stará pohlednice" /></a>';
+      '<a href="' + NavigationLink('/images/pohlednice_stara.jpg') + '">' +
+      '<img align="right" src="' + NavigationLink('/images/pohlednice_stara_mala.jpg') + '" alt="Stará pohlednice" /></a>';
 
     Text := Text + '<strong>Počty zákazníků:</strong><br/>' +
@@ -215 +226 @@
       '<br/>' +
       '<strong>Technické parametry sítě</strong><br/>' +
-      'Internetové připojení: 20/20 Mbit/s, vyhrazené, symetrické, bez agregace, bez omezení přenesených dat, přes společnost <a href="http://www.inext.cz/">Internext 2000</a><br/>' +
+      'Internetové připojení: 40/40 Mbit/s, vyhrazené, symetrické, bez agregace, bez omezení přenesených dat, přes společnost <a href="http://www.inext.cz/">Internext 2000</a><br/>' +
       'Pokrytí obce signálem: asi 80%<br/>' +
       'V připojených domácnostech celkem 327 občanů ze všech 600 (55 %)<br/>' +
       '<br/>' +
-      '<i>Aktualizováno: 3.7.2009</i>';
+      '<i>Aktualizováno: 3.7.2010</i>';
     end;
   end;
@@ -232 +243 @@
       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>)' +
+      IconedLink(NavigationLink('/docs/Zdechovska_historie_a_soucasnost.pdf'), 'Zděchovská historie a současnost') + ' (1,6 MB)<br/>' +
+      '<img src="' + NavigationLink('/images/icons/pdf.gif') + '" alt=""> Zděchov - klíč od hřebene Javorníků - propagační publikace obce (kvalita ' +
+'<a href="' + NavigationLink('/docs/Zděchov - klíč od hřebene Javorníků (nízká kvalita).pdf') + '">nízká (1,8 MB)</a> ' +
+'<a href="' + NavigationLink('/docs/Zděchov - klíč od hřebene Javorníků (střední kvalita).pdf') + '">střední (3,7 MB)</a> ' +
+'<a href="' + NavigationLink('/docs/Zděchov - klíč od hřebene Javorníků (vysoká kvalita).pdf') + '">vysoká (7,2 MB)</a>)' +
 '<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/>';
+      IconedLink(NavigationLink('/docs/info_na_infokanal_1.6.2006.pdf'), 'Aktualita na infokanálu (1.6.2006)') + '<br/>' +
+      IconedLink(NavigationLink('/docs/info_na_infokanal_4.3.2005.pdf'), 'Aktualita na infokanálu (4.3.2005)') + '<br/>' +
+      IconedLink(NavigationLink('/docs/info_na_infokanal_24.9.2004.pdf'), 'Aktualita na infokanálu (24.9.2004)') + '<br/>' +
+      IconedLink(NavigationLink('/docs/vyzva_do_infokanalu_15.8.2004.pdf'), 'Výzva do infokanálu (15.8.2004)') + '<br/>';
     end;
   end;
@@ -264 +275 @@
 end;
 
-procedure MainPage(App: TCustomCGIApplication);
-begin
-  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;
-
 end.