Changeset 145
- Timestamp:
- Dec 29, 2023, 7:27:47 PM (11 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Modules/ZdechovNET/UIPTVPage.pas
r143 r145 98 98 with Channels do begin 99 99 AddNew('360TuneBox', [cpMax]); 100 AddNew('AMC (American Movie Classics)(HD)', [cpStandard, cpMax]); 100 AddNew('A11', [cpStandard, cpMax]); 101 AddNew('AMC HD', [cpStandard, cpMax]); 101 102 AddNew('Animal Planet HD', [cpStandard, cpMax, cpDokument]); 102 AddNew('Arena S PORT1 HD', [cpStandard, cpMax, cpSport]);103 AddNew('Arena S PORT 2', [cpStandard, cpMax, cpSport]);103 AddNew('Arena Sport 1 HD', [cpStandard, cpMax, cpSport]); 104 AddNew('Arena Sport 2 HD', [cpStandard, cpMax, cpSport]); 104 105 AddNew('ATV', [cpBasic, cpStandard, cpMax]); 105 106 AddNew('AXN', [cpStandard, cpMax, cpFilm]); … … 107 108 AddNew('AXN White', [cpStandard, cpMax, cpFilm]); 108 109 AddNew('Baby TV', [cpStandard, cpMax, cpDetske]); 109 AddNew('BBC WorldNews', [cpMax, cpZpravodaj]);110 AddNew('BBC News', [cpMax, cpZpravodaj]); 110 111 AddNew('Brazzers TV Europe', [cpStandard, cpMax, cpLaska]); 111 112 AddNew('CNN', [cpStandard, cpMax]); 112 113 AddNew('CNN Prima News HD', [cpBasic, cpStandard, cpMax]); 113 AddNew('CS film/ 114 AddNew('CS film/CS Horor', [cpStandard, cpMax, cpCesky]); 114 115 AddNew('CS History', [cpBasic, cpStandard, cpMax, cpCesky]); 115 116 AddNew('CS Mystery', [cpStandard, cpMax, cpCesky]); … … 117 118 AddNew('ČT 1 HD', [cpBasic, cpStandard, cpMax]); 118 119 AddNew('ČT 1 JM HD', [cpBasic, cpStandard, cpMax]); 120 AddNew('ČT 1 JMC HD', [cpBasic, cpStandard, cpMax]); 119 121 AddNew('ČT 1 SM HD', [cpBasic, cpStandard, cpMax]); 122 AddNew('ČT 1 SMX HD', [cpBasic, cpStandard, cpMax]); 120 123 AddNew('ČT 2 HD', [cpBasic, cpStandard, cpMax]); 121 124 AddNew('ČT 3 HD', [cpBasic, cpStandard, cpMax]); 122 125 AddNew('ČT 24 HD', [cpBasic, cpStandard, cpMax]); 123 AddNew('ČT sport HD', [cpBasic, cpStandard, cpMax]);126 AddNew('ČT Sport HD', [cpBasic, cpStandard, cpMax]); 124 127 AddNew('Desire TV HD', [cpStandard, cpMax]); 125 128 AddNew('Discovery Channel HD', [cpStandard, cpMax, cpDokument]); … … 165 168 AddNew('Mňam TV', [cpBasic, cpStandard, cpMax]); 166 169 AddNew('Mňau TV HD', [cpBasic, cpStandard, cpMax]); 167 AddNew('Náš Region TV', [cpBasic, cpStandard, cpMax, cpZpravodaj]);168 170 AddNew('NASA TV HD', [cpBasic, cpStandard, cpMax]); 169 171 AddNew('National Geographic HD', [cpMax, cpDokument]); … … 194 196 AddNew('Prima LOVE HD', [cpBasic, cpStandard, cpMax]); 195 197 AddNew('Prima MAX HD', [cpBasic, cpStandard, cpMax]); 198 AddNew('Prima Plus HD', [cpMax]); 196 199 AddNew('Prima Show HD', [cpBasic, cpStandard, cpMax]); 197 200 AddNew('Prima Star HD', [cpBasic, cpStandard, cpMax]); … … 201 204 AddNew('Relax', [cpBasic, cpStandard, cpMax]); 202 205 AddNew('Retro Music Television', [cpBasic, cpStandard, cpMax]); 206 AddNew('RTVS 24 HD', [cpBasic, cpStandard, cpMax]); 203 207 AddNew('RTVS Šport HD', [cpBasic, cpStandard, cpMax]); 204 208 AddNew('Seznam.cz TV HD', [cpBasic, cpStandard, cpMax]); 209 AddNew('Šlágr Muzika TV', [cpMax]); 210 AddNew('Šlágr Originál TV', [cpBasic, cpStandard, cpMax]); 211 AddNew('Spark TV HD', [cpStandard, cpMax]); 205 212 AddNew('Spektrum HD', [cpStandard, cpMax]); 213 AddNew('Spektrum Home HD', [cpBasic, cpStandard, cpMax]); 206 214 AddNew('Sport 1 HD', [cpStandard, cpMax]); 207 215 AddNew('Sport 5 HD', [cpMax, cpSport]); 208 216 AddNew('Sport 2 HD', [cpStandard, cpMax]); 209 217 AddNew('Super Polsat', [cpBasic, cpStandard, cpMax]); 210 AddNew('Šlágr Originál TV', [cpBasic, cpStandard, cpMax]);211 218 AddNew('TA 3 HD', [cpBasic, cpStandard, cpMax]); 212 219 AddNew('TLC HD', [cpStandard, cpMax, cpDokument]); … … 238 245 239 246 Text := Text + '<h3>Výhody</h3>' + 240 '<ul><li>velké množství televizních kanálů za nízkou cenu</li>' + 247 '<ul>' + 248 '<li>velké množství televizních kanálů za nízkou cenu</li>' + 241 249 '<li>možnost si aktivovat službu a měnit balíčky po měsících bez několikaleté výpovědní lhůty</li>' + 242 250 '<li>zpětné přehrávání 7 dní nazpět (timeshift)</li>' + … … 252 260 '<h3>Základní balíčky</h3>' + 253 261 '<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>' + 254 Row(['Basic', '1 22', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +255 Row(['Basic + tématika', '1 31', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) +256 Row(['Standard', '4 25', IntToStr(Channels.GetCountByGroup(cpStandard)), Channels.GetNamesByGroup(cpStandard)]) +257 Row(['Max', ' 587', IntToStr(Channels.GetCountByGroup(cpMax)), Channels.GetNamesByGroup(cpMax)]) +262 Row(['Basic', '144', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) + 263 Row(['Basic + tématika', '157', IntToStr(Channels.GetCountByGroup(cpBasic)), Channels.GetNamesByGroup(cpBasic)]) + 264 Row(['Standard', '460', IntToStr(Channels.GetCountByGroup(cpStandard)), Channels.GetNamesByGroup(cpStandard)]) + 265 Row(['Max', '624', IntToStr(Channels.GetCountByGroup(cpMax)), Channels.GetNamesByGroup(cpMax)]) + 258 266 '</table>' + 259 267 '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/>' + … … 261 269 '<h3>Tématické balíčky</h3>' + 262 270 '<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>' + 263 Row(['Film', ' 49', IntToStr(Channels.GetCountByGroup(cpFilm)), Channels.GetNamesByGroup(cpFilm)]) +264 Row(['Superbox', '1 46', IntToStr(Channels.GetCountByGroup(cpSuperBox)), Channels.GetNamesByGroup(cpSuperBox)]) +265 Row(['Sport', ' 91', IntToStr(Channels.GetCountByGroup(cpSport)), Channels.GetNamesByGroup(cpSport)]) +266 Row(['Dětské', ' 37', IntToStr(Channels.GetCountByGroup(cpDetske)), Channels.GetNamesByGroup(cpDetske)]) +267 Row(['Česky', '4 3', IntToStr(Channels.GetCountByGroup(cpCesky)), Channels.GetNamesByGroup(cpCesky)]) +268 Row(['Láska', ' 48', IntToStr(Channels.GetCountByGroup(cpLaska)), Channels.GetNamesByGroup(cpLaska)]) +269 Row(['Zpravodaj', '1 5', IntToStr(Channels.GetCountByGroup(cpZpravodaj)), Channels.GetNamesByGroup(cpZpravodaj)]) +270 Row(['Dokument', '1 25', IntToStr(Channels.GetCountByGroup(cpDokument)), Channels.GetNamesByGroup(cpDokument)]) +271 Row(['Film', '53', IntToStr(Channels.GetCountByGroup(cpFilm)), Channels.GetNamesByGroup(cpFilm)]) + 272 Row(['Superbox', '158', IntToStr(Channels.GetCountByGroup(cpSuperBox)), Channels.GetNamesByGroup(cpSuperBox)]) + 273 Row(['Sport', '146', IntToStr(Channels.GetCountByGroup(cpSport)), Channels.GetNamesByGroup(cpSport)]) + 274 Row(['Dětské', '40', IntToStr(Channels.GetCountByGroup(cpDetske)), Channels.GetNamesByGroup(cpDetske)]) + 275 Row(['Česky', '45', IntToStr(Channels.GetCountByGroup(cpCesky)), Channels.GetNamesByGroup(cpCesky)]) + 276 Row(['Láska', '60', IntToStr(Channels.GetCountByGroup(cpLaska)), Channels.GetNamesByGroup(cpLaska)]) + 277 Row(['Zpravodaj', '19', IntToStr(Channels.GetCountByGroup(cpZpravodaj)), Channels.GetNamesByGroup(cpZpravodaj)]) + 278 Row(['Dokument', '136', IntToStr(Channels.GetCountByGroup(cpDokument)), Channels.GetNamesByGroup(cpDokument)]) + 271 279 Row(['Leo TV', '49', IntToStr(Channels.GetCountByGroup(cpLeoTv)), Channels.GetNamesByGroup(cpLeoTv)]) + 272 280 '</table>' + … … 284 292 'Návod ke služby 4network.tv: <a href="/docs/navod_4network.tv.pdf">navod_4network.tv.pdf</a><br/>' + 285 293 '<br/>' + 286 'Ceny uvedeny včetně DPH platné od 1.1.202 3.';294 'Ceny uvedeny včetně DPH platné od 1.1.2024.'; 287 295 Channels.Free; 288 296 end;
Note:
See TracChangeset
for help on using the changeset viewer.