Ignore:
Timestamp:
Jul 29, 2022, 11:46:41 PM (2 years ago)
Author:
chronos
Message:
  • Modified: Updated information on main page.
  • Added: Show title in news.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Modules/ZdechovNET/UAboutPage.pas

    r123 r135  
    11unit UAboutPage;
    2 
    3 {$mode delphi}
    42
    53interface
     
    2321  AboutPage: TAboutPage;
    2422
     23
    2524implementation
    2625
     
    4140    ModuleUser.LoadUserInfo;
    4241    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/>';
    6985      try
    7086        DbRows := TDbRows.Create;
    7187        Database.Query(DbRows, 'SELECT * FROM `News` ORDER BY `Time` DESC LIMIT 5');
    7288        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/>' +
    7593            DbRows[I].Values['Text'] + '</div></br>';
    7694        end;
     
    7997      end;
    8098      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>';
    100100    end;
    101101    GeneratePage(Self);
Note: See TracChangeset for help on using the changeset viewer.