Changeset 130


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.
Location:
trunk
Files:
9 added
9 deleted
16 edited

Legend:

Unmodified
Added
Removed

  • trunk/Application/UWebObjects.pas

    r103 r130  
    174174    with THtmlCell(Row.Cells.AddNew(THtmlCell.Create)) do begin
    175175      ColSpan := 2;
     176      Value := THtmlBlock.Create;
    176177      for I := 0 to Actions.Count - 1 do
    177       Value := THtmlBlock.Create;
    178178      with THtmlInput(THtmlBlock(Value).SubItems.AddNew(THtmlInput.Create)) do begin
    179179        Value := TQueryAction(Actions[I]).Caption;

  • trunk/Application/UWebSession.pas

    r115 r130  
    3434  end;
    3535
     36
    3637implementation
    3738
    … …  
    4344resourcestring
    4445  SError = '<div>Error: %s</div>';
    45 
    4646
    4747{ TWebSession }
    … …  
    8686  ModuleManager.StartInstalled;
    8787
    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);
    9895      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);
    115111      end;
     112    end;
     113  end else begin
     114    Core.WebApp1.HTTPServer.FileResponse(Self)
     115  end;
    116116end;
    117117
    … …  
    124124    GlobalTitle := 'WebSystem';
    125125
    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;
    135134    end;
     135  end;
    136136end;
    137 
    138137
    139138procedure TWebSession.InitDatabase;

  • trunk/Install/deb/debian/control

    r122 r130  
    44Priority: optional
    55Standards-Version: 1.0.0
    6 #Build-Depends: fpc, lazarus, lcl, lcl-utils, debhelper (>= 8)
     6Build-Depends: fpc, lazarus, lcl, lcl-utils, libmysqlclient-dev, debhelper (>= 8)
    77
    88Package: zdechovnet
    … …  
    1010Depends: ${shlibs:Depends}, ${misc:Depends},
    1111Description: ZdechovNET internet network offical web pages.
    12 HomePage: http://svn.zdechov.net/trac/zdechovnet
     12HomePage: https://app.zdechov.net/zdechovnet

  • trunk/Modules/Portal/UModulePortal.pas

    r114 r130  
    181181  try
    182182    ScriptNameParts := TListString.Create;
     183    Navigation := '';
     184    Path := '';
     185    ScriptName := '';
    183186
    184187    //ScriptName := $_SERVER['SCRIPT_NAME'];

  • trunk/Modules/ZdechovNET/UContactPage.pas

    r123 r130  
    4343    'DIČ: <strong>CZ8303255884</strong> (neplátce DPH)<br/>' +
    4444    '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/>';
    4646    GeneratePage(Self);
    4747  end;

  • 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;

  • trunk/Packages/Common/Languages/UThreading.cs.po

    r84 r130  
    1111
    1212#: uthreading.scurrentthreadnotfound
     13#, object-pascal-format
    1314msgid "Current thread ID %d not found in virtual thread list."
    1415msgstr "Aktuální vlákno ID %d nenalezeno v seznamu virtuálních vláken."

  • trunk/Packages/CoolWeb/WebServer/UHTTPServer.pas

    r123 r130  
    66
    77uses
    8   Classes, SysUtils, UTCPServer, UCommon, UMemoryStreamEx, UMIMEType,
     8  Classes, SysUtils, UCommon, UMemoryStreamEx, UMIMEType,
    99  Synautil, SpecializedList, SpecializedDictionary, Syncobjs;
    1010
    … …  
    120120procedure HTTPExceptionHide(Obj: TObject; Addr: Pointer; FrameCount: Longint; Frames: PPointer);
    121121
    122 
    123122resourcestring
    124123  SEmptyHTTPHandler = 'No handler defined for HTTP server.';
    125124  SFileNotFound = 'File %s not found.';
    126125  SPageNotFound = 'Page %s not found.';
     126
    127127
    128128implementation
    … …  
    212212procedure THTTPServer.Run;
    213213begin
    214 
    215214end;
    216215
    … …  
    278277destructor THTTPResponse.Destroy;
    279278begin
    280   Content.Free;
    281   Headers.Free;
    282   Cookies.Free;
    283   inherited Destroy;
     279  FreeAndNil(Content);
     280  FreeAndNil(Headers);
     281  FreeAndNil(Cookies);
     282  inherited;
    284283end;
    285284
    … …  
    339338destructor THTTPRequest.Destroy;
    340339begin
    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;
    348347end;
    349348
    … …  
    366365        Add(Pair[0], Pair[1]);
    367366    end;
    368 
    369367  finally
    370368    Parts.Free;
    … …  
    436434destructor THTTPSessionStorage.Destroy;
    437435begin
    438   inherited Destroy;
     436  inherited;
    439437end;
    440438
    … …  
    470468var
    471469  Message: string;
    472   i: LongInt;
     470  I: LongInt;
    473471  hstdout: ^Text;
    474472begin
    … …  
    483481   end
    484482  else
    485     Writeln(hstdout^, 'Exception object ', Obj.ClassName, ' is not of class Exception.<br/>');
    486   Writeln(hstdout^, BackTraceStrFunc(Addr) + '<br/>');
     483    WriteLn(hstdout^, 'Exception object ', Obj.ClassName, ' is not of class Exception.<br/>');
     484  WriteLn(hstdout^, BackTraceStrFunc(Addr) + '<br/>');
    487485  if (FrameCount > 0) then
    488486    begin
    489       for i := 0 to FrameCount - 1 do
     487      for I := 0 to FrameCount - 1 do
    490488        if I < Length(TArrayOfPointer(Frames)) then
    491           Writeln(hstdout^, BackTraceStrFunc(TArrayOfPointer(Frames)[i]) + '<br/>');
    492     end;
    493   Writeln(hstdout^, '');
     489          WriteLn(hstdout^, BackTraceStrFunc(TArrayOfPointer(Frames)[I]) + '<br/>');
     490    end;
     491  WriteLn(hstdout^, '');
    494492end;
    495493
    … …  
    499497var
    500498  Message: string;
    501   i: LongInt;
     499  I: LongInt;
    502500  hstdout: ^Text;
    503501  hstderr: ^Text;
    … …  
    508506  WriteLn(hstdout^);
    509507  WriteLn(hstdout^, 'Error occured during page generation.');
    510   Writeln(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), ' :');
    511509  if Obj is exception then
    512510   begin
    513511     Message := Exception(Obj).ClassName + ' : ' + Exception(Obj).Message;
    514      Writeln(hstderr^, Message);
     512     WriteLn(hstderr^, Message);
    515513   end
    516514  else
    517     Writeln(hstderr^, 'Exception object ', Obj.ClassName, ' is not of class Exception.');
    518   Writeln(hstderr^, BackTraceStrFunc(Addr));
     515    WriteLn(hstderr^, 'Exception object ', Obj.ClassName, ' is not of class Exception.');
     516  WriteLn(hstderr^, BackTraceStrFunc(Addr));
    519517  if (FrameCount > 0) then
    520518    begin
    521       for i := 0 to FrameCount - 1 do
     519      for I := 0 to FrameCount - 1 do
    522520        if I < Length(TArrayOfPointer(Frames)) then
    523           Writeln(hstderr^, BackTraceStrFunc(TArrayOfPointer(Frames)[i]));
    524     end;
    525   Writeln(hstderr^, '');
     521          WriteLn(hstderr^, BackTraceStrFunc(TArrayOfPointer(Frames)[I]));
     522    end;
     523  WriteLn(hstderr^, '');
    526524end;
    527525

  • trunk/Packages/CoolWeb/WebServer/UHTTPServerTCP.pas

    r100 r130  
    2727
    2828procedure Register;
     29
    2930
    3031implementation
    … …  
    7172                Request.Query.Clear;
    7273              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);
    7377            end;
    7478          end else begin
    … …  
    103107    Response.Content.Clear;
    104108    Response.Headers.Add('Content-Type', 'text/html');
    105 
    106 
    107109
    108110    if Assigned(OnRequest) then OnRequest(HandlerData)
    … …  
    153155destructor THTTPServerTCP.Destroy;
    154156begin
    155   Socket.Free;
    156   RequestHandlerList.Free;
    157   inherited Destroy;
     157  FreeAndNil(Socket);
     158  FreeAndNil(RequestHandlerList);
     159  inherited;
    158160end;
    159161

  • trunk/Packages/ModularSystem/Language/UModularSystem.cs.po

    r113 r130  
    1111
    1212#: umodularsystem.smodulenotfound
     13#, object-pascal-format
    1314msgid "Module \"%1:s\" not found as dependency for module \"%0:s\""
    1415msgstr "Pro modul \"%0:s\" nenalezen závislý modul \"%1:s\""

  • trunk/ReadMe.txt

    r123 r130  
    1818Debian/Ubuntu: apt-get install libmysqlclient libmysqlclient-dev
    1919
    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.
     20Součástí Lazarusu (2.2.0) je nástroj lazbuild, pomocí kterého je potřeba překompilovat použité komponenty a samotný program.
    2121 lazbuild ZdechovNET.lpr
    2222

  • trunk/UCore.lfm

    r113 r130  
    11object Core: TCore
    22  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
    78  object WebApp1: TWebApp
    89    OnPageProduce = WebApp1PageProduce
    910    ServerType = stCGI
    10     left = 160
    11     top = 88
     11    Left = 250
     12    Top = 136
    1213  end
    1314  object ApplicationInfo1: TApplicationInfo
    … …  
    1819    CompanyName = 'ZděchovNET'
    1920    CompanyHomePage = 'http://www.zdechov.net/'
    20     HomePage = 'http://www.zdechov.net/'
     21    HomePage = 'https://app.zdechov.net/zdechovnet/'
    2122    AuthorsName = 'Chronosoft'
    2223    EmailContact = 'robie@centrum.cz'
    2324    AppName = 'ZděchovNET'
    24     ReleaseDate = 41127
     25    ReleaseDate = 44636
    2526    RegistryKey = '\Software\Chronosoft\ZdechovNET'
    2627    RegistryRoot = rrKeyCurrentUser
    27     left = 160
    28     top = 144
     28    Left = 250
     29    Top = 225
    2930  end
    3031end

  • trunk/UCore.lrs

    r113 r130  
    22
    33LazarusResources.Add('TCore','FORMDATA',[
    4   'TPF0'#5'TCore'#4'Core'#14'OldCreateOrder'#8#6'Height'#3#22#1#16'HorizontalOf'
    5   +'fset'#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'#4
    7   +'left'#3#160#0#3'top'#2'X'#0#0#16'TApplicationInfo'#16'ApplicationInfo1'#14
    8   +'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#23
    10   +'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#0
     4  '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
    1515]);

  • trunk/ZdechovNET.lpi

    r129 r130  
    22<CONFIG>
    33  <ProjectOptions>
    4     <Version Value="11"/>
     4    <Version Value="12"/>
    55    <General>
    66      <Flags>
    … …  
    99        <MainUnitHasTitleStatement Value="False"/>
    1010        <LRSInOutputDirectory Value="False"/>
     11        <CompatibilityMode Value="True"/>
    1112      </Flags>
    1213      <SessionStorage Value="InProjectDir"/>
    13       <MainUnit Value="0"/>
    1414      <Title Value="ZdechovNET"/>
    1515    </General>
    … …  
    6666            <WriteFPCLogo Value="False"/>
    6767            <CompilerMessages>
    68               <IgnoredMessages idx5031="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"/>
    6969            </CompilerMessages>
    7070          </Other>
    … …  
    8282    <RunParams>
    8383      <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 &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
    8585      </local>
    8686      <FormatVersion Value="2"/>
    … …  
    8888        <Mode0 Name="default">
    8989          <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 &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
    9191          </local>
    9292        </Mode0>
    … …  
    217217        <Filename Value="Modules/ZdechovNET/ULinksPage.pas"/>
    218218        <IsPartOfProject Value="True"/>
    219         <HasResources Value="True"/>
     219        <ComponentName Value="LinksPage"/>
     220        <HasResources Value="True"/>
     221        <ResourceBaseClass Value="DataModule"/>
    220222      </Unit17>
    221223      <Unit18>
    222224        <Filename Value="Modules/ZdechovNET/UNetworkPage.pas"/>
    223225        <IsPartOfProject Value="True"/>
    224         <HasResources Value="True"/>
     226        <ComponentName Value="NetworkPage"/>
     227        <HasResources Value="True"/>
     228        <ResourceBaseClass Value="DataModule"/>
    225229      </Unit18>
    226230      <Unit19>
    227231        <Filename Value="Modules/ZdechovNET/UPlansPage.pas"/>
    228232        <IsPartOfProject Value="True"/>
    229         <HasResources Value="True"/>
     233        <ComponentName Value="PlansPage"/>
     234        <HasResources Value="True"/>
     235        <ResourceBaseClass Value="DataModule"/>
    230236      </Unit19>
    231237      <Unit20>
    232238        <Filename Value="Modules/ZdechovNET/UProjectsPage.pas"/>
    233239        <IsPartOfProject Value="True"/>
    234         <HasResources Value="True"/>
     240        <ComponentName Value="ProjectsPage"/>
     241        <HasResources Value="True"/>
     242        <ResourceBaseClass Value="DataModule"/>
    235243      </Unit20>
    236244      <Unit21>
    … …  
    322330        <Filename Value="Modules/ZdechovNET/UIPTVPage.pas"/>
    323331        <IsPartOfProject Value="True"/>
    324         <HasResources Value="True"/>
     332        <ComponentName Value="IPTVPage"/>
     333        <HasResources Value="True"/>
     334        <ResourceBaseClass Value="DataModule"/>
    325335      </Unit38>
    326336    </Units>
    … …  
    369379      <WriteFPCLogo Value="False"/>
    370380      <CompilerMessages>
    371         <IgnoredMessages idx5031="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"/>
    372382      </CompilerMessages>
    373383    </Other>

  • trunk/languages/index.cs.po

    r123 r130  
    99"MIME-Version: 1.0\n"
    1010"Content-Transfer-Encoding: 8bit\n"
     11"Language: cs\n"
     12"X-Generator: Poedit 3.0\n"
    1113
    1214#: uuser.scannotuseanonymous
    1315msgid "Cannot use anonymous user"
    14 msgstr ""
     16msgstr "Nelze použít anonymního uživatele"
    1517
    1618#: uuser.sduplicateuseritem
    17 #, fuzzy,badformat
    18 #| msgid "User name already used."
     19#, object-pascal-format
    1920msgid "User name \"%s\" already used."
    20 msgstr "Uživatelské jméno již použito."
     21msgstr "Uživatelské jméno \"%s\" již použito."
    2122
    2223#: uuser.semptyuserparameters
    2324msgid "Missing user parameters"
    24 msgstr ""
     25msgstr "Chybějící uživatelský parametr"
    2526
    2627#: uuser.susernotfound
     28#, object-pascal-format
    2729msgid "User \"%s\" not found"
    28 msgstr ""
     30msgstr "Uživatel \"%s\" nebyl nalezen"
    2931
    3032#: uwebsession.serror
     33#, object-pascal-format
    3134msgctxt "uwebsession.serror"
    3235msgid "<div>Error: %s</div>"
    33 msgstr ""
    34 
     36msgstr "<div>Chyba: %s</div>"
Note: See TracChangeset for help on using the changeset viewer.