Changeset 25 for branches/lazarus


Ignore:
Timestamp:
Sep 8, 2010, 8:34:15 PM (14 years ago)
Author:
george
Message:
  • Opraveno: Zobrazování jednotlivých stránek.
  • Opraveno: Zobrazení výpisu historie sítě.
Location:
branches/lazarus
Files:
5 added
2 deleted
7 edited

Legend:

Unmodified
Added
Removed

  • branches/lazarus/Application/UCustomCGIApplication.pas

    r24 r25  
    1212  TCustomCGIApplication = class;
    1313
    14   TPageProducer = procedure(Body: TcustomCGIApplication);
     14  TPageProducer = procedure(Body: TCustomCGIApplication);
    1515
    1616  TRegistredPage = class
    … …  
    3434    ShowRuntimeInfo: Boolean;
    3535    Charset: string;
    36     FormatHTML: Boolean;
    3736    Admin: string;
    3837    AdminEmail: string;
    … …  
    4241    Pages: TObjectList;
    4342    Database: TSqlDatabase;
     43    PageName: string;
     44    ModuleName: string;
    4445    procedure Execute; override;
    4546    constructor Create;
    … …  
    5253
    5354resourcestring
    54   SPageNotFound = 'Stránka nenalezena';
     55  SPageNotFound = 'Page not found';
    5556
    5657{ TCustomCGIApplication }
    … …  
    8687var
    8788  I: Integer;
    88   PageName: string;
     89  TitleTag: THtmlString;
    8990begin
    9091  //SysInfo;
    … …  
    9293
    9394  HtmlDocument.ContentLanguage := 'cs';
    94   HtmlDocument.Title := 'Test document';
     95  GlobalTitle := 'ZděchovNET';
    9596  HtmlDocument.Styles.Add('Style/' + Style + '/Style.css');
    9697  HtmlDocument.Scripts.Add('Style/' + Style + '/Global.js');
    … …  
    9899
    99100  PageName := Query.Values['p'];
    100   if PageName = '' then PageName := 'index';
     101  if PageName = '' then PageName := 'History';
     102  ModuleName := Query.Values['m'];
     103  if ModuleName = '' then ModuleName := 'Main';
    101104  I := 0;
    102   while (I < Pages.Count) and (TRegistredPage(Pages[I]).Name <> PageName) do Inc(I);
     105  while (I < Pages.Count) and (TRegistredPage(Pages[I]).Name <> ModuleName) do Inc(I);
    103106  if I < Pages.Count then begin
    104     with THtmlString(HtmlDocument.Body.SubItems[HtmlDocument.Body.SubItems.Add(THtmlString.Create)]) do begin
    105       Text := '<div class="TitlePanel">' + HtmlDocument.Title + '</div>';
    106     end;
     107    TitleTag := THtmlString.Create;
     108    HtmlDocument.Body.SubItems.Add(TitleTag);
    107109    TopMenu;
    108110    TRegistredPage(Pages[I]).Producer(Self);
     111    TitleTag.Text := '<div class="TitlePanel"><span class="GlobalTitle">' + GlobalTitle +
     112    '</span> - ' + HtmlDocument.Title + '</div>';
    109113    with HtmlDocument.AsXmlDocument do begin
     114      Formated := ConfigFormatHTML;
    110115      Output.Add(AsString);
    111116      Free;
    … …  
    140145  TextNode: TXmlString;
    141146begin
    142   Tag := TXMLTag.Create;
    143   Tag.Name := 'ul';
    144   Tag.Attributes.Values['class'] := 'Footer';
    145   AdminTag := TXMLTag.Create;
    146   AdminTag.Name := 'li';
    147   TextNode := TXmlString.Create;
    148   TextNode.Text := Admin;
    149   AdminTag.SubElements.Add(TextNode);
    150   EmailTag := TXMLTag.Create;
    151   EmailTag.Name := 'li';
    152   TextNode := TXmlString.Create;
    153   TextNode.Text := AdminEmail;
    154   EmailTag.SubElements.Add(TextNode);
    155   Tag.SubElements.Add(AdminTag);
    156   Tag.SubElements.Add(EmailTag);
    157   if ShowRuntimeInfo then begin
    158     ExecutionTimeTag := TXMLTag.Create;
    159     ExecutionTimeTag.Name := 'li';
    160     TextNode := TXmlString.Create;
    161     TextNode.Text := 'Doba generování: ' +
    162       FloatToStr(Round(((Now - TimeStart) / OneMillisecond) * 100) / 100) + ' s / '; // + ini_get('max_execution_time') + ' s';
    163     ExecutionTimeTag.SubElements.Add(TextNode);
    164     Tag.SubElements.Add(ExecutionTimeTag);
    165     UsedMemoryTag := TXMLTag.Create;
    166     UsedMemoryTag.Name := 'li';
    167     TextNode := TXmlString.Create;
    168 //    TextNode.Text := 'Použitá paměť: '  + System.PrefixMultiplier.AddPrefixMultipliers(memory_get_peak_usage(FALSE), 'B').' / '.ini_get('memory_limit').'B';
    169     UsedMemoryTag.SubElements.Add(TextNode);
    170     Tag.SubElements.Add(UsedMemoryTag);
     147  with TXmlTag(HtmlDocument.Body.SubItems[HtmlDocument.Body.SubItems.Add(TXmlTag.Create)]) do begin
     148    Name := 'ul';
     149    Attributes.Values['class'] := 'Footer';
     150    with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
     151      Name := 'li';
     152      with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
     153        Text := Admin;
     154      end;
     155    end;
     156    with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
     157      Name := 'li';
     158      with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
     159        Text := AdminEmail;
     160      end;
     161    end;
     162    if ShowRuntimeInfo then begin
     163      with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
     164        Name := 'li';
     165        with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
     166          Text := 'Doba generování: ' +
     167            FloatToStr(Round(((Now - TimeStart) / OneMillisecond) * 100) / 100) + ' s / '; // + ini_get('max_execution_time') + ' s';
     168        end;
     169      end;
     170      with TXmlTag(SubElements[SubElements.Add(TXmlTag.Create)]) do begin
     171        Name := 'li';
     172        with TXmlString(SubElements[SubElements.Add(TXmlString.Create)]) do begin
     173          //Text := 'Použitá paměť: '  + System.PrefixMultiplier.AddPrefixMultipliers(memory_get_peak_usage(FALSE), 'B').' / '.ini_get('memory_limit').'B';
     174        end;
     175      end;
     176    end;
    171177  end;
    172178end;
    173179
    174180procedure TCustomCGIApplication.Show(Content: string);
    175 var
    176   BodyParam: string;
    177   StyleTag: TXMLTag;
    178181begin
    179182  //HtmlDocument.Title := ;
    … …  
    217220      '<li>' + MakeLink('Odkazy', NavigationMakeLink('Main', 'Links')) + '</li>' +
    218221      '<li>' + MakeLink('Kontakt', NavigationMakeLink('Main', 'Contact')) + '</li>';
    219 (*    if ($this->System->UserOnline->User == $this->System->UserOnline->AnonymousUserId) then begin
    220 
    221       $Output .= '</ul>';
    222       $Output .= '<ul class="MenuItem2">';
    223       $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Localization->Translate('UserLogin'), $this->System->Navigation->MakeLink('User', 'Login')).'</li>';
     222    Text := Text + '</ul><ul class="MenuItem2"><li>&nbsp;</li>';
     223(*    if System.UserOnline.User = System.UserOnline.AnonymousUserId then begin
     224      Text := Text + '</ul>' +
     225        '<ul class="MenuItem2">' +
     226        '<li>' + MakeLink('Přihlášení', NavigationMakeLink('User', 'Login')) + '</li>';
    224227      //$Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
    225228    end else begin
    226       $Output .= '</ul>';
    227       $Output .= '<ul class="MenuItem2">';
    228       $Output .= '<li>'.$this->System->User->Data['FullName'].'</li>';
    229       $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Localization->Translate('UserLogout'), $this->System->Navigation->MakeLink('User', 'Logout')).'</li>';
    230       $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Localization->Translate('UserView'), $this->System->Navigation->MakeLink('User', 'View',
     229      Text := Text + '</ul>' +
     230        '<ul class="MenuItem2">' +
     231        '<li>' + System.User.FullName + '</li>' +
     232        '<li>' + MakeLink('Odhlášení', NavigationMakeLink('User', 'Logout')) + '</li>' +
     233        '<li>' + MakeLink('Profil', NavigationMakeLink('User', 'View',
    231234        array('Id' => $this->System->User->Id))).'</li>';
    232235    end;

  • branches/lazarus/Common/UHtmlClasses.pas

    r24 r25  
    146146implementation
    147147
     148resourcestring
     149  SStringToIPConversionError = 'String to IP address conversion error';
     150
     151
    148152function LeftCutString(var Source, Output: string; Delimiter: string; Allowed: string = ''): Boolean;
    149153var
    … …  
    225229  Result := TXmlDocument.Create;
    226230  with Result, Content do begin
    227     Formated := True;
    228231    DocType := TXMlTag.Create;
    229232    DocType.Name := '!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"';
    … …  
    380383//    end else raise EConvertError.Create('String to IP address conversion error');
    381384    except
    382       raise EConvertError.Create('String to IP address conversion error');
     385      raise EConvertError.Create(SStringToIPConversionError);
    383386    end;
    384387  finally

  • branches/lazarus/Common/USqlDatabase.pas

    r23 r25  
    22
    33{$mode Delphi}{$H+}
    4 // Upraveno: 16.12.2009
     4
     5// Upraveno: 8.9.2010
    56
    67interface
    78
    89uses
    9   SysUtils, Classes, Dialogs, mysql50, TypInfo;
     10  SysUtils, Classes, Dialogs, mysql50, TypInfo, Contnrs, UStringListEx;
    1011
    1112type
    12   EQueryError = Exception;
     13  EQueryError = class(Exception);
    1314
    1415  TClientCapabilities = (_CLIENT_LONG_PASSWORD, _CLIENT_FOUND_ROWS,
    … …  
    3334  end;
    3435
    35   TDbRows = class(TList)
     36  TDbRows = class(TObjectList)
    3637  private
    3738    function GetData(Index: Integer): TAssociativeArray;
    … …  
    8586  function MySQLFloatToStr(F: Real): string;
    8687  function MySQLStrToFloat(S: string): Real;
     88  function SQLToDateTime(Value: string): TDateTime;
     89  function DateTimeToSQL(Value: TDateTime): string;
    8790
    8891implementation
    … …  
    110113begin
    111114  S := FloatToStr(F);
    112   if Pos(',', S) > 0 then S[Pos(',',S)] := '.';
     115  if Pos(',', S) > 0 then S[Pos(',', S)] := '.';
    113116  Result := S;
    114117end;
    … …  
    116119function MySQLStrToFloat(S: string): Real;
    117120begin
    118   if Pos('.', S) > 0 then  S[Pos('.',S)] := ',';
     121  if Pos('.', S) > 0 then S[Pos('.', S)] := ',';
    119122  Result := StrToFloat(S);
     123end;
     124
     125function SQLToDateTime(Value: string): TDateTime;
     126var
     127  Parts: TStringListEx;
     128  DateParts: TStringListEx;
     129  TimeParts: TStringListEx;
     130begin
     131  try
     132    Parts := TStringListEx.Create;
     133    DateParts := TStringListEx.Create;
     134    TimeParts := TStringListEx.Create;
     135
     136    Parts.Explode(' ', Value);
     137    DateParts.Explode('-', Parts[0]);
     138    Result := EncodeDate(StrToInt(DateParts[0]), StrToInt(DateParts[1]),
     139      StrToInt(DateParts[2]));
     140    if Parts.Count > 1 then begin
     141      TimeParts.Explode(':', Parts[1]);
     142      Result := Result + EncodeTime(StrToInt(TimeParts[0]), StrToInt(TimeParts[1]),
     143        StrToInt(TimeParts[2]), 0);
     144    end;
     145  finally
     146    DateParts.Free;
     147    TimeParts.Free;
     148    Parts.Free;
     149  end;
     150end;
     151
     152function DateTimeToSQL(Value: TDateTime): string;
     153begin
     154  Result := FormatDateTime('yyyy-mm-dd hh.nn.ss', Value);
    120155end;
    121156
    … …  
    401436
    402437destructor TDbRows.Destroy;
    403 var
    404   I: Integer;
    405 begin
    406   for I := 0 to Count - 1 do
    407     Data[I].Free;
     438begin
    408439  inherited;
    409440end;
    … …  
    411442function TDbRows.GetData(Index: Integer): TAssociativeArray;
    412443begin
    413   Result := Items[Index];
     444  Result := TAssociativeArray(Items[Index]);
    414445end;
    415446

  • branches/lazarus/Pages/UMainPage.pas

    r24 r25  
    1616  App.HtmlDocument.Title := 'Odkazy';
    1717
    18   App.Output.Add('<strong>Odkazy související s obcí:</strong><br/>' +
     18  with App.HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     19    Text := '<strong>Odkazy související s obcí:</strong><br/>' +
    1920
    2021    '<a href="http://www.zdechov.cz/">Obec Zděchov</a> - oficiální stránky  obce<br/>' +
    … …  
    2829
    2930    '<strong>Hostované servery:</strong><br/>' +
    30     '<a href="http://www.heroesoffantasy.cz/">Heroes of Fantasy</a> - free World of Warcraft server<br/>' +
     31    //'<a href="http://www.heroesoffantasy.cz/">Heroes of Fantasy</a> - free World of Warcraft server<br/>' +
    3132    '<a href="http://wowpreklad.zdechov.net/">WoWpřeklad</a> - překlad hry WoW do češtiny<br/>' +
    32     '<a href="http://archangel-portal.cz/">Archangel portál</a> - herní server<br/>' +
     33    '<a href="http://www.unitedstorm.eu/">UnitedStorm</a> - herní server<br/>' +
    3334    '<a href="http://victus.cz/">Victus</a> - herní server hry WoW<br/>' +
    3435    '<a href="http://gameshoot.eu/">GameShoot</a> - herní portál<br/>' +
    … …  
    4445    'document.write (\''<img align="right" src="http://toplist.cz/count.asp?id=90148&amp;logo=mc&amp;http=\''+escape(document.referrer)+\''&amp;wi=\''+escape(window.screen.width)+\''&he=\''+escape(window.screen.height)' +
    4546    '+\''&amp;cd=\''+escape(window.screen.colorDepth)+\''&amp;t=\''+escape(document.title)+\''" width=88 height=60 border=0 alt="TOPlist"/>'';' +
    46     '//--></script></a>');
    47 
    48   App.Output.Add('<strong>Komunitní sítě v okolí:</strong><br/>' +
     47    '//--></script></a>' +
     48
     49    '<strong>Komunitní sítě v okolí:</strong><br/>' +
    4950    '<a href="http://www.hovnet.cz/">Hovnet</a> - síť v Hovězí, Janové, Huslenkách a dalších obcích<br/>' +
    50     '//<a href="http://czvk3.net/">czvk3net</a> - síť ve Valašských Kloboucích<br/>');
    51   App.Output.Add('<a href="http://hvfree.net/">HvFree.net</a> - síť v Tylovicích, Hážovicích, Viganticích a Hutisku<br/>' +
     51    //'<a href="http://czvk3.net/">czvk3net</a> - síť ve Valašských Kloboucích<br/>' +
     52    '<a href="http://hvfree.net/">HvFree.net</a> - síť v Tylovicích, Hážovicích, Viganticích a Hutisku<br/>' +
    5253    '<a href="http://www.ustinet.cz/">Ústí.Net</a> - síť v Ústí u Vsetína<br/>' +
    53     '<br/>');
     54    '<br/>';
     55  end;
    5456end;
    5557
    … …  
    6264    HtmlDocument.Title := 'Historie sítě';
    6365
    64     Output.Add('<table>');
    65     try
    66       DbRows := Database.Query('SELECT * FROM History ORDER BY Date DESC');
    67       for I := 0 to DbRows.Count - 1 do begin
    68         //Output.Add('<tr><td style="text-align: right; vertical-align: top;">' +
    69         //  HumanDate(MysqlDateToTime(DbRows[I].Values['Date'])) + '&nbsp;- </td><td>' +
    70         //  DbRows[I].Values['Text'] + '</td></tr>');
     66    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     67      Text := '<table>';
     68      try
     69        DbRows := Database.Query('SELECT * FROM History ORDER BY Date DESC');
     70        for I := 0 to DbRows.Count - 1 do begin
     71          Text := Text + '<tr><td style="text-align: right; vertical-align: top;">' +
     72            HumanDate(SQLToDateTime(DbRows[I].Values['Date'])) + '&nbsp;- </td><td>' +
     73            DbRows[I].Values['Text'] + '</td></tr>';
     74        end;
     75      finally
     76        DbRows.Free;
    7177      end;
    72     finally
    73       DbRows.Free;
    74     end;
    75     Output.Add('</table>');
     78      Text := Text + '</table>';
     79    end;
    7680  end;
    7781end;
    … …  
    8286    HtmlDocument.Title := 'Internet';
    8387
    84     Output.Add('Hlavní náplní činnosti sítě je poskytovat výhodné připojení k internetu pro občany.<br/><br/>');
    85     Output.Add('<strong>Nabídka tarifů:</strong><br/>' +
     88    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     89      Text := Text + 'Hlavní náplní činnosti sítě je poskytovat výhodné připojení k internetu pro občany.<br/><br/>' +
     90      '<strong>Nabídka tarifů:</strong><br/>' +
    8691
    8792      '<table class="WideTable">' +
    … …  
    97102      'Rychlost všech tarifů je symetrická, není omezován objem přenášených dat, ceny včetně DPH.<br/>' +
    98103      '<br/>' +
    99       '<i>Aktualizováno: 1.7.2010</i>');
     104      '<i>Aktualizováno: 1.7.2010</i>';
     105    end;
    100106  end;
    101107end;
    … …  
    104110begin
    105111  with App do begin
    106     Output.Add('Volejte levněji do pevných a mobilních sítí s sekundovou tarifikací a bez měsíčního paušálu.<br/>' +
    107     '<br/>');
    108     Output.Add('Doporučujueme: <a href="http://voip.mikrotech.cz/">VoIP Mikrotech</a>' +
     112    HtmlDocument.Title := 'VoIP';
     113
     114    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     115      Text := 'Volejte levněji do pevných a mobilních sítí s sekundovou tarifikací a bez měsíčního paušálu.<br/>' +
     116      '<br/>' +
     117      'Doporučujueme: <a href="http://voip.mikrotech.cz/">VoIP Mikrotech</a>' +
    109118    '<ul><li>Zřízení zdarma</li>' +
    110119    '<li>Měsíční paušál: 0 Kč</li>' +
    … …  
    127136    '<li>Bez počátečních investic - softwarový telefon</li>' +
    128137    '<li>Pro telefonování nepotřebujete počítač - hardwarový VoIP telefon</li>' +
    129     '</ol>');
     138    '</ol>';
     139    end;
    130140  end;
    131141end;
    … …  
    139149    HtmlDocument.Title := 'Hosting';
    140150
    141     Output.Add('V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>');
    142     Output.Add('<strong>Standardní varianty:</strong><br/>' +
     151    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     152      Text := 'V nabídce je provoz virtualizovaných Linuxových serverů dle dohodnutých parameterů.<br/><br/>' +
     153      '<strong>Standardní varianty:</strong><br/>' +
    143154      '<table class="WideTable">' +
    144       '<tr><th>Označení</th><th>Rychlost</th><th>Vyhrazená paměť</th><th>Pevný disk</th><th>Procesor</th><th>Cena [Kč/měsíc]</th></tr>');
    145     try
    146       DbRows := Database.Query('SELECT * FROM VPSHosting ORDER BY Price DESC');
    147       for I := 0 to DbRows.Count - 1 do
    148         Output.Add('<tr><td>' + DbRows[I].Values['Name'] + '</td><td align="center">' +
    149           DbRows[I].Values['Internet'] + '</td><td align="center">' + DbRows[I].Values['Memory'] +
    150           '</td><td align="center">' + DbRows[I].Values['Space'] + '</td><td align="center">' +
    151           DbRows[I].Values['CPU'] + '</td><td align="center">' + DbRows[I].Values['Price'] + '</td></tr>');
    152     finally
    153       DbRows.Free;
    154     end;
    155     Output.Add('</table>' +
     155      '<tr><th>Označení</th><th>Rychlost</th><th>Vyhrazená paměť</th><th>Pevný disk</th><th>Procesor</th><th>Cena [Kč/měsíc]</th></tr>';
     156      try
     157        DbRows := Database.Query('SELECT * FROM VPSHosting ORDER BY Price DESC');
     158        for I := 0 to DbRows.Count - 1 do
     159          Text := Text + '<tr><td>' + DbRows[I].Values['Name'] + '</td><td align="center">' +
     160            DbRows[I].Values['Internet'] + '</td><td align="center">' + DbRows[I].Values['Memory'] +
     161            '</td><td align="center">' + DbRows[I].Values['Space'] + '</td><td align="center">' +
     162            DbRows[I].Values['CPU'] + '</td><td align="center">' + DbRows[I].Values['Price'] + '</td></tr>';
     163      finally
     164        DbRows.Free;
     165      end;
     166      Text := Text + '</table>' +
    156167      '<br/>' +
    157168      'První měsíc zdarma, denní zálohování disků, ceny včetně DPH<br/>' +
    158169      'Použité technologie: <a href="http://www.linux.cz/">GNU/Linux</a>, <a href="http://openvz.org/">OpenVZ</a>, <a href="http://pve.proxmox.com/">Proxmox VE</a>, <a href="http://backuppc.sourceforge.net/">BackupPC</a><br/>' +
    159170      '<br/>' +
    160       '<i>Aktualizováno: 1.7.2010</i>');
     171      '<i>Aktualizováno: 1.7.2010</i>';
     172    end;
    161173  end;
    162174end;
    … …  
    169181    HtmlDocument.Title := 'O síti';
    170182
    171     TextBlock := THtmlString.Create;
    172     HtmlDocument.Body.SubItems.Add(TextBlock);
    173     TextBlock.Text := '<img align="left" src="images/umisteni.gif" alt="Umístění obce">' +
    174       '<a href="images/pokryti.jpg"><img align="right" src="images/pokryti_nahled.jpg" width="170" height="334" alt="Pokrytí obce signálem"></a>' +
     183    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     184    Text := '<img align="left" src="images/umisteni.gif" alt="Umístění obce"/>' +
     185      '<a href="images/pokryti.jpg"><img align="right" src="images/pokryti_nahled.jpg" width="170" height="334" alt="Pokrytí obce signálem"/></a>' +
    175186      '<strong>Informace o obci:</strong><br/>' +
    176187      'Vesnice Zděchov se nachází pár kilometrů od obce Huslenky, jihovýchodním směrem od Vsetína. ' +
    … …  
    194205      '</ul><br/>';
    195206
    196     TextBlock.Text := TextBlock.Text + '<br/>' +
    197       '<a href="images/pohlednice_stara.jpg"><img align="right" src="images/pohlednice_stara_mala.jpg" alt="Stará pohlednice"></a>';
    198 
    199     TextBlock.Text := TextBlock.Text + '<strong>Počty zákazníků:</strong><br/>' +
     207    Text := Text + '<br/>' +
     208      '<a href="images/pohlednice_stara.jpg"><img align="right" src="images/pohlednice_stara_mala.jpg" alt="Stará pohlednice" /></a>';
     209
     210    Text := Text + '<strong>Počty zákazníků:</strong><br/>' +
    200211      'Připojených domácností v obci: 99<br/>' +
    201212      'Připojených institucí: 1<br/>' +
    … …  
    209220      '<br/>' +
    210221      '<i>Aktualizováno: 3.7.2009</i>';
     222    end;
    211223  end;
    212224end;
    … …  
    217229    HtmlDocument.Title := 'Dokumenty';
    218230
    219     Output.Add('<strong>O obci:</strong><br/>');
    220 
    221     Output.Add(IconedLink('docs/Zdechovska_historie_a_soucasnost.pdf', 'Zděchovská historie a současnost') + ' (1,6 MB)<br/>');
    222     Output.Add('<img src="images/icons/pdf.gif" alt=""> Zděchov - klíč od hřebene Javorníků - propagační publikace obce (kvalita ' +
     231    with HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     232      Text := '<strong>O obci:</strong><br/>' +
     233
     234      IconedLink('docs/Zdechovska_historie_a_soucasnost.pdf', 'Zděchovská historie a současnost') + ' (1,6 MB)<br/>' +
     235      '<img src="images/icons/pdf.gif" alt=""> Zděchov - klíč od hřebene Javorníků - propagační publikace obce (kvalita ' +
    223236'<a href="docs/Zděchov - klíč od hřebene Javorníků (nízká kvalita).pdf">nízká (1,8 MB)</a> ' +
    224237'<a href="docs/Zděchov - klíč od hřebene Javorníků (střední kvalita).pdf">střední (3,7 MB)</a> ' +
    225238'<a href="docs/Zděchov - klíč od hřebene Javorníků (vysoká kvalita).pdf">vysoká (7,2 MB)</a>)' +
    226 '<br/><br/>');
    227     Output.Add('<strong>Propagace sítě v obci:</strong><br/>');
    228 
    229     Output.Add(IconedLink('docs/info_na_infokanal_1.6.2006.pdf', 'Aktualita na infokanálu (1.6.2006)') + '<br/>');
    230     Output.Add(IconedLink('docs/info_na_infokanal_4.3.2005.pdf', 'Aktualita na infokanálu (4.3.2005)') + '<br/>');
    231     Output.Add(IconedLink('docs/info_na_infokanal_24.9.2004.pdf', 'Aktualita na infokanálu (24.9.2004)') + '<br/>');
    232     Output.Add(IconedLink('docs/vyzva_do_infokanalu_15.8.2004.pdf', 'Výzva do infokanálu (15.8.2004)') + '<br/>');
     239'<br/><br/>' +
     240    '<strong>Propagace sítě v obci:</strong><br/>' +
     241
     242      IconedLink('docs/info_na_infokanal_1.6.2006.pdf', 'Aktualita na infokanálu (1.6.2006)') + '<br/>' +
     243      IconedLink('docs/info_na_infokanal_4.3.2005.pdf', 'Aktualita na infokanálu (4.3.2005)') + '<br/>' +
     244      IconedLink('docs/info_na_infokanal_24.9.2004.pdf', 'Aktualita na infokanálu (24.9.2004)') + '<br/>' +
     245      IconedLink('docs/vyzva_do_infokanalu_15.8.2004.pdf', 'Výzva do infokanálu (15.8.2004)') + '<br/>';
     246    end;
    233247  end;
    234248end;
    … …  
    238252  App.HtmlDocument.Title := 'Kontakt';
    239253
    240   App.Output.Add('<strong>Kontaktní informace</strong><br/>' +
     254  with App.HtmlDocument.Body, THtmlString(SubItems[SubItems.Add(THtmlString.Create)]) do begin
     255    Text := '<strong>Kontaktní informace</strong><br/>' +
    241256    'Provozovatel: Ing. Jiří Hajda<br/>' +
    242257    'Adresa: Zděchov 208, 75607<br/>' +
    … …  
    245260    'IČ: 75904535<br/>' +
    246261    'DIČ: CZ8303255884<br/>' +
    247     'Bankovní účet: 218098370 / 0300<br/>');
     262    'Bankovní účet: 218098370 / 0300<br/>';
     263  end;
    248264end;
    249265
    250266procedure MainPage(App: TCustomCGIApplication);
    251267begin
    252   About(App);
    253   with App do begin
    254     //Show('index');
    255   end;
     268  if App.PageName = 'Internet' then Internet(App)
     269  else if App.PageName = 'Hosting' then Hosting(App)
     270  else if App.PageName = 'History' then History(App)
     271  else if App.PageName = 'Documents' then Documents(App)
     272  else if App.PageName = 'VoIP' then VoIP(App)
     273  else if App.PageName = 'Links' then Links(App)
     274  else if App.PageName = 'Contact' then Contact(App)
     275  else About(App);
    256276end;
    257277

  • branches/lazarus/UCore.pas

    r24 r25  
    1010type
    1111  TArrayOfString = array of string;
    12   TPageProducer = function: string;
    1312
    1413function MakeLink(Text, URL: string): string;
    … …  
    2019function ShowFooter: string;
    2120function Explode(Separator: Char; Data: string): TArrayOfString;
    22 function HumanDate(Date: string): string;
     21function HumanDate(Date: TDateTime): string;
    2322function PagesList(URL: string; Page, TotalCount, CountPerPage: Integer): string;
    2423function StrRepeat(Data: string; Count: Integer): string;
    … …  
    7877end;
    7978
    80 function HumanDate(Date: string): string;
    81 var
    82   Parts: TArrayOfString;
    83   Parts2: TArrayOfString;
     79function HumanDate(Date: TDateTime): string;
    8480begin
    85   Parts := Explode(' ', Date);
    86 //  Result := Date;
    87   Parts2 := Explode('-', Parts[0]);
    88   if Date <> '0000-00-00' then Result := IntToStr(StrToInt(Parts2[2])*1) + '.' + IntToStr(StrToInt(Parts2[1])*1) + '.' + Parts2[0]
    89     else Result := '&nbsp;';
     81  Result := FormatDateTime('d.m.yyyy', Date);
    9082end;
    9183

  • branches/lazarus/index.lpi

    r24 r25  
    1313      <ActiveWindowIndexAtStart Value="0"/>
    1414    </General>
     15    <i18n>
     16      <EnableI18N Value="True"/>
     17      <OutDir Value="languages"/>
     18    </i18n>
    1519    <VersionInfo>
    1620      <StringTable ProductVersion=""/>
    … …  
    2832      </local>
    2933    </RunParams>
    30     <Units Count="49">
     34    <Units Count="52">
    3135      <Unit0>
    3236        <Filename Value="index.pas"/>
    … …  
    3640        <WindowIndex Value="0"/>
    3741        <TopLine Value="1"/>
    38         <CursorPos X="50" Y="18"/>
    39         <UsageCount Value="155"/>
     42        <CursorPos X="26" Y="16"/>
     43        <UsageCount Value="163"/>
    4044        <Loaded Value="True"/>
    4145        <LoadedDesigner Value="True"/>
    … …  
    4650        <IsPartOfProject Value="True"/>
    4751        <UnitName Value="UMainPage"/>
    48         <EditorIndex Value="10"/>
    49         <WindowIndex Value="0"/>
    50         <TopLine Value="224"/>
    51         <CursorPos X="20" Y="238"/>
    52         <UsageCount Value="151"/>
     52        <EditorIndex Value="11"/>
     53        <WindowIndex Value="0"/>
     54        <TopLine Value="25"/>
     55        <CursorPos X="73" Y="55"/>
     56        <UsageCount Value="159"/>
    5357        <Loaded Value="True"/>
    5458        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    7276        <IsPartOfProject Value="True"/>
    7377        <UnitName Value="UCore"/>
    74         <EditorIndex Value="16"/>
    75         <WindowIndex Value="0"/>
    76         <TopLine Value="1"/>
    77         <CursorPos X="1" Y="16"/>
    78         <UsageCount Value="155"/>
     78        <EditorIndex Value="20"/>
     79        <WindowIndex Value="0"/>
     80        <TopLine Value="79"/>
     81        <CursorPos X="37" Y="81"/>
     82        <UsageCount Value="163"/>
    7983        <Loaded Value="True"/>
    8084        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    143147      <Unit12>
    144148        <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/datih.inc"/>
    145         <EditorIndex Value="15"/>
    146         <WindowIndex Value="0"/>
    147         <TopLine Value="105"/>
    148         <CursorPos X="10" Y="119"/>
    149         <UsageCount Value="14"/>
     149        <EditorIndex Value="18"/>
     150        <WindowIndex Value="0"/>
     151        <TopLine Value="91"/>
     152        <CursorPos X="10" Y="110"/>
     153        <UsageCount Value="18"/>
    150154        <Loaded Value="True"/>
    151155        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    153157      <Unit13>
    154158        <Filename Value="/usr/share/fpcsrc/rtl/objpas/dateutil.inc"/>
    155         <TopLine Value="34"/>
    156         <CursorPos X="3" Y="624"/>
    157         <UsageCount Value="0"/>
     159        <EditorIndex Value="13"/>
     160        <WindowIndex Value="0"/>
     161        <TopLine Value="283"/>
     162        <CursorPos X="10" Y="302"/>
     163        <UsageCount Value="11"/>
     164        <Loaded Value="True"/>
    158165        <DefaultSyntaxHighlighter Value="Delphi"/>
    159166      </Unit13>
    … …  
    165172        <WindowIndex Value="0"/>
    166173        <TopLine Value="1"/>
    167         <CursorPos X="88" Y="11"/>
    168         <UsageCount Value="130"/>
     174        <CursorPos X="41" Y="13"/>
     175        <UsageCount Value="138"/>
    169176        <Loaded Value="True"/>
    170177        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    175182        <TopLine Value="108"/>
    176183        <CursorPos X="1" Y="134"/>
    177         <UsageCount Value="130"/>
     184        <UsageCount Value="138"/>
    178185        <DefaultSyntaxHighlighter Value="None"/>
    179186      </Unit15>
    … …  
    183190        <TopLine Value="1"/>
    184191        <CursorPos X="1" Y="1"/>
    185         <UsageCount Value="130"/>
     192        <UsageCount Value="138"/>
    186193        <DefaultSyntaxHighlighter Value="JScript"/>
    187194      </Unit16>
    … …  
    353360        <TopLine Value="254"/>
    354361        <CursorPos X="15" Y="268"/>
    355         <UsageCount Value="15"/>
     362        <UsageCount Value="19"/>
    356363        <Loaded Value="True"/>
    357364        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    363370        <TopLine Value="10"/>
    364371        <CursorPos X="22" Y="23"/>
    365         <UsageCount Value="15"/>
     372        <UsageCount Value="19"/>
    366373        <Loaded Value="True"/>
    367374        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    374381        <TopLine Value="1140"/>
    375382        <CursorPos X="26" Y="1143"/>
    376         <UsageCount Value="15"/>
     383        <UsageCount Value="19"/>
    377384        <Loaded Value="True"/>
    378385        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    384391        <TopLine Value="43"/>
    385392        <CursorPos X="5" Y="61"/>
    386         <UsageCount Value="15"/>
     393        <UsageCount Value="19"/>
    387394        <Loaded Value="True"/>
    388395        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    394401        <TopLine Value="50"/>
    395402        <CursorPos X="10" Y="63"/>
    396         <UsageCount Value="15"/>
     403        <UsageCount Value="19"/>
    397404        <Loaded Value="True"/>
    398405        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    406413        <TopLine Value="22"/>
    407414        <CursorPos X="58" Y="29"/>
    408         <UsageCount Value="30"/>
     415        <UsageCount Value="38"/>
    409416        <Loaded Value="True"/>
    410417        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    414421        <IsPartOfProject Value="True"/>
    415422        <UnitName Value="UCGIApplication"/>
    416         <EditorIndex Value="9"/>
    417         <WindowIndex Value="0"/>
    418         <TopLine Value="1"/>
    419         <CursorPos X="1" Y="1"/>
    420         <UsageCount Value="30"/>
     423        <EditorIndex Value="10"/>
     424        <WindowIndex Value="0"/>
     425        <TopLine Value="80"/>
     426        <CursorPos X="5" Y="99"/>
     427        <UsageCount Value="38"/>
    421428        <Loaded Value="True"/>
    422429        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    425432        <Filename Value="Common/UDatabase.pas"/>
    426433        <IsPartOfProject Value="True"/>
    427         <UsageCount Value="30"/>
     434        <UsageCount Value="38"/>
    428435        <DefaultSyntaxHighlighter Value="Delphi"/>
    429436      </Unit42>
    … …  
    432439        <IsPartOfProject Value="True"/>
    433440        <UnitName Value="UHtmlClasses"/>
    434         <IsVisibleTab Value="True"/>
    435         <EditorIndex Value="13"/>
    436         <WindowIndex Value="0"/>
    437         <TopLine Value="229"/>
    438         <CursorPos X="76" Y="246"/>
    439         <UsageCount Value="30"/>
     441        <EditorIndex Value="16"/>
     442        <WindowIndex Value="0"/>
     443        <TopLine Value="218"/>
     444        <CursorPos X="1" Y="231"/>
     445        <UsageCount Value="38"/>
    440446        <Loaded Value="True"/>
    441447        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    445451        <IsPartOfProject Value="True"/>
    446452        <UnitName Value="USqlDatabase"/>
    447         <EditorIndex Value="11"/>
    448         <WindowIndex Value="0"/>
    449         <TopLine Value="1"/>
    450         <CursorPos X="1" Y="1"/>
    451         <UsageCount Value="30"/>
     453        <EditorIndex Value="12"/>
     454        <WindowIndex Value="0"/>
     455        <TopLine Value="1"/>
     456        <CursorPos X="1" Y="131"/>
     457        <UsageCount Value="38"/>
    452458        <Loaded Value="True"/>
    453459        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    457463        <IsPartOfProject Value="True"/>
    458464        <UnitName Value="UXmlClasses"/>
    459         <EditorIndex Value="8"/>
    460         <WindowIndex Value="0"/>
    461         <TopLine Value="110"/>
    462         <CursorPos X="1" Y="113"/>
    463         <UsageCount Value="30"/>
     465        <EditorIndex Value="9"/>
     466        <WindowIndex Value="0"/>
     467        <TopLine Value="13"/>
     468        <CursorPos X="5" Y="32"/>
     469        <UsageCount Value="38"/>
    464470        <Loaded Value="True"/>
    465471        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    469475        <IsPartOfProject Value="True"/>
    470476        <UnitName Value="UCustomCGIApplication"/>
    471         <EditorIndex Value="12"/>
    472         <WindowIndex Value="0"/>
    473         <TopLine Value="24"/>
    474         <CursorPos X="5" Y="38"/>
    475         <UsageCount Value="30"/>
     477        <IsVisibleTab Value="True"/>
     478        <EditorIndex Value="15"/>
     479        <WindowIndex Value="0"/>
     480        <TopLine Value="27"/>
     481        <CursorPos X="47" Y="52"/>
     482        <UsageCount Value="38"/>
    476483        <Loaded Value="True"/>
    477484        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    487494      <Unit48>
    488495        <Filename Value="/usr/share/fpcsrc/rtl/inc/mathh.inc"/>
    489         <EditorIndex Value="14"/>
     496        <EditorIndex Value="17"/>
    490497        <WindowIndex Value="0"/>
    491498        <TopLine Value="64"/>
    492499        <CursorPos X="14" Y="78"/>
     500        <UsageCount Value="18"/>
     501        <Loaded Value="True"/>
     502        <DefaultSyntaxHighlighter Value="Delphi"/>
     503      </Unit48>
     504      <Unit49>
     505        <Filename Value="/usr/share/fpcsrc/rtl/inc/systemh.inc"/>
     506        <EditorIndex Value="14"/>
     507        <WindowIndex Value="0"/>
     508        <TopLine Value="377"/>
     509        <CursorPos X="3" Y="300"/>
    493510        <UsageCount Value="14"/>
    494511        <Loaded Value="True"/>
    495512        <DefaultSyntaxHighlighter Value="Delphi"/>
    496       </Unit48>
     513      </Unit49>
     514      <Unit50>
     515        <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/dati.inc"/>
     516        <EditorIndex Value="19"/>
     517        <WindowIndex Value="0"/>
     518        <TopLine Value="519"/>
     519        <CursorPos X="23" Y="526"/>
     520        <UsageCount Value="14"/>
     521        <Loaded Value="True"/>
     522        <DefaultSyntaxHighlighter Value="Delphi"/>
     523      </Unit50>
     524      <Unit51>
     525        <Filename Value="UConfigSample.pas"/>
     526        <IsPartOfProject Value="True"/>
     527        <UnitName Value="UConfig"/>
     528        <EditorIndex Value="8"/>
     529        <WindowIndex Value="0"/>
     530        <TopLine Value="1"/>
     531        <CursorPos X="3" Y="16"/>
     532        <UsageCount Value="21"/>
     533        <Loaded Value="True"/>
     534        <DefaultSyntaxHighlighter Value="Delphi"/>
     535      </Unit51>
    497536    </Units>
    498     <JumpHistory Count="30" HistoryIndex="28">
     537    <JumpHistory Count="29" HistoryIndex="28">
    499538      <Position1>
    500         <Filename Value="Common/UHtmlClasses.pas"/>
    501         <Caret Line="203" Column="24" TopLine="189"/>
     539        <Filename Value="Pages/UMainPage.pas"/>
     540        <Caret Line="157" Column="26" TopLine="132"/>
    502541      </Position1>
    503542      <Position2>
    504         <Filename Value="Common/UHtmlClasses.pas"/>
    505         <Caret Line="217" Column="14" TopLine="204"/>
     543        <Filename Value="Pages/UMainPage.pas"/>
     544        <Caret Line="153" Column="145" TopLine="134"/>
    506545      </Position2>
    507546      <Position3>
    508         <Filename Value="Common/UHtmlClasses.pas"/>
    509         <Caret Line="254" Column="13" TopLine="241"/>
     547        <Filename Value="Common/USqlDatabase.pas"/>
     548        <Caret Line="41" Column="16" TopLine="23"/>
    510549      </Position3>
    511550      <Position4>
    512         <Filename Value="Application/UCustomCGIApplication.pas"/>
    513         <Caret Line="174" Column="1" TopLine="162"/>
     551        <Filename Value="Common/USqlDatabase.pas"/>
     552        <Caret Line="10" Column="55" TopLine="1"/>
    514553      </Position4>
    515554      <Position5>
    516         <Filename Value="Common/UHtmlClasses.pas"/>
    517         <Caret Line="248" Column="28" TopLine="239"/>
     555        <Filename Value="Pages/UMainPage.pas"/>
     556        <Caret Line="72" Column="30" TopLine="35"/>
    518557      </Position5>
    519558      <Position6>
    520         <Filename Value="Common/UHtmlClasses.pas"/>
    521         <Caret Line="247" Column="28" TopLine="239"/>
     559        <Filename Value="Common/USqlDatabase.pas"/>
     560        <Caret Line="88" Column="33" TopLine="53"/>
    522561      </Position6>
    523562      <Position7>
    524         <Filename Value="Common/UHtmlClasses.pas"/>
    525         <Caret Line="212" Column="16" TopLine="201"/>
     563        <Filename Value="Common/USqlDatabase.pas"/>
     564        <Caret Line="130" Column="42" TopLine="101"/>
    526565      </Position7>
    527566      <Position8>
    528         <Filename Value="Application/UCustomCGIApplication.pas"/>
    529         <Caret Line="175" Column="14" TopLine="161"/>
     567        <Filename Value="Common/USqlDatabase.pas"/>
     568        <Caret Line="132" Column="20" TopLine="101"/>
    530569      </Position8>
    531570      <Position9>
    532         <Filename Value="Common/UHtmlClasses.pas"/>
    533         <Caret Line="259" Column="18" TopLine="247"/>
     571        <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/dati.inc"/>
     572        <Caret Line="322" Column="24" TopLine="320"/>
    534573      </Position9>
    535574      <Position10>
    536         <Filename Value="Application/UCustomCGIApplication.pas"/>
    537         <Caret Line="98" Column="86" TopLine="74"/>
     575        <Filename Value="Common/USqlDatabase.pas"/>
     576        <Caret Line="127" Column="25" TopLine="101"/>
    538577      </Position10>
    539578      <Position11>
    540         <Filename Value="Common/UHtmlClasses.pas"/>
    541         <Caret Line="261" Column="1" TopLine="247"/>
     579        <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/dati.inc"/>
     580        <Caret Line="881" Column="22" TopLine="860"/>
    542581      </Position11>
    543582      <Position12>
    544         <Filename Value="Application/UCustomCGIApplication.pas"/>
    545         <Caret Line="98" Column="79" TopLine="84"/>
     583        <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/dati.inc"/>
     584        <Caret Line="856" Column="20" TopLine="833"/>
    546585      </Position12>
    547586      <Position13>
    548         <Filename Value="Common/UHtmlClasses.pas"/>
    549         <Caret Line="428" Column="34" TopLine="414"/>
     587        <Filename Value="Common/USqlDatabase.pas"/>
     588        <Caret Line="131" Column="1" TopLine="101"/>
    550589      </Position13>
    551590      <Position14>
    552         <Filename Value="Application/UCustomCGIApplication.pas"/>
    553         <Caret Line="98" Column="81" TopLine="84"/>
     591        <Filename Value="Pages/UMainPage.pas"/>
     592        <Caret Line="72" Column="22" TopLine="53"/>
    554593      </Position14>
    555594      <Position15>
    556         <Filename Value="Application/UCustomCGIApplication.pas"/>
    557         <Caret Line="33" Column="1" TopLine="30"/>
     595        <Filename Value="UCore.pas"/>
     596        <Caret Line="21" Column="26" TopLine="2"/>
    558597      </Position15>
    559598      <Position16>
    560         <Filename Value="Application/UCustomCGIApplication.pas"/>
    561         <Caret Line="91" Column="39" TopLine="77"/>
     599        <Filename Value="Pages/UMainPage.pas"/>
     600        <Caret Line="72" Column="17" TopLine="53"/>
    562601      </Position16>
    563602      <Position17>
    564         <Filename Value="Pages/UMainPage.pas"/>
    565         <Caret Line="171" Column="29" TopLine="157"/>
     603        <Filename Value="UCore.pas"/>
     604        <Caret Line="81" Column="34" TopLine="79"/>
    566605      </Position17>
    567606      <Position18>
    568         <Filename Value="Pages/UMainPage.pas"/>
    569         <Caret Line="16" Column="7" TopLine="2"/>
     607        <Filename Value="Common/USqlDatabase.pas"/>
     608        <Caret Line="10" Column="59" TopLine="1"/>
    570609      </Position18>
    571610      <Position19>
    572         <Filename Value="Pages/UMainPage.pas"/>
    573         <Caret Line="62" Column="18" TopLine="48"/>
     611        <Filename Value="Common/USqlDatabase.pas"/>
     612        <Caret Line="142" Column="19" TopLine="110"/>
    574613      </Position19>
    575614      <Position20>
    576         <Filename Value="Pages/UMainPage.pas"/>
    577         <Caret Line="82" Column="18" TopLine="68"/>
     615        <Filename Value="Common/USqlDatabase.pas"/>
     616        <Caret Line="139" Column="112" TopLine="120"/>
    578617      </Position20>
    579618      <Position21>
    580         <Filename Value="Pages/UMainPage.pas"/>
    581         <Caret Line="139" Column="18" TopLine="125"/>
     619        <Filename Value="Common/USqlDatabase.pas"/>
     620        <Caret Line="143" Column="30" TopLine="120"/>
    582621      </Position21>
    583622      <Position22>
    584623        <Filename Value="Pages/UMainPage.pas"/>
    585         <Caret Line="169" Column="18" TopLine="155"/>
     624        <Caret Line="72" Column="21" TopLine="53"/>
    586625      </Position22>
    587626      <Position23>
    588         <Filename Value="Pages/UMainPage.pas"/>
    589         <Caret Line="217" Column="18" TopLine="203"/>
     627        <Filename Value="Application/UCustomCGIApplication.pas"/>
     628        <Caret Line="97" Column="30" TopLine="93"/>
    590629      </Position23>
    591630      <Position24>
    592         <Filename Value="Pages/UMainPage.pas"/>
    593         <Caret Line="238" Column="16" TopLine="224"/>
     631        <Filename Value="Application/UCustomCGIApplication.pas"/>
     632        <Caret Line="46" Column="1" TopLine="27"/>
    594633      </Position24>
    595634      <Position25>
    596         <Filename Value="Common/UHtmlClasses.pas"/>
    597         <Caret Line="253" Column="43" TopLine="234"/>
     635        <Filename Value="Application/UCustomCGIApplication.pas"/>
     636        <Caret Line="222" Column="23" TopLine="204"/>
    598637      </Position25>
    599638      <Position26>
    600         <Filename Value="Common/UHtmlClasses.pas"/>
    601         <Caret Line="250" Column="1" TopLine="234"/>
     639        <Filename Value="Application/UCustomCGIApplication.pas"/>
     640        <Caret Line="95" Column="33" TopLine="73"/>
    602641      </Position26>
    603642      <Position27>
    604         <Filename Value="Common/UHtmlClasses.pas"/>
    605         <Caret Line="258" Column="1" TopLine="235"/>
     643        <Filename Value="Application/UCustomCGIApplication.pas"/>
     644        <Caret Line="80" Column="30" TopLine="76"/>
    606645      </Position27>
    607646      <Position28>
    608         <Filename Value="Application/UCustomCGIApplication.pas"/>
    609         <Caret Line="90" Column="6" TopLine="75"/>
     647        <Filename Value="Common/UCGIApplication.pas"/>
     648        <Caret Line="1" Column="38" TopLine="1"/>
    610649      </Position28>
    611650      <Position29>
    612         <Filename Value="Common/UHtmlClasses.pas"/>
    613         <Caret Line="248" Column="76" TopLine="224"/>
     651        <Filename Value="Common/UCGIApplication.pas"/>
     652        <Caret Line="30" Column="26" TopLine="1"/>
    614653      </Position29>
    615       <Position30>
    616         <Filename Value="Common/UXmlClasses.pas"/>
    617         <Caret Line="113" Column="1" TopLine="110"/>
    618       </Position30>
    619654    </JumpHistory>
    620655  </ProjectOptions>

  • branches/lazarus/index.pas

    r24 r25  
    1414  with Application do
    1515  try
    16     RegisterPage('index', MainPage);
     16    RegisterPage('Main', MainPage);
    1717    Run;
    1818  finally
Note: See TracChangeset for help on using the changeset viewer.