Ignore:
Timestamp:
Mar 18, 2022, 1:32:32 PM (2 years ago)
Author:
chronos
Message:
  • Modified: Build with Lazarus 2.2.0.
  • Modified: Code cleanup.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Modules/ZdechovNET/UIPTVPage.pas

    r129 r130  
    66
    77uses
    8   Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UModuleUser, Contnrs;
     8  Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UModuleUser, fgl;
    99
    1010type
    … …  
    1919  { TChannels }
    2020
    21   TChannels = class(TObjectList)
     21  TChannels = class(TFPGObjectList<TChannel>)
    2222    function AddNew(Name: string; Groups: TChannelGroups): TChannel;
    2323    function GetNamesByGroup(Group: TChannelGroup): string;
    … …  
    3030    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
    3131  private
    32     function Row(Cell1: string; Cell2: string = ''; Cell3: string = ''; Cell4: string = ''): string;
     32    function Row(Cells: array of string): string;
    3333  public
    3434    ModuleUser: TModuleUser;
    … …  
    6161  Result := '';
    6262  for I := 0 to Count - 1 do begin
    63     if Group in TChannel(Items[I]).Groups then begin
     63    if Group in Items[I].Groups then begin
    6464      if Result <> '' then Result := Result + ', ';
    65       Result := Result + TChannel(Items[I]).Name;
     65      Result := Result + Items[I].Name;
    6666    end;
    6767  end;
    … …  
    7474  Result := 0;
    7575  for I := 0 to Count - 1 do begin
    76     if Group in TChannel(Items[I]).Groups then begin
     76    if Group in Items[I].Groups then begin
    7777      Inc(Result);
    7878    end;
    … …  
    9090    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    9191      Channels := TChannels.Create;
    92     with Channels do begin
    93       AddNew('1TV RUS', [cpBasic, cpStandard, cpMax]);
    94       AddNew('360TuneBox', [cpMax]);
    95       AddNew('AMC (American Movie Classics)', [cpStandard, cpMax]);
    96       AddNew('AMC (American Movie Classics)(HD)', [cpStandard, cpMax]);
    97       AddNew('Animal Planet', [cpStandard, cpMax]);
    98       AddNew('Arena SPORT 1 HD', [cpStandard, cpMax]);
    99       AddNew('Arena SPORT 2', [cpStandard, cpMax]);
    100       AddNew('ATM Rozrywka', [cpBasic, cpStandard, cpMax]);
    101       AddNew('ATV', [cpBasic, cpStandard, cpMax]);
    102       AddNew('AXN', [cpStandard, cpMax]);
    103       AddNew('AXN Black', [cpStandard, cpMax]);
    104       AddNew('AXN White', [cpStandard, cpMax]);
    105       AddNew('Baby TV', [cpStandard, cpMax]);
    106       AddNew('Barrandov Krimi HD', [cpBasic, cpStandard, cpMax]);
    107       AddNew('BBC World News', [cpMax]);
    108       AddNew('Brazzers TV Europe', [cpStandard, cpMax]);
    109       AddNew('CNN', [cpStandard, cpMax]);
    110       AddNew('CNN Prima News', [cpBasic, cpStandard, cpMax]);
    111       AddNew('CNN Prima News HD', [cpBasic, cpStandard, cpMax]);
    112       AddNew('CS film/ CS Horor', [cpStandard, cpMax]);
    113       AddNew('CS History', [cpBasic, cpStandard, cpMax]);
    114       AddNew('CS Mystery', [cpStandard, cpMax]);
    115       AddNew('CT :D / Art', [cpBasic, cpStandard, cpMax]);
    116       AddNew('CT :D HD/ Art HD', [cpBasic, cpStandard, cpMax]);
    117       AddNew('CT 1', [cpBasic, cpStandard, cpMax]);
    118       AddNew('CT 1 HD', [cpBasic, cpStandard, cpMax]);
    119       AddNew('CT 1 JM', [cpBasic, cpStandard, cpMax]);
    120       AddNew('CT 1 JM HD', [cpBasic, cpStandard, cpMax]);
    121       AddNew('CT 1 SM', [cpBasic, cpStandard, cpMax]);
    122       AddNew('CT 1 SM HD', [cpBasic, cpStandard, cpMax]);
    123       AddNew('CT 2', [cpBasic, cpStandard, cpMax]);
    124       AddNew('CT 2 HD', [cpBasic, cpStandard, cpMax]);
    125       AddNew('CT 3', [cpBasic, cpStandard, cpMax]);
    126       AddNew('CT 3 HD', [cpBasic, cpStandard, cpMax]);
    127       AddNew('CT 24', [cpBasic, cpStandard, cpMax]);
    128       AddNew('CT 24 HD', [cpBasic, cpStandard, cpMax]);
    129       AddNew('CT sport', [cpBasic, cpStandard, cpMax]);
    130       AddNew('CT sport HD', [cpBasic, cpStandard, cpMax]);
    131       AddNew('Deutsche Welle', [cpStandard, cpMax]);
    132       AddNew('Discovery Channel', [cpStandard, cpMax]);
    133       AddNew('Discovery Science', [cpMax]);
    134       AddNew('Discovery Showcase HD', [cpMax]);
    135       AddNew('Disney Channel', [cpStandard, cpMax]);
    136       AddNew('Disney junior', [cpStandard, cpMax]);
    137       AddNew('DocuBox HD', [cpMax]);
    138       AddNew('DTX HD', [cpMax]);
    139       AddNew('Dvojka', [cpBasic, cpStandard, cpMax]);
    140       AddNew('Dvojka HD', [cpBasic, cpStandard, cpMax]);
    141       AddNew('Erox HD', [cpMax]);
    142       AddNew('Eroxxx HD', [cpMax]);
    143       AddNew('Euronews', [cpMax]);
    144       AddNew('Eurosport 2 HD', [cpStandard, cpMax]);
    145       AddNew('Eurosport 1 HD', [cpStandard, cpMax]);
    146       AddNew('Fashion TV', [cpStandard, cpMax]);
    147       AddNew('FashionBox HD', [cpMax]);
    148       AddNew('Fast&FunBOX HD', [cpMax]);
    149       AddNew('FightBox HD', [cpMax]);
    150       AddNew('Film Europe', [cpStandard, cpMax]);
    151       AddNew('Film Europe HD', [cpStandard, cpMax]);
    152       AddNew('Film Europe + HD', [cpMax]);
    153       AddNew('Filmbox', [cpStandard, cpMax]);
    154       AddNew('Filmbox Extra HD', [cpMax]);
    155       AddNew('Filmbox Family', [cpMax]);
    156       AddNew('Filmbox Plus', [cpMax]);
    157       AddNew('Filmbox Premium', [cpMax]);
    158       AddNew('Filmbox Premium HD', [cpMax]);
    159       AddNew('Fishing & Hunting', [cpStandard, cpMax]);
    160       AddNew('France 24', [cpMax]);
    161       AddNew('Golf Channel HD', [cpMax]);
    162       AddNew('Investigation discovery', [cpBasic, cpMax]);
    163       AddNew('Jednotka', [cpBasic, cpStandard, cpMax]);
    164       AddNew('Jednotka HD', [cpBasic, cpStandard, cpMax]);
    165       AddNew('Jihočeská televize', [cpBasic, cpStandard, cpMax]);
    166       AddNew('JOJ Family HD', [cpBasic, cpStandard, cpMax]);
    167       AddNew('JOJ Cinema HD', [cpStandard, cpMax]);
    168       AddNew('Kino Barrandov HD', [cpBasic, cpStandard, cpMax]);
    169       AddNew('Markíza International HD', [cpStandard, cpMax]);
    170       AddNew('Minimax', [cpStandard, cpMax]);
    171       AddNew('Mňam TV', [cpBasic, cpStandard, cpMax]);
    172       AddNew('MTV CZ', [cpStandard, cpMax]);
    173       AddNew('NASA Tv HD', [cpBasic, cpStandard, cpMax]);
    174       AddNew('National Geographic', [cpStandard, cpMax]);
    175       AddNew('National Geographic HD', [cpMax]);
    176       AddNew('National Geographic Wild', [cpStandard, cpMax]);
    177       AddNew('Nickelodeon', [cpStandard, cpMax]);
    178       AddNew('Nickelodeon Jr.', [cpStandard, cpMax]);
    179       AddNew('Nova', [cpBasic, cpStandard, cpMax]);
    180       AddNew('Nova 2', [cpBasic, cpStandard, cpMax]);
    181       AddNew('Nova 2 HD', [cpBasic, cpStandard, cpMax]);
    182       AddNew('Nova Action', [cpBasic, cpStandard, cpMax]);
    183       AddNew('Nova Action HD', [cpBasic, cpStandard, cpMax]);
    184       AddNew('Nova Cinema', [cpBasic, cpStandard, cpMax]);
    185       AddNew('Nova Cinema HD', [cpBasic, cpStandard, cpMax]);
    186       AddNew('Nova Gold', [cpBasic, cpStandard, cpMax]);
    187       AddNew('Nova Gold HD', [cpBasic, cpStandard, cpMax]);
    188       AddNew('Nova HD', [cpBasic, cpStandard, cpMax]);
    189       AddNew('Nova Sport 1', [cpStandard, cpMax]);
    190       AddNew('Nova Sport 1 HD', [cpMax]);
    191       AddNew('Nova Sport 2 HD', [cpStandard, cpMax]);
    192       AddNew('Óčko', [cpBasic, cpStandard, cpMax]);
    193       AddNew('Óčko Star', [cpBasic, cpStandard, cpMax]);
    194       AddNew('ORF1', [cpBasic, cpStandard, cpMax]);
    195       AddNew('ORF2', [cpBasic, cpStandard, cpMax]);
    196       AddNew('Polar', [cpBasic, cpStandard, cpMax]);
    197       AddNew('Polsat', [cpBasic, cpStandard, cpMax]);
    198       AddNew('Praha TV', [cpBasic, cpStandard, cpMax]);
    199       AddNew('Prima', [cpBasic, cpStandard, cpMax]);
    200       AddNew('Prima COOL', [cpBasic, cpStandard, cpMax]);
    201       AddNew('Prima COOL HD', [cpBasic, cpStandard, cpMax]);
    202       AddNew('Prima Comedy Central', [cpBasic, cpStandard, cpMax]);
    203       AddNew('Prima HD', [cpBasic, cpStandard, cpMax]);
    204       AddNew('Prima Krimi', [cpBasic, cpStandard, cpMax]);
    205       AddNew('Prima Krimi HD', [cpBasic, cpStandard, cpMax]);
    206       AddNew('Prima LOVE', [cpBasic, cpStandard, cpMax]);
    207       AddNew('Prima LOVE HD', [cpBasic, cpStandard, cpMax]);
    208       AddNew('Prima MAX', [cpBasic, cpStandard, cpMax]);
    209       AddNew('Prima MAX HD', [cpBasic, cpStandard, cpMax]);
    210       AddNew('Prima ZOOM', [cpBasic, cpStandard, cpMax]);
    211       AddNew('Prima ZOOM HD', [cpBasic, cpStandard, cpMax]);
    212       AddNew('Pro 7', [cpBasic, cpStandard, cpMax]);
    213       AddNew('Reality Kings TV', [cpMax]);
    214       AddNew('Regionální.tv', [cpBasic, cpStandard, cpMax]);
    215       AddNew('Relax', [cpBasic, cpStandard, cpMax]);
    216       AddNew('Retro Music Television', [cpBasic, cpStandard, cpMax]);
    217       AddNew('Seznam.cz TV', [cpBasic, cpStandard, cpMax]);
    218       AddNew('Seznam.cz TV HD', [cpBasic, cpStandard, cpMax]);
    219       AddNew('Spektrum HD', [cpStandard, cpMax]);
    220       AddNew('Sport 5', [cpMax]);
    221       AddNew('Sport 1', [cpStandard, cpMax]);
    222       AddNew('Sport 2 HD', [cpStandard, cpMax]);
    223       AddNew('Super Polsat', [cpBasic, cpStandard, cpMax]);
    224       AddNew('Šlágr TV', [cpBasic, cpStandard, cpMax]);
    225       AddNew('TA3', [cpBasic, cpStandard, cpMax]);
    226       AddNew('TLC', [cpStandard, cpMax]);
    227       AddNew('Travel Channel HD', [cpStandard, cpMax]);
    228       AddNew('Trojka', [cpBasic, cpStandard, cpMax]);
    229       AddNew('Trojka HD', [cpBasic, cpStandard, cpMax]);
    230       AddNew('TV Barrandov', [cpBasic, cpStandard, cpMax]);
    231       AddNew('TV Barrandov HD', [cpBasic, cpStandard, cpMax]);
    232       AddNew('TV Brno 1', [cpBasic, cpStandard, cpMax]);
    233       AddNew('TV Noe', [cpBasic, cpStandard, cpMax]);
    234       AddNew('TV Puls', [cpBasic, cpStandard, cpMax]);
    235       AddNew('TV Puls 2', [cpBasic, cpStandard, cpMax]);
    236       AddNew('TV Rebel', [cpBasic, cpStandard, cpMax]);
    237       AddNew('TV Slovácko', [cpBasic, cpStandard, cpMax]);
    238       AddNew('TV5Monde', [cpMax]);
    239       AddNew('TVN', [cpBasic, cpStandard, cpMax]);
    240       AddNew('TVN 7', [cpBasic, cpStandard, cpMax]);
    241       AddNew('TVP Historia', [cpBasic, cpStandard, cpMax]);
    242       AddNew('TVP Info', [cpBasic, cpStandard, cpMax]);
    243       AddNew('TVP 3 Katowice', [cpBasic, cpStandard, cpMax]);
    244       AddNew('TVP Sport', [cpBasic, cpStandard, cpMax]);
    245       AddNew('TVP1 HD', [cpBasic, cpStandard, cpMax]);
    246       AddNew('TVP2 HD', [cpBasic, cpStandard, cpMax]);
    247       AddNew('V1', [cpBasic, cpStandard, cpMax]);
    248       AddNew('ZDF', [cpBasic, cpStandard, cpMax]);
    249     end;
     92      with Channels do begin
     93        AddNew('1TV RUS', [cpBasic, cpStandard, cpMax]);
     94        AddNew('360TuneBox', [cpMax]);
     95        AddNew('AMC (American Movie Classics)', [cpStandard, cpMax]);
     96        AddNew('AMC (American Movie Classics)(HD)', [cpStandard, cpMax]);
     97        AddNew('Animal Planet', [cpStandard, cpMax]);
     98        AddNew('Arena SPORT 1 HD', [cpStandard, cpMax]);
     99        AddNew('Arena SPORT 2', [cpStandard, cpMax]);
     100        AddNew('ATM Rozrywka', [cpBasic, cpStandard, cpMax]);
     101        AddNew('ATV', [cpBasic, cpStandard, cpMax]);
     102        AddNew('AXN', [cpStandard, cpMax]);
     103        AddNew('AXN Black', [cpStandard, cpMax]);
     104        AddNew('AXN White', [cpStandard, cpMax]);
     105        AddNew('Baby TV', [cpStandard, cpMax]);
     106        AddNew('Barrandov Krimi HD', [cpBasic, cpStandard, cpMax]);
     107        AddNew('BBC World News', [cpMax]);
     108        AddNew('Brazzers TV Europe', [cpStandard, cpMax]);
     109        AddNew('CNN', [cpStandard, cpMax]);
     110        AddNew('CNN Prima News', [cpBasic, cpStandard, cpMax]);
     111        AddNew('CNN Prima News HD', [cpBasic, cpStandard, cpMax]);
     112        AddNew('CS film/ CS Horor', [cpStandard, cpMax]);
     113        AddNew('CS History', [cpBasic, cpStandard, cpMax]);
     114        AddNew('CS Mystery', [cpStandard, cpMax]);
     115        AddNew('CT :D / Art', [cpBasic, cpStandard, cpMax]);
     116        AddNew('CT :D HD/ Art HD', [cpBasic, cpStandard, cpMax]);
     117        AddNew('CT 1', [cpBasic, cpStandard, cpMax]);
     118        AddNew('CT 1 HD', [cpBasic, cpStandard, cpMax]);
     119        AddNew('CT 1 JM', [cpBasic, cpStandard, cpMax]);
     120        AddNew('CT 1 JM HD', [cpBasic, cpStandard, cpMax]);
     121        AddNew('CT 1 SM', [cpBasic, cpStandard, cpMax]);
     122        AddNew('CT 1 SM HD', [cpBasic, cpStandard, cpMax]);
     123        AddNew('CT 2', [cpBasic, cpStandard, cpMax]);
     124        AddNew('CT 2 HD', [cpBasic, cpStandard, cpMax]);
     125        AddNew('CT 3', [cpBasic, cpStandard, cpMax]);
     126        AddNew('CT 3 HD', [cpBasic, cpStandard, cpMax]);
     127        AddNew('CT 24', [cpBasic, cpStandard, cpMax]);
     128        AddNew('CT 24 HD', [cpBasic, cpStandard, cpMax]);
     129        AddNew('CT sport', [cpBasic, cpStandard, cpMax]);
     130        AddNew('CT sport HD', [cpBasic, cpStandard, cpMax]);
     131        AddNew('Deutsche Welle', [cpStandard, cpMax]);
     132        AddNew('Discovery Channel', [cpStandard, cpMax]);
     133        AddNew('Discovery Science', [cpMax]);
     134        AddNew('Discovery Showcase HD', [cpMax]);
     135        AddNew('Disney Channel', [cpStandard, cpMax]);
     136        AddNew('Disney junior', [cpStandard, cpMax]);
     137        AddNew('DocuBox HD', [cpMax]);
     138        AddNew('DTX HD', [cpMax]);
     139        AddNew('Dvojka', [cpBasic, cpStandard, cpMax]);
     140        AddNew('Dvojka HD', [cpBasic, cpStandard, cpMax]);
     141        AddNew('Erox HD', [cpMax]);
     142        AddNew('Eroxxx HD', [cpMax]);
     143        AddNew('Euronews', [cpMax]);
     144        AddNew('Eurosport 2 HD', [cpStandard, cpMax]);
     145        AddNew('Eurosport 1 HD', [cpStandard, cpMax]);
     146        AddNew('Fashion TV', [cpStandard, cpMax]);
     147        AddNew('FashionBox HD', [cpMax]);
     148        AddNew('Fast&FunBOX HD', [cpMax]);
     149        AddNew('FightBox HD', [cpMax]);
     150        AddNew('Film Europe', [cpStandard, cpMax]);
     151        AddNew('Film Europe HD', [cpStandard, cpMax]);
     152        AddNew('Film Europe + HD', [cpMax]);
     153        AddNew('Filmbox', [cpStandard, cpMax]);
     154        AddNew('Filmbox Extra HD', [cpMax]);
     155        AddNew('Filmbox Family', [cpMax]);
     156        AddNew('Filmbox Plus', [cpMax]);
     157        AddNew('Filmbox Premium', [cpMax]);
     158        AddNew('Filmbox Premium HD', [cpMax]);
     159        AddNew('Fishing & Hunting', [cpStandard, cpMax]);
     160        AddNew('France 24', [cpMax]);
     161        AddNew('Golf Channel HD', [cpMax]);
     162        AddNew('Investigation discovery', [cpBasic, cpMax]);
     163        AddNew('Jednotka', [cpBasic, cpStandard, cpMax]);
     164        AddNew('Jednotka HD', [cpBasic, cpStandard, cpMax]);
     165        AddNew('Jihočeská televize', [cpBasic, cpStandard, cpMax]);
     166        AddNew('JOJ Family HD', [cpBasic, cpStandard, cpMax]);
     167        AddNew('JOJ Cinema HD', [cpStandard, cpMax]);
     168        AddNew('Kino Barrandov HD', [cpBasic, cpStandard, cpMax]);
     169        AddNew('Markíza International HD', [cpStandard, cpMax]);
     170        AddNew('Minimax', [cpStandard, cpMax]);
     171        AddNew('Mňam TV', [cpBasic, cpStandard, cpMax]);
     172        AddNew('MTV CZ', [cpStandard, cpMax]);
     173        AddNew('NASA Tv HD', [cpBasic, cpStandard, cpMax]);
     174        AddNew('National Geographic', [cpStandard, cpMax]);
     175        AddNew('National Geographic HD', [cpMax]);
     176        AddNew('National Geographic Wild', [cpStandard, cpMax]);
     177        AddNew('Nickelodeon', [cpStandard, cpMax]);
     178        AddNew('Nickelodeon Jr.', [cpStandard, cpMax]);
     179        AddNew('Nova', [cpBasic, cpStandard, cpMax]);
     180        AddNew('Nova 2', [cpBasic, cpStandard, cpMax]);
     181        AddNew('Nova 2 HD', [cpBasic, cpStandard, cpMax]);
     182        AddNew('Nova Action', [cpBasic, cpStandard, cpMax]);
     183        AddNew('Nova Action HD', [cpBasic, cpStandard, cpMax]);
     184        AddNew('Nova Cinema', [cpBasic, cpStandard, cpMax]);
     185        AddNew('Nova Cinema HD', [cpBasic, cpStandard, cpMax]);
     186        AddNew('Nova Gold', [cpBasic, cpStandard, cpMax]);
     187        AddNew('Nova Gold HD', [cpBasic, cpStandard, cpMax]);
     188        AddNew('Nova HD', [cpBasic, cpStandard, cpMax]);
     189        AddNew('Nova Sport 1', [cpStandard, cpMax]);
     190        AddNew('Nova Sport 1 HD', [cpMax]);
     191        AddNew('Nova Sport 2 HD', [cpStandard, cpMax]);
     192        AddNew('Óčko', [cpBasic, cpStandard, cpMax]);
     193        AddNew('Óčko Star', [cpBasic, cpStandard, cpMax]);
     194        AddNew('ORF1', [cpBasic, cpStandard, cpMax]);
     195        AddNew('ORF2', [cpBasic, cpStandard, cpMax]);
     196        AddNew('Polar', [cpBasic, cpStandard, cpMax]);
     197        AddNew('Polsat', [cpBasic, cpStandard, cpMax]);
     198        AddNew('Praha TV', [cpBasic, cpStandard, cpMax]);
     199        AddNew('Prima', [cpBasic, cpStandard, cpMax]);
     200        AddNew('Prima COOL', [cpBasic, cpStandard, cpMax]);
     201        AddNew('Prima COOL HD', [cpBasic, cpStandard, cpMax]);
     202        AddNew('Prima Comedy Central', [cpBasic, cpStandard, cpMax]);
     203        AddNew('Prima HD', [cpBasic, cpStandard, cpMax]);
     204        AddNew('Prima Krimi', [cpBasic, cpStandard, cpMax]);
     205        AddNew('Prima Krimi HD', [cpBasic, cpStandard, cpMax]);
     206        AddNew('Prima LOVE', [cpBasic, cpStandard, cpMax]);
     207        AddNew('Prima LOVE HD', [cpBasic, cpStandard, cpMax]);
     208        AddNew('Prima MAX', [cpBasic, cpStandard, cpMax]);
     209        AddNew('Prima MAX HD', [cpBasic, cpStandard, cpMax]);
     210        AddNew('Prima ZOOM', [cpBasic, cpStandard, cpMax]);
     211        AddNew('Prima ZOOM HD', [cpBasic, cpStandard, cpMax]);
     212        AddNew('Pro 7', [cpBasic, cpStandard, cpMax]);
     213        AddNew('Reality Kings TV', [cpMax]);
     214        AddNew('Regionální.tv', [cpBasic, cpStandard, cpMax]);
     215        AddNew('Relax', [cpBasic, cpStandard, cpMax]);
     216        AddNew('Retro Music Television', [cpBasic, cpStandard, cpMax]);
     217        AddNew('Seznam.cz TV', [cpBasic, cpStandard, cpMax]);
     218        AddNew('Seznam.cz TV HD', [cpBasic, cpStandard, cpMax]);
     219        AddNew('Spektrum HD', [cpStandard, cpMax]);
     220        AddNew('Sport 5', [cpMax]);
     221        AddNew('Sport 1', [cpStandard, cpMax]);
     222        AddNew('Sport 2 HD', [cpStandard, cpMax]);
     223        AddNew('Super Polsat', [cpBasic, cpStandard, cpMax]);
     224        AddNew('Šlágr TV', [cpBasic, cpStandard, cpMax]);
     225        AddNew('TA3', [cpBasic, cpStandard, cpMax]);
     226        AddNew('TLC', [cpStandard, cpMax]);
     227        AddNew('Travel Channel HD', [cpStandard, cpMax]);
     228        AddNew('Trojka', [cpBasic, cpStandard, cpMax]);
     229        AddNew('Trojka HD', [cpBasic, cpStandard, cpMax]);
     230        AddNew('TV Barrandov', [cpBasic, cpStandard, cpMax]);
     231        AddNew('TV Barrandov HD', [cpBasic, cpStandard, cpMax]);
     232        AddNew('TV Brno 1', [cpBasic, cpStandard, cpMax]);
     233        AddNew('TV Noe', [cpBasic, cpStandard, cpMax]);
     234        AddNew('TV Puls', [cpBasic, cpStandard, cpMax]);
     235        AddNew('TV Puls 2', [cpBasic, cpStandard, cpMax]);
     236        AddNew('TV Rebel', [cpBasic, cpStandard, cpMax]);
     237        AddNew('TV Slovácko', [cpBasic, cpStandard, cpMax]);
     238        AddNew('TV5Monde', [cpMax]);
     239        AddNew('TVN', [cpBasic, cpStandard, cpMax]);
     240        AddNew('TVN 7', [cpBasic, cpStandard, cpMax]);
     241        AddNew('TVP Historia', [cpBasic, cpStandard, cpMax]);
     242        AddNew('TVP Info', [cpBasic, cpStandard, cpMax]);
     243        AddNew('TVP 3 Katowice', [cpBasic, cpStandard, cpMax]);
     244        AddNew('TVP Sport', [cpBasic, cpStandard, cpMax]);
     245        AddNew('TVP1 HD', [cpBasic, cpStandard, cpMax]);
     246        AddNew('TVP2 HD', [cpBasic, cpStandard, cpMax]);
     247        AddNew('V1', [cpBasic, cpStandard, cpMax]);
     248        AddNew('ZDF', [cpBasic, cpStandard, cpMax]);
     249      end;
    250250
    251251      Text := Text + '<h3>Výhody</h3>' +
    … …  
    264264      '<h3>Základní balíčky</h3>' +
    265265      '<table class="WideTable"><tr><th>Balíček</th><th>Cena [Kč/měsíc]</th><th>Počet kanálů</th><th>Kanály</th></tr>' +
    266       Row('Basic', '95', IntToStr(Channels.GetCountByGroup(cpBasic)) + '</td><td>' + Channels.GetNamesByGroup(cpBasic)) +
    267       Row('Basic + tématika', '103', IntToStr(Channels.GetCountByGroup(cpBasic)) + '</td><td>' + Channels.GetNamesByGroup(cpBasic)) +
    268       Row('Standard', '367', IntToStr(Channels.GetCountByGroup(cpStandard)) + '</td><td>' + Channels.GetNamesByGroup(cpStandard)) +
    269       Row('Max', '530', IntToStr(Channels.GetCountByGroup(cpMax)) + '</td><td>' + Channels.GetNamesByGroup(cpMax)) +
     266      Row(['Basic', '95', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
     267      Row(['Basic + tématika', '103', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +
     268      Row(['Standard', '367', IntToStr(Channels.GetCountByGroup(cpStandard)), Channels.GetNamesByGroup(cpStandard)]) +
     269      Row(['Max', '530', IntToStr(Channels.GetCountByGroup(cpMax)), Channels.GetNamesByGroup(cpMax)]) +
    270270      '</table>' +
    271271      'Balíček Basic obsahuje stejné kanály jako Basic + tématika. Pro možnost volby tématických balíčků je ale nutné mít balíček Basic + tématika.<br/>' +
    … …  
    273273      '<h3>Tématické balíčky</h3>' +
    274274      '<table class="WideTable"><tr><th>Balíček</th><th>Cena [Kč/měsíc]</th><th>Počet kanálů</th><th>Kanály</th></tr>' +
    275       Row('Film', '49', '7', 'AXN, AXN Black, AXN White, Film Europe, Film Europe HD, Filmbox, JOJ Cinema HD') +
    276       Row('Superbox', '146', '9', 'Erox HD, Eroxxx HD, FashionBox HD, FigthtBox HD, Filbox, Filmbox Premium, Filmbox Family, Filmbox Extra HD, Filmbox Plus') +
    277       Row('Sport', '67', '9', 'ArenaSPORT 1 HD, ArenaSPORT 2, Eurosport 1 HD, Eurosport 2 HD, Golf Channel HD, Nova Sport 1, Nova Sport 1 HD, Nova Sport 2 HD, Sport 5') +
    278       Row('Dětské', '37', '5', 'Baby TV, Disney Channel, Disney junior, Nickelodeon, Nickelodeon Jr.') +
    279       Row('Česky', '43', '4', 'CS Film/CS Horor, CS History, CS Mystery, Film Europe + HD') +
    280       Row('Láska', '49', '4', 'Brazzers TV Europe. Erox HD, Eroxxx HD, Playboy TV') +
    281       Row('Zpravodaj', '15', '6', 'BBC World New, Deutsche Welle, EuroNews, Fashion TV, France 24, TV5Monde') +
    282       Row('Dokument', '103', '12', 'Animal Planet, Discovery channel, Discovery Science, Discovery Showcase HD, DTX HD, Fishing & Hunting, Investigation discovery, National Geographic, National Geographic HD, National Geographic Wild, TLC, Travel Channel HD') +
     275      Row(['Film', '49', '7', 'AXN, AXN Black, AXN White, Film Europe, Film Europe HD, Filmbox, JOJ Cinema HD']) +
     276      Row(['Superbox', '146', '9', 'Erox HD, Eroxxx HD, FashionBox HD, FigthtBox HD, Filbox, Filmbox Premium, Filmbox Family, Filmbox Extra HD, Filmbox Plus']) +
     277      Row(['Sport', '67', '9', 'ArenaSPORT 1 HD, ArenaSPORT 2, Eurosport 1 HD, Eurosport 2 HD, Golf Channel HD, Nova Sport 1, Nova Sport 1 HD, Nova Sport 2 HD, Sport 5']) +
     278      Row(['Dětské', '37', '5', 'Baby TV, Disney Channel, Disney junior, Nickelodeon, Nickelodeon Jr.']) +
     279      Row(['Česky', '43', '4', 'CS Film/CS Horor, CS History, CS Mystery, Film Europe + HD']) +
     280      Row(['Láska', '49', '4', 'Brazzers TV Europe. Erox HD, Eroxxx HD, Playboy TV']) +
     281      Row(['Zpravodaj', '15', '6', 'BBC World New, Deutsche Welle, EuroNews, Fashion TV, France 24, TV5Monde']) +
     282      Row(['Dokument', '103', '12', 'Animal Planet, Discovery channel, Discovery Science, Discovery Showcase HD, DTX HD, Fishing & Hunting, Investigation discovery, National Geographic, National Geographic HD, National Geographic Wild, TLC, Travel Channel HD']) +
    283283      '</table>' +
    284284      'Celková cena vznikne jako součet zvolených tématických balíčků a základního balíčku Basic + tématika.<br/>' +
    … …  
    295295      'Návod ke služby 4network.tv: <a href="/docs/navod_4network.tv.pdf">navod_4network.tv.pdf</a><br/>' +
    296296      '<br/>' +
    297       'Ceny uvedeny včetně DPH platné od 24.7.2020.';
     297      'Ceny uvedeny včetně DPH platné od 1.4.2021.';
    298298      Channels.Free;
    299299    end;
    … …  
    302302end;
    303303
    304 function TIPTVPage.Row(Cell1: string; Cell2: string; Cell3: string;
    305   Cell4: string): string;
    306 begin
    307   Result := '<td>' + Cell1 + '</td>';
    308   if Cell2 <> '' then Result := Result + '<td>' + Cell2 + '</td>';
    309   if Cell3 <> '' then Result := Result + '<td>' + Cell3 + '</td>';
    310   if Cell4 <> '' then Result := Result + '<td>' + Cell4 + '</td>';
     304function TIPTVPage.Row(Cells: array of string): string;
     305var
     306  I: Integer;
     307begin
     308  Result := '';
     309  for I := 0 to Length(Cells) - 1 do
     310    Result := Result + '<td>' + Cells[I] + '</td>';
    311311  Result := '<tr>' + Result + '</tr>';
    312312end;
Note: See TracChangeset for help on using the changeset viewer.