Changeset 133
- Timestamp:
- Mar 18, 2022, 9:57:33 PM (3 years ago)
- Location:
- trunk/Modules/ZdechovNET
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Modules/ZdechovNET/UIPTVPage.lfm
r119 r133 3 3 Caption = 'IPTV' 4 4 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 9 10 end -
trunk/Modules/ZdechovNET/UIPTVPage.pas
r130 r133 9 9 10 10 type 11 TChannelGroup = (cpBasic, cpStandard, cpMax); 11 TChannelGroup = (cpBasic, cpStandard, cpMax, cpFilm, cpSuperBox, cpDokument, 12 cpLaska, cpZpravodaj, cpDetske, cpSport, cpLeoTv, cpCesky); 12 13 TChannelGroups = set of TChannelGroup; 13 14 … … 91 92 Channels := TChannels.Create; 92 93 with Channels do begin 93 AddNew('1TV RUS', [cpBasic, cpStandard, cpMax]);94 94 AddNew('360TuneBox', [cpMax]); 95 AddNew('AMC (American Movie Classics)', [cpStandard, cpMax]);96 95 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]); 101 99 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]); 109 106 AddNew('CNN', [cpStandard, cpMax]); 110 AddNew('CNN Prima News', [cpBasic, cpStandard, cpMax]);111 107 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]); 116 111 AddNew('CT :D HD/ Art HD', [cpBasic, cpStandard, cpMax]); 117 AddNew('CT 1', [cpBasic, cpStandard, cpMax]);118 112 AddNew('CT 1 HD', [cpBasic, cpStandard, cpMax]); 119 AddNew('CT 1 JM', [cpBasic, cpStandard, cpMax]);120 113 AddNew('CT 1 JM HD', [cpBasic, cpStandard, cpMax]); 121 AddNew('CT 1 SM', [cpBasic, cpStandard, cpMax]);122 114 AddNew('CT 1 SM HD', [cpBasic, cpStandard, cpMax]); 123 AddNew('CT 2', [cpBasic, cpStandard, cpMax]);124 115 AddNew('CT 2 HD', [cpBasic, cpStandard, cpMax]); 125 AddNew('CT 3', [cpBasic, cpStandard, cpMax]);126 116 AddNew('CT 3 HD', [cpBasic, cpStandard, cpMax]); 127 AddNew('CT 24', [cpBasic, cpStandard, cpMax]);128 117 AddNew('CT 24 HD', [cpBasic, cpStandard, cpMax]); 129 AddNew('CT sport', [cpBasic, cpStandard, cpMax]);130 118 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]); 137 124 AddNew('DocuBox HD', [cpMax]); 138 AddNew('DTX HD', [cpMax]); 139 AddNew('Dvojka', [cpBasic, cpStandard, cpMax]); 125 AddNew('DTX HD', [cpMax, cpDokument]); 140 126 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('Fashion Box HD', [cpMax]);148 AddNew('Fas t&FunBOX HD', [cpMax]);149 AddNew('F ightBox HD', [cpMax]);150 AddNew('Fi lm 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('Fi lmbox Premium HD', [cpMax]);159 AddNew('F ishing & 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]); 164 150 AddNew('Jednotka HD', [cpBasic, cpStandard, cpMax]); 165 151 AddNew('Jihočeská televize', [cpBasic, cpStandard, cpMax]); 166 152 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]); 169 156 AddNew('Markíza International HD', [cpStandard, cpMax]); 157 AddNew('Mezzo HD', [cpStandard, cpMax]); 170 158 AddNew('Minimax', [cpStandard, cpMax]); 171 159 AddNew('Mňam TV', [cpBasic, cpStandard, cpMax]); 160 AddNew('Mňau TV HD', [cpBasic, cpStandard, cpMax]); 172 161 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]); 183 168 AddNew('Nova Action HD', [cpBasic, cpStandard, cpMax]); 184 AddNew('Nova Cinema', [cpBasic, cpStandard, cpMax]);185 169 AddNew('Nova Cinema HD', [cpBasic, cpStandard, cpMax]); 186 AddNew('Nova Gold', [cpBasic, cpStandard, cpMax]);187 170 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]); 192 175 AddNew('Óčko', [cpBasic, cpStandard, cpMax]); 193 176 AddNew('Óčko Star', [cpBasic, cpStandard, cpMax]); 194 177 AddNew('ORF1', [cpBasic, cpStandard, cpMax]); 195 178 AddNew('ORF2', [cpBasic, cpStandard, cpMax]); 179 AddNew('PASSIONXXX HD', [cpLeoTv]); 196 180 AddNew('Polar', [cpBasic, cpStandard, cpMax]); 197 181 AddNew('Polsat', [cpBasic, cpStandard, cpMax]); 198 182 AddNew('Praha TV', [cpBasic, cpStandard, cpMax]); 199 AddNew('Prima', [cpBasic, cpStandard, cpMax]);200 AddNew('Prima COOL', [cpBasic, cpStandard, cpMax]);201 183 AddNew('Prima COOL HD', [cpBasic, cpStandard, cpMax]); 202 AddNew('P rima Comedy Central', [cpBasic, cpStandard, cpMax]);184 AddNew('Paramount Network', [cpBasic, cpStandard, cpMax]); 203 185 AddNew('Prima HD', [cpBasic, cpStandard, cpMax]); 204 AddNew('Prima Krimi', [cpBasic, cpStandard, cpMax]);205 186 AddNew('Prima Krimi HD', [cpBasic, cpStandard, cpMax]); 206 AddNew('Prima LOVE', [cpBasic, cpStandard, cpMax]);207 187 AddNew('Prima LOVE HD', [cpBasic, cpStandard, cpMax]); 208 AddNew('Prima MAX', [cpBasic, cpStandard, cpMax]);209 188 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]); 211 191 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]); 215 194 AddNew('Relax', [cpBasic, cpStandard, cpMax]); 216 195 AddNew('Retro Music Television', [cpBasic, cpStandard, cpMax]); 217 AddNew(' Seznam.cz TV', [cpBasic, cpStandard, cpMax]);196 AddNew('RTVS Šport HD', [cpBasic, cpStandard, cpMax]); 218 197 AddNew('Seznam.cz TV HD', [cpBasic, cpStandard, cpMax]); 219 198 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]); 222 201 AddNew('Sport 2 HD', [cpStandard, cpMax]); 223 202 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]); 229 207 AddNew('Trojka HD', [cpBasic, cpStandard, cpMax]); 230 AddNew('TV Barrandov', [cpBasic, cpStandard, cpMax]);231 AddNew('TV Barrandov HD', [cpBasic, cpStandard, cpMax]);232 208 AddNew('TV Brno 1', [cpBasic, cpStandard, cpMax]); 209 AddNew('TV Lux', [cpBasic, cpStandard, cpMax]); 233 210 AddNew('TV Noe', [cpBasic, cpStandard, cpMax]); 234 211 AddNew('TV Puls', [cpBasic, cpStandard, cpMax]); … … 236 213 AddNew('TV Rebel', [cpBasic, cpStandard, cpMax]); 237 214 AddNew('TV Slovácko', [cpBasic, cpStandard, cpMax]); 238 AddNew('TV5 Monde', [cpMax]);215 AddNew('TV5 Monde', [cpMax, cpZpravodaj]); 239 216 AddNew('TVN', [cpBasic, cpStandard, cpMax]); 240 217 AddNew('TVN 7', [cpBasic, cpStandard, cpMax]); 241 218 AddNew('TVP Historia', [cpBasic, cpStandard, cpMax]); 242 AddNew('TVP Info', [cpBasic, cpStandard, cpMax]);243 219 AddNew('TVP 3 Katowice', [cpBasic, cpStandard, cpMax]); 244 220 AddNew('TVP Sport', [cpBasic, cpStandard, cpMax]); … … 246 222 AddNew('TVP2 HD', [cpBasic, cpStandard, cpMax]); 247 223 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]); 248 228 AddNew('ZDF', [cpBasic, cpStandard, cpMax]); 249 229 end; … … 273 253 '<h3>Tématické balíčky</h3>' + 274 254 '<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)]) + 283 264 '</table>' + 284 265 '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.