Changeset 67


Ignore:
Timestamp:
Dec 25, 2011, 9:40:28 PM (12 years ago)
Author:
chronos
Message:
  • Upraveno: Přidáno analyzování HTTP POST informací.
  • Upraveno: Příprava pro zpracování hodnot z objektů HTML formulářů.
Location:
trunk
Files:
12 edited

Legend:

Unmodified
Added
Removed
  • trunk/.htaccess

    r66 r67  
    1212RewriteCond  %{REQUEST_FILENAME}  !-f
    1313RewriteCond  %{REQUEST_FILENAME}  !-d
    14 RewriteRule   ^(.*)$ /zdechovnet/index.cgi?$1
     14RewriteRule   ^(.*)$ index.cgi?$1
  • trunk/Application/UApplicationInfo.pas

    r66 r67  
    5353  Name := 'ZděchovNET';
    5454  Identification := 1;
    55   ReleaseDate := EncodeDate(2011, 12, 20);
     55  ReleaseDate := EncodeDate(2011, 12, 25);
    5656  MajorVersion := 1;
    5757  MinorVersion := 0;
  • trunk/Application/UWebObjects.pas

    r66 r67  
    2222    FInputType: TQueryFormItemType;
    2323    FItemType: TQueryFormItemType;
     24    function GetName: string;
    2425    procedure SetItemType(const AValue: TQueryFormItemType);
     26    procedure SetName(AValue: string);
    2527  public
    2628    Caption: string;
     
    2830    Hint: string;
    2931    Value: THTMLInput;
     32    property Name: string read GetName write SetName;
    3033    property ItemType: TQueryFormItemType read FItemType write SetItemType;
    3134    constructor Create;
     
    3841    Title: string;
    3942    Rows: TListObject; // TListObject<TQueryFormItem>
     43    procedure Load(Items: TStringList);
    4044    function AddNewItem: TQueryFormItem;
    4145    constructor Create;
     
    4448
    4549  TQueryAction = class
    46     Name: string;
     50    Caption: string;
     51    Action: string;
    4752  end;
    4853
     
    5762    function AddNewGroup: TQueryFormGroup;
    5863    function AddNewAction: TQueryAction;
     64    procedure Load(Items: TStringList);
    5965    constructor Create;
    6066    destructor Destroy; override;
     
    7985    fitFileSelect: Value.InputType := itFileSelect;
    8086  end;
     87end;
     88
     89function TQueryFormItem.GetName: string;
     90begin
     91  Result := Value.ItemName;
     92end;
     93
     94procedure TQueryFormItem.SetName(AValue: string);
     95begin
     96  Value.ItemName := AValue;
    8197end;
    8298
     
    131147        with THtmlCell(Row.Cells.AddNew(THtmlCell.Create)) do begin
    132148          Value := THtmlInput.Create;
    133           Value.Assign(TQueryFormItem(Rows[I]).Value);
     149          THtmlInput(Value).Assign(TQueryFormItem(Rows[I]).Value);
    134150        end;
    135151      end;
     
    141157      Value := THtmlBlock.Create;
    142158      with THtmlInput(THtmlBlock(Value).SubItems.AddNew(THtmlInput.Create)) do begin
    143         Value := TQueryAction(Actions[I]).Name;
     159        Value := TQueryAction(Actions[I]).Caption;
    144160        InputType := itSubmit;
     161        ItemName := TQueryAction(Actions[I]).Action;
    145162      end;
    146163    end;
     
    160177end;
    161178
     179procedure TQueryForm.Load(Items: TStringList);
     180var
     181  I: Integer;
     182begin
     183  for I := 0 to Groups.Count - 1 do
     184    TQueryFormGroup(Groups[I]).Load(Items);
     185end;
     186
    162187constructor TQueryForm.Create;
    163188begin
     
    166191  Groups := TListObject.Create;
    167192  Method := 'post';
     193  Action.AsString := '';
    168194end;
    169195
     
    177203{ TQueryFormGroup }
    178204
     205procedure TQueryFormGroup.Load(Items: TStringList);
     206var
     207  I: Integer;
     208begin
     209  for I := 0 to Rows.Count - 1 do
     210  with TQueryFormItem(Rows[I]) do begin
     211    if Items.IndexOfName(Value.ItemName) <> -1 then
     212      Value.Value := Items.Values[Value.ItemName];
     213  end;
     214end;
     215
    179216function TQueryFormGroup.AddNewItem: TQueryFormItem;
    180217begin
  • trunk/Components/CoolWeb/Common/UHtmlClasses.pas

    r66 r67  
    155155    InputType: THtmlInputType;
    156156    Value: Variant;
     157    ItemName: string;
    157158    procedure Assign(Source: THtmlElement); override;
    158159    constructor Create;
     
    397398    Attributes.Add('type', InputTypeString);
    398399    Attributes.Add('value', Value);
    399     if Self.Name <> '' then
    400       Attributes.Add('name', Self.Name);
     400    if Self.ItemName <> '' then
     401      Attributes.Add('name', Self.ItemName);
    401402  end;
    402403end;
     
    407408  InputType := THtmlInput(Source).InputType;
    408409  Value := THtmlInput(Source).Value;
     410  ItemName := THtmlInput(Source).ItemName;
    409411end;
    410412
  • trunk/Components/CoolWeb/WebServer/UHTTPServer.pas

    r61 r67  
    2828
    2929  THTTPRequest = class
     30    ContentType: string;
     31    Content: TMemoryStreamEx;
    3032    Query: TQueryParameterList;
    3133    QueryParts: TListString;
     
    3436    Headers: TStringList;
    3537    Cookies: TCookieList;
     38    Post: TQueryParameterList;
    3639    constructor Create;
    3740    destructor Destroy; override;
     
    4245  THTTPResponse = class
    4346    ContentType: string;
    44     Stream: TMemoryStreamEx;
     47    Content: TMemoryStreamEx;
    4548    Headers: TStringList;
    4649    Cookies: TCookieList;
     
    126129  I: Integer;
    127130begin
    128   with HandlerData, Response.Stream do begin
     131  with HandlerData, Response.Content do begin
    129132    //Response.Cookies.Values['Test'] := 'Halo';
    130133    //Response.Cookies.Values['Test2'] := 'Halo2';
     
    134137
    135138    WriteString('<a href="?ServerInfo">Refresh</a>');
     139
     140    WriteString('<h5>Request HTTP content:</h5>');
     141    WriteStream(Request.Content, Request.Content.Size);
    136142
    137143    WriteString('<h5>Request HTTP headers</h5>');
     
    151157    end;
    152158
     159    WriteString('<h5>Request HTTP POST</h5>');
     160    for I := 0 to Request.Post.Count - 1 do begin;
     161      WriteString(Request.Post.Strings[I] + '<br/>');
     162    end;
     163
     164
     165    WriteString('<h5>Response HTTP content:</h5>');
     166    WriteStream(Response.Content, Response.Content.Size);
     167
    153168    WriteString('<h5>Response HTTP headers</h5>');
    154     with Response.Stream do
     169    with Response.Content do
    155170    for I := 0 to Response.Headers.Count - 1 do begin;
    156171      WriteString(Response.Headers.Strings[I] + '<br/>');
     
    166181procedure THTTPServer.ErrorResponse(HandlerData: THTTPHandlerData);
    167182begin
    168   with HandlerData, Response.Stream do begin
     183  with HandlerData, Response.Content do begin
    169184    WriteString('<html><body>' + Format(SPageNotFound, [Request.Path]) + '</body></html>');
    170185  end;
     
    193208      Response.Headers.Values['Content-Type'] := GetMIMEType(Copy(ExtractFileExt(FileName), 2, 255));
    194209      BinaryFile := TFileStream.Create(FileName, fmOpenRead);
    195       Response.Stream.WriteStream(BinaryFile, BinaryFile.Size);
     210      Response.Content.WriteStream(BinaryFile, BinaryFile.Size);
    196211      BinaryFile.Destroy;
    197212    end else
    198     with Response.Stream do begin
     213    with Response.Content do begin
    199214      WriteLn(Format(SFileNotFound, [Request.Path]));
    200215      WriteString('<html><body>' + Format(SFileNotFound, [Request.Path]) + '</body></html>');
     
    219234constructor THTTPResponse.Create;
    220235begin
    221   Stream := TMemoryStreamEx.Create;
     236  Content := TMemoryStreamEx.Create;
    222237  Cookies := TCookieList.Create;
    223238  Headers := TStringList.Create;
     
    226241destructor THTTPResponse.Destroy;
    227242begin
    228   Stream.Free;
     243  Content.Free;
    229244  Headers.Free;
    230245  Cookies.Free;
     
    255270constructor THTTPRequest.Create;
    256271begin
     272  Post := TQueryParameterList.Create;
    257273  Query := TQueryParameterList.Create;
    258274  QueryParts := TListString.Create;
    259275  Headers := TStringList.Create;
    260276  Cookies := TCookieList.Create;
     277  Content := TMemoryStreamEx.Create;
    261278end;
    262279
    263280destructor THTTPRequest.Destroy;
    264281begin
     282  Content.Free;
     283  Post.Free;
    265284  Query.Free;
    266285  QueryParts.Free;
  • trunk/Components/CoolWeb/WebServer/UHTTPServerCGI.pas

    r61 r67  
    66
    77uses
    8   Classes, SysUtils, UHTTPServer, SpecializedList;
     8  Classes, SysUtils, UHTTPServer, SpecializedList, IOStream;
    99
    1010type
     
    5353  I: Integer;
    5454  HandlerData: THTTPHandlerData;
     55  InputStream: TIOStream;
     56  Line: string;
     57  Buffer: string;
     58  Count: Integer;
    5559begin
    5660  HandlerData := THTTPHandlerData.Create;
    5761  with HandlerData do try
     62    // Load headers
     63    try
     64      InputStream := TIOStream.Create(iosInput);
     65      SetLength(Buffer, 1000);
     66      repeat
     67        Count := InputStream.Read(Buffer[1], Length(Buffer));
     68        Request.Content.Write(Buffer[1], Count);
     69      until Count = 0;
     70    finally
     71      InputStream.Free;
     72    end;
     73
     74    //repeat
     75    //  ReadLn(Line);
     76    //until Line = '';
     77
     78    // Load data
     79    if Request.Headers.IndexOfName('Content-length') <> -1 then
     80    try
     81      InputStream := TIOStream.Create(iosInput);
     82      Request.Content.CopyFrom(InputStream, StrToInt(Request.Headers.Values['Content-length']));
     83    finally
     84      InputStream.Free;
     85    end;
     86
    5887    // Load environment variables
    5988    for I := 0 to GetEnvironmentVariableCount - 1 do begin
     
    80109      SessionStorage.Load(HandlerData);
    81110
    82     Response.Stream.Clear;
     111    // Load post data
     112    if EnvVars.IndexOfName('REQUEST_METHOD') <> -1 then begin
     113      if EnvVars.Values['REQUEST_METHOD'] = 'POST' then begin
     114        Request.Content.Position := 0;
     115        Buffer := Request.Content.ReadString;
     116        Request.Post.Parse(Buffer);
     117      end;
     118    end;
     119
     120    Response.Content.Clear;
    83121    Response.Headers.Values['Content-type'] := 'text/html';
    84122
     
    105143
    106144      // Emit page content
    107       Stream.Position := 0;
    108       WriteLn(Stream.ReadString);
     145      Content.Position := 0;
     146      WriteLn(Content.ReadString);
    109147    end;
    110148  finally
     
    118156begin
    119157  inherited;
    120   with HandlerData, Response.Stream do begin
     158  with HandlerData, Response.Content do begin
    121159    WriteString('<h5>' + SEnvironmentVariables + '</h5>');
    122160    WriteString('<table border="1">');
  • trunk/Components/CoolWeb/WebServer/UHTTPServerTCP.pas

    r61 r67  
    8888      SessionStorage.Load(HandlerData);
    8989
    90     Response.Stream.Clear;
     90    Response.Content.Clear;
    9191    Response.Headers.Values['Content-Type'] := 'text/html';
    9292
     
    100100    with Response do begin
    101101      SendString('HTTP/1.0 200 OK'#13#10);
    102       Headers.Values['Content-Length'] := IntToStr(Stream.Size);
     102      Headers.Values['Content-Length'] := IntToStr(Content.Size);
    103103      Headers.Values['Connection'] := 'close';
    104104      Headers.Values['Date'] := RFC822DateTime(Now);
     
    115115      end;
    116116      SendString(#13#10);
    117       SendBuffer(Stream.Memory, Stream.Size);
     117      SendBuffer(Content.Memory, Content.Size);
    118118      SendString(#13#10);
    119119    end;
  • trunk/Components/CoolWeb/WebServer/UWebApp.pas

    r61 r67  
    131131    if Assigned(Page) then begin
    132132      Page.Page.OnProduce(HandlerData);
    133     end else Response.Stream.WriteString(SPageNotFound);
     133    end else Response.Content.WriteString(SPageNotFound);
    134134  end;
    135135end;
  • trunk/Modules/UMainModule.pas

    r66 r67  
    8686      try
    8787        Formated := FormatHTML;
    88         Response.Stream.WriteString(AsString);
     88        Response.Content.WriteString(AsString);
    8989      finally
    9090        Free;
  • trunk/Pages/UUserControlPage.pas

    r66 r67  
    4848        Title := 'Přihlášení';
    4949        ClassId := 'WideTable';
     50        //Action.AsString := '/dev/zdechovnet/trunk/serverinfoo';
    5051        with AddNewGroup do begin
    5152          Title := '';
    5253          with AddNewItem do begin
    5354            Caption := 'Jméno';
     55            Name := 'Name';
    5456            Hint := 'Zadejte vaše přihlašovací jméno';
    5557            Required := True;
     
    5759          with AddNewItem do begin
    5860            Caption := 'Heslo';
     61            Name := 'Password';
    5962            Hint := 'Zadejte vaše heslo';
    6063            Required := True;
     
    6265          end;
    6366        end;
    64         with AddNewAction do
    65           Name := 'Přihlásit';
     67        with AddNewAction do begin
     68          Caption := 'Přihlásit';
     69          Action := 'Login';
     70        end;
    6671      end;
    6772    end else
     
    7479          with AddNewItem do begin
    7580            Caption := 'Jméno';
     81            Name := 'Name';
    7682            Hint := 'Zadejte vaše přihlašovací jméno';
    7783            Required := True;
     
    7985          with AddNewItem do begin
    8086            Caption := 'Email';
     87            Name := 'Email';
    8188            Hint := 'Zadejte vaši elektronickou poštovní schránku';
    8289            Required := True;
     
    8491          with AddNewItem do begin
    8592            Caption := 'Heslo';
     93            Name := 'Password';
    8694            Hint := 'Zadejte vaše heslo';
    8795            Required := True;
     
    9098          with AddNewItem do begin
    9199            Caption := 'Ověření hesla';
     100            Name := 'PasswordConfirm';
    92101            Hint := 'Zadejte znovu vaše heslo pro ověření';
    93102            Required := True;
     
    95104          end;
    96105        end;
    97         with AddNewAction do
    98           Name := 'Registrovat';
     106        with AddNewAction do begin
     107          Caption := 'Registrovat';
     108          Action := 'Register';
     109        end;
    99110      end;
    100111    end;
  • trunk/Pages/UWebCamPage.pas

    r56 r67  
    5050      //HandlerData.Request.Query.Values['W'] := 'dsd';
    5151      //HandlerData.Request.Query.Values['H'] := 'dsd';
    52       if HandlerData.Request.Query.IndexOfName('Id') = -1 then Id := ''
     52      if HandlerData.Request.Query.IndexOfName('Id') = -1 then Id := '1'
    5353        else Id := IntToStr(StrToInt(HandlerData.Request.Query.Values['Id']));
    5454      if (HandlerData.Request.Query.IndexOfName('W') = -1) or
  • trunk/ZdechovNET.lpi

    r66 r67  
    6060      </Item5>
    6161    </RequiredPackages>
    62     <Units Count="134">
     62    <Units Count="144">
    6363      <Unit0>
    6464        <Filename Value="ZdechovNET.lpr"/>
     
    6767        <EditorIndex Value="0"/>
    6868        <WindowIndex Value="0"/>
    69         <TopLine Value="12"/>
    70         <CursorPos X="1" Y="33"/>
     69        <TopLine Value="3"/>
     70        <CursorPos X="53" Y="10"/>
    7171        <UsageCount Value="203"/>
    7272        <Loaded Value="True"/>
     
    7979        <TopLine Value="1"/>
    8080        <CursorPos X="1" Y="11"/>
    81         <UsageCount Value="190"/>
     81        <UsageCount Value="189"/>
    8282        <DefaultSyntaxHighlighter Value="Delphi"/>
    8383      </Unit1>
     
    8888        <TopLine Value="291"/>
    8989        <CursorPos X="1" Y="311"/>
    90         <UsageCount Value="80"/>
     90        <UsageCount Value="79"/>
    9191        <DefaultSyntaxHighlighter Value="Delphi"/>
    9292      </Unit2>
    9393      <Unit3>
    9494        <Filename Value="UXmlClasses.pas"/>
    95         <UsageCount Value="80"/>
     95        <UsageCount Value="79"/>
    9696        <DefaultSyntaxHighlighter Value="Delphi"/>
    9797      </Unit3>
     
    100100        <IsPartOfProject Value="True"/>
    101101        <UnitName Value="UCore"/>
    102         <EditorIndex Value="4"/>
    103         <WindowIndex Value="0"/>
    104         <TopLine Value="118"/>
    105         <CursorPos X="35" Y="14"/>
     102        <EditorIndex Value="3"/>
     103        <WindowIndex Value="0"/>
     104        <TopLine Value="1"/>
     105        <CursorPos X="68" Y="10"/>
    106106        <UsageCount Value="203"/>
    107107        <Loaded Value="True"/>
     
    114114        <TopLine Value="217"/>
    115115        <CursorPos X="5" Y="236"/>
    116         <UsageCount Value="80"/>
     116        <UsageCount Value="79"/>
    117117        <DefaultSyntaxHighlighter Value="Delphi"/>
    118118      </Unit5>
     
    123123        <TopLine Value="10"/>
    124124        <CursorPos X="27" Y="19"/>
    125         <UsageCount Value="80"/>
     125        <UsageCount Value="79"/>
    126126        <DefaultSyntaxHighlighter Value="Delphi"/>
    127127      </Unit6>
     
    131131        <TopLine Value="17"/>
    132132        <CursorPos X="34" Y="30"/>
    133         <UsageCount Value="80"/>
     133        <UsageCount Value="79"/>
    134134        <DefaultSyntaxHighlighter Value="Delphi"/>
    135135      </Unit7>
     
    140140        <TopLine Value="204"/>
    141141        <CursorPos X="25" Y="226"/>
    142         <UsageCount Value="80"/>
     142        <UsageCount Value="79"/>
    143143        <DefaultSyntaxHighlighter Value="Delphi"/>
    144144      </Unit8>
     
    149149        <TopLine Value="102"/>
    150150        <CursorPos X="25" Y="107"/>
    151         <UsageCount Value="80"/>
     151        <UsageCount Value="79"/>
    152152        <DefaultSyntaxHighlighter Value="Delphi"/>
    153153      </Unit9>
     
    158158        <TopLine Value="40"/>
    159159        <CursorPos X="9" Y="59"/>
    160         <UsageCount Value="68"/>
     160        <UsageCount Value="67"/>
    161161        <DefaultSyntaxHighlighter Value="Delphi"/>
    162162      </Unit10>
     
    166166        <TopLine Value="91"/>
    167167        <CursorPos X="10" Y="110"/>
    168         <UsageCount Value="50"/>
     168        <UsageCount Value="49"/>
    169169        <DefaultSyntaxHighlighter Value="Delphi"/>
    170170      </Unit11>
     
    175175        <TopLine Value="15"/>
    176176        <CursorPos X="38" Y="30"/>
    177         <UsageCount Value="284"/>
     177        <UsageCount Value="283"/>
    178178        <DefaultSyntaxHighlighter Value="Delphi"/>
    179179      </Unit12>
     
    200200        <TopLine Value="608"/>
    201201        <CursorPos X="44" Y="627"/>
    202         <UsageCount Value="49"/>
     202        <UsageCount Value="48"/>
    203203        <DefaultSyntaxHighlighter Value="Delphi"/>
    204204      </Unit15>
     
    209209        <TopLine Value="39"/>
    210210        <CursorPos X="25" Y="58"/>
    211         <UsageCount Value="49"/>
     211        <UsageCount Value="48"/>
    212212        <DefaultSyntaxHighlighter Value="Delphi"/>
    213213      </Unit16>
     
    218218        <TopLine Value="1"/>
    219219        <CursorPos X="69" Y="19"/>
    220         <UsageCount Value="45"/>
     220        <UsageCount Value="44"/>
    221221        <DefaultSyntaxHighlighter Value="Delphi"/>
    222222      </Unit17>
     
    227227        <TopLine Value="1"/>
    228228        <CursorPos X="52" Y="124"/>
    229         <UsageCount Value="42"/>
     229        <UsageCount Value="41"/>
    230230        <DefaultSyntaxHighlighter Value="Delphi"/>
    231231      </Unit18>
     
    235235        <TopLine Value="677"/>
    236236        <CursorPos X="14" Y="691"/>
    237         <UsageCount Value="52"/>
     237        <UsageCount Value="51"/>
    238238        <DefaultSyntaxHighlighter Value="Delphi"/>
    239239      </Unit19>
     
    243243        <TopLine Value="10"/>
    244244        <CursorPos X="22" Y="23"/>
    245         <UsageCount Value="51"/>
     245        <UsageCount Value="50"/>
    246246        <DefaultSyntaxHighlighter Value="Delphi"/>
    247247      </Unit20>
     
    252252        <TopLine Value="1140"/>
    253253        <CursorPos X="26" Y="1143"/>
    254         <UsageCount Value="51"/>
     254        <UsageCount Value="50"/>
    255255        <DefaultSyntaxHighlighter Value="Delphi"/>
    256256      </Unit21>
     
    260260        <TopLine Value="43"/>
    261261        <CursorPos X="5" Y="61"/>
    262         <UsageCount Value="51"/>
     262        <UsageCount Value="50"/>
    263263        <DefaultSyntaxHighlighter Value="Delphi"/>
    264264      </Unit22>
     
    268268        <TopLine Value="50"/>
    269269        <CursorPos X="10" Y="63"/>
    270         <UsageCount Value="51"/>
     270        <UsageCount Value="50"/>
    271271        <DefaultSyntaxHighlighter Value="Delphi"/>
    272272      </Unit23>
     
    277277        <TopLine Value="17"/>
    278278        <CursorPos X="32" Y="36"/>
    279         <UsageCount Value="170"/>
     279        <UsageCount Value="169"/>
    280280        <DefaultSyntaxHighlighter Value="Delphi"/>
    281281      </Unit24>
     
    286286        <TopLine Value="25"/>
    287287        <CursorPos X="86" Y="94"/>
    288         <UsageCount Value="170"/>
     288        <UsageCount Value="169"/>
    289289        <DefaultSyntaxHighlighter Value="Delphi"/>
    290290      </Unit25>
     
    295295        <TopLine Value="549"/>
    296296        <CursorPos X="19" Y="569"/>
    297         <UsageCount Value="171"/>
     297        <UsageCount Value="170"/>
    298298        <DefaultSyntaxHighlighter Value="Delphi"/>
    299299      </Unit26>
     
    304304        <TopLine Value="1"/>
    305305        <CursorPos X="64" Y="14"/>
    306         <UsageCount Value="171"/>
     306        <UsageCount Value="170"/>
    307307        <DefaultSyntaxHighlighter Value="Delphi"/>
    308308      </Unit27>
     
    313313        <TopLine Value="6"/>
    314314        <CursorPos X="5" Y="33"/>
    315         <UsageCount Value="171"/>
     315        <UsageCount Value="170"/>
    316316        <DefaultSyntaxHighlighter Value="Delphi"/>
    317317      </Unit28>
     
    321321        <TopLine Value="61"/>
    322322        <CursorPos X="14" Y="78"/>
    323         <UsageCount Value="50"/>
     323        <UsageCount Value="49"/>
    324324        <DefaultSyntaxHighlighter Value="Delphi"/>
    325325      </Unit29>
     
    329329        <TopLine Value="519"/>
    330330        <CursorPos X="23" Y="526"/>
    331         <UsageCount Value="46"/>
     331        <UsageCount Value="45"/>
    332332        <DefaultSyntaxHighlighter Value="Delphi"/>
    333333      </Unit30>
     
    338338        <TopLine Value="11"/>
    339339        <CursorPos X="51" Y="27"/>
    340         <UsageCount Value="352"/>
     340        <UsageCount Value="351"/>
    341341        <DefaultSyntaxHighlighter Value="Delphi"/>
    342342      </Unit31>
     
    347347        <TopLine Value="1"/>
    348348        <CursorPos X="16" Y="164"/>
    349         <UsageCount Value="312"/>
     349        <UsageCount Value="311"/>
    350350        <DefaultSyntaxHighlighter Value="Delphi"/>
    351351      </Unit32>
     
    356356        <TopLine Value="81"/>
    357357        <CursorPos X="1" Y="96"/>
    358         <UsageCount Value="311"/>
     358        <UsageCount Value="310"/>
    359359        <DefaultSyntaxHighlighter Value="Delphi"/>
    360360      </Unit33>
     
    365365        <TopLine Value="1"/>
    366366        <CursorPos X="18" Y="45"/>
    367         <UsageCount Value="311"/>
     367        <UsageCount Value="310"/>
    368368        <DefaultSyntaxHighlighter Value="Delphi"/>
    369369      </Unit34>
     
    374374        <TopLine Value="142"/>
    375375        <CursorPos X="52" Y="165"/>
    376         <UsageCount Value="311"/>
     376        <UsageCount Value="310"/>
    377377        <DefaultSyntaxHighlighter Value="Delphi"/>
    378378      </Unit35>
     
    383383        <TopLine Value="109"/>
    384384        <CursorPos X="36" Y="96"/>
    385         <UsageCount Value="311"/>
     385        <UsageCount Value="310"/>
    386386        <DefaultSyntaxHighlighter Value="Delphi"/>
    387387      </Unit36>
     
    392392        <TopLine Value="44"/>
    393393        <CursorPos X="27" Y="61"/>
    394         <UsageCount Value="311"/>
     394        <UsageCount Value="310"/>
    395395        <DefaultSyntaxHighlighter Value="Delphi"/>
    396396      </Unit37>
     
    401401        <TopLine Value="1"/>
    402402        <CursorPos X="50" Y="8"/>
    403         <UsageCount Value="311"/>
     403        <UsageCount Value="310"/>
    404404        <DefaultSyntaxHighlighter Value="Delphi"/>
    405405      </Unit38>
     
    410410        <TopLine Value="1"/>
    411411        <CursorPos X="21" Y="1"/>
    412         <UsageCount Value="310"/>
     412        <UsageCount Value="309"/>
    413413        <DefaultSyntaxHighlighter Value="Delphi"/>
    414414      </Unit39>
     
    419419        <TopLine Value="1"/>
    420420        <CursorPos X="53" Y="8"/>
    421         <UsageCount Value="310"/>
     421        <UsageCount Value="309"/>
    422422        <DefaultSyntaxHighlighter Value="Delphi"/>
    423423      </Unit40>
     
    428428        <TopLine Value="1"/>
    429429        <CursorPos X="52" Y="92"/>
    430         <UsageCount Value="310"/>
     430        <UsageCount Value="309"/>
    431431        <DefaultSyntaxHighlighter Value="Delphi"/>
    432432      </Unit41>
     
    437437        <TopLine Value="83"/>
    438438        <CursorPos X="47" Y="106"/>
    439         <UsageCount Value="310"/>
     439        <UsageCount Value="309"/>
    440440        <DefaultSyntaxHighlighter Value="Delphi"/>
    441441      </Unit42>
     
    446446        <TopLine Value="1"/>
    447447        <CursorPos X="3" Y="687"/>
    448         <UsageCount Value="310"/>
     448        <UsageCount Value="309"/>
    449449        <DefaultSyntaxHighlighter Value="Delphi"/>
    450450      </Unit43>
     
    455455        <TopLine Value="383"/>
    456456        <CursorPos X="15" Y="397"/>
    457         <UsageCount Value="31"/>
     457        <UsageCount Value="30"/>
    458458        <DefaultSyntaxHighlighter Value="Delphi"/>
    459459      </Unit44>
     
    464464        <TopLine Value="1"/>
    465465        <CursorPos X="1" Y="15"/>
    466         <UsageCount Value="329"/>
     466        <UsageCount Value="328"/>
    467467        <DefaultSyntaxHighlighter Value="Delphi"/>
    468468      </Unit45>
     
    472472        <TopLine Value="690"/>
    473473        <CursorPos X="3" Y="695"/>
    474         <UsageCount Value="31"/>
     474        <UsageCount Value="30"/>
    475475        <DefaultSyntaxHighlighter Value="Delphi"/>
    476476      </Unit46>
     
    481481        <TopLine Value="1"/>
    482482        <CursorPos X="43" Y="79"/>
    483         <UsageCount Value="307"/>
     483        <UsageCount Value="306"/>
    484484        <DefaultSyntaxHighlighter Value="Delphi"/>
    485485      </Unit47>
     
    489489        <TopLine Value="29"/>
    490490        <CursorPos X="15" Y="46"/>
    491         <UsageCount Value="169"/>
     491        <UsageCount Value="168"/>
    492492        <DefaultSyntaxHighlighter Value="Delphi"/>
    493493      </Unit48>
     
    498498        <TopLine Value="1"/>
    499499        <CursorPos X="26" Y="18"/>
    500         <UsageCount Value="71"/>
     500        <UsageCount Value="70"/>
    501501        <DefaultSyntaxHighlighter Value="Delphi"/>
    502502      </Unit49>
     
    507507        <TopLine Value="1"/>
    508508        <CursorPos X="15" Y="20"/>
    509         <UsageCount Value="84"/>
     509        <UsageCount Value="83"/>
    510510        <DefaultSyntaxHighlighter Value="Delphi"/>
    511511      </Unit50>
     
    516516        <TopLine Value="1"/>
    517517        <CursorPos X="44" Y="17"/>
    518         <UsageCount Value="83"/>
     518        <UsageCount Value="82"/>
    519519        <DefaultSyntaxHighlighter Value="Delphi"/>
    520520      </Unit51>
     
    525525        <TopLine Value="1"/>
    526526        <CursorPos X="48" Y="25"/>
    527         <UsageCount Value="2"/>
     527        <UsageCount Value="1"/>
    528528        <DefaultSyntaxHighlighter Value="Delphi"/>
    529529      </Unit52>
     
    534534        <TopLine Value="1"/>
    535535        <CursorPos X="60" Y="11"/>
    536         <UsageCount Value="1"/>
     536        <UsageCount Value="0"/>
    537537        <DefaultSyntaxHighlighter Value="Delphi"/>
    538538      </Unit53>
     
    543543        <TopLine Value="27"/>
    544544        <CursorPos X="5" Y="44"/>
    545         <UsageCount Value="17"/>
     545        <UsageCount Value="16"/>
    546546        <DefaultSyntaxHighlighter Value="Delphi"/>
    547547      </Unit54>
     
    552552        <TopLine Value="159"/>
    553553        <CursorPos X="14" Y="176"/>
    554         <UsageCount Value="13"/>
     554        <UsageCount Value="12"/>
    555555        <DefaultSyntaxHighlighter Value="Delphi"/>
    556556      </Unit55>
     
    559559        <IsPartOfProject Value="True"/>
    560560        <UnitName Value="UWebObjects"/>
    561         <EditorIndex Value="12"/>
    562         <WindowIndex Value="0"/>
    563         <TopLine Value="90"/>
    564         <CursorPos X="40" Y="111"/>
    565         <UsageCount Value="151"/>
     561        <EditorIndex Value="11"/>
     562        <WindowIndex Value="0"/>
     563        <TopLine Value="180"/>
     564        <CursorPos X="78" Y="201"/>
     565        <UsageCount Value="156"/>
    566566        <Loaded Value="True"/>
    567567        <DefaultSyntaxHighlighter Value="Delphi"/>
     
    573573        <TopLine Value="379"/>
    574574        <CursorPos X="3" Y="423"/>
    575         <UsageCount Value="9"/>
     575        <UsageCount Value="8"/>
    576576        <DefaultSyntaxHighlighter Value="Delphi"/>
    577577      </Unit57>
     
    582582        <TopLine Value="19"/>
    583583        <CursorPos X="50" Y="76"/>
    584         <UsageCount Value="11"/>
     584        <UsageCount Value="10"/>
    585585        <DefaultSyntaxHighlighter Value="Delphi"/>
    586586      </Unit58>
     
    591591        <TopLine Value="54"/>
    592592        <CursorPos X="26" Y="71"/>
    593         <UsageCount Value="4"/>
     593        <UsageCount Value="3"/>
    594594        <DefaultSyntaxHighlighter Value="Delphi"/>
    595595      </Unit59>
     
    599599        <TopLine Value="1"/>
    600600        <CursorPos X="14" Y="3"/>
    601         <UsageCount Value="2"/>
     601        <UsageCount Value="1"/>
    602602        <DefaultSyntaxHighlighter Value="Delphi"/>
    603603      </Unit60>
     
    608608        <TopLine Value="35"/>
    609609        <CursorPos X="24" Y="63"/>
    610         <UsageCount Value="2"/>
     610        <UsageCount Value="1"/>
    611611        <DefaultSyntaxHighlighter Value="Delphi"/>
    612612      </Unit61>
     
    616616        <TopLine Value="61"/>
    617617        <CursorPos X="23" Y="61"/>
    618         <UsageCount Value="9"/>
     618        <UsageCount Value="8"/>
    619619        <DefaultSyntaxHighlighter Value="Delphi"/>
    620620      </Unit62>
     
    625625        <TopLine Value="1531"/>
    626626        <CursorPos X="1" Y="1545"/>
    627         <UsageCount Value="3"/>
     627        <UsageCount Value="2"/>
    628628        <DefaultSyntaxHighlighter Value="Delphi"/>
    629629      </Unit63>
     
    634634        <TopLine Value="1"/>
    635635        <CursorPos X="1" Y="1"/>
    636         <UsageCount Value="1"/>
     636        <UsageCount Value="0"/>
    637637        <DefaultSyntaxHighlighter Value="Delphi"/>
    638638      </Unit64>
     
    643643        <TopLine Value="1"/>
    644644        <CursorPos X="1" Y="1"/>
    645         <UsageCount Value="0"/>
     645        <UsageCount Value="9"/>
    646646        <DefaultSyntaxHighlighter Value="Delphi"/>
    647647      </Unit65>
     
    652652        <TopLine Value="10"/>
    653653        <CursorPos X="54" Y="31"/>
    654         <UsageCount Value="0"/>
     654        <UsageCount Value="9"/>
    655655        <DefaultSyntaxHighlighter Value="Delphi"/>
    656656      </Unit66>
     
    661661        <TopLine Value="1"/>
    662662        <CursorPos X="42" Y="14"/>
    663         <UsageCount Value="2"/>
     663        <UsageCount Value="1"/>
    664664        <DefaultSyntaxHighlighter Value="Delphi"/>
    665665      </Unit67>
     
    670670        <TopLine Value="1"/>
    671671        <CursorPos X="1" Y="1"/>
    672         <UsageCount Value="2"/>
     672        <UsageCount Value="1"/>
    673673        <DefaultSyntaxHighlighter Value="Delphi"/>
    674674      </Unit68>
     
    679679        <ResourceBaseClass Value="DataModule"/>
    680680        <UnitName Value="UMainModule"/>
    681         <EditorIndex Value="2"/>
    682         <WindowIndex Value="0"/>
    683         <TopLine Value="17"/>
    684         <CursorPos X="1" Y="39"/>
    685         <UsageCount Value="133"/>
     681        <EditorIndex Value="1"/>
     682        <WindowIndex Value="0"/>
     683        <TopLine Value="62"/>
     684        <CursorPos X="34" Y="87"/>
     685        <UsageCount Value="138"/>
    686686        <Loaded Value="True"/>
    687687        <DefaultSyntaxHighlighter Value="Delphi"/>
     
    692692        <TopLine Value="291"/>
    693693        <CursorPos X="1" Y="1"/>
    694         <UsageCount Value="0"/>
     694        <UsageCount Value="9"/>
    695695        <DefaultSyntaxHighlighter Value="Delphi"/>
    696696      </Unit70>
     
    701701        <TopLine Value="55"/>
    702702        <CursorPos X="8" Y="80"/>
    703         <UsageCount Value="0"/>
     703        <UsageCount Value="9"/>
    704704        <DefaultSyntaxHighlighter Value="Delphi"/>
    705705      </Unit71>
     
    710710        <TopLine Value="59"/>
    711711        <CursorPos X="10" Y="61"/>
    712         <UsageCount Value="0"/>
     712        <UsageCount Value="9"/>
    713713        <DefaultSyntaxHighlighter Value="Delphi"/>
    714714      </Unit72>
     
    719719        <TopLine Value="10"/>
    720720        <CursorPos X="1" Y="35"/>
    721         <UsageCount Value="1"/>
     721        <UsageCount Value="0"/>
    722722        <DefaultSyntaxHighlighter Value="Delphi"/>
    723723      </Unit73>
     
    728728        <TopLine Value="22"/>
    729729        <CursorPos X="1" Y="43"/>
    730         <UsageCount Value="0"/>
     730        <UsageCount Value="9"/>
    731731        <DefaultSyntaxHighlighter Value="Delphi"/>
    732732      </Unit74>
     
    737737        <TopLine Value="2"/>
    738738        <CursorPos X="14" Y="19"/>
    739         <UsageCount Value="1"/>
     739        <UsageCount Value="0"/>
    740740        <DefaultSyntaxHighlighter Value="Delphi"/>
    741741      </Unit75>
     
    749749        <TopLine Value="1"/>
    750750        <CursorPos X="14" Y="21"/>
    751         <UsageCount Value="6"/>
     751        <UsageCount Value="5"/>
    752752        <DefaultSyntaxHighlighter Value="Delphi"/>
    753753      </Unit76>
     
    758758        <TopLine Value="15"/>
    759759        <CursorPos X="15" Y="70"/>
    760         <UsageCount Value="22"/>
     760        <UsageCount Value="21"/>
    761761        <DefaultSyntaxHighlighter Value="Delphi"/>
    762762      </Unit77>
     
    769769        <TopLine Value="48"/>
    770770        <CursorPos X="13" Y="342"/>
    771         <UsageCount Value="20"/>
     771        <UsageCount Value="19"/>
    772772        <DefaultSyntaxHighlighter Value="Delphi"/>
    773773      </Unit78>
     
    778778        <TopLine Value="33"/>
    779779        <CursorPos X="14" Y="50"/>
    780         <UsageCount Value="3"/>
     780        <UsageCount Value="2"/>
    781781        <DefaultSyntaxHighlighter Value="Delphi"/>
    782782      </Unit79>
     
    787787        <TopLine Value="179"/>
    788788        <CursorPos X="14" Y="199"/>
    789         <UsageCount Value="2"/>
     789        <UsageCount Value="1"/>
    790790        <DefaultSyntaxHighlighter Value="Delphi"/>
    791791      </Unit80>
     
    796796        <TopLine Value="1"/>
    797797        <CursorPos X="79" Y="4"/>
    798         <UsageCount Value="3"/>
     798        <UsageCount Value="2"/>
    799799        <DefaultSyntaxHighlighter Value="Delphi"/>
    800800      </Unit81>
     
    805805        <TopLine Value="184"/>
    806806        <CursorPos X="3" Y="199"/>
    807         <UsageCount Value="3"/>
     807        <UsageCount Value="2"/>
    808808        <DefaultSyntaxHighlighter Value="Delphi"/>
    809809      </Unit82>
     
    814814        <TopLine Value="1289"/>
    815815        <CursorPos X="36" Y="1307"/>
    816         <UsageCount Value="1"/>
     816        <UsageCount Value="0"/>
    817817        <DefaultSyntaxHighlighter Value="Delphi"/>
    818818      </Unit83>
     
    823823        <TopLine Value="34"/>
    824824        <CursorPos X="3" Y="51"/>
    825         <UsageCount Value="0"/>
     825        <UsageCount Value="9"/>
    826826        <DefaultSyntaxHighlighter Value="Delphi"/>
    827827      </Unit84>
     
    832832        <TopLine Value="174"/>
    833833        <CursorPos X="14" Y="191"/>
    834         <UsageCount Value="1"/>
     834        <UsageCount Value="0"/>
    835835        <DefaultSyntaxHighlighter Value="Delphi"/>
    836836      </Unit85>
     
    840840        <TopLine Value="538"/>
    841841        <CursorPos X="24" Y="555"/>
    842         <UsageCount Value="1"/>
     842        <UsageCount Value="0"/>
    843843        <DefaultSyntaxHighlighter Value="Delphi"/>
    844844      </Unit86>
     
    849849        <TopLine Value="137"/>
    850850        <CursorPos X="100" Y="154"/>
    851         <UsageCount Value="16"/>
     851        <UsageCount Value="15"/>
    852852        <DefaultSyntaxHighlighter Value="Delphi"/>
    853853      </Unit87>
     
    858858        <TopLine Value="49"/>
    859859        <CursorPos X="1" Y="53"/>
    860         <UsageCount Value="10"/>
     860        <UsageCount Value="9"/>
    861861        <DefaultSyntaxHighlighter Value="Delphi"/>
    862862      </Unit88>
     
    866866        <TopLine Value="2101"/>
    867867        <CursorPos X="3" Y="2108"/>
    868         <UsageCount Value="1"/>
     868        <UsageCount Value="0"/>
    869869        <DefaultSyntaxHighlighter Value="Delphi"/>
    870870      </Unit89>
     
    874874        <TopLine Value="180"/>
    875875        <CursorPos X="26" Y="197"/>
    876         <UsageCount Value="1"/>
     876        <UsageCount Value="0"/>
    877877        <DefaultSyntaxHighlighter Value="Delphi"/>
    878878      </Unit90>
     
    883883        <TopLine Value="3089"/>
    884884        <CursorPos X="27" Y="3106"/>
    885         <UsageCount Value="2"/>
     885        <UsageCount Value="1"/>
    886886        <DefaultSyntaxHighlighter Value="Delphi"/>
    887887      </Unit91>
     
    895895        <TopLine Value="17"/>
    896896        <CursorPos X="1" Y="47"/>
    897         <UsageCount Value="124"/>
     897        <UsageCount Value="129"/>
    898898        <DefaultSyntaxHighlighter Value="Delphi"/>
    899899      </Unit92>
     
    907907        <TopLine Value="26"/>
    908908        <CursorPos X="84" Y="45"/>
    909         <UsageCount Value="121"/>
     909        <UsageCount Value="126"/>
    910910        <DefaultSyntaxHighlighter Value="Delphi"/>
    911911      </Unit93>
     
    919919        <TopLine Value="66"/>
    920920        <CursorPos X="1" Y="97"/>
    921         <UsageCount Value="121"/>
     921        <UsageCount Value="126"/>
    922922        <DefaultSyntaxHighlighter Value="Delphi"/>
    923923      </Unit94>
     
    931931        <TopLine Value="26"/>
    932932        <CursorPos X="40" Y="44"/>
    933         <UsageCount Value="120"/>
     933        <UsageCount Value="125"/>
    934934        <DefaultSyntaxHighlighter Value="Delphi"/>
    935935      </Unit95>
     
    943943        <TopLine Value="24"/>
    944944        <CursorPos X="1" Y="55"/>
    945         <UsageCount Value="120"/>
     945        <UsageCount Value="125"/>
    946946        <DefaultSyntaxHighlighter Value="Delphi"/>
    947947      </Unit96>
     
    955955        <TopLine Value="24"/>
    956956        <CursorPos X="51" Y="42"/>
    957         <UsageCount Value="120"/>
     957        <UsageCount Value="125"/>
    958958        <DefaultSyntaxHighlighter Value="Delphi"/>
    959959      </Unit97>
     
    967967        <TopLine Value="28"/>
    968968        <CursorPos X="23" Y="40"/>
    969         <UsageCount Value="120"/>
     969        <UsageCount Value="125"/>
    970970        <DefaultSyntaxHighlighter Value="Delphi"/>
    971971      </Unit98>
     
    976976        <ResourceBaseClass Value="DataModule"/>
    977977        <UnitName Value="ULinksPage"/>
    978         <WindowIndex Value="0"/>
    979         <TopLine Value="36"/>
    980         <CursorPos X="1" Y="67"/>
    981         <UsageCount Value="120"/>
     978        <EditorIndex Value="8"/>
     979        <WindowIndex Value="0"/>
     980        <TopLine Value="32"/>
     981        <CursorPos X="38" Y="51"/>
     982        <UsageCount Value="125"/>
     983        <Loaded Value="True"/>
    982984        <DefaultSyntaxHighlighter Value="Delphi"/>
    983985      </Unit99>
     
    991993        <TopLine Value="8"/>
    992994        <CursorPos X="1" Y="39"/>
    993         <UsageCount Value="120"/>
     995        <UsageCount Value="125"/>
    994996        <DefaultSyntaxHighlighter Value="Delphi"/>
    995997      </Unit100>
     
    10031005        <TopLine Value="26"/>
    10041006        <CursorPos X="1" Y="47"/>
    1005         <UsageCount Value="120"/>
     1007        <UsageCount Value="125"/>
    10061008        <DefaultSyntaxHighlighter Value="Delphi"/>
    10071009      </Unit101>
     
    10141016        <EditorIndex Value="9"/>
    10151017        <WindowIndex Value="0"/>
    1016         <TopLine Value="34"/>
    1017         <CursorPos X="26" Y="45"/>
    1018         <UsageCount Value="120"/>
     1018        <TopLine Value="35"/>
     1019        <CursorPos X="11" Y="50"/>
     1020        <UsageCount Value="125"/>
    10191021        <Loaded Value="True"/>
    10201022        <DefaultSyntaxHighlighter Value="Delphi"/>
     
    10291031        <TopLine Value="15"/>
    10301032        <CursorPos X="1" Y="46"/>
    1031         <UsageCount Value="120"/>
     1033        <UsageCount Value="125"/>
    10321034        <DefaultSyntaxHighlighter Value="Delphi"/>
    10331035      </Unit103>
     
    10411043        <TopLine Value="55"/>
    10421044        <CursorPos X="22" Y="60"/>
    1043         <UsageCount Value="120"/>
     1045        <UsageCount Value="125"/>
    10441046        <DefaultSyntaxHighlighter Value="Delphi"/>
    10451047      </Unit104>
     
    10551057          <CursorPos X="50" Y="4"/>
    10561058        </ExtraEditor1>
    1057         <UsageCount Value="0"/>
     1059        <UsageCount Value="9"/>
    10581060        <DefaultSyntaxHighlighter Value="LFM"/>
    10591061      </Unit105>
     
    10641066        <TopLine Value="344"/>
    10651067        <CursorPos X="30" Y="361"/>
    1066         <UsageCount Value="0"/>
     1068        <UsageCount Value="9"/>
    10671069        <DefaultSyntaxHighlighter Value="Delphi"/>
    10681070      </Unit106>
     
    10731075        <TopLine Value="475"/>
    10741076        <CursorPos X="34" Y="492"/>
    1075         <UsageCount Value="0"/>
     1077        <UsageCount Value="9"/>
    10761078        <DefaultSyntaxHighlighter Value="Delphi"/>
    10771079      </Unit107>
     
    10821084        <TopLine Value="23"/>
    10831085        <CursorPos X="37" Y="23"/>
    1084         <UsageCount Value="0"/>
     1086        <UsageCount Value="9"/>
    10851087        <DefaultSyntaxHighlighter Value="Delphi"/>
    10861088      </Unit108>
     
    10911093        <TopLine Value="4"/>
    10921094        <CursorPos X="14" Y="17"/>
    1093         <UsageCount Value="72"/>
     1095        <UsageCount Value="71"/>
    10941096        <DefaultSyntaxHighlighter Value="Delphi"/>
    10951097      </Unit109>
     
    11001102        <TopLine Value="72"/>
    11011103        <CursorPos X="62" Y="94"/>
    1102         <UsageCount Value="4"/>
     1104        <UsageCount Value="3"/>
    11031105        <DefaultSyntaxHighlighter Value="Delphi"/>
    11041106      </Unit110>
     
    11081110        <TopLine Value="35"/>
    11091111        <CursorPos X="22" Y="53"/>
    1110         <UsageCount Value="4"/>
     1112        <UsageCount Value="3"/>
    11111113        <DefaultSyntaxHighlighter Value="Delphi"/>
    11121114      </Unit111>
     
    11171119        <TopLine Value="27"/>
    11181120        <CursorPos X="14" Y="74"/>
    1119         <UsageCount Value="4"/>
     1121        <UsageCount Value="3"/>
    11201122        <DefaultSyntaxHighlighter Value="Delphi"/>
    11211123      </Unit112>
     
    11251127        <TopLine Value="1"/>
    11261128        <CursorPos X="3" Y="1"/>
    1127         <UsageCount Value="1"/>
     1129        <UsageCount Value="0"/>
    11281130        <DefaultSyntaxHighlighter Value="Delphi"/>
    11291131      </Unit113>
     
    11331135        <TopLine Value="153"/>
    11341136        <CursorPos X="13" Y="170"/>
    1135         <UsageCount Value="4"/>
     1137        <UsageCount Value="3"/>
    11361138        <DefaultSyntaxHighlighter Value="Delphi"/>
    11371139      </Unit114>
     
    11411143        <TopLine Value="337"/>
    11421144        <CursorPos X="3" Y="337"/>
    1143         <UsageCount Value="4"/>
     1145        <UsageCount Value="3"/>
    11441146        <DefaultSyntaxHighlighter Value="Delphi"/>
    11451147      </Unit115>
     
    11491151        <TopLine Value="11"/>
    11501152        <CursorPos X="2" Y="28"/>
    1151         <UsageCount Value="2"/>
     1153        <UsageCount Value="1"/>
    11521154        <DefaultSyntaxHighlighter Value="Delphi"/>
    11531155      </Unit116>
     
    11581160        <TopLine Value="10"/>
    11591161        <CursorPos X="4" Y="26"/>
    1160         <UsageCount Value="97"/>
     1162        <UsageCount Value="102"/>
    11611163        <DefaultSyntaxHighlighter Value="None"/>
    11621164      </Unit117>
     
    11661168        <TopLine Value="1"/>
    11671169        <CursorPos X="24" Y="4"/>
    1168         <UsageCount Value="6"/>
     1170        <UsageCount Value="5"/>
    11691171      </Unit118>
    11701172      <Unit119>
     
    11741176        <TopLine Value="133"/>
    11751177        <CursorPos X="1" Y="149"/>
    1176         <UsageCount Value="29"/>
     1178        <UsageCount Value="32"/>
    11771179        <Loaded Value="True"/>
    11781180      </Unit119>
     
    11821184        <UnitName Value="UApplicationInfo"/>
    11831185        <IsVisibleTab Value="True"/>
    1184         <EditorIndex Value="10"/>
    1185         <WindowIndex Value="0"/>
    1186         <TopLine Value="43"/>
     1186        <EditorIndex Value="12"/>
     1187        <WindowIndex Value="0"/>
     1188        <TopLine Value="32"/>
    11871189        <CursorPos X="41" Y="55"/>
    1188         <UsageCount Value="65"/>
     1190        <UsageCount Value="70"/>
    11891191        <Loaded Value="True"/>
    11901192        <DefaultSyntaxHighlighter Value="Delphi"/>
     
    11961198        <TopLine Value="1"/>
    11971199        <CursorPos X="14" Y="1"/>
    1198         <UsageCount Value="6"/>
     1200        <UsageCount Value="5"/>
    11991201      </Unit121>
    12001202      <Unit122>
    12011203        <Filename Value="Components/CoolWeb/WebServer/UWebApp.pas"/>
    12021204        <UnitName Value="UWebApp"/>
    1203         <EditorIndex Value="5"/>
    1204         <WindowIndex Value="0"/>
    1205         <TopLine Value="115"/>
    1206         <CursorPos X="36" Y="124"/>
    1207         <UsageCount Value="32"/>
     1205        <EditorIndex Value="4"/>
     1206        <WindowIndex Value="0"/>
     1207        <TopLine Value="9"/>
     1208        <CursorPos X="11" Y="134"/>
     1209        <UsageCount Value="35"/>
    12081210        <Loaded Value="True"/>
    12091211      </Unit122>
     
    12111213        <Filename Value="Components/CoolWeb/Modules/UPageList.pas"/>
    12121214        <UnitName Value="UPageList"/>
    1213         <EditorIndex Value="8"/>
    12141215        <WindowIndex Value="0"/>
    12151216        <TopLine Value="1"/>
    12161217        <CursorPos X="17" Y="12"/>
    1217         <UsageCount Value="32"/>
    1218         <Loaded Value="True"/>
     1218        <UsageCount Value="34"/>
    12191219      </Unit123>
    12201220      <Unit124>
     
    12241224        <TopLine Value="97"/>
    12251225        <CursorPos X="20" Y="115"/>
    1226         <UsageCount Value="6"/>
     1226        <UsageCount Value="5"/>
    12271227        <DefaultSyntaxHighlighter Value="Delphi"/>
    12281228      </Unit124>
     
    12301230        <Filename Value="Components/Common/UCommon.pas"/>
    12311231        <UnitName Value="UCommon"/>
    1232         <EditorIndex Value="3"/>
     1232        <EditorIndex Value="2"/>
    12331233        <WindowIndex Value="0"/>
    12341234        <TopLine Value="1"/>
    12351235        <CursorPos X="1" Y="1"/>
    1236         <UsageCount Value="29"/>
     1236        <UsageCount Value="32"/>
    12371237        <Loaded Value="True"/>
    12381238      </Unit125>
     
    12401240        <Filename Value="../../../Lazarus/0.9.31_2.4.4/fpc/2.4.4/source/packages/fcl-base/src/custapp.pp"/>
    12411241        <UnitName Value="CustApp"/>
    1242         <EditorIndex Value="1"/>
    12431242        <WindowIndex Value="0"/>
    12441243        <TopLine Value="266"/>
    12451244        <CursorPos X="3" Y="269"/>
    1246         <UsageCount Value="29"/>
    1247         <Loaded Value="True"/>
     1245        <UsageCount Value="28"/>
    12481246      </Unit126>
    12491247      <Unit127>
     
    12521250        <EditorIndex Value="14"/>
    12531251        <WindowIndex Value="0"/>
    1254         <TopLine Value="168"/>
    1255         <CursorPos X="5" Y="181"/>
    1256         <UsageCount Value="29"/>
     1252        <TopLine Value="133"/>
     1253        <CursorPos X="3" Y="151"/>
     1254        <UsageCount Value="32"/>
    12571255        <Loaded Value="True"/>
    12581256      </Unit127>
     
    12621260        <EditorIndex Value="15"/>
    12631261        <WindowIndex Value="0"/>
    1264         <TopLine Value="1"/>
    1265         <CursorPos X="18" Y="15"/>
    1266         <UsageCount Value="29"/>
     1262        <TopLine Value="22"/>
     1263        <CursorPos X="23" Y="31"/>
     1264        <UsageCount Value="32"/>
    12671265        <Loaded Value="True"/>
    12681266      </Unit128>
     
    12701268        <Filename Value="Components/CoolWeb/Modules/UUser.pas"/>
    12711269        <UnitName Value="UUser"/>
    1272         <EditorIndex Value="6"/>
    12731270        <WindowIndex Value="0"/>
    12741271        <TopLine Value="1"/>
    12751272        <CursorPos X="1" Y="1"/>
    1276         <UsageCount Value="29"/>
    1277         <Loaded Value="True"/>
     1273        <UsageCount Value="31"/>
    12781274      </Unit129>
    12791275      <Unit130>
    12801276        <Filename Value="Components/CoolWeb/Common/UMIMEType.pas"/>
    12811277        <UnitName Value="UMIMEType"/>
    1282         <EditorIndex Value="7"/>
    12831278        <WindowIndex Value="0"/>
    12841279        <TopLine Value="28"/>
    12851280        <CursorPos X="1" Y="1"/>
    1286         <UsageCount Value="29"/>
    1287         <Loaded Value="True"/>
     1281        <UsageCount Value="31"/>
    12881282      </Unit130>
    12891283      <Unit131>
     
    12941288        <TopLine Value="12"/>
    12951289        <CursorPos X="11" Y="31"/>
    1296         <UsageCount Value="29"/>
     1290        <UsageCount Value="32"/>
    12971291        <Loaded Value="True"/>
    12981292      </Unit131>
     
    13021296        <TopLine Value="6"/>
    13031297        <CursorPos X="14" Y="19"/>
    1304         <UsageCount Value="27"/>
     1298        <UsageCount Value="26"/>
    13051299      </Unit132>
    13061300      <Unit133>
    13071301        <Filename Value="Components/CoolWeb/WebServer/UHTTPServer.pas"/>
    13081302        <UnitName Value="UHTTPServer"/>
    1309         <EditorIndex Value="11"/>
    1310         <WindowIndex Value="0"/>
    1311         <TopLine Value="18"/>
    1312         <CursorPos X="5" Y="31"/>
     1303        <EditorIndex Value="10"/>
     1304        <WindowIndex Value="0"/>
     1305        <TopLine Value="111"/>
     1306        <CursorPos X="25" Y="166"/>
     1307        <UsageCount Value="13"/>
     1308        <Loaded Value="True"/>
     1309      </Unit133>
     1310      <Unit134>
     1311        <Filename Value="/usr/share/fpcsrc/2.4.4/packages/fcl-base/src/custapp.pp"/>
     1312        <UnitName Value="CustApp"/>
     1313        <WindowIndex Value="0"/>
     1314        <TopLine Value="98"/>
     1315        <CursorPos X="3" Y="26"/>
     1316        <UsageCount Value="11"/>
     1317      </Unit134>
     1318      <Unit135>
     1319        <Filename Value="Components/CoolWeb/Network/UTCPServer.pas"/>
     1320        <UnitName Value="UTCPServer"/>
     1321        <EditorIndex Value="5"/>
     1322        <WindowIndex Value="0"/>
     1323        <TopLine Value="112"/>
     1324        <CursorPos X="1" Y="1"/>
     1325        <UsageCount Value="12"/>
     1326        <Loaded Value="True"/>
     1327      </Unit135>
     1328      <Unit136>
     1329        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1330        <UnitName Value="UHTTPServerCGI"/>
     1331        <EditorIndex Value="6"/>
     1332        <WindowIndex Value="0"/>
     1333        <TopLine Value="88"/>
     1334        <CursorPos X="34" Y="116"/>
     1335        <UsageCount Value="12"/>
     1336        <Loaded Value="True"/>
     1337      </Unit136>
     1338      <Unit137>
     1339        <Filename Value="/usr/share/fpcsrc/2.4.4/rtl/inc/systemh.inc"/>
     1340        <WindowIndex Value="0"/>
     1341        <TopLine Value="479"/>
     1342        <CursorPos X="17" Y="497"/>
     1343        <UsageCount Value="11"/>
     1344      </Unit137>
     1345      <Unit138>
     1346        <Filename Value="/usr/share/fpcsrc/2.4.4/packages/fcl-base/src/iostream.pp"/>
     1347        <UnitName Value="iostream"/>
     1348        <WindowIndex Value="0"/>
     1349        <TopLine Value="61"/>
     1350        <CursorPos X="6" Y="95"/>
     1351        <UsageCount Value="11"/>
     1352      </Unit138>
     1353      <Unit139>
     1354        <Filename Value="/usr/share/fpcsrc/2.4.4/rtl/objpas/classes/classesh.inc"/>
     1355        <WindowIndex Value="0"/>
     1356        <TopLine Value="766"/>
     1357        <CursorPos X="15" Y="784"/>
     1358        <UsageCount Value="11"/>
     1359      </Unit139>
     1360      <Unit140>
     1361        <Filename Value="/usr/share/fpcsrc/2.4.4/rtl/objpas/classes/streams.inc"/>
     1362        <WindowIndex Value="0"/>
     1363        <TopLine Value="59"/>
     1364        <CursorPos X="8" Y="65"/>
     1365        <UsageCount Value="11"/>
     1366      </Unit140>
     1367      <Unit141>
     1368        <Filename Value="/usr/share/fpcsrc/2.4.4/rtl/objpas/sysutils/filutilh.inc"/>
     1369        <WindowIndex Value="0"/>
     1370        <TopLine Value="59"/>
     1371        <CursorPos X="10" Y="77"/>
    13131372        <UsageCount Value="10"/>
    1314         <Loaded Value="True"/>
    1315       </Unit133>
     1373      </Unit141>
     1374      <Unit142>
     1375        <Filename Value="/usr/share/fpcsrc/2.4.4/rtl/unix/sysutils.pp"/>
     1376        <UnitName Value="sysutils"/>
     1377        <WindowIndex Value="0"/>
     1378        <TopLine Value="454"/>
     1379        <CursorPos X="74" Y="462"/>
     1380        <UsageCount Value="10"/>
     1381      </Unit142>
     1382      <Unit143>
     1383        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerTCP.pas"/>
     1384        <UnitName Value="UHTTPServerTCP"/>
     1385        <EditorIndex Value="7"/>
     1386        <WindowIndex Value="0"/>
     1387        <TopLine Value="42"/>
     1388        <CursorPos X="11" Y="58"/>
     1389        <UsageCount Value="11"/>
     1390        <Loaded Value="True"/>
     1391      </Unit143>
    13161392    </Units>
    1317     <JumpHistory Count="29" HistoryIndex="28">
     1393    <JumpHistory Count="30" HistoryIndex="27">
    13181394      <Position1>
    1319         <Filename Value="Components/CoolWeb/Common/UHtmlClasses.pas"/>
    1320         <Caret Line="349" Column="23" TopLine="344"/>
     1395        <Filename Value="Pages/ULinksPage.pas"/>
     1396        <Caret Line="67" Column="1" TopLine="25"/>
    13211397      </Position1>
    13221398      <Position2>
    1323         <Filename Value="Components/CoolWeb/Common/UHtmlClasses.pas"/>
    1324         <Caret Line="217" Column="22" TopLine="205"/>
     1399        <Filename Value="Pages/ULinksPage.pas"/>
     1400        <Caret Line="51" Column="38" TopLine="32"/>
    13251401      </Position2>
    13261402      <Position3>
    1327         <Filename Value="Application/UWebObjects.pas"/>
    1328         <Caret Line="96" Column="3" TopLine="89"/>
     1403        <Filename Value="Modules/UMainModule.pas"/>
     1404        <Caret Line="87" Column="34" TopLine="62"/>
    13291405      </Position3>
    13301406      <Position4>
    1331         <Filename Value="Application/UWebObjects.pas"/>
    1332         <Caret Line="131" Column="27" TopLine="118"/>
     1407        <Filename Value="Components/CoolWeb/WebServer/UHTTPServer.pas"/>
     1408        <Caret Line="47" Column="11" TopLine="29"/>
    13331409      </Position4>
    13341410      <Position5>
    1335         <Filename Value="Components/CoolWeb/Common/UHtmlClasses.pas"/>
    1336         <Caret Line="83" Column="14" TopLine="70"/>
     1411        <Filename Value="Components/CoolWeb/WebServer/UHTTPServer.pas"/>
     1412        <Caret Line="31" Column="20" TopLine="13"/>
    13371413      </Position5>
    13381414      <Position6>
    1339         <Filename Value="Components/CoolWeb/Common/UHtmlClasses.pas"/>
    1340         <Caret Line="348" Column="23" TopLine="344"/>
     1415        <Filename Value="Components/CoolWeb/WebServer/UHTTPServer.pas"/>
     1416        <Caret Line="131" Column="30" TopLine="120"/>
    13411417      </Position6>
    13421418      <Position7>
    1343         <Filename Value="Components/CoolWeb/Common/UHtmlClasses.pas"/>
    1344         <Caret Line="221" Column="1" TopLine="204"/>
     1419        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1420        <Caret Line="126" Column="30" TopLine="91"/>
    13451421      </Position7>
    13461422      <Position8>
    1347         <Filename Value="Pages/UUserControlPage.pas"/>
    1348         <Caret Line="49" Column="20" TopLine="34"/>
     1423        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1424        <Caret Line="94" Column="24" TopLine="76"/>
    13491425      </Position8>
    13501426      <Position9>
    1351         <Filename Value="Pages/UUserControlPage.pas"/>
    1352         <Caret Line="47" Column="17" TopLine="34"/>
     1427        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1428        <Caret Line="95" Column="43" TopLine="77"/>
    13531429      </Position9>
    13541430      <Position10>
    1355         <Filename Value="Application/UWebObjects.pas"/>
    1356         <Caret Line="133" Column="18" TopLine="89"/>
     1431        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1432        <Caret Line="62" Column="19" TopLine="47"/>
    13571433      </Position10>
    13581434      <Position11>
    1359         <Filename Value="Application/UWebObjects.pas"/>
    1360         <Caret Line="134" Column="18" TopLine="121"/>
     1435        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1436        <Caret Line="97" Column="35" TopLine="78"/>
    13611437      </Position11>
    13621438      <Position12>
    1363         <Filename Value="Pages/UUserControlPage.pas"/>
    1364         <Caret Line="66" Column="33" TopLine="43"/>
     1439        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerTCP.pas"/>
     1440        <Caret Line="1" Column="1" TopLine="1"/>
    13651441      </Position12>
    13661442      <Position13>
    1367         <Filename Value="Application/UWebObjects.pas"/>
    1368         <Caret Line="138" Column="15" TopLine="121"/>
     1443        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerTCP.pas"/>
     1444        <Caret Line="90" Column="21" TopLine="72"/>
    13691445      </Position13>
    13701446      <Position14>
    1371         <Filename Value="Components/CoolWeb/Common/UHtmlClasses.pas"/>
    1372         <Caret Line="386" Column="5" TopLine="380"/>
     1447        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerTCP.pas"/>
     1448        <Caret Line="102" Column="59" TopLine="84"/>
    13731449      </Position14>
    13741450      <Position15>
    1375         <Filename Value="Pages/UUserControlPage.pas"/>
    1376         <Caret Line="45" Column="1" TopLine="39"/>
     1451        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerTCP.pas"/>
     1452        <Caret Line="117" Column="41" TopLine="99"/>
    13771453      </Position15>
    13781454      <Position16>
    1379         <Filename Value="Application/UWebObjects.pas"/>
    1380         <Caret Line="56" Column="37" TopLine="37"/>
     1455        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1456        <Caret Line="64" Column="69" TopLine="54"/>
    13811457      </Position16>
    13821458      <Position17>
    1383         <Filename Value="Pages/UUserControlPage.pas"/>
    1384         <Caret Line="52" Column="35" TopLine="39"/>
     1459        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1460        <Caret Line="59" Column="29" TopLine="44"/>
    13851461      </Position17>
    13861462      <Position18>
    1387         <Filename Value="Pages/UUserControlPage.pas"/>
    1388         <Caret Line="51" Column="21" TopLine="38"/>
     1463        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1464        <Caret Line="144" Column="32" TopLine="118"/>
    13891465      </Position18>
    13901466      <Position19>
    1391         <Filename Value="Pages/UUserControlPage.pas"/>
    1392         <Caret Line="53" Column="17" TopLine="38"/>
     1467        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1468        <Caret Line="67" Column="24" TopLine="46"/>
    13931469      </Position19>
    13941470      <Position20>
    1395         <Filename Value="Pages/UUserControlPage.pas"/>
    1396         <Caret Line="56" Column="12" TopLine="39"/>
     1471        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1472        <Caret Line="69" Column="33" TopLine="46"/>
    13971473      </Position20>
    13981474      <Position21>
    1399         <Filename Value="Pages/UUserControlPage.pas"/>
    1400         <Caret Line="43" Column="16" TopLine="32"/>
     1475        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1476        <Caret Line="64" Column="1" TopLine="46"/>
    14011477      </Position21>
    14021478      <Position22>
    1403         <Filename Value="Pages/UUserControlPage.pas"/>
    1404         <Caret Line="42" Column="1" TopLine="32"/>
     1479        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1480        <Caret Line="68" Column="44" TopLine="50"/>
    14051481      </Position22>
    14061482      <Position23>
    1407         <Filename Value="Pages/UUserControlPage.pas"/>
    1408         <Caret Line="43" Column="12" TopLine="32"/>
     1483        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1484        <Caret Line="55" Column="1" TopLine="50"/>
    14091485      </Position23>
    14101486      <Position24>
    1411         <Filename Value="Pages/UUserControlPage.pas"/>
    1412         <Caret Line="44" Column="1" TopLine="32"/>
     1487        <Filename Value="Components/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1488        <Caret Line="116" Column="34" TopLine="88"/>
    14131489      </Position24>
    14141490      <Position25>
    1415         <Filename Value="Pages/UUserControlPage.pas"/>
    1416         <Caret Line="45" Column="1" TopLine="32"/>
     1491        <Filename Value="Components/CoolWeb/WebServer/UHTTPServer.pas"/>
     1492        <Caret Line="161" Column="17" TopLine="146"/>
    14171493      </Position25>
    14181494      <Position26>
    1419         <Filename Value="Pages/UUserControlPage.pas"/>
    1420         <Caret Line="42" Column="1" TopLine="32"/>
     1495        <Filename Value="Application/UWebObjects.pas"/>
     1496        <Caret Line="183" Column="10" TopLine="178"/>
    14211497      </Position26>
    14221498      <Position27>
    1423         <Filename Value="Pages/UUserControlPage.pas"/>
    1424         <Caret Line="45" Column="22" TopLine="34"/>
     1499        <Filename Value="Application/UWebObjects.pas"/>
     1500        <Caret Line="43" Column="1" TopLine="22"/>
    14251501      </Position27>
    14261502      <Position28>
    1427         <Filename Value="Pages/UUserControlPage.pas"/>
    1428         <Caret Line="42" Column="54" TopLine="34"/>
     1503        <Filename Value="Application/UWebObjects.pas"/>
     1504        <Caret Line="212" Column="45" TopLine="192"/>
    14291505      </Position28>
    14301506      <Position29>
    1431         <Filename Value="Modules/UMainModule.pas"/>
    1432         <Caret Line="1" Column="13" TopLine="1"/>
     1507        <Filename Value="Application/UWebObjects.pas"/>
     1508        <Caret Line="43" Column="15" TopLine="19"/>
    14331509      </Position29>
     1510      <Position30>
     1511        <Filename Value="Components/CoolWeb/Common/UHtmlClasses.pas"/>
     1512        <Caret Line="151" Column="3" TopLine="133"/>
     1513      </Position30>
    14341514    </JumpHistory>
    14351515  </ProjectOptions>
     
    14401520    </Target>
    14411521    <SearchPaths>
    1442       <OtherUnitFiles Value="/usr/lib/mysql;/usr/lib64/mysql;Application;WebServer;Network;Modules;Pages"/>
     1522      <OtherUnitFiles Value="/usr/lib/mysql/;/usr/lib64/mysql/;Application;WebServer;Network;Modules;Pages"/>
    14431523      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    14441524    </SearchPaths>
     
    14741554  </CompilerOptions>
    14751555  <Debugging>
    1476     <BreakPoints Count="2">
     1556    <BreakPoints Count="1">
    14771557      <Item1>
    14781558        <Kind Value="bpkSource"/>
     
    14821562        <Line Value="91"/>
    14831563      </Item1>
    1484       <Item2>
    1485         <Kind Value="bpkSource"/>
    1486         <WatchScope Value="wpsLocal"/>
    1487         <WatchKind Value="wpkWrite"/>
    1488         <Source Value="Pages/UUserControlPage.pas"/>
    1489         <Line Value="42"/>
    1490       </Item2>
    14911564    </BreakPoints>
    14921565  </Debugging>
Note: See TracChangeset for help on using the changeset viewer.