Changeset 133


Ignore:
Timestamp:
Mar 18, 2022, 9:57:33 PM (2 years ago)
Author:
chronos
Message:
  • Modified: IPTV prices.
Location:
trunk/Modules/ZdechovNET
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/Modules/ZdechovNET/UIPTVPage.lfm

    r119 r133  
    33  Caption = 'IPTV'
    44  OnProduce = DataModuleProduce
    5   Height = 50
    6   HorizontalOffset = 259
    7   VerticalOffset = 250
    8   Width = 50
     5  Height = 78
     6  HorizontalOffset = 405
     7  VerticalOffset = 391
     8  Width = 78
     9  PPI = 150
    910end

  • trunk/Modules/ZdechovNET/UIPTVPage.pas

    r130 r133  
    99
    1010type
    11   TChannelGroup = (cpBasic, cpStandard, cpMax);
     11  TChannelGroup = (cpBasic, cpStandard, cpMax, cpFilm, cpSuperBox, cpDokument,
     12    cpLaska, cpZpravodaj, cpDetske, cpSport, cpLeoTv, cpCesky);
    1213  TChannelGroups = set of TChannelGroup;
    1314
    … …  
    9192      Channels := TChannels.Create;
    9293      with Channels do begin
    93         AddNew('1TV RUS', [cpBasic, cpStandard, cpMax]);
    9494        AddNew('360TuneBox', [cpMax]);
    95         AddNew('AMC (American Movie Classics)', [cpStandard, cpMax]);
    9695        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]);
     96        AddNew('Animal Planet HD', [cpStandard, cpMax, cpDokument]);
     97        AddNew('Arena SPORT 1 HD', [cpStandard, cpMax, cpSport]);
     98        AddNew('Arena SPORT 2', [cpStandard, cpMax, cpSport]);
    10199        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]);
     100        AddNew('AXN', [cpStandard, cpMax, cpFilm]);
     101        AddNew('AXN Black', [cpStandard, cpMax, cpFilm]);
     102        AddNew('AXN White', [cpStandard, cpMax, cpFilm]);
     103        AddNew('Baby TV', [cpStandard, cpMax, cpDetske]);
     104        AddNew('BBC World News', [cpMax, cpZpravodaj]);
     105        AddNew('Brazzers TV Europe', [cpStandard, cpMax, cpLaska]);
    109106        AddNew('CNN', [cpStandard, cpMax]);
    110         AddNew('CNN Prima News', [cpBasic, cpStandard, cpMax]);
    111107        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]);
     108        AddNew('CS film/ CS Horor', [cpStandard, cpMax, cpCesky]);
     109        AddNew('CS History', [cpBasic, cpStandard, cpMax, cpCesky]);
     110        AddNew('CS Mystery', [cpStandard, cpMax, cpCesky]);
    116111        AddNew('CT :D HD/ Art HD', [cpBasic, cpStandard, cpMax]);
    117         AddNew('CT 1', [cpBasic, cpStandard, cpMax]);
    118112        AddNew('CT 1 HD', [cpBasic, cpStandard, cpMax]);
    119         AddNew('CT 1 JM', [cpBasic, cpStandard, cpMax]);
    120113        AddNew('CT 1 JM HD', [cpBasic, cpStandard, cpMax]);
    121         AddNew('CT 1 SM', [cpBasic, cpStandard, cpMax]);
    122114        AddNew('CT 1 SM HD', [cpBasic, cpStandard, cpMax]);
    123         AddNew('CT 2', [cpBasic, cpStandard, cpMax]);
    124115        AddNew('CT 2 HD', [cpBasic, cpStandard, cpMax]);
    125         AddNew('CT 3', [cpBasic, cpStandard, cpMax]);
    126116        AddNew('CT 3 HD', [cpBasic, cpStandard, cpMax]);
    127         AddNew('CT 24', [cpBasic, cpStandard, cpMax]);
    128117        AddNew('CT 24 HD', [cpBasic, cpStandard, cpMax]);
    129         AddNew('CT sport', [cpBasic, cpStandard, cpMax]);
    130118        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]);
     119        AddNew('Deutsche Welle HD', [cpStandard, cpMax, cpZpravodaj]);
     120        AddNew('Discovery Channel HD', [cpStandard, cpMax, cpDokument]);
     121        AddNew('Discovery Science HD', [cpMax, cpDokument]);
     122        AddNew('Disney Channel', [cpStandard, cpMax, cpDetske]);
     123        AddNew('Disney junior', [cpStandard, cpMax, cpDetske]);
    137124        AddNew('DocuBox HD', [cpMax]);
    138         AddNew('DTX HD', [cpMax]);
    139         AddNew('Dvojka', [cpBasic, cpStandard, cpMax]);
     125        AddNew('DTX HD', [cpMax, cpDokument]);
    140126        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]);
     127        AddNew('Erox HD', [cpMax, cpSuperBox, cpLaska]);
     128        AddNew('Eroxxx HD', [cpMax, cpSuperBox, cpLaska]);
     129        AddNew('Euronews', [cpMax, cpZpravodaj]);
     130        AddNew('Eurosport 2 HD', [cpStandard, cpMax, cpSport]);
     131        AddNew('Eurosport 1 HD', [cpStandard, cpMax, cpSport]);
     132        AddNew('EXTASY TV HD', [cpLeoTv]);
     133        AddNew('Fashion TV HD', [cpStandard, cpMax, cpZpravodaj]);
     134        AddNew('FashionBox HD', [cpMax, cpSuperBox]);
     135        AddNew('Fast&FunBox HD', [cpMax]);
     136        AddNew('FightBox HD', [cpMax, cpSuperBox]);
     137        AddNew('Film Europe HD', [cpStandard, cpMax, cpFilm]);
     138        AddNew('Film Europe + HD', [cpMax, cpFilm, cpCesky]);
     139        AddNew('Filmbox HD', [cpStandard, cpMax, cpSuperBox]);
     140        AddNew('Filmbox Extra HD', [cpMax, cpSuperBox]);
     141        AddNew('Filmbox Family', [cpMax, cpSuperBox]);
     142        AddNew('Filmbox Stars HD', [cpMax, cpSuperBox]);
     143        AddNew('Filmbox Premium HD', [cpMax, cpSuperBox]);
     144        AddNew('Fishing & Hunting', [cpStandard, cpMax, cpDokument]);
     145        AddNew('France 24', [cpMax, cpZpravodaj]);
     146        AddNew('Golf Channel HD', [cpMax, cpSport]);
     147        AddNew('Hobby TV HD', [cpBasic, cpStandard, cpMax]);
     148        AddNew('iConcerts HD', [cpStandard, cpMax]);
     149        AddNew('Investigation discovery', [cpMax, cpDokument]);
    164150        AddNew('Jednotka HD', [cpBasic, cpStandard, cpMax]);
    165151        AddNew('Jihočeská televize', [cpBasic, cpStandard, cpMax]);
    166152        AddNew('JOJ Family HD', [cpBasic, cpStandard, cpMax]);
    167         AddNew('JOJ Cinema HD', [cpStandard, cpMax]);
    168         AddNew('Kino Barrandov HD', [cpBasic, cpStandard, cpMax]);
     153        AddNew('JOJ Cinema HD', [cpStandard, cpMax, cpFilm]);
     154        AddNew('Leo TV HD', [cpBasic, cpStandard, cpMax, cpLeoTv]);
     155        AddNew('Leo TV GOLD HD', [cpLeoTv]);
    169156        AddNew('Markíza International HD', [cpStandard, cpMax]);
     157        AddNew('Mezzo HD', [cpStandard, cpMax]);
    170158        AddNew('Minimax', [cpStandard, cpMax]);
    171159        AddNew('Mňam TV', [cpBasic, cpStandard, cpMax]);
     160        AddNew('Mňau TV HD', [cpBasic, cpStandard, cpMax]);
    172161        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]);
     162        AddNew('NASA TV HD', [cpBasic, cpStandard, cpMax]);
     163        AddNew('National Geographic HD', [cpMax, cpDokument]);
     164        AddNew('National Geographic Wild HD', [cpStandard, cpMax, cpDokument]);
     165        AddNew('Nickelodeon', [cpStandard, cpMax, cpDetske]);
     166        AddNew('Nickelodeon Jr.', [cpStandard, cpMax, cpDetske]);
     167        AddNew('Nova HD', [cpBasic, cpStandard, cpMax]);
    183168        AddNew('Nova Action HD', [cpBasic, cpStandard, cpMax]);
    184         AddNew('Nova Cinema', [cpBasic, cpStandard, cpMax]);
    185169        AddNew('Nova Cinema HD', [cpBasic, cpStandard, cpMax]);
    186         AddNew('Nova Gold', [cpBasic, cpStandard, cpMax]);
    187170        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]);
     171        AddNew('Nova FUN HD', [cpBasic, cpStandard, cpMax]);
     172        AddNew('Nova Lady HD', [cpBasic, cpStandard, cpMax]);
     173        AddNew('Nova Sport 1 HD', [cpMax, cpSport]);
     174        AddNew('Nova Sport 2 HD', [cpStandard, cpMax, cpSport]);
    192175        AddNew('Óčko', [cpBasic, cpStandard, cpMax]);
    193176        AddNew('Óčko Star', [cpBasic, cpStandard, cpMax]);
    194177        AddNew('ORF1', [cpBasic, cpStandard, cpMax]);
    195178        AddNew('ORF2', [cpBasic, cpStandard, cpMax]);
     179        AddNew('PASSIONXXX HD', [cpLeoTv]);
    196180        AddNew('Polar', [cpBasic, cpStandard, cpMax]);
    197181        AddNew('Polsat', [cpBasic, cpStandard, cpMax]);
    198182        AddNew('Praha TV', [cpBasic, cpStandard, cpMax]);
    199         AddNew('Prima', [cpBasic, cpStandard, cpMax]);
    200         AddNew('Prima COOL', [cpBasic, cpStandard, cpMax]);
    201183        AddNew('Prima COOL HD', [cpBasic, cpStandard, cpMax]);
    202         AddNew('Prima Comedy Central', [cpBasic, cpStandard, cpMax]);
     184        AddNew('Paramount Network', [cpBasic, cpStandard, cpMax]);
    203185        AddNew('Prima HD', [cpBasic, cpStandard, cpMax]);
    204         AddNew('Prima Krimi', [cpBasic, cpStandard, cpMax]);
    205186        AddNew('Prima Krimi HD', [cpBasic, cpStandard, cpMax]);
    206         AddNew('Prima LOVE', [cpBasic, cpStandard, cpMax]);
    207187        AddNew('Prima LOVE HD', [cpBasic, cpStandard, cpMax]);
    208         AddNew('Prima MAX', [cpBasic, cpStandard, cpMax]);
    209188        AddNew('Prima MAX HD', [cpBasic, cpStandard, cpMax]);
    210         AddNew('Prima ZOOM', [cpBasic, cpStandard, cpMax]);
     189        AddNew('Prima SHOW HD', [cpBasic, cpStandard, cpMax]);
     190        AddNew('Prima STAR HD', [cpBasic, cpStandard, cpMax]);
    211191        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]);
     192        AddNew('Reality Kings TV', [cpMax, cpLaska]);
     193        AddNew('Regionální Televize', [cpBasic, cpStandard, cpMax]);
    215194        AddNew('Relax', [cpBasic, cpStandard, cpMax]);
    216195        AddNew('Retro Music Television', [cpBasic, cpStandard, cpMax]);
    217         AddNew('Seznam.cz TV', [cpBasic, cpStandard, cpMax]);
     196        AddNew('RTVS Šport HD', [cpBasic, cpStandard, cpMax]);
    218197        AddNew('Seznam.cz TV HD', [cpBasic, cpStandard, cpMax]);
    219198        AddNew('Spektrum HD', [cpStandard, cpMax]);
    220         AddNew('Sport 5', [cpMax]);
    221         AddNew('Sport 1', [cpStandard, cpMax]);
     199        AddNew('Sport 5 HD', [cpMax, cpSport]);
     200        AddNew('Sport 1 HD', [cpStandard, cpMax]);
    222201        AddNew('Sport 2 HD', [cpStandard, cpMax]);
    223202        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]);
     203        AddNew('Šlágr Originál TV', [cpBasic, cpStandard, cpMax]);
     204        AddNew('TA 3', [cpBasic, cpStandard, cpMax]);
     205        AddNew('TLC HD', [cpStandard, cpMax, cpDokument]);
     206        AddNew('Travel Channel HD', [cpStandard, cpMax, cpDokument]);
    229207        AddNew('Trojka HD', [cpBasic, cpStandard, cpMax]);
    230         AddNew('TV Barrandov', [cpBasic, cpStandard, cpMax]);
    231         AddNew('TV Barrandov HD', [cpBasic, cpStandard, cpMax]);
    232208        AddNew('TV Brno 1', [cpBasic, cpStandard, cpMax]);
     209        AddNew('TV Lux', [cpBasic, cpStandard, cpMax]);
    233210        AddNew('TV Noe', [cpBasic, cpStandard, cpMax]);
    234211        AddNew('TV Puls', [cpBasic, cpStandard, cpMax]);
    … …  
    236213        AddNew('TV Rebel', [cpBasic, cpStandard, cpMax]);
    237214        AddNew('TV Slovácko', [cpBasic, cpStandard, cpMax]);
    238         AddNew('TV5Monde', [cpMax]);
     215        AddNew('TV5 Monde', [cpMax, cpZpravodaj]);
    239216        AddNew('TVN', [cpBasic, cpStandard, cpMax]);
    240217        AddNew('TVN 7', [cpBasic, cpStandard, cpMax]);
    241218        AddNew('TVP Historia', [cpBasic, cpStandard, cpMax]);
    242         AddNew('TVP Info', [cpBasic, cpStandard, cpMax]);
    243219        AddNew('TVP 3 Katowice', [cpBasic, cpStandard, cpMax]);
    244220        AddNew('TVP Sport', [cpBasic, cpStandard, cpMax]);
    … …  
    246222        AddNew('TVP2 HD', [cpBasic, cpStandard, cpMax]);
    247223        AddNew('V1', [cpBasic, cpStandard, cpMax]);
     224        AddNew('Viasat Explore HD', [cpStandard, cpMax, cpDokument]);
     225        AddNew('Viasat History HD', [cpStandard, cpMax, cpDokument]);
     226        AddNew('Viasat Nature HD', [cpStandard, cpMax, cpDokument]);
     227        AddNew('ZAK TV', [cpBasic, cpStandard, cpMax]);
    248228        AddNew('ZDF', [cpBasic, cpStandard, cpMax]);
    249229      end;
    … …  
    273253      '<h3>Tématické balíčky</h3>' +
    274254      '<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']) +
     255      Row(['Film', '49', IntToStr(Channels.GetCountByGroup(cpFilm)), Channels.GetNamesByGroup(cpFilm)]) +
     256      Row(['Superbox', '143', IntToStr(Channels.GetCountByGroup(cpSuperBox)), Channels.GetNamesByGroup(cpSuperBox)]) +
     257      Row(['Sport', '67', IntToStr(Channels.GetCountByGroup(cpSport)), Channels.GetNamesByGroup(cpSport)]) +
     258      Row(['Dětské', '37', IntToStr(Channels.GetCountByGroup(cpDetske)), Channels.GetNamesByGroup(cpDetske)]) +
     259      Row(['Česky', '43', IntToStr(Channels.GetCountByGroup(cpCesky)), Channels.GetNamesByGroup(cpCesky)]) +
     260      Row(['Láska', '49', IntToStr(Channels.GetCountByGroup(cpLaska)), Channels.GetNamesByGroup(cpLaska)]) +
     261      Row(['Zpravodaj', '15', IntToStr(Channels.GetCountByGroup(cpZpravodaj)), Channels.GetNamesByGroup(cpZpravodaj)]) +
     262      Row(['Dokument', '103', IntToStr(Channels.GetCountByGroup(cpDokument)), Channels.GetNamesByGroup(cpDokument)]) +
     263      Row(['Leo TV', '103', IntToStr(Channels.GetCountByGroup(cpLeoTv)), Channels.GetNamesByGroup(cpLeoTv)]) +
    283264      '</table>' +
    284265      'Celková cena vznikne jako součet zvolených tématických balíčků a základního balíčku Basic + tématika.<br/>' +
Note: See TracChangeset for help on using the changeset viewer.