Changeset 135 for trunk


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.
Location:
trunk
Files:
21 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);

  • trunk/Modules/ZdechovNET/UContactPage.pas

    r130 r135  
    11unit UContactPage;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2220var
    2321  ContactPage: TContactPage;
     22
    2423
    2524implementation

  • trunk/Modules/ZdechovNET/UDocumentsPage.pas

    r128 r135  
    11unit UDocumentsPage;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2220var
    2321  DocumentsPage: TDocumentsPage;
     22
    2423
    2524implementation

  • trunk/Modules/ZdechovNET/UHistoryPage.pas

    r105 r135  
    11unit UHistoryPage;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2321var
    2422  HistoryPage: THistoryPage;
     23
    2524
    2625implementation

  • trunk/Modules/ZdechovNET/UHostingPage.pas

    r116 r135  
    11unit UHostingPage;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Modules/ZdechovNET/UIPTVPage.pas

    r134 r135  
    11unit UIPTVPage;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    3836var
    3937  IPTVPage: TIPTVPage;
     38
    4039
    4140implementation

  • trunk/Modules/ZdechovNET/UInternetPage.pas

    r129 r135  
    11unit UInternetPage;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2220var
    2321  InternetPage: TInternetPage;
     22
    2423
    2524implementation

  • trunk/Modules/ZdechovNET/ULinksPage.lfm

    r97 r135  
    33  Caption = 'Odkazy'
    44  OnProduce = DataModuleProduce
    5   Height = 50
    6   HorizontalOffset = 259
    7   VerticalOffset = 250
    8   Width = 50
     5  Height = 75
     6  HorizontalOffset = 389
     7  VerticalOffset = 375
     8  Width = 75
     9  PPI = 144
    910end

  • trunk/Modules/ZdechovNET/ULinksPage.pas

    r105 r135  
    11unit ULinksPage;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2220var
    2321  LinksPage: TLinksPage;
     22
    2423
    2524implementation

  • trunk/Modules/ZdechovNET/UModuleZdechovNET.pas

    r132 r135  
    11unit UModuleZdechovNET;
    2 
    3 {$mode delphi}
    42
    53interface

  • trunk/Modules/ZdechovNET/UNetworkPage.lfm

    r97 r135  
    33  Caption = 'Síť'
    44  OnProduce = DataModuleProduce
    5   Height = 50
    6   HorizontalOffset = 259
    7   VerticalOffset = 250
    8   Width = 50
     5  Height = 75
     6  HorizontalOffset = 389
     7  VerticalOffset = 375
     8  Width = 75
     9  PPI = 144
    910end

  • trunk/Modules/ZdechovNET/UNetworkPage.pas

    r123 r135  
    11unit UNetworkPage;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2220var
    2321  NetworkPage: TNetworkPage;
     22
    2423
    2524implementation

  • trunk/Modules/ZdechovNET/UPlansPage.lfm

    r97 r135  
    33  Caption = 'Plánované projekty'
    44  OnProduce = DataModuleProduce
    5   Height = 50
    6   HorizontalOffset = 259
    7   VerticalOffset = 250
    8   Width = 50
     5  Height = 75
     6  HorizontalOffset = 389
     7  VerticalOffset = 375
     8  Width = 75
     9  PPI = 144
    910end

  • trunk/Modules/ZdechovNET/UPlansPage.pas

    r105 r135  
    11unit UPlansPage;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2321var
    2422  PlansPage: TPlansPage;
     23
    2524
    2625implementation

  • trunk/Modules/ZdechovNET/UProjectsPage.lfm

    r97 r135  
    33  Caption = 'Projects'
    44  OnProduce = DataModuleProduce
    5   Height = 50
    6   HorizontalOffset = 256
    7   VerticalOffset = 81
    8   Width = 50
     5  Height = 75
     6  HorizontalOffset = 384
     7  VerticalOffset = 122
     8  Width = 75
     9  PPI = 144
    910end

  • trunk/Modules/ZdechovNET/UProjectsPage.pas

    r105 r135  
    11unit UProjectsPage;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2321var
    2422  ProjectsPage: TProjectsPage;
     23
    2524
    2625implementation

  • trunk/Modules/ZdechovNET/UVoIPPage.lfm

    r97 r135  
    33  Caption = 'VoIP'
    44  OnProduce = DataModuleProduce
    5   Height = 50
    6   HorizontalOffset = 259
    7   VerticalOffset = 250
    8   Width = 50
     5  Height = 75
     6  HorizontalOffset = 389
     7  VerticalOffset = 375
     8  Width = 75
     9  PPI = 144
    910end

  • trunk/Modules/ZdechovNET/UVoIPPage.pas

    r116 r135  
    11unit UVoIPPage;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2220var
    2321  VoIPPage: TVoIPPage;
     22
    2423
    2524implementation

  • trunk/Modules/ZdechovNET/UWebCamPage.pas

    r129 r135  
    11unit UWebCamPage;
    2 
    3 {$mode delphi}
    42
    53interface
    … …  
    2321var
    2422  WebCamPage: TWebCamPage;
     23
    2524
    2625implementation

  • trunk/UCore.lfm

    r130 r135  
    11object Core: TCore
    22  OldCreateOrder = False
    3   Height = 434
    4   HorizontalOffset = 533
    5   VerticalOffset = 292
    6   Width = 673
    7   PPI = 150
     3  Height = 417
     4  HorizontalOffset = 512
     5  VerticalOffset = 280
     6  Width = 646
     7  PPI = 144
    88  object WebApp1: TWebApp
    99    OnPageProduce = WebApp1PageProduce
    10     ServerType = stCGI
    11     Left = 250
    12     Top = 136
     10    ServerType = stTCP
     11    Left = 240
     12    Top = 131
    1313  end
    1414  object ApplicationInfo1: TApplicationInfo
    … …  
    2626    RegistryKey = '\Software\Chronosoft\ZdechovNET'
    2727    RegistryRoot = rrKeyCurrentUser
    28     Left = 250
    29     Top = 225
     28    Left = 240
     29    Top = 216
    3030  end
    3131end

  • trunk/UCore.lrs

    r130 r135  
    22
    33LazarusResources.Add('TCore','FORMDATA',[
    4   'TPF0'#5'TCore'#4'Core'#14'OldCreateOrder'#8#6'Height'#3#178#1#16'HorizontalO'
    5   +'ffset'#3#21#2#14'VerticalOffset'#3'$'#1#5'Width'#3#161#2#3'PPI'#3#150#0#0#7
     4  'TPF0'#5'TCore'#4'Core'#14'OldCreateOrder'#8#6'Height'#3#161#1#16'HorizontalO'
     5  +'ffset'#3#0#2#14'VerticalOffset'#3#24#1#5'Width'#3#134#2#3'PPI'#3#144#0#0#7
    66  +'TWebApp'#7'WebApp1'#13'OnPageProduce'#7#18'WebApp1PageProduce'#10'ServerTyp'
    7   +'e'#7#5'stCGI'#4'Left'#3#250#0#3'Top'#3#136#0#0#0#16'TApplicationInfo'#16'Ap'
     7  +'e'#7#5'stTCP'#4'Left'#3#240#0#3'Top'#3#131#0#0#0#16'TApplicationInfo'#16'Ap'
    88  +'plicationInfo1'#14'Identification'#2#1#12'VersionMajor'#2#1#12'VersionMinor'
    99  +#2#0#13'VersionBugFix'#2#0#11'CompanyName'#6#11'Zd'#196#155'chovNET'#15'Comp'
    … …  
    1212  +'robie@centrum.cz'#7'AppName'#6#11'Zd'#196#155'chovNET'#11'ReleaseDate'#5#0#0
    1313  +#0#0#0#0'\'#174#14'@'#11'RegistryKey'#6#31'\Software\Chronosoft\ZdechovNET'
    14   +#12'RegistryRoot'#7#16'rrKeyCurrentUser'#4'Left'#3#250#0#3'Top'#3#225#0#0#0#0
     14  +#12'RegistryRoot'#7#16'rrKeyCurrentUser'#4'Left'#3#240#0#3'Top'#3#216#0#0#0#0
    1515]);
Note: See TracChangeset for help on using the changeset viewer.