Changeset 55 for trunk


Ignore:
Timestamp:
Jul 23, 2011, 11:23:39 PM (13 years ago)
Author:
george
Message:
  • Upraveno: Stránky rozděleny do samostatných jednotek.
  • Upraveno: Konfigurace staticky přikompilovaná nahrazena načítanou z registrů (na linuxu xml soubor) .
Location:
trunk
Files:
2 added
4 deleted
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/CGI.lpi

    r54 r55  
    5050      </Item3>
    5151    </RequiredPackages>
    52     <Units Count="116">
     52    <Units Count="122">
    5353      <Unit0>
    5454        <Filename Value="CGI.lpr"/>
    … …  
    5757        <EditorIndex Value="0"/>
    5858        <WindowIndex Value="0"/>
    59         <TopLine Value="4"/>
    60         <CursorPos X="1" Y="19"/>
     59        <TopLine Value="5"/>
     60        <CursorPos X="36" Y="8"/>
    6161        <UsageCount Value="203"/>
    6262        <Loaded Value="True"/>
    … …  
    6969        <TopLine Value="1"/>
    7070        <CursorPos X="1" Y="11"/>
    71         <UsageCount Value="200"/>
     71        <UsageCount Value="199"/>
    7272        <DefaultSyntaxHighlighter Value="Delphi"/>
    7373      </Unit1>
    … …  
    7878        <TopLine Value="291"/>
    7979        <CursorPos X="1" Y="311"/>
    80         <UsageCount Value="90"/>
     80        <UsageCount Value="89"/>
    8181        <DefaultSyntaxHighlighter Value="Delphi"/>
    8282      </Unit2>
    8383      <Unit3>
    8484        <Filename Value="UXmlClasses.pas"/>
    85         <UsageCount Value="90"/>
     85        <UsageCount Value="89"/>
    8686        <DefaultSyntaxHighlighter Value="Delphi"/>
    8787      </Unit3>
    … …  
    9090        <IsPartOfProject Value="True"/>
    9191        <UnitName Value="UCore"/>
    92         <WindowIndex Value="0"/>
    93         <TopLine Value="1"/>
    94         <CursorPos X="3" Y="8"/>
     92        <EditorIndex Value="5"/>
     93        <WindowIndex Value="0"/>
     94        <TopLine Value="16"/>
     95        <CursorPos X="39" Y="41"/>
    9596        <UsageCount Value="203"/>
     97        <Loaded Value="True"/>
    9698        <DefaultSyntaxHighlighter Value="Delphi"/>
    9799      </Unit4>
    … …  
    102104        <TopLine Value="217"/>
    103105        <CursorPos X="5" Y="236"/>
    104         <UsageCount Value="90"/>
     106        <UsageCount Value="89"/>
    105107        <DefaultSyntaxHighlighter Value="Delphi"/>
    106108      </Unit5>
    … …  
    111113        <TopLine Value="10"/>
    112114        <CursorPos X="27" Y="19"/>
    113         <UsageCount Value="90"/>
     115        <UsageCount Value="89"/>
    114116        <DefaultSyntaxHighlighter Value="Delphi"/>
    115117      </Unit6>
    … …  
    119121        <TopLine Value="17"/>
    120122        <CursorPos X="34" Y="30"/>
    121         <UsageCount Value="90"/>
     123        <UsageCount Value="89"/>
    122124        <DefaultSyntaxHighlighter Value="Delphi"/>
    123125      </Unit7>
    … …  
    128130        <TopLine Value="204"/>
    129131        <CursorPos X="25" Y="226"/>
    130         <UsageCount Value="90"/>
     132        <UsageCount Value="89"/>
    131133        <DefaultSyntaxHighlighter Value="Delphi"/>
    132134      </Unit8>
    … …  
    137139        <TopLine Value="102"/>
    138140        <CursorPos X="25" Y="107"/>
    139         <UsageCount Value="90"/>
     141        <UsageCount Value="89"/>
    140142        <DefaultSyntaxHighlighter Value="Delphi"/>
    141143      </Unit9>
    … …  
    146148        <TopLine Value="40"/>
    147149        <CursorPos X="9" Y="59"/>
    148         <UsageCount Value="78"/>
     150        <UsageCount Value="77"/>
    149151        <DefaultSyntaxHighlighter Value="Delphi"/>
    150152      </Unit10>
    … …  
    154156        <TopLine Value="91"/>
    155157        <CursorPos X="10" Y="110"/>
    156         <UsageCount Value="60"/>
     158        <UsageCount Value="59"/>
    157159        <DefaultSyntaxHighlighter Value="Delphi"/>
    158160      </Unit11>
    159161      <Unit12>
    160162        <Filename Value="UConfig.pas"/>
    161         <IsPartOfProject Value="True"/>
    162163        <UnitName Value="UConfig"/>
    163164        <WindowIndex Value="0"/>
    164         <TopLine Value="10"/>
    165         <CursorPos X="45" Y="25"/>
    166         <UsageCount Value="294"/>
     165        <TopLine Value="15"/>
     166        <CursorPos X="38" Y="30"/>
     167        <UsageCount Value="293"/>
    167168        <DefaultSyntaxHighlighter Value="Delphi"/>
    168169      </Unit12>
    … …  
    189190        <TopLine Value="608"/>
    190191        <CursorPos X="44" Y="627"/>
    191         <UsageCount Value="59"/>
     192        <UsageCount Value="58"/>
    192193        <DefaultSyntaxHighlighter Value="Delphi"/>
    193194      </Unit15>
    … …  
    198199        <TopLine Value="39"/>
    199200        <CursorPos X="25" Y="58"/>
    200         <UsageCount Value="59"/>
     201        <UsageCount Value="58"/>
    201202        <DefaultSyntaxHighlighter Value="Delphi"/>
    202203      </Unit16>
    … …  
    207208        <TopLine Value="1"/>
    208209        <CursorPos X="69" Y="19"/>
    209         <UsageCount Value="55"/>
     210        <UsageCount Value="54"/>
    210211        <DefaultSyntaxHighlighter Value="Delphi"/>
    211212      </Unit17>
    … …  
    216217        <TopLine Value="1"/>
    217218        <CursorPos X="52" Y="124"/>
    218         <UsageCount Value="52"/>
     219        <UsageCount Value="51"/>
    219220        <DefaultSyntaxHighlighter Value="Delphi"/>
    220221      </Unit18>
    … …  
    224225        <TopLine Value="677"/>
    225226        <CursorPos X="14" Y="691"/>
    226         <UsageCount Value="62"/>
     227        <UsageCount Value="61"/>
    227228        <DefaultSyntaxHighlighter Value="Delphi"/>
    228229      </Unit19>
    … …  
    232233        <TopLine Value="10"/>
    233234        <CursorPos X="22" Y="23"/>
    234         <UsageCount Value="61"/>
     235        <UsageCount Value="60"/>
    235236        <DefaultSyntaxHighlighter Value="Delphi"/>
    236237      </Unit20>
    … …  
    241242        <TopLine Value="1140"/>
    242243        <CursorPos X="26" Y="1143"/>
    243         <UsageCount Value="61"/>
     244        <UsageCount Value="60"/>
    244245        <DefaultSyntaxHighlighter Value="Delphi"/>
    245246      </Unit21>
    … …  
    249250        <TopLine Value="43"/>
    250251        <CursorPos X="5" Y="61"/>
    251         <UsageCount Value="61"/>
     252        <UsageCount Value="60"/>
    252253        <DefaultSyntaxHighlighter Value="Delphi"/>
    253254      </Unit22>
    … …  
    257258        <TopLine Value="50"/>
    258259        <CursorPos X="10" Y="63"/>
    259         <UsageCount Value="61"/>
     260        <UsageCount Value="60"/>
    260261        <DefaultSyntaxHighlighter Value="Delphi"/>
    261262      </Unit23>
    … …  
    266267        <TopLine Value="17"/>
    267268        <CursorPos X="32" Y="36"/>
    268         <UsageCount Value="180"/>
     269        <UsageCount Value="179"/>
    269270        <DefaultSyntaxHighlighter Value="Delphi"/>
    270271      </Unit24>
    … …  
    275276        <TopLine Value="8"/>
    276277        <CursorPos X="17" Y="19"/>
    277         <UsageCount Value="7"/>
     278        <UsageCount Value="6"/>
    278279        <DefaultSyntaxHighlighter Value="Delphi"/>
    279280      </Unit25>
    … …  
    284285        <TopLine Value="25"/>
    285286        <CursorPos X="86" Y="94"/>
    286         <UsageCount Value="180"/>
     287        <UsageCount Value="179"/>
    287288        <DefaultSyntaxHighlighter Value="Delphi"/>
    288289      </Unit26>
    … …  
    293294        <TopLine Value="549"/>
    294295        <CursorPos X="19" Y="569"/>
    295         <UsageCount Value="181"/>
     296        <UsageCount Value="180"/>
    296297        <DefaultSyntaxHighlighter Value="Delphi"/>
    297298      </Unit27>
    … …  
    302303        <TopLine Value="1"/>
    303304        <CursorPos X="64" Y="14"/>
    304         <UsageCount Value="181"/>
     305        <UsageCount Value="180"/>
    305306        <DefaultSyntaxHighlighter Value="Delphi"/>
    306307      </Unit28>
    … …  
    311312        <TopLine Value="6"/>
    312313        <CursorPos X="5" Y="33"/>
    313         <UsageCount Value="181"/>
     314        <UsageCount Value="180"/>
    314315        <DefaultSyntaxHighlighter Value="Delphi"/>
    315316      </Unit29>
    … …  
    320321        <TopLine Value="99"/>
    321322        <CursorPos X="33" Y="117"/>
    322         <UsageCount Value="8"/>
     323        <UsageCount Value="7"/>
    323324        <DefaultSyntaxHighlighter Value="Delphi"/>
    324325      </Unit30>
    … …  
    328329        <TopLine Value="61"/>
    329330        <CursorPos X="14" Y="78"/>
    330         <UsageCount Value="60"/>
     331        <UsageCount Value="59"/>
    331332        <DefaultSyntaxHighlighter Value="Delphi"/>
    332333      </Unit31>
    … …  
    336337        <TopLine Value="519"/>
    337338        <CursorPos X="23" Y="526"/>
    338         <UsageCount Value="56"/>
     339        <UsageCount Value="55"/>
    339340        <DefaultSyntaxHighlighter Value="Delphi"/>
    340341      </Unit32>
    341342      <Unit33>
    342343        <Filename Value="UConfigSample.pas"/>
    343         <IsPartOfProject Value="True"/>
    344344        <UnitName Value="UConfig"/>
    345345        <WindowIndex Value="0"/>
    346346        <TopLine Value="11"/>
    347         <CursorPos X="19" Y="11"/>
    348         <UsageCount Value="362"/>
     347        <CursorPos X="51" Y="27"/>
     348        <UsageCount Value="361"/>
    349349        <DefaultSyntaxHighlighter Value="Delphi"/>
    350350      </Unit33>
    … …  
    355355        <TopLine Value="1"/>
    356356        <CursorPos X="16" Y="164"/>
    357         <UsageCount Value="322"/>
     357        <UsageCount Value="321"/>
    358358        <DefaultSyntaxHighlighter Value="Delphi"/>
    359359      </Unit34>
    … …  
    364364        <TopLine Value="81"/>
    365365        <CursorPos X="1" Y="96"/>
    366         <UsageCount Value="321"/>
     366        <UsageCount Value="320"/>
    367367        <DefaultSyntaxHighlighter Value="Delphi"/>
    368368      </Unit35>
    … …  
    373373        <TopLine Value="1"/>
    374374        <CursorPos X="18" Y="45"/>
    375         <UsageCount Value="321"/>
     375        <UsageCount Value="320"/>
    376376        <DefaultSyntaxHighlighter Value="Delphi"/>
    377377      </Unit36>
    … …  
    382382        <TopLine Value="142"/>
    383383        <CursorPos X="52" Y="165"/>
    384         <UsageCount Value="321"/>
     384        <UsageCount Value="320"/>
    385385        <DefaultSyntaxHighlighter Value="Delphi"/>
    386386      </Unit37>
    … …  
    391391        <TopLine Value="109"/>
    392392        <CursorPos X="36" Y="96"/>
    393         <UsageCount Value="321"/>
     393        <UsageCount Value="320"/>
    394394        <DefaultSyntaxHighlighter Value="Delphi"/>
    395395      </Unit38>
    … …  
    400400        <TopLine Value="44"/>
    401401        <CursorPos X="27" Y="61"/>
    402         <UsageCount Value="321"/>
     402        <UsageCount Value="320"/>
    403403        <DefaultSyntaxHighlighter Value="Delphi"/>
    404404      </Unit39>
    … …  
    409409        <TopLine Value="1"/>
    410410        <CursorPos X="50" Y="8"/>
    411         <UsageCount Value="321"/>
     411        <UsageCount Value="320"/>
    412412        <DefaultSyntaxHighlighter Value="Delphi"/>
    413413      </Unit40>
    … …  
    418418        <TopLine Value="1"/>
    419419        <CursorPos X="21" Y="1"/>
    420         <UsageCount Value="320"/>
     420        <UsageCount Value="319"/>
    421421        <DefaultSyntaxHighlighter Value="Delphi"/>
    422422      </Unit41>
    … …  
    427427        <TopLine Value="1"/>
    428428        <CursorPos X="53" Y="8"/>
    429         <UsageCount Value="320"/>
     429        <UsageCount Value="319"/>
    430430        <DefaultSyntaxHighlighter Value="Delphi"/>
    431431      </Unit42>
    … …  
    436436        <TopLine Value="1"/>
    437437        <CursorPos X="52" Y="92"/>
    438         <UsageCount Value="320"/>
     438        <UsageCount Value="319"/>
    439439        <DefaultSyntaxHighlighter Value="Delphi"/>
    440440      </Unit43>
    … …  
    445445        <TopLine Value="83"/>
    446446        <CursorPos X="47" Y="106"/>
    447         <UsageCount Value="320"/>
     447        <UsageCount Value="319"/>
    448448        <DefaultSyntaxHighlighter Value="Delphi"/>
    449449      </Unit44>
    … …  
    454454        <TopLine Value="1"/>
    455455        <CursorPos X="3" Y="687"/>
    456         <UsageCount Value="320"/>
     456        <UsageCount Value="319"/>
    457457        <DefaultSyntaxHighlighter Value="Delphi"/>
    458458      </Unit45>
    … …  
    463463        <TopLine Value="383"/>
    464464        <CursorPos X="15" Y="397"/>
    465         <UsageCount Value="41"/>
     465        <UsageCount Value="40"/>
    466466      </Unit46>
    467467      <Unit47>
    … …  
    471471        <TopLine Value="1"/>
    472472        <CursorPos X="1" Y="15"/>
    473         <UsageCount Value="339"/>
     473        <UsageCount Value="338"/>
    474474        <DefaultSyntaxHighlighter Value="Delphi"/>
    475475      </Unit47>
    … …  
    479479        <TopLine Value="690"/>
    480480        <CursorPos X="3" Y="695"/>
    481         <UsageCount Value="41"/>
     481        <UsageCount Value="40"/>
    482482        <DefaultSyntaxHighlighter Value="Delphi"/>
    483483      </Unit48>
    … …  
    488488        <TopLine Value="1"/>
    489489        <CursorPos X="43" Y="79"/>
    490         <UsageCount Value="317"/>
     490        <UsageCount Value="316"/>
    491491        <DefaultSyntaxHighlighter Value="Delphi"/>
    492492      </Unit49>
    493493      <Unit50>
    494494        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    495         <EditorIndex Value="4"/>
    496495        <WindowIndex Value="0"/>
    497496        <TopLine Value="29"/>
    498497        <CursorPos X="15" Y="46"/>
    499498        <UsageCount Value="178"/>
    500         <Loaded Value="True"/>
    501499      </Unit50>
    502500      <Unit51>
    … …  
    506504        <TopLine Value="1"/>
    507505        <CursorPos X="26" Y="18"/>
    508         <UsageCount Value="81"/>
     506        <UsageCount Value="80"/>
    509507      </Unit51>
    510508      <Unit52>
    … …  
    514512        <TopLine Value="1"/>
    515513        <CursorPos X="15" Y="20"/>
    516         <UsageCount Value="94"/>
     514        <UsageCount Value="93"/>
    517515      </Unit52>
    518516      <Unit53>
    … …  
    522520        <TopLine Value="1"/>
    523521        <CursorPos X="44" Y="17"/>
    524         <UsageCount Value="93"/>
     522        <UsageCount Value="92"/>
    525523      </Unit53>
    526524      <Unit54>
    … …  
    530528        <TopLine Value="1"/>
    531529        <CursorPos X="48" Y="25"/>
    532         <UsageCount Value="12"/>
     530        <UsageCount Value="11"/>
    533531      </Unit54>
    534532      <Unit55>
    … …  
    538536        <TopLine Value="1"/>
    539537        <CursorPos X="60" Y="11"/>
    540         <UsageCount Value="11"/>
     538        <UsageCount Value="10"/>
    541539      </Unit55>
    542540      <Unit56>
    … …  
    546544        <TopLine Value="92"/>
    547545        <CursorPos X="7" Y="119"/>
    548         <UsageCount Value="7"/>
     546        <UsageCount Value="6"/>
    549547      </Unit56>
    550548      <Unit57>
    … …  
    552550        <UnitName Value="UXmlClasses"/>
    553551        <WindowIndex Value="0"/>
    554         <TopLine Value="16"/>
    555         <CursorPos X="1" Y="25"/>
    556         <UsageCount Value="22"/>
     552        <TopLine Value="27"/>
     553        <CursorPos X="5" Y="44"/>
     554        <UsageCount Value="26"/>
    557555      </Unit57>
    558556      <Unit58>
    … …  
    562560        <TopLine Value="159"/>
    563561        <CursorPos X="14" Y="176"/>
    564         <UsageCount Value="23"/>
     562        <UsageCount Value="22"/>
    565563      </Unit58>
    566564      <Unit59>
    … …  
    571569        <TopLine Value="71"/>
    572570        <CursorPos X="40" Y="12"/>
    573         <UsageCount Value="53"/>
     571        <UsageCount Value="68"/>
    574572        <DefaultSyntaxHighlighter Value="Delphi"/>
    575573      </Unit59>
    … …  
    580578        <TopLine Value="1"/>
    581579        <CursorPos X="1" Y="1"/>
    582         <UsageCount Value="9"/>
     580        <UsageCount Value="8"/>
    583581      </Unit60>
    584582      <Unit61>
    … …  
    588586        <TopLine Value="1"/>
    589587        <CursorPos X="1" Y="1"/>
    590         <UsageCount Value="9"/>
     588        <UsageCount Value="8"/>
    591589      </Unit61>
    592590      <Unit62>
    593591        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/>
    594592        <UnitName Value="UHTTPServer"/>
    595         <WindowIndex Value="0"/>
    596         <TopLine Value="180"/>
    597         <CursorPos X="3" Y="182"/>
     593        <EditorIndex Value="4"/>
     594        <WindowIndex Value="0"/>
     595        <TopLine Value="379"/>
     596        <CursorPos X="1" Y="389"/>
    598597        <UsageCount Value="14"/>
     598        <Loaded Value="True"/>
    599599      </Unit62>
    600600      <Unit63>
    601601        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
    602602        <UnitName Value="UHTTPServerCGI"/>
    603         <EditorIndex Value="3"/>
    604         <WindowIndex Value="0"/>
    605         <TopLine Value="65"/>
    606         <CursorPos X="1" Y="86"/>
    607         <UsageCount Value="11"/>
     603        <EditorIndex Value="6"/>
     604        <WindowIndex Value="0"/>
     605        <TopLine Value="1"/>
     606        <CursorPos X="21" Y="20"/>
     607        <UsageCount Value="18"/>
    608608        <Loaded Value="True"/>
    609609      </Unit63>
    … …  
    613613        <TopLine Value="168"/>
    614614        <CursorPos X="23" Y="185"/>
    615         <UsageCount Value="8"/>
     615        <UsageCount Value="7"/>
    616616        <DefaultSyntaxHighlighter Value="Delphi"/>
    617617      </Unit64>
    … …  
    620620        <UnitName Value="SpecializedList"/>
    621621        <WindowIndex Value="0"/>
    622         <TopLine Value="1"/>
    623         <CursorPos X="31" Y="126"/>
     622        <TopLine Value="54"/>
     623        <CursorPos X="26" Y="71"/>
    624624        <UsageCount Value="13"/>
    625625      </Unit65>
    … …  
    629629        <TopLine Value="1"/>
    630630        <CursorPos X="14" Y="3"/>
    631         <UsageCount Value="12"/>
     631        <UsageCount Value="11"/>
    632632      </Unit66>
    633633      <Unit67>
    … …  
    637637        <TopLine Value="35"/>
    638638        <CursorPos X="24" Y="63"/>
    639         <UsageCount Value="12"/>
     639        <UsageCount Value="11"/>
    640640      </Unit67>
    641641      <Unit68>
    642642        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    643         <EditorIndex Value="2"/>
    644643        <WindowIndex Value="0"/>
    645644        <TopLine Value="61"/>
    646645        <CursorPos X="23" Y="61"/>
    647         <UsageCount Value="11"/>
    648         <Loaded Value="True"/>
     646        <UsageCount Value="18"/>
    649647      </Unit68>
    650648      <Unit69>
    … …  
    654652        <TopLine Value="1"/>
    655653        <CursorPos X="1" Y="1"/>
    656         <UsageCount Value="9"/>
     654        <UsageCount Value="8"/>
    657655      </Unit69>
    658656      <Unit70>
    … …  
    662660        <TopLine Value="1531"/>
    663661        <CursorPos X="1" Y="1545"/>
    664         <UsageCount Value="13"/>
     662        <UsageCount Value="12"/>
    665663      </Unit70>
    666664      <Unit71>
    … …  
    670668        <TopLine Value="1"/>
    671669        <CursorPos X="1" Y="1"/>
    672         <UsageCount Value="11"/>
     670        <UsageCount Value="10"/>
    673671      </Unit71>
    674672      <Unit72>
    … …  
    678676        <TopLine Value="1"/>
    679677        <CursorPos X="1" Y="1"/>
    680         <UsageCount Value="10"/>
     678        <UsageCount Value="9"/>
    681679        <DefaultSyntaxHighlighter Value="Delphi"/>
    682680      </Unit72>
    … …  
    687685        <TopLine Value="10"/>
    688686        <CursorPos X="54" Y="31"/>
    689         <UsageCount Value="10"/>
     687        <UsageCount Value="9"/>
    690688      </Unit73>
    691689      <Unit74>
    … …  
    695693        <TopLine Value="1"/>
    696694        <CursorPos X="42" Y="14"/>
    697         <UsageCount Value="12"/>
     695        <UsageCount Value="11"/>
    698696      </Unit74>
    699697      <Unit75>
    … …  
    703701        <TopLine Value="1"/>
    704702        <CursorPos X="1" Y="1"/>
    705         <UsageCount Value="12"/>
     703        <UsageCount Value="11"/>
    706704      </Unit75>
    707705      <Unit76>
    … …  
    711709        <ResourceBaseClass Value="DataModule"/>
    712710        <UnitName Value="UMainModule"/>
    713         <IsVisibleTab Value="True"/>
    714         <EditorIndex Value="1"/>
    715         <WindowIndex Value="0"/>
    716         <TopLine Value="57"/>
    717         <CursorPos X="44" Y="74"/>
    718         <UsageCount Value="35"/>
     711        <EditorIndex Value="2"/>
     712        <WindowIndex Value="0"/>
     713        <TopLine Value="233"/>
     714        <CursorPos X="1" Y="261"/>
     715        <UsageCount Value="50"/>
    719716        <Loaded Value="True"/>
    720717        <LoadedDesigner Value="True"/>
    … …  
    726723        <TopLine Value="291"/>
    727724        <CursorPos X="1" Y="1"/>
    728         <UsageCount Value="10"/>
     725        <UsageCount Value="9"/>
    729726      </Unit77>
    730727      <Unit78>
    … …  
    734731        <TopLine Value="55"/>
    735732        <CursorPos X="8" Y="80"/>
    736         <UsageCount Value="10"/>
     733        <UsageCount Value="9"/>
    737734      </Unit78>
    738735      <Unit79>
    … …  
    742739        <TopLine Value="59"/>
    743740        <CursorPos X="10" Y="61"/>
    744         <UsageCount Value="10"/>
     741        <UsageCount Value="9"/>
    745742      </Unit79>
    746743      <Unit80>
    … …  
    750747        <TopLine Value="10"/>
    751748        <CursorPos X="1" Y="35"/>
    752         <UsageCount Value="11"/>
     749        <UsageCount Value="10"/>
    753750      </Unit80>
    754751      <Unit81>
    … …  
    758755        <TopLine Value="22"/>
    759756        <CursorPos X="1" Y="43"/>
    760         <UsageCount Value="10"/>
     757        <UsageCount Value="9"/>
    761758      </Unit81>
    762759      <Unit82>
    … …  
    766763        <TopLine Value="2"/>
    767764        <CursorPos X="14" Y="19"/>
    768         <UsageCount Value="11"/>
     765        <UsageCount Value="10"/>
    769766      </Unit82>
    770767      <Unit83>
    … …  
    774771        <ResourceBaseClass Value="DataModule"/>
    775772        <UnitName Value="UWebPage"/>
    776         <WindowIndex Value="0"/>
    777         <TopLine Value="4"/>
     773        <EditorIndex Value="8"/>
     774        <WindowIndex Value="0"/>
     775        <TopLine Value="1"/>
    778776        <CursorPos X="14" Y="21"/>
    779         <UsageCount Value="14"/>
     777        <UsageCount Value="13"/>
     778        <Loaded Value="True"/>
    780779      </Unit83>
    781780      <Unit84>
    … …  
    783782        <UnitName Value="USqlDatabase"/>
    784783        <WindowIndex Value="0"/>
    785         <TopLine Value="95"/>
    786         <CursorPos X="1" Y="110"/>
    787         <UsageCount Value="12"/>
     784        <TopLine Value="176"/>
     785        <CursorPos X="32" Y="193"/>
     786        <UsageCount Value="11"/>
    788787      </Unit84>
    789788      <Unit85>
    … …  
    795794        <TopLine Value="48"/>
    796795        <CursorPos X="13" Y="342"/>
    797         <UsageCount Value="30"/>
     796        <UsageCount Value="29"/>
    798797        <DefaultSyntaxHighlighter Value="Delphi"/>
    799798      </Unit85>
    … …  
    804803        <TopLine Value="33"/>
    805804        <CursorPos X="14" Y="50"/>
    806         <UsageCount Value="13"/>
     805        <UsageCount Value="12"/>
    807806      </Unit86>
    808807      <Unit87>
    … …  
    812811        <TopLine Value="179"/>
    813812        <CursorPos X="14" Y="199"/>
    814         <UsageCount Value="12"/>
     813        <UsageCount Value="11"/>
    815814      </Unit87>
    816815      <Unit88>
    … …  
    820819        <TopLine Value="1"/>
    821820        <CursorPos X="79" Y="4"/>
    822         <UsageCount Value="13"/>
     821        <UsageCount Value="12"/>
    823822      </Unit88>
    824823      <Unit89>
    … …  
    828827        <TopLine Value="184"/>
    829828        <CursorPos X="3" Y="199"/>
    830         <UsageCount Value="13"/>
     829        <UsageCount Value="12"/>
    831830      </Unit89>
    832831      <Unit90>
    … …  
    836835        <TopLine Value="1289"/>
    837836        <CursorPos X="36" Y="1307"/>
    838         <UsageCount Value="11"/>
     837        <UsageCount Value="10"/>
    839838      </Unit90>
    840839      <Unit91>
    … …  
    844843        <TopLine Value="34"/>
    845844        <CursorPos X="3" Y="51"/>
    846         <UsageCount Value="10"/>
     845        <UsageCount Value="9"/>
    847846      </Unit91>
    848847      <Unit92>
    … …  
    852851        <TopLine Value="174"/>
    853852        <CursorPos X="14" Y="191"/>
    854         <UsageCount Value="11"/>
     853        <UsageCount Value="10"/>
    855854      </Unit92>
    856855      <Unit93>
    857856        <Filename Value="/usr/share/fpcsrc/2.4.2/rtl/objpas/classes/classesh.inc"/>
    858857        <WindowIndex Value="0"/>
    859         <TopLine Value="1847"/>
    860         <CursorPos X="3" Y="1814"/>
    861         <UsageCount Value="11"/>
     858        <TopLine Value="538"/>
     859        <CursorPos X="24" Y="555"/>
     860        <UsageCount Value="10"/>
    862861      </Unit93>
    863862      <Unit94>
    864863        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    865864        <UnitName Value="UWebApp"/>
    866         <EditorIndex Value="6"/>
    867         <WindowIndex Value="0"/>
    868         <TopLine Value="57"/>
    869         <CursorPos X="1" Y="75"/>
    870         <UsageCount Value="14"/>
     865        <EditorIndex Value="7"/>
     866        <WindowIndex Value="0"/>
     867        <TopLine Value="101"/>
     868        <CursorPos X="47" Y="122"/>
     869        <UsageCount Value="21"/>
    871870        <Loaded Value="True"/>
    872871      </Unit94>
    … …  
    874873        <Filename Value="/usr/share/fpcsrc/2.4.2/packages/fcl-base/src/custapp.pp"/>
    875874        <UnitName Value="CustApp"/>
    876         <WindowIndex Value="0"/>
    877         <TopLine Value="19"/>
    878         <CursorPos X="3" Y="26"/>
    879         <UsageCount Value="13"/>
     875        <EditorIndex Value="1"/>
     876        <WindowIndex Value="0"/>
     877        <TopLine Value="49"/>
     878        <CursorPos X="1" Y="53"/>
     879        <UsageCount Value="15"/>
     880        <Loaded Value="True"/>
    880881      </Unit95>
    881882      <Unit96>
    … …  
    884885        <TopLine Value="2101"/>
    885886        <CursorPos X="3" Y="2108"/>
    886         <UsageCount Value="11"/>
     887        <UsageCount Value="10"/>
    887888      </Unit96>
    888889      <Unit97>
    … …  
    891892        <TopLine Value="180"/>
    892893        <CursorPos X="26" Y="197"/>
    893         <UsageCount Value="11"/>
     894        <UsageCount Value="10"/>
    894895      </Unit97>
    895896      <Unit98>
    … …  
    899900        <TopLine Value="3089"/>
    900901        <CursorPos X="27" Y="3106"/>
    901         <UsageCount Value="12"/>
     902        <UsageCount Value="11"/>
    902903      </Unit98>
    903904      <Unit99>
    … …  
    910911        <TopLine Value="17"/>
    911912        <CursorPos X="1" Y="47"/>
    912         <UsageCount Value="26"/>
     913        <UsageCount Value="41"/>
    913914        <DefaultSyntaxHighlighter Value="Delphi"/>
    914915      </Unit99>
    … …  
    921922        <WindowIndex Value="0"/>
    922923        <TopLine Value="26"/>
    923         <CursorPos X="1" Y="57"/>
    924         <UsageCount Value="23"/>
     924        <CursorPos X="84" Y="45"/>
     925        <UsageCount Value="38"/>
    925926        <DefaultSyntaxHighlighter Value="Delphi"/>
    926927      </Unit100>
    … …  
    934935        <TopLine Value="66"/>
    935936        <CursorPos X="1" Y="97"/>
    936         <UsageCount Value="23"/>
     937        <UsageCount Value="38"/>
    937938        <DefaultSyntaxHighlighter Value="Delphi"/>
    938939      </Unit101>
    … …  
    945946        <WindowIndex Value="0"/>
    946947        <TopLine Value="26"/>
    947         <CursorPos X="1" Y="57"/>
    948         <UsageCount Value="22"/>
     948        <CursorPos X="1" Y="53"/>
     949        <UsageCount Value="37"/>
    949950        <DefaultSyntaxHighlighter Value="Delphi"/>
    950951      </Unit102>
    … …  
    958959        <TopLine Value="24"/>
    959960        <CursorPos X="1" Y="55"/>
    960         <UsageCount Value="22"/>
     961        <UsageCount Value="37"/>
    961962        <DefaultSyntaxHighlighter Value="Delphi"/>
    962963      </Unit103>
    … …  
    968969        <UnitName Value="UVoIPPage"/>
    969970        <WindowIndex Value="0"/>
    970         <TopLine Value="34"/>
    971         <CursorPos X="1" Y="65"/>
    972         <UsageCount Value="22"/>
     971        <TopLine Value="24"/>
     972        <CursorPos X="51" Y="42"/>
     973        <UsageCount Value="37"/>
    973974        <DefaultSyntaxHighlighter Value="Delphi"/>
    974975      </Unit104>
    … …  
    979980        <ResourceBaseClass Value="DataModule"/>
    980981        <UnitName Value="UPlansPage"/>
    981         <EditorIndex Value="5"/>
    982982        <WindowIndex Value="0"/>
    983983        <TopLine Value="28"/>
    984984        <CursorPos X="23" Y="40"/>
    985         <UsageCount Value="22"/>
    986         <Loaded Value="True"/>
     985        <UsageCount Value="37"/>
    987986        <DefaultSyntaxHighlighter Value="Delphi"/>
    988987      </Unit105>
    … …  
    996995        <TopLine Value="36"/>
    997996        <CursorPos X="1" Y="67"/>
    998         <UsageCount Value="22"/>
     997        <UsageCount Value="37"/>
    999998        <DefaultSyntaxHighlighter Value="Delphi"/>
    1000999      </Unit106>
    … …  
    10081007        <TopLine Value="8"/>
    10091008        <CursorPos X="1" Y="39"/>
    1010         <UsageCount Value="22"/>
     1009        <UsageCount Value="37"/>
    10111010        <DefaultSyntaxHighlighter Value="Delphi"/>
    10121011      </Unit107>
    … …  
    10171016        <ResourceBaseClass Value="DataModule"/>
    10181017        <UnitName Value="UWebCamPage"/>
    1019         <WindowIndex Value="0"/>
    1020         <TopLine Value="47"/>
    1021         <CursorPos X="1" Y="78"/>
    1022         <UsageCount Value="22"/>
     1018        <IsVisibleTab Value="True"/>
     1019        <EditorIndex Value="3"/>
     1020        <WindowIndex Value="0"/>
     1021        <TopLine Value="26"/>
     1022        <CursorPos X="9" Y="50"/>
     1023        <UsageCount Value="37"/>
     1024        <Loaded Value="True"/>
     1025        <LoadedDesigner Value="True"/>
    10231026        <DefaultSyntaxHighlighter Value="Delphi"/>
    10241027      </Unit108>
    … …  
    10321035        <TopLine Value="38"/>
    10331036        <CursorPos X="1" Y="68"/>
    1034         <UsageCount Value="22"/>
     1037        <UsageCount Value="37"/>
    10351038        <DefaultSyntaxHighlighter Value="Delphi"/>
    10361039      </Unit109>
    … …  
    10441047        <TopLine Value="15"/>
    10451048        <CursorPos X="1" Y="46"/>
    1046         <UsageCount Value="22"/>
     1049        <UsageCount Value="37"/>
    10471050        <DefaultSyntaxHighlighter Value="Delphi"/>
    10481051      </Unit110>
    … …  
    10541057        <UnitName Value="UAboutPage"/>
    10551058        <WindowIndex Value="0"/>
    1056         <TopLine Value="54"/>
     1059        <TopLine Value="55"/>
    10571060        <CursorPos X="1" Y="83"/>
    1058         <UsageCount Value="22"/>
     1061        <UsageCount Value="37"/>
    10591062        <DefaultSyntaxHighlighter Value="Delphi"/>
    10601063      </Unit111>
    … …  
    10701073          <CursorPos X="50" Y="4"/>
    10711074        </ExtraEditor1>
    1072         <UsageCount Value="10"/>
     1075        <UsageCount Value="9"/>
    10731076        <DefaultSyntaxHighlighter Value="LFM"/>
    10741077      </Unit112>
    … …  
    10791082        <TopLine Value="344"/>
    10801083        <CursorPos X="30" Y="361"/>
    1081         <UsageCount Value="10"/>
     1084        <UsageCount Value="9"/>
    10821085      </Unit113>
    10831086      <Unit114>
    … …  
    10871090        <TopLine Value="475"/>
    10881091        <CursorPos X="34" Y="492"/>
    1089         <UsageCount Value="10"/>
     1092        <UsageCount Value="9"/>
    10901093      </Unit114>
    10911094      <Unit115>
    … …  
    10951098        <TopLine Value="23"/>
    10961099        <CursorPos X="37" Y="23"/>
     1100        <UsageCount Value="9"/>
     1101      </Unit115>
     1102      <Unit116>
     1103        <Filename Value="Common/URegistry.pas"/>
     1104        <IsPartOfProject Value="True"/>
     1105        <UnitName Value="URegistry"/>
     1106        <WindowIndex Value="0"/>
     1107        <TopLine Value="1"/>
     1108        <CursorPos X="26" Y="11"/>
     1109        <UsageCount Value="31"/>
     1110        <DefaultSyntaxHighlighter Value="Delphi"/>
     1111      </Unit116>
     1112      <Unit117>
     1113        <Filename Value="/usr/share/fpcsrc/2.4.2/packages/fcl-registry/src/registry.pp"/>
     1114        <UnitName Value="registry"/>
     1115        <WindowIndex Value="0"/>
     1116        <TopLine Value="72"/>
     1117        <CursorPos X="62" Y="94"/>
     1118        <UsageCount Value="13"/>
     1119      </Unit117>
     1120      <Unit118>
     1121        <Filename Value="/usr/share/fpcsrc/2.4.2/packages/fcl-registry/src/xregreg.inc"/>
     1122        <WindowIndex Value="0"/>
     1123        <TopLine Value="35"/>
     1124        <CursorPos X="22" Y="53"/>
     1125        <UsageCount Value="13"/>
     1126      </Unit118>
     1127      <Unit119>
     1128        <Filename Value="/usr/share/fpcsrc/2.4.2/packages/fcl-registry/src/xmlreg.pp"/>
     1129        <UnitName Value="xmlreg"/>
     1130        <WindowIndex Value="0"/>
     1131        <TopLine Value="27"/>
     1132        <CursorPos X="14" Y="74"/>
     1133        <UsageCount Value="13"/>
     1134      </Unit119>
     1135      <Unit120>
     1136        <Filename Value="/usr/share/fpcsrc/2.4.2/rtl/objpas/classes/stringl.inc"/>
     1137        <WindowIndex Value="0"/>
     1138        <TopLine Value="1"/>
     1139        <CursorPos X="3" Y="1"/>
    10971140        <UsageCount Value="10"/>
    1098       </Unit115>
     1141      </Unit120>
     1142      <Unit121>
     1143        <Filename Value="/usr/share/fpcsrc/2.4.2/rtl/objpas/sysutils/sysutilh.inc"/>
     1144        <WindowIndex Value="0"/>
     1145        <TopLine Value="59"/>
     1146        <CursorPos X="29" Y="76"/>
     1147        <UsageCount Value="10"/>
     1148      </Unit121>
    10991149    </Units>
    11001150    <JumpHistory Count="30" HistoryIndex="29">
    11011151      <Position1>
    1102         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1103         <Caret Line="97" Column="1" TopLine="79"/>
     1152        <Filename Value="CGI.lpr"/>
     1153        <Caret Line="20" Column="1" TopLine="3"/>
    11041154      </Position1>
    11051155      <Position2>
    1106         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1107         <Caret Line="98" Column="1" TopLine="79"/>
     1156        <Filename Value="CGI.lpr"/>
     1157        <Caret Line="21" Column="1" TopLine="3"/>
    11081158      </Position2>
    11091159      <Position3>
    1110         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1111         <Caret Line="99" Column="1" TopLine="79"/>
     1160        <Filename Value="CGI.lpr"/>
     1161        <Caret Line="22" Column="1" TopLine="3"/>
    11121162      </Position3>
    11131163      <Position4>
    1114         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1115         <Caret Line="100" Column="1" TopLine="79"/>
     1164        <Filename Value="CGI.lpr"/>
     1165        <Caret Line="23" Column="1" TopLine="3"/>
    11161166      </Position4>
    11171167      <Position5>
    1118         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1119         <Caret Line="102" Column="1" TopLine="79"/>
     1168        <Filename Value="CGI.lpr"/>
     1169        <Caret Line="24" Column="1" TopLine="3"/>
    11201170      </Position5>
    11211171      <Position6>
    1122         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1123         <Caret Line="104" Column="1" TopLine="79"/>
     1172        <Filename Value="CGI.lpr"/>
     1173        <Caret Line="25" Column="1" TopLine="3"/>
    11241174      </Position6>
    11251175      <Position7>
    1126         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1127         <Caret Line="105" Column="1" TopLine="79"/>
     1176        <Filename Value="CGI.lpr"/>
     1177        <Caret Line="26" Column="1" TopLine="3"/>
    11281178      </Position7>
    11291179      <Position8>
    1130         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1131         <Caret Line="106" Column="1" TopLine="79"/>
     1180        <Filename Value="CGI.lpr"/>
     1181        <Caret Line="27" Column="1" TopLine="3"/>
    11321182      </Position8>
    11331183      <Position9>
    1134         <Filename Value="Modules/UMainModule.pas"/>
    1135         <Caret Line="75" Column="11" TopLine="60"/>
     1184        <Filename Value="CGI.lpr"/>
     1185        <Caret Line="28" Column="1" TopLine="3"/>
    11361186      </Position9>
    11371187      <Position10>
    1138         <Filename Value="Modules/UMainModule.pas"/>
    1139         <Caret Line="199" Column="75" TopLine="197"/>
     1188        <Filename Value="CGI.lpr"/>
     1189        <Caret Line="29" Column="1" TopLine="3"/>
    11401190      </Position10>
    11411191      <Position11>
    1142         <Filename Value="Modules/UMainModule.pas"/>
    1143         <Caret Line="74" Column="37" TopLine="57"/>
     1192        <Filename Value="CGI.lpr"/>
     1193        <Caret Line="30" Column="1" TopLine="3"/>
    11441194      </Position11>
    11451195      <Position12>
    1146         <Filename Value="Modules/UMainModule.pas"/>
    1147         <Caret Line="75" Column="12" TopLine="57"/>
     1196        <Filename Value="CGI.lpr"/>
     1197        <Caret Line="31" Column="1" TopLine="3"/>
    11481198      </Position12>
    11491199      <Position13>
    1150         <Filename Value="Modules/UMainModule.pas"/>
    1151         <Caret Line="74" Column="37" TopLine="57"/>
     1200        <Filename Value="CGI.lpr"/>
     1201        <Caret Line="33" Column="1" TopLine="5"/>
    11521202      </Position13>
    11531203      <Position14>
    1154         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1155         <Caret Line="73" Column="32" TopLine="57"/>
     1204        <Filename Value="Pages/UWebCamPage.pas"/>
     1205        <Caret Line="59" Column="1" TopLine="26"/>
    11561206      </Position14>
    11571207      <Position15>
    1158         <Filename Value="Modules/UMainModule.pas"/>
    1159         <Caret Line="199" Column="1" TopLine="183"/>
     1208        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/>
     1209        <Caret Line="175" Column="1" TopLine="158"/>
    11601210      </Position15>
    11611211      <Position16>
    1162         <Filename Value="Modules/UMainModule.pas"/>
    1163         <Caret Line="200" Column="1" TopLine="183"/>
     1212        <Filename Value="Pages/UWebCamPage.pas"/>
     1213        <Caret Line="43" Column="1" TopLine="26"/>
    11641214      </Position16>
    11651215      <Position17>
    1166         <Filename Value="Modules/UMainModule.pas"/>
    1167         <Caret Line="72" Column="42" TopLine="58"/>
     1216        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1217        <Caret Line="109" Column="1" TopLine="83"/>
    11681218      </Position17>
    11691219      <Position18>
    1170         <Filename Value="Modules/UMainModule.pas"/>
    1171         <Caret Line="74" Column="1" TopLine="58"/>
     1220        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1221        <Caret Line="14" Column="31" TopLine="1"/>
    11721222      </Position18>
    11731223      <Position19>
    1174         <Filename Value="Modules/UMainModule.pas"/>
    1175         <Caret Line="75" Column="1" TopLine="58"/>
     1224        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1225        <Caret Line="114" Column="18" TopLine="107"/>
    11761226      </Position19>
    11771227      <Position20>
    1178         <Filename Value="Modules/UMainModule.pas"/>
    1179         <Caret Line="199" Column="1" TopLine="182"/>
     1228        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1229        <Caret Line="25" Column="25" TopLine="8"/>
    11801230      </Position20>
    11811231      <Position21>
    1182         <Filename Value="Modules/UMainModule.pas"/>
    1183         <Caret Line="200" Column="1" TopLine="182"/>
     1232        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1233        <Caret Line="34" Column="15" TopLine="8"/>
    11841234      </Position21>
    11851235      <Position22>
    1186         <Filename Value="Modules/UMainModule.pas"/>
    1187         <Caret Line="74" Column="1" TopLine="57"/>
     1236        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1237        <Caret Line="119" Column="32" TopLine="113"/>
    11881238      </Position22>
    11891239      <Position23>
    1190         <Filename Value="Modules/UMainModule.pas"/>
    1191         <Caret Line="199" Column="1" TopLine="182"/>
     1240        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1241        <Caret Line="14" Column="31" TopLine="1"/>
    11921242      </Position23>
    11931243      <Position24>
    1194         <Filename Value="Modules/UMainModule.pas"/>
    1195         <Caret Line="200" Column="1" TopLine="182"/>
     1244        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1245        <Caret Line="17" Column="16" TopLine="1"/>
    11961246      </Position24>
    11971247      <Position25>
    1198         <Filename Value="Modules/UMainModule.pas"/>
    1199         <Caret Line="74" Column="1" TopLine="57"/>
     1248        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1249        <Caret Line="25" Column="27" TopLine="9"/>
    12001250      </Position25>
    12011251      <Position26>
    1202         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
    1203         <Caret Line="86" Column="1" TopLine="65"/>
     1252        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1253        <Caret Line="34" Column="53" TopLine="9"/>
    12041254      </Position26>
    12051255      <Position27>
    1206         <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
    1207         <Caret Line="75" Column="1" TopLine="57"/>
     1256        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
     1257        <Caret Line="14" Column="34" TopLine="1"/>
    12081258      </Position27>
    12091259      <Position28>
    1210         <Filename Value="Modules/UMainModule.pas"/>
    1211         <Caret Line="75" Column="12" TopLine="57"/>
     1260        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1261        <Caret Line="118" Column="17" TopLine="113"/>
    12121262      </Position28>
    12131263      <Position29>
    1214         <Filename Value="Modules/UMainModule.pas"/>
    1215         <Caret Line="199" Column="50" TopLine="197"/>
     1264        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1265        <Caret Line="115" Column="38" TopLine="113"/>
    12161266      </Position29>
    12171267      <Position30>
    1218         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    1219         <Caret Line="20" Column="14" TopLine="3"/>
     1268        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1269        <Caret Line="120" Column="70" TopLine="103"/>
    12201270      </Position30>
    12211271    </JumpHistory>
    … …  
    12451295        <StackChecks Value="True"/>
    12461296      </Checks>
    1247       <VerifyObjMethodCallValidity Value="True"/>
    12481297    </CodeGeneration>
    12491298    <Other>
    … …  
    12691318      <Item2>
    12701319        <Kind Value="bpkSource"/>
    1271         <Source Value="Modules/UMainModule.pas"/>
    1272         <Line Value="199"/>
     1320        <Source Value="Pages/UWebCamPage.pas"/>
     1321        <Line Value="43"/>
    12731322      </Item2>
    12741323    </BreakPoints>

  • trunk/CGI.lpr

    r54 r55  
    3131    RegisterPage(TNetworkPage, NetworkPage, 'sit');
    3232    RegisterPage(TAboutPage, AboutPage, '');
     33    //RegisterPage(TWebCamPage, WebCamPage, '');
    3334    Run;
    3435  finally

  • trunk/Modules/UMainModule.pas

    r54 r55  
    77uses
    88  Classes, SysUtils, FileUtil, LResources, UHTTPServerCGI, UHTTPSessionMySQL,
    9   UHTTPServer, USqlDatabase, UConfig, DateUtils, UWebPage, UWebApp,
     9  UHTTPServer, USqlDatabase, URegistry, DateUtils, UWebPage, UWebApp,
    1010  UXmlClasses, UHtmlClasses, UCore, UHTTPServerTCP,
    11   UHTTPSessionFile, UUser, SpecializedList;
     11  UHTTPSessionFile, UUser, SpecializedList, Registry;
     12
     13const
     14  RegistryKey = '\Software\Chronosoft\ZdechovNET';
    1215
    1316type
    … …  
    3942    User: TWebUser;
    4043    UserOnline: TWebOnlineUser;
     44    FormatHTML: Boolean;
     45    procedure LoadFromRegistry;
     46    procedure SaveToRegistry;
    4147    procedure GeneratePage(HandlerData: THTTPHandlerData; Page: TWebPage);
    4248    procedure Run;
    … …  
    6268  UserOnline.Update;
    6369  with HandlerData do begin
    64     Style := Config.Style;
    65     BaseURL := Config.BaseURL;
    66 
    6770    HtmlDocument.ContentLanguage := 'cs';
    6871    GlobalTitle := 'ZděchovNET';
    … …  
    8184      with HtmlDocument.AsXmlDocument do
    8285      try
    83         Formated := Config.FormatHTML;
     86        Formated := FormatHTML;
    8487        Response.Stream.WriteString(AsString);
    8588      finally
    … …  
    9497begin
    9598  with Database do begin
    96     Hostname := Config.DatabaseHostName;
    97     Database := Config.DatabaseDatabase;
    98     UserName := Config.DatabaseUserName;
    99     Password := Config.DatabasePassword;
    10099    Connect;
    101100  end;
    … …  
    229228end;
    230229
     230procedure TMainModule.LoadFromRegistry;
     231begin
     232  with TRegistryEx.Create do
     233  try
     234    RootKey := HKEY_CURRENT_USER;
     235    OpenKey(RegistryKey, True);
     236    Style := ReadStringWithDefault('Style', 'Basic');
     237    BaseURL := ReadStringWithDefault('BaseURL', 'http://localhost');
     238    Database.Hostname := ReadStringWithDefault('DatabaseHostName', 'localhost');
     239    Database.Database := ReadStringWithDefault('DatabaseDatabase', 'web');
     240    Database.UserName := ReadStringWithDefault('DatabaseUserName', 'user');
     241    Database.Password := ReadStringWithDefault('DatabasePassword', 'password');
     242    FormatHTML := ReadBoolWithDefault('FormatHTML', False);
     243    Application.HTTPServer.ShowExceptions := ReadBoolWithDefault('ShowException', False);
     244
     245  finally
     246    Free;
     247  end;
     248end;
     249
     250procedure TMainModule.SaveToRegistry;
     251begin
     252
     253end;
     254
    231255procedure TMainModule.Run;
    232256begin
     257  LoadFromRegistry;
     258  //Application.HTTPServer.ShowExceptions := True;
    233259  InitDatabase;
    234   Application.HTTPServer.ShowExceptions := Config.ShowException;
    235260  //Database.Query('SELECT * FROM ssss');
    236261end;
Note: See TracChangeset for help on using the changeset viewer.