Changeset 135 for trunk/Modules/ZdechovNET/UAboutPage.pas
- Timestamp:
- Jul 29, 2022, 11:46:41 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Modules/ZdechovNET/UAboutPage.pas
r123 r135 1 1 unit UAboutPage; 2 3 {$mode delphi}4 2 5 3 interface … … 23 21 AboutPage: TAboutPage; 24 22 23 25 24 implementation 26 25 … … 41 40 ModuleUser.LoadUserInfo; 42 41 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 43 Text := '<table><tr><td style="vertical-align: top;">' + 44 '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' + 45 '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' + 46 '<img align="right" src="' + NavigationLink('/images/pokryti_nahled.jpg') + '" width="303" height="238" alt="Pokrytí obce signálem"/></a>' + 47 '<strong>Informace o obci:</strong><br/>' + 48 'Vesnice Zděchov se nachází pár kilometrů od obce Huslenky, jihovýchodním směrem od Vsetína. ' + 49 'Je zasazena do typicky valašské krajiny roztroušených usedlostí a jalovcových pasek. Stojí zde dochovalé stavby lidové architektury, klasicistní kostel Proměnění Páně a kamenný kříž z roku 1778.<br/>' + 50 'Zděchov poskytuje ideální podmínky pro celeroční rekreaci. Najdete zde koupaliště, lyžařský vlek a motokrosovou trať. Prochází tudy modrá turistická značka, odsud také vede žlutá značka, která tvoří spojnici se zelenou.<br/>' + 51 '<br/>' + 52 '<strong>Informace o síti:</strong><br/>' + 53 'Sousedská počítačová síť postupně vznikla jako přirozená reakce na tehdejší situaci v informačních technologiích a jako reakce na nedostupnost vhodného internetového připojení pro domácnosti v obci. ' + 54 'Členové komunity jsou mezi sebou propojeni pomocí kabelu nebo bezdrátové technologie Wi-Fi. K internetu jsou připojeni přes hlavní směrovač. ' + 55 'Připojení je garantované s nonstop servisem a řešením problémů obvykle do 24 hodin. Prvořadým cílem je maximální spolehlivost, stabilita, rychlost a dostupnost připojení. ' + 56 'Jelikož je obec odlehlá a obklopena vysokými kopci, jsou zde možnosti jiného kabelového či bezdrátového připojení značně omezené. Síť vedená místními aktivisty také přináší řadu nadstandardních komunitních služeb.<br/>' + 57 '<br/>' + 58 '<i>Výhody sítě:</i><br/>' + 59 '<ul>' + 60 '<li>Rychlejší a levnější nepřetržité sdílené internetové připojení bez omezení dat</li>' + 61 '<li>Možnost komunikace mezi členy formou textu, zvuku či videa</li>' + 62 '<li>Možnost šíření aktuálních informací z dění v obce</li>' + 63 '<li>Sdílení společných souborů a dat</li>' + 64 '<li>Společné hraní síťových her</li>' + 65 '<li>Zprovoznění užitečných služeb (IPTV, VoIP, chat, aktuality, bazar, menu v jídelně, meteostanice, web kamery, aj.)</li>' + 66 '</ul><br/>' + 67 '</td><td style="vertical-align: top;" class="News">'; 68 Text := Text + '<strong>Novinky:</strong><br/>'; 42 Text := '<table><tr><td style="vertical-align: top;">' + 43 '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' + 44 '<img align="right" src="' + NavigationLink('/images/pokryti_nahled.jpg') + '" width="303" height="238" alt="Pokrytí obce signálem" style="padding-left: 5pt"/></a>' + 45 '<strong>Informace o síti:</strong><br/>' + 46 'Sousedská počítačová síť postupně vznikla jako přirozená reakce na tehdejší situaci v informačních technologiích a jako reakce na nedostupnost vhodného internetového připojení pro domácnosti v obci. ' + 47 'Členové komunity jsou mezi sebou propojeni pomocí kabelu nebo bezdrátové technologie Wi-Fi. K internetu jsou připojeni přes hlavní směrovač. ' + 48 'Připojení je garantované s nonstop servisem a řešením problémů obvykle do 24 hodin. Prvořadým cílem je maximální spolehlivost, stabilita, rychlost a dostupnost připojení. ' + 49 'Jelikož je obec odlehlá a obklopena vysokými kopci, jsou zde možnosti jiného kabelového či bezdrátového připojení značně omezené. Síť vedená místními aktivisty také přináší řadu nadstandardních komunitních služeb.<br/>' + 50 '<br/>' + 51 '<i>Výhody sítě:</i><br/>' + 52 '<ul>' + 53 '<li>Rychlejší a levnější nepřetržité sdílené internetové připojení bez omezení dat</li>' + 54 '<li>Možnost komunikace mezi členy formou textu, zvuku či videa</li>' + 55 '<li>Možnost šíření aktuálních informací z dění v obce</li>' + 56 '<li>Sdílení společných souborů a dat</li>' + 57 '<li>Společné hraní síťových her</li>' + 58 '<li>Web hosting a server hosting</li>' + 59 '<li>Zprovoznění užitečných služeb (IPTV, VoIP, chat, aktuality, bazar, menu v jídelně, meteostanice, web kamery, aj.)</li>' + 60 '</ul><br/>' + 61 '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce" style="padding-right: 5pt"/>' + 62 '<strong>Informace o obci:</strong><br/>' + 63 'Vesnice Zděchov se nachází pár kilometrů od obce Huslenky, jihovýchodním směrem od Vsetína. ' + 64 'Je zasazena do typicky valašské krajiny roztroušených usedlostí a jalovcových pasek. Stojí zde dochovalé stavby lidové architektury, klasicistní kostel Proměnění Páně a kamenný kříž z roku 1778.<br/>' + 65 'Zděchov poskytuje ideální podmínky pro celeroční rekreaci. Najdete zde koupaliště, lyžařský vlek a motokrosovou trať. Prochází tudy modrá turistická značka, odsud také vede žlutá značka, která tvoří spojnici se zelenou.<br/>' + 66 '<br/>'; 67 Text := Text + '<br/>' + 68 '<a href="' + NavigationLink('/images/pohlednice_stara.jpg') + '">' + 69 '<img align="right" src="' + NavigationLink('/images/pohlednice_stara_mala.jpg') + '" alt="Stará pohlednice" style="padding-left: 5pt" /></a>'; 70 71 Text := Text + '<strong>Počty zákazníků:</strong><br/>' + 72 'Připojených domácností v obci: 110<br/>' + 73 'Připojených institucí: 1<br/>' + 74 'Hosting serverů: 0<br/>' + 75 'Celkem: 111<br/>' + 76 '<br/>' + 77 '<strong>Technické parametry sítě</strong><br/>' + 78 'Internetové připojení: 250/250 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/>' + 79 'Pokrytí obce signálem: asi 90%<br/>' + 80 'V připojených domácnostech celkem 365 občanů ze všech 270 (45 %)<br/>' + 81 '<br/>' + 82 '<i>Aktualizováno: 29.7.2022</i>'; 83 Text := Text + '</td><td style="vertical-align: top;" class="News">'; 84 Text := Text + '<strong>Novinky:</strong><br/>'; 69 85 try 70 86 DbRows := TDbRows.Create; 71 87 Database.Query(DbRows, 'SELECT * FROM `News` ORDER BY `Time` DESC LIMIT 5'); 72 88 for I := 0 to DbRows.Count - 1 do begin 73 Text := Text + '<div><strong>' + 74 HumanDate(SQLToDateTime(DbRows[I].Values['Time'])) + '</strong><br/>' + 89 Text := Text + '<div>' + 90 '<strong>' + DbRows[I].Values['Title'] + '</strong> ' + 91 '<strong>(' + HumanDate(SQLToDateTime(DbRows[I].Values['Time'])) + ')</strong>' + 92 '<br/>' + 75 93 DbRows[I].Values['Text'] + '</div></br>'; 76 94 end; … … 79 97 end; 80 98 Text := Text + '</table>'; 81 82 Text := Text + '</td></tr></table>'; 83 84 Text := Text + '<br/>' + 85 '<a href="' + NavigationLink('/images/pohlednice_stara.jpg') + '">' + 86 '<img align="right" src="' + NavigationLink('/images/pohlednice_stara_mala.jpg') + '" alt="Stará pohlednice" /></a>'; 87 88 Text := Text + '<strong>Počty zákazníků:</strong><br/>' + 89 'Připojených domácností v obci: 106<br/>' + 90 'Připojených institucí: 1<br/>' + 91 'Hosting serverů: 0<br/>' + 92 'Celkem: 107<br/>' + 93 '<br/>' + 94 '<strong>Technické parametry sítě</strong><br/>' + 95 'Internetové připojení: 160/160 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/>' + 96 'Pokrytí obce signálem: asi 90%<br/>' + 97 'V připojených domácnostech celkem 365 občanů ze všech 270 (45 %)<br/>' + 98 '<br/>' + 99 '<i>Aktualizováno: 24.7.2020</i>'; 99 Text := Text + '</td></tr></table>'; 100 100 end; 101 101 GeneratePage(Self);
Note:
See TracChangeset
for help on using the changeset viewer.