Changeset 130
- Timestamp:
- Mar 18, 2022, 1:32:32 PM (3 years ago)
- Location:
- trunk
- Files:
-
- 9 added
- 9 deleted
- 16 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Application/UWebObjects.pas
r103 r130 174 174 with THtmlCell(Row.Cells.AddNew(THtmlCell.Create)) do begin 175 175 ColSpan := 2; 176 Value := THtmlBlock.Create; 176 177 for I := 0 to Actions.Count - 1 do 177 Value := THtmlBlock.Create;178 178 with THtmlInput(THtmlBlock(Value).SubItems.AddNew(THtmlInput.Create)) do begin 179 179 Value := TQueryAction(Actions[I]).Caption; -
trunk/Application/UWebSession.pas
r115 r130 34 34 end; 35 35 36 36 37 implementation 37 38 … … 43 44 resourcestring 44 45 SError = '<div>Error: %s</div>'; 45 46 46 47 47 { TWebSession } … … 86 86 ModuleManager.StartInstalled; 87 87 88 try 89 BaseUrlParts := TListString.Create; 90 BaseUrlParts.Explode(BaseURL, '/', StrToStr); 91 while (BaseUrlParts.Count > 0) and (Request.Path.Count > 0) and 92 (BaseUrlParts[0] = Request.Path[0]) do begin 93 BaseUrlParts.Delete(0); 94 Request.Path.Delete(0); 95 end; 96 finally 97 BaseUrlParts.Free; 88 try 89 BaseUrlParts := TListString.Create; 90 BaseUrlParts.Explode(BaseURL, '/', StrToStr); 91 while (BaseUrlParts.Count > 0) and (Request.Path.Count > 0) and 92 (BaseUrlParts[0] = Request.Path[0]) do begin 93 BaseUrlParts.Delete(0); 94 Request.Path.Delete(0); 98 95 end; 99 if Request.Path.Count > 0 then PageName := Request.Path[0] 100 else PageName := ''; 101 ModuleBase := TModuleBase(ModuleManager.FindModuleByName('Base')); 102 Page := ModuleBase.Pages.FindByName(PageName); 103 if Assigned(Page) then begin 104 try 105 Page.Page.OnProduce(Self); 106 except 107 on E: Exception do begin 108 THTMLString(Self.HtmlDocument.Body.SubItems.AddNew(THtmlString.Create)). 109 Text := Format(SError, [E.Message]); 110 GeneratePage(Page.Page); 111 end; 112 end; 113 end else begin 114 Core.WebApp1.HTTPServer.FileResponse(Self) 96 finally 97 BaseUrlParts.Free; 98 end; 99 if Request.Path.Count > 0 then PageName := Request.Path[0] 100 else PageName := ''; 101 ModuleBase := TModuleBase(ModuleManager.FindModuleByName('Base')); 102 Page := ModuleBase.Pages.FindByName(PageName); 103 if Assigned(Page) then begin 104 try 105 if Assigned(Page.Page) then Page.Page.OnProduce(Self); 106 except 107 on E: Exception do begin 108 THTMLString(Self.HtmlDocument.Body.SubItems.AddNew(THtmlString.Create)). 109 Text := Format(SError, [E.Message]); 110 GeneratePage(Page.Page); 115 111 end; 112 end; 113 end else begin 114 Core.WebApp1.HTTPServer.FileResponse(Self) 115 end; 116 116 end; 117 117 … … 124 124 GlobalTitle := 'WebSystem'; 125 125 126 //Page.Page.OnProduce(HandlerData); 127 HtmlDocument.Title := Page.Caption; 128 with HtmlDocument.AsXmlDocument do 129 try 130 Formated := TCore(MainModule).FormatHTML; 131 Response.Content.WriteString(AsString); 132 finally 133 Free; 134 end; 126 //Page.Page.OnProduce(HandlerData); 127 HtmlDocument.Title := Page.Caption; 128 with HtmlDocument.AsXmlDocument do 129 try 130 Formated := TCore(MainModule).FormatHTML; 131 Response.Content.WriteString(AsString); 132 finally 133 Free; 135 134 end; 135 end; 136 136 end; 137 138 137 139 138 procedure TWebSession.InitDatabase; -
trunk/Install/deb/debian/control
r122 r130 4 4 Priority: optional 5 5 Standards-Version: 1.0.0 6 #Build-Depends: fpc, lazarus, lcl, lcl-utils, debhelper (>= 8)6 Build-Depends: fpc, lazarus, lcl, lcl-utils, libmysqlclient-dev, debhelper (>= 8) 7 7 8 8 Package: zdechovnet … … 10 10 Depends: ${shlibs:Depends}, ${misc:Depends}, 11 11 Description: ZdechovNET internet network offical web pages. 12 HomePage: http ://svn.zdechov.net/trac/zdechovnet12 HomePage: https://app.zdechov.net/zdechovnet -
trunk/Modules/Portal/UModulePortal.pas
r114 r130 181 181 try 182 182 ScriptNameParts := TListString.Create; 183 Navigation := ''; 184 Path := ''; 185 ScriptName := ''; 183 186 184 187 //ScriptName := $_SERVER['SCRIPT_NAME']; -
trunk/Modules/ZdechovNET/UContactPage.pas
r123 r130 43 43 'DIČ: <strong>CZ8303255884</strong> (neplátce DPH)<br/>' + 44 44 'Bankovní spojení pro platby v CZK v ČR: <strong>2600134781 / 2010</strong><br/>' + 45 'Bankovní spojení pro platby v EUR v SR: <strong>2600134781 / 8330</strong><br/>';45 'Bankovní spojení IBAN pro platby v EUR v SR: <strong>CZ20 2010 0000 0026 0013 4781</strong><br/>'; 46 46 GeneratePage(Self); 47 47 end; -
trunk/Modules/ZdechovNET/UIPTVPage.pas
r129 r130 6 6 7 7 uses 8 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UModuleUser, Contnrs;8 Classes, SysUtils, FileUtil, UWebPage, UHTTPServer, UModuleUser, fgl; 9 9 10 10 type … … 19 19 { TChannels } 20 20 21 TChannels = class(T ObjectList)21 TChannels = class(TFPGObjectList<TChannel>) 22 22 function AddNew(Name: string; Groups: TChannelGroups): TChannel; 23 23 function GetNamesByGroup(Group: TChannelGroup): string; … … 30 30 procedure DataModuleProduce(HandlerData: THTTPHandlerData); 31 31 private 32 function Row(Cell 1: string; Cell2: string = ''; Cell3: string = ''; Cell4: string = ''): string;32 function Row(Cells: array of string): string; 33 33 public 34 34 ModuleUser: TModuleUser; … … 61 61 Result := ''; 62 62 for I := 0 to Count - 1 do begin 63 if Group in TChannel(Items[I]).Groups then begin63 if Group in Items[I].Groups then begin 64 64 if Result <> '' then Result := Result + ', '; 65 Result := Result + TChannel(Items[I]).Name;65 Result := Result + Items[I].Name; 66 66 end; 67 67 end; … … 74 74 Result := 0; 75 75 for I := 0 to Count - 1 do begin 76 if Group in TChannel(Items[I]).Groups then begin76 if Group in Items[I].Groups then begin 77 77 Inc(Result); 78 78 end; … … 90 90 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 91 91 Channels := TChannels.Create; 92 with Channels do begin93 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; 250 250 251 251 Text := Text + '<h3>Výhody</h3>' + … … 264 264 '<h3>Základní balíčky</h3>' + 265 265 '<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)]) + 270 270 '</table>' + 271 271 '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/>' + … … 273 273 '<h3>Tématické balíčky</h3>' + 274 274 '<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']) + 283 283 '</table>' + 284 284 'Celková cena vznikne jako součet zvolených tématických balíčků a základního balíčku Basic + tématika.<br/>' + … … 295 295 'Návod ke služby 4network.tv: <a href="/docs/navod_4network.tv.pdf">navod_4network.tv.pdf</a><br/>' + 296 296 '<br/>' + 297 'Ceny uvedeny včetně DPH platné od 24.7.2020.';297 'Ceny uvedeny včetně DPH platné od 1.4.2021.'; 298 298 Channels.Free; 299 299 end; … … 302 302 end; 303 303 304 function TIPTVPage.Row(Cell 1: 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>';304 function TIPTVPage.Row(Cells: array of string): string; 305 var 306 I: Integer; 307 begin 308 Result := ''; 309 for I := 0 to Length(Cells) - 1 do 310 Result := Result + '<td>' + Cells[I] + '</td>'; 311 311 Result := '<tr>' + Result + '</tr>'; 312 312 end; -
trunk/Packages/Common/Languages/UThreading.cs.po
r84 r130 11 11 12 12 #: uthreading.scurrentthreadnotfound 13 #, object-pascal-format 13 14 msgid "Current thread ID %d not found in virtual thread list." 14 15 msgstr "Aktuální vlákno ID %d nenalezeno v seznamu virtuálních vláken." -
trunk/Packages/CoolWeb/WebServer/UHTTPServer.pas
r123 r130 6 6 7 7 uses 8 Classes, SysUtils, U TCPServer, UCommon, UMemoryStreamEx, UMIMEType,8 Classes, SysUtils, UCommon, UMemoryStreamEx, UMIMEType, 9 9 Synautil, SpecializedList, SpecializedDictionary, Syncobjs; 10 10 … … 120 120 procedure HTTPExceptionHide(Obj: TObject; Addr: Pointer; FrameCount: Longint; Frames: PPointer); 121 121 122 123 122 resourcestring 124 123 SEmptyHTTPHandler = 'No handler defined for HTTP server.'; 125 124 SFileNotFound = 'File %s not found.'; 126 125 SPageNotFound = 'Page %s not found.'; 126 127 127 128 128 implementation … … 212 212 procedure THTTPServer.Run; 213 213 begin 214 215 214 end; 216 215 … … 278 277 destructor THTTPResponse.Destroy; 279 278 begin 280 Content.Free;281 Headers.Free;282 Cookies.Free;283 inherited Destroy;279 FreeAndNil(Content); 280 FreeAndNil(Headers); 281 FreeAndNil(Cookies); 282 inherited; 284 283 end; 285 284 … … 339 338 destructor THTTPRequest.Destroy; 340 339 begin 341 Content.Free;342 Post.Free;343 Query.Free;344 Path.Free;345 Headers.Free;346 Cookies.Free;347 inherited Destroy;340 FreeAndNil(Content); 341 FreeAndNil(Post); 342 FreeAndNil(Query); 343 FreeAndNil(Path); 344 FreeAndNil(Headers); 345 FreeAndNil(Cookies); 346 inherited; 348 347 end; 349 348 … … 366 365 Add(Pair[0], Pair[1]); 367 366 end; 368 369 367 finally 370 368 Parts.Free; … … 436 434 destructor THTTPSessionStorage.Destroy; 437 435 begin 438 inherited Destroy;436 inherited; 439 437 end; 440 438 … … 470 468 var 471 469 Message: string; 472 i: LongInt;470 I: LongInt; 473 471 hstdout: ^Text; 474 472 begin … … 483 481 end 484 482 else 485 Write ln(hstdout^, 'Exception object ', Obj.ClassName, ' is not of class Exception.<br/>');486 Write ln(hstdout^, BackTraceStrFunc(Addr) + '<br/>');483 WriteLn(hstdout^, 'Exception object ', Obj.ClassName, ' is not of class Exception.<br/>'); 484 WriteLn(hstdout^, BackTraceStrFunc(Addr) + '<br/>'); 487 485 if (FrameCount > 0) then 488 486 begin 489 for i:= 0 to FrameCount - 1 do487 for I := 0 to FrameCount - 1 do 490 488 if I < Length(TArrayOfPointer(Frames)) then 491 Write ln(hstdout^, BackTraceStrFunc(TArrayOfPointer(Frames)[i]) + '<br/>');492 end; 493 Write ln(hstdout^, '');489 WriteLn(hstdout^, BackTraceStrFunc(TArrayOfPointer(Frames)[I]) + '<br/>'); 490 end; 491 WriteLn(hstdout^, ''); 494 492 end; 495 493 … … 499 497 var 500 498 Message: string; 501 i: LongInt;499 I: LongInt; 502 500 hstdout: ^Text; 503 501 hstderr: ^Text; … … 508 506 WriteLn(hstdout^); 509 507 WriteLn(hstdout^, 'Error occured during page generation.'); 510 Write ln(hstderr^, 'An unhandled exception occurred at $', HexStr(PtrUInt(Addr), SizeOf(PtrUInt) * 2), ' :');508 WriteLn(hstderr^, 'An unhandled exception occurred at $', HexStr(PtrUInt(Addr), SizeOf(PtrUInt) * 2), ' :'); 511 509 if Obj is exception then 512 510 begin 513 511 Message := Exception(Obj).ClassName + ' : ' + Exception(Obj).Message; 514 Write ln(hstderr^, Message);512 WriteLn(hstderr^, Message); 515 513 end 516 514 else 517 Write ln(hstderr^, 'Exception object ', Obj.ClassName, ' is not of class Exception.');518 Write ln(hstderr^, BackTraceStrFunc(Addr));515 WriteLn(hstderr^, 'Exception object ', Obj.ClassName, ' is not of class Exception.'); 516 WriteLn(hstderr^, BackTraceStrFunc(Addr)); 519 517 if (FrameCount > 0) then 520 518 begin 521 for i:= 0 to FrameCount - 1 do519 for I := 0 to FrameCount - 1 do 522 520 if I < Length(TArrayOfPointer(Frames)) then 523 Write ln(hstderr^, BackTraceStrFunc(TArrayOfPointer(Frames)[i]));524 end; 525 Write ln(hstderr^, '');521 WriteLn(hstderr^, BackTraceStrFunc(TArrayOfPointer(Frames)[I])); 522 end; 523 WriteLn(hstderr^, ''); 526 524 end; 527 525 -
trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas
r100 r130 27 27 28 28 procedure Register; 29 29 30 30 31 implementation … … 71 72 Request.Query.Clear; 72 73 end; 74 // Clean empty path parts 75 for I := Request.Path.Count - 1 downto 0 do 76 if Request.Path[I] = '' then Request.Path.Delete(I); 73 77 end; 74 78 end else begin … … 103 107 Response.Content.Clear; 104 108 Response.Headers.Add('Content-Type', 'text/html'); 105 106 107 109 108 110 if Assigned(OnRequest) then OnRequest(HandlerData) … … 153 155 destructor THTTPServerTCP.Destroy; 154 156 begin 155 Socket.Free;156 RequestHandlerList.Free;157 inherited Destroy;157 FreeAndNil(Socket); 158 FreeAndNil(RequestHandlerList); 159 inherited; 158 160 end; 159 161 -
trunk/Packages/ModularSystem/Language/UModularSystem.cs.po
r113 r130 11 11 12 12 #: umodularsystem.smodulenotfound 13 #, object-pascal-format 13 14 msgid "Module \"%1:s\" not found as dependency for module \"%0:s\"" 14 15 msgstr "Pro modul \"%0:s\" nenalezen závislý modul \"%1:s\"" -
trunk/ReadMe.txt
r123 r130 18 18 Debian/Ubuntu: apt-get install libmysqlclient libmysqlclient-dev 19 19 20 Součástí Lazarusu (2. 0.10) je nástroj lazbuild, pomocí kterého je potřeba překompilovat použité komponenty a samotný program.20 Součástí Lazarusu (2.2.0) je nástroj lazbuild, pomocí kterého je potřeba překompilovat použité komponenty a samotný program. 21 21 lazbuild ZdechovNET.lpr 22 22 -
trunk/UCore.lfm
r113 r130 1 1 object Core: TCore 2 2 OldCreateOrder = False 3 Height = 278 4 HorizontalOffset = 341 5 VerticalOffset = 187 6 Width = 431 3 Height = 434 4 HorizontalOffset = 533 5 VerticalOffset = 292 6 Width = 673 7 PPI = 150 7 8 object WebApp1: TWebApp 8 9 OnPageProduce = WebApp1PageProduce 9 10 ServerType = stCGI 10 left = 16011 top = 8811 Left = 250 12 Top = 136 12 13 end 13 14 object ApplicationInfo1: TApplicationInfo … … 18 19 CompanyName = 'ZděchovNET' 19 20 CompanyHomePage = 'http://www.zdechov.net/' 20 HomePage = 'http ://www.zdechov.net/'21 HomePage = 'https://app.zdechov.net/zdechovnet/' 21 22 AuthorsName = 'Chronosoft' 22 23 EmailContact = 'robie@centrum.cz' 23 24 AppName = 'ZděchovNET' 24 ReleaseDate = 4 112725 ReleaseDate = 44636 25 26 RegistryKey = '\Software\Chronosoft\ZdechovNET' 26 27 RegistryRoot = rrKeyCurrentUser 27 left = 16028 top = 14428 Left = 250 29 Top = 225 29 30 end 30 31 end -
trunk/UCore.lrs
r113 r130 2 2 3 3 LazarusResources.Add('TCore','FORMDATA',[ 4 'TPF0'#5'TCore'#4'Core'#14'OldCreateOrder'#8#6'Height'#3# 22#1#16'HorizontalOf'5 +'f set'#3'U'#1#14'VerticalOffset'#3#187#0#5'Width'#3#175#1#0#7'TWebApp'#7'Web'6 +' App1'#13'OnPageProduce'#7#18'WebApp1PageProduce'#10'ServerType'#7#5'stCGI'#47 +' left'#3#160#0#3'top'#2'X'#0#0#16'TApplicationInfo'#16'ApplicationInfo1'#148 +' Identification'#2#1#12'VersionMajor'#2#1#12'VersionMinor'#2#0#13'VersionBug'9 + 'Fix'#2#0#11'CompanyName'#6#11'Zd'#196#155'chovNET'#15'CompanyHomePage'#6#2310 +' http://www.zdechov.net/'#8'HomePage'#6#23'http://www.zdechov.net/'#11'Autho'11 +' rsName'#6#10'Chronosoft'#12'EmailContact'#6#16'robie@centrum.cz'#7'AppName'12 + #6#11'Zd'#196#155'chovNET'#11'ReleaseDate'#5#0#0#0#0#0#0#167#160#14'@'#11'Re'13 + 'gistryKey'#6#31'\Software\Chronosoft\ZdechovNET'#12'RegistryRoot'#7#16'rrKe'14 + 'yCurrentUser'#4'left'#3#160#0#3'top'#3#144#0#0#0#04 '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 6 +'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' 8 +'plicationInfo1'#14'Identification'#2#1#12'VersionMajor'#2#1#12'VersionMinor' 9 +#2#0#13'VersionBugFix'#2#0#11'CompanyName'#6#11'Zd'#196#155'chovNET'#15'Comp' 10 +'anyHomePage'#6#23'http://www.zdechov.net/'#8'HomePage'#6'#https://app.zdech' 11 +'ov.net/zdechovnet/'#11'AuthorsName'#6#10'Chronosoft'#12'EmailContact'#6#16 12 +'robie@centrum.cz'#7'AppName'#6#11'Zd'#196#155'chovNET'#11'ReleaseDate'#5#0#0 13 +#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 15 15 ]); -
trunk/ZdechovNET.lpi
r129 r130 2 2 <CONFIG> 3 3 <ProjectOptions> 4 <Version Value="1 1"/>4 <Version Value="12"/> 5 5 <General> 6 6 <Flags> … … 9 9 <MainUnitHasTitleStatement Value="False"/> 10 10 <LRSInOutputDirectory Value="False"/> 11 <CompatibilityMode Value="True"/> 11 12 </Flags> 12 13 <SessionStorage Value="InProjectDir"/> 13 <MainUnit Value="0"/>14 14 <Title Value="ZdechovNET"/> 15 15 </General> … … 66 66 <WriteFPCLogo Value="False"/> 67 67 <CompilerMessages> 68 <IgnoredMessages idx 5031="True" idx5030="True" idx5029="True" idx5028="True" idx5027="True" idx5026="True" idx5025="True" idx5024="True" idx5023="True"/>68 <IgnoredMessages idx6058="True" idx5031="True" idx5030="True" idx5029="True" idx5028="True" idx5027="True" idx5026="True" idx5025="True" idx5024="True" idx5023="True" idx3124="True" idx3123="True"/> 69 69 </CompilerMessages> 70 70 </Other> … … 82 82 <RunParams> 83 83 <local> 84 <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output'-e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>84 <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> 85 85 </local> 86 86 <FormatVersion Value="2"/> … … 88 88 <Mode0 Name="default"> 89 89 <local> 90 <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output'-e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>90 <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> 91 91 </local> 92 92 </Mode0> … … 217 217 <Filename Value="Modules/ZdechovNET/ULinksPage.pas"/> 218 218 <IsPartOfProject Value="True"/> 219 <HasResources Value="True"/> 219 <ComponentName Value="LinksPage"/> 220 <HasResources Value="True"/> 221 <ResourceBaseClass Value="DataModule"/> 220 222 </Unit17> 221 223 <Unit18> 222 224 <Filename Value="Modules/ZdechovNET/UNetworkPage.pas"/> 223 225 <IsPartOfProject Value="True"/> 224 <HasResources Value="True"/> 226 <ComponentName Value="NetworkPage"/> 227 <HasResources Value="True"/> 228 <ResourceBaseClass Value="DataModule"/> 225 229 </Unit18> 226 230 <Unit19> 227 231 <Filename Value="Modules/ZdechovNET/UPlansPage.pas"/> 228 232 <IsPartOfProject Value="True"/> 229 <HasResources Value="True"/> 233 <ComponentName Value="PlansPage"/> 234 <HasResources Value="True"/> 235 <ResourceBaseClass Value="DataModule"/> 230 236 </Unit19> 231 237 <Unit20> 232 238 <Filename Value="Modules/ZdechovNET/UProjectsPage.pas"/> 233 239 <IsPartOfProject Value="True"/> 234 <HasResources Value="True"/> 240 <ComponentName Value="ProjectsPage"/> 241 <HasResources Value="True"/> 242 <ResourceBaseClass Value="DataModule"/> 235 243 </Unit20> 236 244 <Unit21> … … 322 330 <Filename Value="Modules/ZdechovNET/UIPTVPage.pas"/> 323 331 <IsPartOfProject Value="True"/> 324 <HasResources Value="True"/> 332 <ComponentName Value="IPTVPage"/> 333 <HasResources Value="True"/> 334 <ResourceBaseClass Value="DataModule"/> 325 335 </Unit38> 326 336 </Units> … … 369 379 <WriteFPCLogo Value="False"/> 370 380 <CompilerMessages> 371 <IgnoredMessages idx 5031="True" idx5030="True" idx5029="True" idx5028="True" idx5027="True" idx5026="True" idx5025="True" idx5024="True" idx5023="True"/>381 <IgnoredMessages idx6058="True" idx5031="True" idx5030="True" idx5029="True" idx5028="True" idx5027="True" idx5026="True" idx5025="True" idx5024="True" idx5023="True" idx3124="True" idx3123="True"/> 372 382 </CompilerMessages> 373 383 </Other> -
trunk/languages/index.cs.po
r123 r130 9 9 "MIME-Version: 1.0\n" 10 10 "Content-Transfer-Encoding: 8bit\n" 11 "Language: cs\n" 12 "X-Generator: Poedit 3.0\n" 11 13 12 14 #: uuser.scannotuseanonymous 13 15 msgid "Cannot use anonymous user" 14 msgstr " "16 msgstr "Nelze použít anonymního uživatele" 15 17 16 18 #: uuser.sduplicateuseritem 17 #, fuzzy,badformat 18 #| msgid "User name already used." 19 #, object-pascal-format 19 20 msgid "User name \"%s\" already used." 20 msgstr "Uživatelské jméno již použito."21 msgstr "Uživatelské jméno \"%s\" již použito." 21 22 22 23 #: uuser.semptyuserparameters 23 24 msgid "Missing user parameters" 24 msgstr " "25 msgstr "Chybějící uživatelský parametr" 25 26 26 27 #: uuser.susernotfound 28 #, object-pascal-format 27 29 msgid "User \"%s\" not found" 28 msgstr " "30 msgstr "Uživatel \"%s\" nebyl nalezen" 29 31 30 32 #: uwebsession.serror 33 #, object-pascal-format 31 34 msgctxt "uwebsession.serror" 32 35 msgid "<div>Error: %s</div>" 33 msgstr "" 34 36 msgstr "<div>Chyba: %s</div>"
Note:
See TracChangeset
for help on using the changeset viewer.