Changeset 27


Ignore:
Timestamp:
Sep 10, 2010, 8:09:21 AM (14 years ago)
Author:
george
Message:
  • Přidáno: Systém navigace pomocí "pěkných" URL.
Location:
branches/lazarus
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • branches/lazarus/.htaccess

    r24 r27  
    33DirectoryIndex index.cgi
    44
     5# Disable access to source code files
    56<FilesMatch "\.(pas|o|ppu|lpi|a)$">
    67  Deny from all
    78</FilesMatch>
     9
     10RewriteEngine on
     11RewriteCond  %{REQUEST_FILENAME}  !-f
     12RewriteCond  %{REQUEST_FILENAME}  !-d
     13RewriteRule   ^(.*)$ index.cgi?$1

  • branches/lazarus/Application/UCustomCGIApplication.pas

    r26 r27  
    77uses
    88  Classes, SysUtils, UCGIApplication, Contnrs, USqlDatabase, UConfig, DateUtils,
    9   UXmlClasses, UHtmlClasses, UCore;
     9  UXmlClasses, UHtmlClasses, UCore, UStringListEx;
    1010
    1111type
    … …  
    8989  TitleTag: THtmlString;
    9090begin
    91   //SysInfo;
    92   Style := 'Basic';
     91  Style := ConfigStyle;
     92  BaseURL := ConfigBaseURL;
    9393
    9494  HtmlDocument.ContentLanguage := 'cs';
    9595  GlobalTitle := 'ZděchovNET';
    96   HtmlDocument.Styles.Add('Style/' + Style + '/Style.css');
    97   HtmlDocument.Scripts.Add('Style/' + Style + '/Global.js');
    98   HtmlDocument.Scripts.Add('Style/' + Style + '/jquery.js');
    99 
    100   PageName := Query.Values['p'];
    101   if PageName = '' then PageName := '';
    102   ModuleName := Query.Values['m'];
    103   if ModuleName = '' then ModuleName := 'Main';
     96  HtmlDocument.Styles.Add(NavigationLink('/Style/' + Style + '/Style.css'));
     97  HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/Global.js'));
     98  HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/jquery.js'));
     99
     100  if QueryParts.Count > 0 then PageName := QueryParts[0]
     101    else PageName := '';
    104102  I := 0;
    105   while (I < Pages.Count) and (TRegistredPage(Pages[I]).Name <> ModuleName) do Inc(I);
    106   if I < Pages.Count then begin
     103  while (I < Pages.Count) and (TRegistredPage(Pages[I]).Name <> PageName) do Inc(I);
     104  if (I < Pages.Count) then begin
    107105    TitleTag := THtmlString.Create;
    108106    HtmlDocument.Body.SubItems.Add(TitleTag);
    … …  
    111109    TitleTag.Text := '<div class="TitlePanel"><span class="GlobalTitle">' + GlobalTitle +
    112110    '</span> - ' + HtmlDocument.Title + '</div>';
    113     with HtmlDocument.AsXmlDocument do begin
     111    HtmlDocument.Title := GlobalTitle + ' - ' + HtmlDocument.Title;
     112    with HtmlDocument.AsXmlDocument do try
    114113      Formated := ConfigFormatHTML;
    115114      Output.Add(AsString);
     115    finally
    116116      Free;
    117117    end;
    … …  
    211211    // Visitor
    212212    Text := Text + '<ul class="MenuItem">' +
    213       '<li>' + MakeLink('O síti', NavigationMakeLink('Main', 'About')) + '</li>' +
    214       '<li>' + MakeLink('Internet', NavigationMakeLink('Main', 'Internet')) + '</li>' +
    215       '<li>' + MakeLink('Hosting', NavigationMakeLink('Main', 'Hosting')) + '</li>' +
    216       '<li>' + MakeLink('VoIP', NavigationMakeLink('Main', 'VoIP')) + '</li>' +
     213      '<li>' + MakeLink('O síti', NavigationLink('/')) + '</li>' +
     214      '<li>' + MakeLink('Internet', NavigationLink('/internet/')) + '</li>' +
     215      '<li>' + MakeLink('Hosting', NavigationLink('/hosting/')) + '</li>' +
     216      '<li>' + MakeLink('VoIP', NavigationLink('/voip/')) + '</li>' +
    217217      '<li><a href="https://mail.zdechov.net/">Pošta</a></li>' +
    218       '<li>' + MakeLink('Historie', NavigationMakeLink('Main', 'History')) + '</li>' +
    219       '<li>' + MakeLink('Dokumenty', NavigationMakeLink('Main', 'Documents')) + '</li>' +
    220       '<li>' + MakeLink('Odkazy', NavigationMakeLink('Main', 'Links')) + '</li>' +
    221       '<li>' + MakeLink('Kontakt', NavigationMakeLink('Main', 'Contact')) + '</li>';
     218      '<li>' + MakeLink('Historie', NavigationLink('/historie/')) + '</li>' +
     219      '<li>' + MakeLink('Dokumenty', NavigationLink('/dokumenty/')) + '</li>' +
     220      '<li>' + MakeLink('Odkazy', NavigationLink('/odkazy/')) + '</li>' +
     221      '<li>' + MakeLink('Kontakt', NavigationLink('/kontakt/')) + '</li>';
    222222    Text := Text + '</ul><ul class="MenuItem2"><li>&nbsp;</li>';
    223223(*    if System.UserOnline.User = System.UserOnline.AnonymousUserId then begin

  • branches/lazarus/Common/UCGIApplication.pas

    r23 r27  
    2828  TCGIApplication = class
    2929  private
    30     function FormatOutput(Data: string): string;
    3130  public
    3231    Headers: TStringList;
    … …  
    3534    Output: TStringList;
    3635    Query: TQueryParameterList;
     36    QueryParts: TStringListEx;
     37    BaseURL: string;
    3738    constructor Create;
    3839    destructor Destroy; override;
    … …  
    5455  Output := TStringList.Create;
    5556  Query := TQueryParameterList.Create;
     57  QueryParts := TStringListEx.Create;
    5658end;
    5759
    … …  
    6365  Cookies.Free;
    6466  Query.Free;
     67  QueryParts.Free;
    6568  inherited Destroy;
    6669end;
    … …  
    8083
    8184  // Parse query string
    82   Query.Parse(EnvVars.Values['QUERY_STRING']);
     85  if Length(EnvVars.Values['QUERY_STRING']) > 0 then
     86  if EnvVars.Values['QUERY_STRING'][Length(EnvVars.Values['QUERY_STRING'])] = '/' then
     87    EnvVars.Values['QUERY_STRING'] := Copy(EnvVars.Values['QUERY_STRING'], 1,
     88      Length(EnvVars.Values['QUERY_STRING']) - 1);
     89  QueryParts.Explode('/', EnvVars.Values['QUERY_STRING']);
     90  if Pos('?', EnvVars.Values['REQUEST_URI']) > 0 then
     91    Query.Parse(Copy(EnvVars.Values['REQUEST_URI'],
     92      Pos('?', EnvVars.Values['REQUEST_URI']) + 1,
     93      Length(EnvVars.Values['REQUEST_URI'])));
    8394
    8495  Execute;
    … …  
    97108
    98109  // Emit page content
    99   //Output.Text := FormatOutput(Output.Text);
    100110  for I := 0 to Output.Count - 1 do begin
    101111    WriteLn(Output[I]);
    … …  
    115125  Output.Add('</table>');
    116126end;
    117 
    118 function TCGIApplication.FormatOutput(Data: string): string;
    119 var
    120   BlockStart, BlockEnd: Integer;
    121   Indention: Integer;
    122   Indention2: Integer;
    123   Line: string;
    124   Command: string;
    125 begin
    126   Result := '';
    127   Indention := 0;
    128   Indention2 := 0;
    129   while Data <> '' do begin
    130     //WebWrite('.');
    131     BlockStart := Pos('<', Data);
    132         BlockEnd := Pos('>', Data);
    133     if BlockStart > 1 then begin
    134           BlockEnd := BlockStart - 1;
    135           BlockStart := 1;
    136         end;
    137         Line := Trim(Copy(Data, BlockStart, BlockEnd));
    138         //WebWriteLn(Line);
    139         if Length(Line) > 0 then
    140           if Line[1] = '<' then begin
    141             if Data[BlockStart + 1] = '/' then begin
    142               Indention := Indention - 2;
    143               Indention2 := Indention;
    144             end else begin
    145           if Pos(' ', Line) > 0 then Command := Copy(Line, 2, Pos(' ', Line) - 2)
    146                 else Command := Copy(Line, 2, Length(Line) - 2);
    147                   //WebWriteLn(Command + ' ' + IntToStr(Indention));
    148           if Pos('</' + Command + '>', Data) > 0 then Indention := Indention + 2;
    149                   //WebWriteLn(IntToStr(Indention) + ',' + IntToStr(Indention2));
    150             end;
    151           end;
    152           if Line <> '' then Result := Result + StrRepeat(' ', Indention2) + Line + #13#10;
    153           Data := Copy(Data, BlockEnd + 1, Length(Data));
    154           Indention2 := Indention;
    155   end;
    156 end;
    157 
    158127
    159128{ TCookieList }

  • branches/lazarus/Pages/UMainPage.pas

    r25 r27  
    88  Classes, SysUtils, USqlDatabase, UCore, UCustomCGIApplication, UHtmlClasses;
    99
    10 procedure MainPage(App: TCustomCGIApplication);
     10procedure Links(App: TCustomCGIApplication);
     11procedure History(App: TCustomCGIApplication);
     12procedure Internet(App: TCustomCGIApplication);
     13procedure VoIP(App: TCustomCGIApplication);
     14procedure Hosting(App: TCustomCGIApplication);
     15procedure About(App: TCustomCGIApplication);
     16procedure Documents(App: TCustomCGIApplication);
     17procedure Contact(App: TCustomCGIApplication);
    1118
    1219implementation
    … …  
    3441    '<a href="http://victus.cz/">Victus</a> - herní server hry WoW<br/>' +
    3542    '<a href="http://gameshoot.eu/">GameShoot</a> - herní portál<br/>' +
     43    '<a href="http://sharp.zdechov.net/"></a> - Sharp MZ community web<br/>' +
     44
    3645    '<br/>' +
    3746
    … …  
    182191
    183192    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>' +
     193    Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +
     194      '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' +
     195      '<img align="right" src="' + NavigationLink('/images/pokryti_nahled.jpg') + '" width="170" height="334" alt="Pokrytí obce signálem"/></a>' +
    186196      '<strong>Informace o obci:</strong><br/>' +
    187197      'Vesnice Zděchov se nachází pár kilometrů od obce Huslenky, jihovýchodním směrem od Vsetína. ' +
    … …  
    206216
    207217    Text := Text + '<br/>' +
    208       '<a href="images/pohlednice_stara.jpg"><img align="right" src="images/pohlednice_stara_mala.jpg" alt="Stará pohlednice" /></a>';
     218      '<a href="' + NavigationLink('/images/pohlednice_stara.jpg') + '">' +
     219      '<img align="right" src="' + NavigationLink('/images/pohlednice_stara_mala.jpg') + '" alt="Stará pohlednice" /></a>';
    209220
    210221    Text := Text + '<strong>Počty zákazníků:</strong><br/>' +
    … …  
    215226      '<br/>' +
    216227      '<strong>Technické parametry sítě</strong><br/>' +
    217       'Internetové připojení: 20/20 Mbit/s, vyhrazené, symetrické, bez agregace, bez omezení přenesených dat, přes společnost <a href="http://www.inext.cz/">Internext 2000</a><br/>' +
     228      'Internetové připojení: 40/40 Mbit/s, vyhrazené, symetrické, bez agregace, bez omezení přenesených dat, přes společnost <a href="http://www.inext.cz/">Internext 2000</a><br/>' +
    218229      'Pokrytí obce signálem: asi 80%<br/>' +
    219230      'V připojených domácnostech celkem 327 občanů ze všech 600 (55 %)<br/>' +
    220231      '<br/>' +
    221       '<i>Aktualizováno: 3.7.2009</i>';
     232      '<i>Aktualizováno: 3.7.2010</i>';
    222233    end;
    223234  end;
    … …  
    232243      Text := '<strong>O obci:</strong><br/>' +
    233244
    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 ' +
    236 '<a href="docs/Zděchov - klíč od hřebene Javorníků (nízká kvalita).pdf">nízká (1,8 MB)</a> ' +
    237 '<a href="docs/Zděchov - klíč od hřebene Javorníků (střední kvalita).pdf">střední (3,7 MB)</a> ' +
    238 '<a href="docs/Zděchov - klíč od hřebene Javorníků (vysoká kvalita).pdf">vysoká (7,2 MB)</a>)' +
     245      IconedLink(NavigationLink('/docs/Zdechovska_historie_a_soucasnost.pdf'), 'Zděchovská historie a současnost') + ' (1,6 MB)<br/>' +
     246      '<img src="' + NavigationLink('/images/icons/pdf.gif') + '" alt=""> Zděchov - klíč od hřebene Javorníků - propagační publikace obce (kvalita ' +
     247'<a href="' + NavigationLink('/docs/Zděchov - klíč od hřebene Javorníků (nízká kvalita).pdf') + '">nízká (1,8 MB)</a> ' +
     248'<a href="' + NavigationLink('/docs/Zděchov - klíč od hřebene Javorníků (střední kvalita).pdf') + '">střední (3,7 MB)</a> ' +
     249'<a href="' + NavigationLink('/docs/Zděchov - klíč od hřebene Javorníků (vysoká kvalita).pdf') + '">vysoká (7,2 MB)</a>)' +
    239250'<br/><br/>' +
    240251    '<strong>Propagace sítě v obci:</strong><br/>' +
    241252
    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/>';
     253      IconedLink(NavigationLink('/docs/info_na_infokanal_1.6.2006.pdf'), 'Aktualita na infokanálu (1.6.2006)') + '<br/>' +
     254      IconedLink(NavigationLink('/docs/info_na_infokanal_4.3.2005.pdf'), 'Aktualita na infokanálu (4.3.2005)') + '<br/>' +
     255      IconedLink(NavigationLink('/docs/info_na_infokanal_24.9.2004.pdf'), 'Aktualita na infokanálu (24.9.2004)') + '<br/>' +
     256      IconedLink(NavigationLink('/docs/vyzva_do_infokanalu_15.8.2004.pdf'), 'Výzva do infokanálu (15.8.2004)') + '<br/>';
    246257    end;
    247258  end;
    … …  
    264275end;
    265276
    266 procedure MainPage(App: TCustomCGIApplication);
    267 begin
    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);
    276 end;
    277 
    278277end.
    279278

  • branches/lazarus/UConfigSample.pas

    r25 r27  
    1515  DatabasePassword: string = 'password';
    1616  ConfigFormatHTML: Boolean = False;
     17  ConfigStyle: string = 'Basic';
     18  ConfigBaseURL: string = 'http://localhost';
    1719
    1820implementation

  • branches/lazarus/UCore.pas

    r25 r27  
    1111  TArrayOfString = array of string;
    1212
     13function NavigationLink(URL: string): string;
    1314function MakeLink(Text, URL: string): string;
    14 function NavigationMakeLink(Module, Page: string): string;
    1515function InsertIcon(FileName: string): string;
    1616function IconedLink(Link, Text: string): string;
    … …  
    8484function InsertIcon(FileName: string): string;
    8585begin
    86   Result := '<img alt="" src="images/favicons/' + FileName + '" width="16" height="16" />';
     86  Result := '<img alt="" src="' + NavigationLink('/images/favicons/' + FileName) + '" width="16" height="16" />';
    8787end;
    8888
    … …  
    100100  Icon: string;
    101101begin
    102   Extension := Copy(Link, LastPos(Link, '.') + 1, Length(Link));
    103   Icon := '<img src="images/icons/' + Extension + '.gif" alt="' + Extension + '"> ';
     102  Extension := Copy(Link, LastPos('.', Link) + 1, Length(Link));
     103  Icon := '<img src="' + NavigationLink('/images/icons/' + Extension + '.gif') + '" alt="' + Extension + '"> ';
    104104  Result := Icon + '<a href="' + Link + '">' + Text + '</a>';
    105105end;
    … …  
    110110end;
    111111
    112 function NavigationMakeLink(Module, Page: string): string;
     112function NavigationLink(URL: string): string;
    113113begin
    114   Result := '?m=' + Module + '&amp;p=' + Page;
     114  if (Length(URL) > 0) and (URL[1] = '/') then
     115    Result := ConfigBaseURL + URL
     116    else Result := URL;
    115117end;
    116118

  • branches/lazarus/index.lpi

    r25 r27  
    4040        <WindowIndex Value="0"/>
    4141        <TopLine Value="1"/>
    42         <CursorPos X="26" Y="16"/>
    43         <UsageCount Value="163"/>
     42        <CursorPos X="1" Y="12"/>
     43        <UsageCount Value="183"/>
    4444        <Loaded Value="True"/>
    4545        <LoadedDesigner Value="True"/>
    … …  
    5252        <EditorIndex Value="11"/>
    5353        <WindowIndex Value="0"/>
    54         <TopLine Value="25"/>
    55         <CursorPos X="73" Y="55"/>
    56         <UsageCount Value="159"/>
     54        <TopLine Value="179"/>
     55        <CursorPos X="29" Y="252"/>
     56        <UsageCount Value="179"/>
    5757        <Loaded Value="True"/>
    5858        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    6464        <TopLine Value="291"/>
    6565        <CursorPos X="1" Y="311"/>
    66         <UsageCount Value="144"/>
     66        <UsageCount Value="142"/>
    6767        <DefaultSyntaxHighlighter Value="Delphi"/>
    6868      </Unit2>
    6969      <Unit3>
    7070        <Filename Value="UXmlClasses.pas"/>
    71         <UsageCount Value="144"/>
     71        <UsageCount Value="142"/>
    7272        <DefaultSyntaxHighlighter Value="Delphi"/>
    7373      </Unit3>
    … …  
    7878        <EditorIndex Value="20"/>
    7979        <WindowIndex Value="0"/>
    80         <TopLine Value="79"/>
    81         <CursorPos X="37" Y="81"/>
    82         <UsageCount Value="163"/>
     80        <TopLine Value="87"/>
     81        <CursorPos X="44" Y="102"/>
     82        <UsageCount Value="183"/>
    8383        <Loaded Value="True"/>
    8484        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    9090        <TopLine Value="217"/>
    9191        <CursorPos X="5" Y="236"/>
    92         <UsageCount Value="144"/>
     92        <UsageCount Value="142"/>
    9393        <DefaultSyntaxHighlighter Value="Delphi"/>
    9494      </Unit5>
    … …  
    9999        <TopLine Value="10"/>
    100100        <CursorPos X="27" Y="19"/>
    101         <UsageCount Value="144"/>
     101        <UsageCount Value="142"/>
    102102        <DefaultSyntaxHighlighter Value="Delphi"/>
    103103      </Unit6>
    … …  
    107107        <TopLine Value="17"/>
    108108        <CursorPos X="34" Y="30"/>
    109         <UsageCount Value="144"/>
     109        <UsageCount Value="142"/>
    110110        <DefaultSyntaxHighlighter Value="Delphi"/>
    111111      </Unit7>
    … …  
    116116        <TopLine Value="204"/>
    117117        <CursorPos X="25" Y="226"/>
    118         <UsageCount Value="144"/>
     118        <UsageCount Value="142"/>
    119119        <DefaultSyntaxHighlighter Value="Delphi"/>
    120120      </Unit8>
    … …  
    125125        <TopLine Value="102"/>
    126126        <CursorPos X="25" Y="107"/>
    127         <UsageCount Value="144"/>
     127        <UsageCount Value="142"/>
    128128        <DefaultSyntaxHighlighter Value="Delphi"/>
    129129      </Unit9>
    … …  
    133133        <TopLine Value="2320"/>
    134134        <CursorPos X="30" Y="2342"/>
    135         <UsageCount Value="13"/>
     135        <UsageCount Value="11"/>
    136136        <DefaultSyntaxHighlighter Value="Delphi"/>
    137137      </Unit10>
    … …  
    142142        <TopLine Value="40"/>
    143143        <CursorPos X="9" Y="59"/>
    144         <UsageCount Value="132"/>
     144        <UsageCount Value="130"/>
    145145        <DefaultSyntaxHighlighter Value="Delphi"/>
    146146      </Unit11>
    … …  
    151151        <TopLine Value="91"/>
    152152        <CursorPos X="10" Y="110"/>
    153         <UsageCount Value="18"/>
     153        <UsageCount Value="28"/>
    154154        <Loaded Value="True"/>
    155155        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    161161        <TopLine Value="283"/>
    162162        <CursorPos X="10" Y="302"/>
    163         <UsageCount Value="11"/>
     163        <UsageCount Value="21"/>
    164164        <Loaded Value="True"/>
    165165        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    172172        <WindowIndex Value="0"/>
    173173        <TopLine Value="1"/>
    174         <CursorPos X="41" Y="13"/>
    175         <UsageCount Value="138"/>
     174        <CursorPos X="92" Y="11"/>
     175        <UsageCount Value="158"/>
    176176        <Loaded Value="True"/>
    177177        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    182182        <TopLine Value="108"/>
    183183        <CursorPos X="1" Y="134"/>
    184         <UsageCount Value="138"/>
     184        <UsageCount Value="158"/>
    185185        <DefaultSyntaxHighlighter Value="None"/>
    186186      </Unit15>
    … …  
    190190        <TopLine Value="1"/>
    191191        <CursorPos X="1" Y="1"/>
    192         <UsageCount Value="138"/>
     192        <UsageCount Value="158"/>
    193193        <DefaultSyntaxHighlighter Value="JScript"/>
    194194      </Unit16>
    … …  
    199199        <TopLine Value="608"/>
    200200        <CursorPos X="44" Y="627"/>
    201         <UsageCount Value="113"/>
     201        <UsageCount Value="111"/>
    202202        <DefaultSyntaxHighlighter Value="Delphi"/>
    203203      </Unit17>
    … …  
    208208        <TopLine Value="39"/>
    209209        <CursorPos X="25" Y="58"/>
    210         <UsageCount Value="113"/>
     210        <UsageCount Value="111"/>
    211211        <DefaultSyntaxHighlighter Value="Delphi"/>
    212212      </Unit18>
    … …  
    217217        <TopLine Value="1"/>
    218218        <CursorPos X="69" Y="19"/>
    219         <UsageCount Value="109"/>
     219        <UsageCount Value="107"/>
    220220        <DefaultSyntaxHighlighter Value="Delphi"/>
    221221      </Unit19>
    … …  
    226226        <TopLine Value="1"/>
    227227        <CursorPos X="52" Y="124"/>
    228         <UsageCount Value="106"/>
     228        <UsageCount Value="104"/>
    229229        <DefaultSyntaxHighlighter Value="Delphi"/>
    230230      </Unit20>
    … …  
    234234        <TopLine Value="1"/>
    235235        <CursorPos X="19" Y="4"/>
    236         <UsageCount Value="4"/>
     236        <UsageCount Value="2"/>
    237237        <DefaultSyntaxHighlighter Value="Delphi"/>
    238238      </Unit21>
    … …  
    243243        <TopLine Value="29"/>
    244244        <CursorPos X="2" Y="38"/>
    245         <UsageCount Value="34"/>
     245        <UsageCount Value="32"/>
    246246        <DefaultSyntaxHighlighter Value="Delphi"/>
    247247      </Unit22>
    … …  
    252252        <TopLine Value="62"/>
    253253        <CursorPos X="6" Y="62"/>
    254         <UsageCount Value="11"/>
     254        <UsageCount Value="9"/>
    255255        <DefaultSyntaxHighlighter Value="Delphi"/>
    256256      </Unit23>
    … …  
    261261        <TopLine Value="125"/>
    262262        <CursorPos X="9" Y="141"/>
    263         <UsageCount Value="11"/>
     263        <UsageCount Value="9"/>
    264264        <DefaultSyntaxHighlighter Value="Delphi"/>
    265265      </Unit24>
    … …  
    270270        <TopLine Value="1"/>
    271271        <CursorPos X="1" Y="1"/>
    272         <UsageCount Value="11"/>
     272        <UsageCount Value="9"/>
    273273        <DefaultSyntaxHighlighter Value="Delphi"/>
    274274      </Unit25>
    … …  
    279279        <TopLine Value="103"/>
    280280        <CursorPos X="29" Y="112"/>
    281         <UsageCount Value="11"/>
     281        <UsageCount Value="9"/>
    282282        <DefaultSyntaxHighlighter Value="Delphi"/>
    283283      </Unit26>
    … …  
    288288        <TopLine Value="1"/>
    289289        <CursorPos X="12" Y="10"/>
    290         <UsageCount Value="11"/>
     290        <UsageCount Value="9"/>
    291291        <DefaultSyntaxHighlighter Value="Delphi"/>
    292292      </Unit27>
    … …  
    297297        <TopLine Value="1"/>
    298298        <CursorPos X="8" Y="1"/>
    299         <UsageCount Value="9"/>
     299        <UsageCount Value="7"/>
    300300        <DefaultSyntaxHighlighter Value="Delphi"/>
    301301      </Unit28>
    … …  
    306306        <TopLine Value="1803"/>
    307307        <CursorPos X="39" Y="1806"/>
    308         <UsageCount Value="11"/>
     308        <UsageCount Value="9"/>
    309309        <DefaultSyntaxHighlighter Value="Delphi"/>
    310310      </Unit29>
    … …  
    315315        <TopLine Value="173"/>
    316316        <CursorPos X="10" Y="192"/>
    317         <UsageCount Value="9"/>
     317        <UsageCount Value="7"/>
    318318        <DefaultSyntaxHighlighter Value="Delphi"/>
    319319      </Unit30>
    … …  
    324324        <TopLine Value="31"/>
    325325        <CursorPos X="3" Y="49"/>
    326         <UsageCount Value="11"/>
     326        <UsageCount Value="9"/>
    327327        <DefaultSyntaxHighlighter Value="Delphi"/>
    328328      </Unit31>
    … …  
    333333        <TopLine Value="2569"/>
    334334        <CursorPos X="27" Y="2594"/>
    335         <UsageCount Value="9"/>
     335        <UsageCount Value="7"/>
    336336        <DefaultSyntaxHighlighter Value="Delphi"/>
    337337      </Unit32>
    … …  
    342342        <TopLine Value="112"/>
    343343        <CursorPos X="23" Y="125"/>
    344         <UsageCount Value="20"/>
     344        <UsageCount Value="18"/>
    345345        <DefaultSyntaxHighlighter Value="Delphi"/>
    346346      </Unit33>
    … …  
    351351        <TopLine Value="1"/>
    352352        <CursorPos X="1" Y="1"/>
    353         <UsageCount Value="20"/>
     353        <UsageCount Value="18"/>
    354354        <DefaultSyntaxHighlighter Value="Delphi"/>
    355355      </Unit34>
    … …  
    360360        <TopLine Value="254"/>
    361361        <CursorPos X="15" Y="268"/>
    362         <UsageCount Value="19"/>
     362        <UsageCount Value="29"/>
    363363        <Loaded Value="True"/>
    364364        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    370370        <TopLine Value="10"/>
    371371        <CursorPos X="22" Y="23"/>
    372         <UsageCount Value="19"/>
     372        <UsageCount Value="29"/>
    373373        <Loaded Value="True"/>
    374374        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    381381        <TopLine Value="1140"/>
    382382        <CursorPos X="26" Y="1143"/>
    383         <UsageCount Value="19"/>
     383        <UsageCount Value="29"/>
    384384        <Loaded Value="True"/>
    385385        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    391391        <TopLine Value="43"/>
    392392        <CursorPos X="5" Y="61"/>
    393         <UsageCount Value="19"/>
     393        <UsageCount Value="29"/>
    394394        <Loaded Value="True"/>
    395395        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    401401        <TopLine Value="50"/>
    402402        <CursorPos X="10" Y="63"/>
    403         <UsageCount Value="19"/>
     403        <UsageCount Value="29"/>
    404404        <Loaded Value="True"/>
    405405        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    411411        <EditorIndex Value="1"/>
    412412        <WindowIndex Value="0"/>
    413         <TopLine Value="22"/>
    414         <CursorPos X="58" Y="29"/>
    415         <UsageCount Value="38"/>
     413        <TopLine Value="18"/>
     414        <CursorPos X="1" Y="32"/>
     415        <UsageCount Value="58"/>
    416416        <Loaded Value="True"/>
    417417        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    423423        <EditorIndex Value="10"/>
    424424        <WindowIndex Value="0"/>
    425         <TopLine Value="80"/>
    426         <CursorPos X="5" Y="99"/>
    427         <UsageCount Value="38"/>
     425        <TopLine Value="75"/>
     426        <CursorPos X="44" Y="89"/>
     427        <UsageCount Value="58"/>
    428428        <Loaded Value="True"/>
    429429        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    432432        <Filename Value="Common/UDatabase.pas"/>
    433433        <IsPartOfProject Value="True"/>
    434         <UsageCount Value="38"/>
     434        <UsageCount Value="58"/>
    435435        <DefaultSyntaxHighlighter Value="Delphi"/>
    436436      </Unit42>
    … …  
    443443        <TopLine Value="218"/>
    444444        <CursorPos X="1" Y="231"/>
    445         <UsageCount Value="38"/>
     445        <UsageCount Value="58"/>
    446446        <Loaded Value="True"/>
    447447        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    454454        <WindowIndex Value="0"/>
    455455        <TopLine Value="1"/>
    456         <CursorPos X="1" Y="131"/>
    457         <UsageCount Value="38"/>
     456        <CursorPos X="74" Y="179"/>
     457        <UsageCount Value="58"/>
    458458        <Loaded Value="True"/>
    459459        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    467467        <TopLine Value="13"/>
    468468        <CursorPos X="5" Y="32"/>
    469         <UsageCount Value="38"/>
     469        <UsageCount Value="58"/>
    470470        <Loaded Value="True"/>
    471471        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    478478        <EditorIndex Value="15"/>
    479479        <WindowIndex Value="0"/>
    480         <TopLine Value="27"/>
    481         <CursorPos X="47" Y="52"/>
    482         <UsageCount Value="38"/>
     480        <TopLine Value="92"/>
     481        <CursorPos X="1" Y="102"/>
     482        <UsageCount Value="58"/>
    483483        <Loaded Value="True"/>
    484484        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    489489        <TopLine Value="501"/>
    490490        <CursorPos X="10" Y="503"/>
    491         <UsageCount Value="9"/>
     491        <UsageCount Value="7"/>
    492492        <DefaultSyntaxHighlighter Value="Delphi"/>
    493493      </Unit47>
    … …  
    498498        <TopLine Value="64"/>
    499499        <CursorPos X="14" Y="78"/>
    500         <UsageCount Value="18"/>
     500        <UsageCount Value="28"/>
    501501        <Loaded Value="True"/>
    502502        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    508508        <TopLine Value="377"/>
    509509        <CursorPos X="3" Y="300"/>
    510         <UsageCount Value="14"/>
     510        <UsageCount Value="24"/>
    511511        <Loaded Value="True"/>
    512512        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    518518        <TopLine Value="519"/>
    519519        <CursorPos X="23" Y="526"/>
    520         <UsageCount Value="14"/>
     520        <UsageCount Value="24"/>
    521521        <Loaded Value="True"/>
    522522        <DefaultSyntaxHighlighter Value="Delphi"/>
    … …  
    529529        <WindowIndex Value="0"/>
    530530        <TopLine Value="1"/>
    531         <CursorPos X="3" Y="16"/>
    532         <UsageCount Value="21"/>
     531        <CursorPos X="53" Y="18"/>
     532        <UsageCount Value="41"/>
    533533        <Loaded Value="True"/>
    534534        <DefaultSyntaxHighlighter Value="Delphi"/>
    535535      </Unit51>
    536536    </Units>
    537     <JumpHistory Count="29" HistoryIndex="28">
     537    <JumpHistory Count="30" HistoryIndex="28">
    538538      <Position1>
    539         <Filename Value="Pages/UMainPage.pas"/>
    540         <Caret Line="157" Column="26" TopLine="132"/>
     539        <Filename Value="Common/UStringListEx.pas"/>
     540        <Caret Line="32" Column="1" TopLine="18"/>
    541541      </Position1>
    542542      <Position2>
    543         <Filename Value="Pages/UMainPage.pas"/>
    544         <Caret Line="153" Column="145" TopLine="134"/>
     543        <Filename Value="Common/UCGIApplication.pas"/>
     544        <Caret Line="86" Column="1" TopLine="74"/>
    545545      </Position2>
    546546      <Position3>
    547         <Filename Value="Common/USqlDatabase.pas"/>
    548         <Caret Line="41" Column="16" TopLine="23"/>
     547        <Filename Value="Common/UCGIApplication.pas"/>
     548        <Caret Line="91" Column="1" TopLine="74"/>
    549549      </Position3>
    550550      <Position4>
    551         <Filename Value="Common/USqlDatabase.pas"/>
    552         <Caret Line="10" Column="55" TopLine="1"/>
     551        <Filename Value="Application/UCustomCGIApplication.pas"/>
     552        <Caret Line="91" Column="1" TopLine="76"/>
    553553      </Position4>
    554554      <Position5>
    555         <Filename Value="Pages/UMainPage.pas"/>
    556         <Caret Line="72" Column="30" TopLine="35"/>
     555        <Filename Value="Common/UCGIApplication.pas"/>
     556        <Caret Line="86" Column="45" TopLine="71"/>
    557557      </Position5>
    558558      <Position6>
    559         <Filename Value="Common/USqlDatabase.pas"/>
    560         <Caret Line="88" Column="33" TopLine="53"/>
     559        <Filename Value="Common/UCGIApplication.pas"/>
     560        <Caret Line="231" Column="1" TopLine="201"/>
    561561      </Position6>
    562562      <Position7>
    563         <Filename Value="Common/USqlDatabase.pas"/>
    564         <Caret Line="130" Column="42" TopLine="101"/>
     563        <Filename Value="Pages/UMainPage.pas"/>
     564        <Caret Line="266" Column="1" TopLine="237"/>
    565565      </Position7>
    566566      <Position8>
    567         <Filename Value="Common/USqlDatabase.pas"/>
    568         <Caret Line="132" Column="20" TopLine="101"/>
     567        <Filename Value="UCore.pas"/>
     568        <Caret Line="112" Column="1" TopLine="89"/>
    569569      </Position8>
    570570      <Position9>
    571         <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/dati.inc"/>
    572         <Caret Line="322" Column="24" TopLine="320"/>
     571        <Filename Value="Application/UCustomCGIApplication.pas"/>
     572        <Caret Line="100" Column="23" TopLine="86"/>
    573573      </Position9>
    574574      <Position10>
    575         <Filename Value="Common/USqlDatabase.pas"/>
    576         <Caret Line="127" Column="25" TopLine="101"/>
     575        <Filename Value="Application/UCustomCGIApplication.pas"/>
     576        <Caret Line="218" Column="45" TopLine="195"/>
    577577      </Position10>
    578578      <Position11>
    579         <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/dati.inc"/>
    580         <Caret Line="881" Column="22" TopLine="860"/>
     579        <Filename Value="Application/UCustomCGIApplication.pas"/>
     580        <Caret Line="216" Column="21" TopLine="202"/>
    581581      </Position11>
    582582      <Position12>
    583         <Filename Value="/usr/share/fpcsrc/rtl/objpas/sysutils/dati.inc"/>
    584         <Caret Line="856" Column="20" TopLine="833"/>
     583        <Filename Value="Common/UCGIApplication.pas"/>
     584        <Caret Line="128" Column="1" TopLine="49"/>
    585585      </Position12>
    586586      <Position13>
    587         <Filename Value="Common/USqlDatabase.pas"/>
    588         <Caret Line="131" Column="1" TopLine="101"/>
     587        <Filename Value="Application/UCustomCGIApplication.pas"/>
     588        <Caret Line="219" Column="64" TopLine="201"/>
    589589      </Position13>
    590590      <Position14>
    591591        <Filename Value="Pages/UMainPage.pas"/>
    592         <Caret Line="72" Column="22" TopLine="53"/>
     592        <Caret Line="217" Column="1" TopLine="233"/>
    593593      </Position14>
    594594      <Position15>
    595         <Filename Value="UCore.pas"/>
    596         <Caret Line="21" Column="26" TopLine="2"/>
     595        <Filename Value="Pages/UMainPage.pas"/>
     596        <Caret Line="192" Column="27" TopLine="177"/>
    597597      </Position15>
    598598      <Position16>
    599599        <Filename Value="Pages/UMainPage.pas"/>
    600         <Caret Line="72" Column="17" TopLine="53"/>
     600        <Caret Line="193" Column="8" TopLine="177"/>
    601601      </Position16>
    602602      <Position17>
    603         <Filename Value="UCore.pas"/>
    604         <Caret Line="81" Column="34" TopLine="79"/>
     603        <Filename Value="Application/UCustomCGIApplication.pas"/>
     604        <Caret Line="211" Column="22" TopLine="201"/>
    605605      </Position17>
    606606      <Position18>
    607         <Filename Value="Common/USqlDatabase.pas"/>
    608         <Caret Line="10" Column="59" TopLine="1"/>
     607        <Filename Value="Pages/UMainPage.pas"/>
     608        <Caret Line="243" Column="14" TopLine="225"/>
    609609      </Position18>
    610610      <Position19>
    611         <Filename Value="Common/USqlDatabase.pas"/>
    612         <Caret Line="142" Column="19" TopLine="110"/>
     611        <Filename Value="Pages/UMainPage.pas"/>
     612        <Caret Line="251" Column="13" TopLine="225"/>
    613613      </Position19>
    614614      <Position20>
    615         <Filename Value="Common/USqlDatabase.pas"/>
    616         <Caret Line="139" Column="112" TopLine="120"/>
     615        <Filename Value="UCore.pas"/>
     616        <Caret Line="102" Column="32" TopLine="97"/>
    617617      </Position20>
    618618      <Position21>
    619         <Filename Value="Common/USqlDatabase.pas"/>
    620         <Caret Line="143" Column="30" TopLine="120"/>
     619        <Filename Value="Pages/UMainPage.pas"/>
     620        <Caret Line="243" Column="16" TopLine="225"/>
    621621      </Position21>
    622622      <Position22>
    623         <Filename Value="Pages/UMainPage.pas"/>
    624         <Caret Line="72" Column="21" TopLine="53"/>
     623        <Filename Value="Application/UCustomCGIApplication.pas"/>
     624        <Caret Line="107" Column="22" TopLine="92"/>
    625625      </Position22>
    626626      <Position23>
    627627        <Filename Value="Application/UCustomCGIApplication.pas"/>
    628         <Caret Line="97" Column="30" TopLine="93"/>
     628        <Caret Line="100" Column="1" TopLine="92"/>
    629629      </Position23>
    630630      <Position24>
    631         <Filename Value="Application/UCustomCGIApplication.pas"/>
    632         <Caret Line="46" Column="1" TopLine="27"/>
     631        <Filename Value="Common/UCGIApplication.pas"/>
     632        <Caret Line="29" Column="27" TopLine="75"/>
    633633      </Position24>
    634634      <Position25>
    635         <Filename Value="Application/UCustomCGIApplication.pas"/>
    636         <Caret Line="222" Column="23" TopLine="204"/>
     635        <Filename Value="Common/UCGIApplication.pas"/>
     636        <Caret Line="85" Column="1" TopLine="75"/>
    637637      </Position25>
    638638      <Position26>
    639639        <Filename Value="Application/UCustomCGIApplication.pas"/>
    640         <Caret Line="95" Column="33" TopLine="73"/>
     640        <Caret Line="101" Column="25" TopLine="92"/>
    641641      </Position26>
    642642      <Position27>
    643         <Filename Value="Application/UCustomCGIApplication.pas"/>
    644         <Caret Line="80" Column="30" TopLine="76"/>
     643        <Filename Value="index.pas"/>
     644        <Caret Line="12" Column="1" TopLine="1"/>
    645645      </Position27>
    646646      <Position28>
    647         <Filename Value="Common/UCGIApplication.pas"/>
    648         <Caret Line="1" Column="38" TopLine="1"/>
     647        <Filename Value="UCore.pas"/>
     648        <Caret Line="101" Column="1" TopLine="87"/>
    649649      </Position28>
    650650      <Position29>
    651         <Filename Value="Common/UCGIApplication.pas"/>
    652         <Caret Line="30" Column="26" TopLine="1"/>
     651        <Filename Value="UCore.pas"/>
     652        <Caret Line="102" Column="1" TopLine="87"/>
    653653      </Position29>
     654      <Position30>
     655        <Filename Value="UCore.pas"/>
     656        <Caret Line="90" Column="1" TopLine="84"/>
     657      </Position30>
    654658    </JumpHistory>
    655659  </ProjectOptions>

  • branches/lazarus/index.pas

    r25 r27  
    1414  with Application do
    1515  try
    16     RegisterPage('Main', MainPage);
     16    RegisterPage('internet', Internet);
     17    RegisterPage('hosting', Hosting);
     18    RegisterPage('historie', History);
     19    RegisterPage('dokumenty', Documents);
     20    RegisterPage('voip', VoIP);
     21    RegisterPage('odkazy', Links);
     22    RegisterPage('kontakt', Contact);
     23    RegisterPage('', About);
    1724    Run;
    1825  finally
Note: See TracChangeset for help on using the changeset viewer.