Changeset 53 for trunk


Ignore:
Timestamp:
Jul 20, 2011, 10:50:41 PM (13 years ago)
Author:
george
Message:
  • Upraveno: Projekt jako potomek TWebApp.
Location:
trunk
Files:
5 edited

Legend:

Unmodified
Added
Removed

  • trunk/CGI.lpi

    r52 r53  
    5050      </Item3>
    5151    </RequiredPackages>
    52     <Units Count="86">
     52    <Units Count="116">
    5353      <Unit0>
    5454        <Filename Value="CGI.lpr"/>
    5555        <IsPartOfProject Value="True"/>
    5656        <UnitName Value="CGI"/>
    57         <IsVisibleTab Value="True"/>
    58         <EditorIndex Value="1"/>
    59         <WindowIndex Value="0"/>
    60         <TopLine Value="1"/>
    61         <CursorPos X="5" Y="23"/>
     57        <EditorIndex Value="0"/>
     58        <WindowIndex Value="0"/>
     59        <TopLine Value="5"/>
     60        <CursorPos X="7" Y="34"/>
    6261        <UsageCount Value="203"/>
    6362        <Loaded Value="True"/>
    … …  
    6665      <Unit1>
    6766        <Filename Value="Pages/UMainPage.pas"/>
    68         <IsPartOfProject Value="True"/>
    6967        <UnitName Value="UMainPage"/>
    70         <EditorIndex Value="0"/>
    7168        <WindowIndex Value="0"/>
    7269        <TopLine Value="1"/>
    7370        <CursorPos X="1" Y="11"/>
    7471        <UsageCount Value="200"/>
    75         <Loaded Value="True"/>
    7672        <DefaultSyntaxHighlighter Value="Delphi"/>
    7773      </Unit1>
    … …  
    9490        <IsPartOfProject Value="True"/>
    9591        <UnitName Value="UCore"/>
    96         <EditorIndex Value="14"/>
    9792        <WindowIndex Value="0"/>
    9893        <TopLine Value="1"/>
    9994        <CursorPos X="3" Y="8"/>
    10095        <UsageCount Value="203"/>
    101         <Loaded Value="True"/>
    10296        <DefaultSyntaxHighlighter Value="Delphi"/>
    10397      </Unit4>
    … …  
    167161        <IsPartOfProject Value="True"/>
    168162        <UnitName Value="UConfig"/>
    169         <EditorIndex Value="12"/>
    170         <WindowIndex Value="0"/>
    171         <TopLine Value="7"/>
    172         <CursorPos X="41" Y="24"/>
     163        <WindowIndex Value="0"/>
     164        <TopLine Value="10"/>
     165        <CursorPos X="45" Y="25"/>
    173166        <UsageCount Value="294"/>
    174         <Loaded Value="True"/>
    175167        <DefaultSyntaxHighlighter Value="Delphi"/>
    176168      </Unit12>
    … …  
    533525        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/CoolWeb.pas"/>
    534526        <UnitName Value="CoolWeb"/>
    535         <EditorIndex Value="3"/>
    536         <WindowIndex Value="0"/>
    537         <TopLine Value="1"/>
    538         <CursorPos X="33" Y="18"/>
     527        <WindowIndex Value="0"/>
     528        <TopLine Value="1"/>
     529        <CursorPos X="48" Y="25"/>
    539530        <UsageCount Value="12"/>
    540         <Loaded Value="True"/>
    541531      </Unit54>
    542532      <Unit55>
    … …  
    559549        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UXmlClasses.pas"/>
    560550        <UnitName Value="UXmlClasses"/>
    561         <EditorIndex Value="15"/>
    562551        <WindowIndex Value="0"/>
    563552        <TopLine Value="16"/>
    564553        <CursorPos X="1" Y="25"/>
    565         <UsageCount Value="21"/>
    566         <Loaded Value="True"/>
     554        <UsageCount Value="22"/>
    567555      </Unit57>
    568556      <Unit58>
    569557        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Common/UHtmlClasses.pas"/>
    570558        <UnitName Value="UHtmlClasses"/>
    571         <EditorIndex Value="16"/>
    572         <WindowIndex Value="0"/>
    573         <TopLine Value="731"/>
    574         <CursorPos X="38" Y="434"/>
    575         <UsageCount Value="22"/>
    576         <Loaded Value="True"/>
     559        <WindowIndex Value="0"/>
     560        <TopLine Value="159"/>
     561        <CursorPos X="14" Y="176"/>
     562        <UsageCount Value="23"/>
    577563      </Unit58>
    578564      <Unit59>
    … …  
    580566        <IsPartOfProject Value="True"/>
    581567        <UnitName Value="UWebObjects"/>
    582         <EditorIndex Value="10"/>
    583         <WindowIndex Value="0"/>
    584         <TopLine Value="1"/>
    585         <CursorPos X="1" Y="1"/>
    586         <UsageCount Value="42"/>
    587         <Loaded Value="True"/>
     568        <WindowIndex Value="0"/>
     569        <TopLine Value="71"/>
     570        <CursorPos X="40" Y="12"/>
     571        <UsageCount Value="51"/>
    588572        <DefaultSyntaxHighlighter Value="Delphi"/>
    589573      </Unit59>
    … …  
    607591        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServer.pas"/>
    608592        <UnitName Value="UHTTPServer"/>
    609         <EditorIndex Value="17"/>
    610593        <WindowIndex Value="0"/>
    611594        <TopLine Value="82"/>
    612595        <CursorPos X="15" Y="98"/>
    613         <UsageCount Value="11"/>
    614         <Loaded Value="True"/>
     596        <UsageCount Value="14"/>
    615597      </Unit62>
    616598      <Unit63>
    617599        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerCGI.pas"/>
    618600        <UnitName Value="UHTTPServerCGI"/>
    619         <WindowIndex Value="0"/>
    620         <TopLine Value="2"/>
    621         <CursorPos X="37" Y="14"/>
    622         <UsageCount Value="9"/>
     601        <EditorIndex Value="5"/>
     602        <WindowIndex Value="0"/>
     603        <TopLine Value="65"/>
     604        <CursorPos X="23" Y="85"/>
     605        <UsageCount Value="10"/>
     606        <Loaded Value="True"/>
    623607      </Unit63>
    624608      <Unit64>
    … …  
    655639      <Unit68>
    656640        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericListObject.inc"/>
    657         <EditorIndex Value="7"/>
    658641        <WindowIndex Value="0"/>
    659642        <TopLine Value="2"/>
    660643        <CursorPos X="14" Y="19"/>
    661644        <UsageCount Value="11"/>
    662         <Loaded Value="True"/>
    663645      </Unit68>
    664646      <Unit69>
    … …  
    706688        <Filename Value="../../PascalClassLibrary/Docking/CoolDocking/UCDClient.pas"/>
    707689        <UnitName Value="UCDClient"/>
    708         <EditorIndex Value="11"/>
    709690        <WindowIndex Value="0"/>
    710691        <TopLine Value="1"/>
    711692        <CursorPos X="42" Y="14"/>
    712         <UsageCount Value="11"/>
    713         <Loaded Value="True"/>
     693        <UsageCount Value="12"/>
    714694      </Unit74>
    715695      <Unit75>
    716696        <Filename Value="../../PascalClassLibrary/Docking/CoolDocking/CoolDocking.pas"/>
    717697        <UnitName Value="CoolDocking"/>
    718         <EditorIndex Value="13"/>
    719698        <WindowIndex Value="0"/>
    720699        <TopLine Value="1"/>
    721700        <CursorPos X="1" Y="1"/>
    722         <UsageCount Value="11"/>
    723         <Loaded Value="True"/>
     701        <UsageCount Value="12"/>
    724702      </Unit75>
    725703      <Unit76>
    … …  
    729707        <ResourceBaseClass Value="DataModule"/>
    730708        <UnitName Value="UMainModule"/>
    731         <EditorIndex Value="6"/>
    732         <WindowIndex Value="0"/>
    733         <TopLine Value="100"/>
    734         <CursorPos X="46" Y="117"/>
    735         <UsageCount Value="24"/>
     709        <EditorIndex Value="4"/>
     710        <WindowIndex Value="0"/>
     711        <TopLine Value="9"/>
     712        <CursorPos X="18" Y="30"/>
     713        <UsageCount Value="33"/>
    736714        <Loaded Value="True"/>
    737715        <LoadedDesigner Value="True"/>
    … …  
    764742        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPServerTCP.pas"/>
    765743        <UnitName Value="UHTTPServerTCP"/>
    766         <EditorIndex Value="5"/>
    767744        <WindowIndex Value="0"/>
    768745        <TopLine Value="10"/>
    769746        <CursorPos X="1" Y="35"/>
    770747        <UsageCount Value="11"/>
    771         <Loaded Value="True"/>
    772748      </Unit80>
    773749      <Unit81>
    … …  
    782758        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UHTTPSessionMySQL.pas"/>
    783759        <UnitName Value="UHTTPSessionMySQL"/>
    784         <EditorIndex Value="8"/>
    785760        <WindowIndex Value="0"/>
    786761        <TopLine Value="2"/>
    787762        <CursorPos X="14" Y="19"/>
    788         <UsageCount Value="10"/>
    789         <Loaded Value="True"/>
     763        <UsageCount Value="11"/>
    790764      </Unit82>
    791765      <Unit83>
    792766        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebPage.pas"/>
     767        <ComponentName Value="WebPage"/>
     768        <HasResources Value="True"/>
     769        <ResourceBaseClass Value="DataModule"/>
    793770        <UnitName Value="UWebPage"/>
    794         <EditorIndex Value="2"/>
    795         <WindowIndex Value="0"/>
    796         <TopLine Value="1"/>
    797         <CursorPos X="33" Y="8"/>
    798         <UsageCount Value="11"/>
    799         <Loaded Value="True"/>
     771        <WindowIndex Value="0"/>
     772        <TopLine Value="1"/>
     773        <CursorPos X="25" Y="15"/>
     774        <UsageCount Value="14"/>
    800775      </Unit83>
    801776      <Unit84>
    802777        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/Persistence/USqlDatabase.pas"/>
    803778        <UnitName Value="USqlDatabase"/>
    804         <EditorIndex Value="9"/>
    805779        <WindowIndex Value="0"/>
    806780        <TopLine Value="95"/>
    807781        <CursorPos X="1" Y="110"/>
    808         <UsageCount Value="11"/>
    809         <Loaded Value="True"/>
     782        <UsageCount Value="12"/>
    810783      </Unit84>
    811784      <Unit85>
    812785        <Filename Value="Modules/UPagesModule.pas"/>
    813         <IsPartOfProject Value="True"/>
    814786        <ComponentName Value="PagesModule"/>
    815787        <ResourceBaseClass Value="DataModule"/>
    816788        <UnitName Value="UPagesModule"/>
    817         <EditorIndex Value="4"/>
    818         <WindowIndex Value="0"/>
    819         <TopLine Value="1"/>
    820         <CursorPos X="70" Y="442"/>
     789        <WindowIndex Value="0"/>
     790        <TopLine Value="12"/>
     791        <CursorPos X="43" Y="26"/>
     792        <UsageCount Value="30"/>
     793        <DefaultSyntaxHighlighter Value="Delphi"/>
     794      </Unit85>
     795      <Unit86>
     796        <Filename Value="../../../lazarus/components/fpweb/reglazwebextra.pp"/>
     797        <UnitName Value="reglazwebextra"/>
     798        <WindowIndex Value="0"/>
     799        <TopLine Value="33"/>
     800        <CursorPos X="14" Y="50"/>
     801        <UsageCount Value="13"/>
     802      </Unit86>
     803      <Unit87>
     804        <Filename Value="../../../lazarus/ideintf/projectintf.pas"/>
     805        <UnitName Value="ProjectIntf"/>
     806        <WindowIndex Value="0"/>
     807        <TopLine Value="179"/>
     808        <CursorPos X="14" Y="199"/>
     809        <UsageCount Value="12"/>
     810      </Unit87>
     811      <Unit88>
     812        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/LazIDEReg.pas"/>
     813        <UnitName Value="LazIDEReg"/>
     814        <EditorIndex Value="7"/>
     815        <WindowIndex Value="0"/>
     816        <TopLine Value="1"/>
     817        <CursorPos X="64" Y="8"/>
     818        <UsageCount Value="13"/>
     819        <Loaded Value="True"/>
     820      </Unit88>
     821      <Unit89>
     822        <Filename Value="../../../lazarus/components/fpcunit/ide/fpcunitlazideintf.pas"/>
     823        <UnitName Value="FPCUnitLazIDEIntf"/>
     824        <WindowIndex Value="0"/>
     825        <TopLine Value="184"/>
     826        <CursorPos X="3" Y="199"/>
     827        <UsageCount Value="13"/>
     828      </Unit89>
     829      <Unit90>
     830        <Filename Value="../../../lazarus/lcl/forms.pp"/>
     831        <UnitName Value="Forms"/>
     832        <WindowIndex Value="0"/>
     833        <TopLine Value="1289"/>
     834        <CursorPos X="36" Y="1307"/>
     835        <UsageCount Value="11"/>
     836      </Unit90>
     837      <Unit91>
     838        <Filename Value="../../../lazarus/lcl/controls.pp"/>
     839        <UnitName Value="Controls"/>
     840        <WindowIndex Value="0"/>
     841        <TopLine Value="34"/>
     842        <CursorPos X="3" Y="51"/>
     843        <UsageCount Value="10"/>
     844      </Unit91>
     845      <Unit92>
     846        <Filename Value="../../../lazarus/ideintf/lazideintf.pas"/>
     847        <UnitName Value="LazIDEIntf"/>
     848        <WindowIndex Value="0"/>
     849        <TopLine Value="174"/>
     850        <CursorPos X="14" Y="191"/>
     851        <UsageCount Value="11"/>
     852      </Unit92>
     853      <Unit93>
     854        <Filename Value="/usr/share/fpcsrc/2.4.2/rtl/objpas/classes/classesh.inc"/>
     855        <WindowIndex Value="0"/>
     856        <TopLine Value="1847"/>
     857        <CursorPos X="3" Y="1814"/>
     858        <UsageCount Value="11"/>
     859      </Unit93>
     860      <Unit94>
     861        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     862        <UnitName Value="UWebApp"/>
     863        <IsVisibleTab Value="True"/>
     864        <EditorIndex Value="3"/>
     865        <WindowIndex Value="0"/>
     866        <TopLine Value="21"/>
     867        <CursorPos X="18" Y="43"/>
     868        <UsageCount Value="13"/>
     869        <Loaded Value="True"/>
     870      </Unit94>
     871      <Unit95>
     872        <Filename Value="/usr/share/fpcsrc/2.4.2/packages/fcl-base/src/custapp.pp"/>
     873        <UnitName Value="CustApp"/>
     874        <EditorIndex Value="1"/>
     875        <WindowIndex Value="0"/>
     876        <TopLine Value="34"/>
     877        <CursorPos X="15" Y="51"/>
     878        <UsageCount Value="13"/>
     879        <Loaded Value="True"/>
     880      </Unit95>
     881      <Unit96>
     882        <Filename Value="../../../lazarus/lcl/include/application.inc"/>
     883        <WindowIndex Value="0"/>
     884        <TopLine Value="2101"/>
     885        <CursorPos X="3" Y="2108"/>
     886        <UsageCount Value="11"/>
     887      </Unit96>
     888      <Unit97>
     889        <Filename Value="/usr/share/fpcsrc/2.4.2/rtl/inc/objpash.inc"/>
     890        <WindowIndex Value="0"/>
     891        <TopLine Value="180"/>
     892        <CursorPos X="26" Y="197"/>
     893        <UsageCount Value="11"/>
     894      </Unit97>
     895      <Unit98>
     896        <Filename Value="../../../lazarus/lcl/lresources.pp"/>
     897        <UnitName Value="LResources"/>
     898        <WindowIndex Value="0"/>
     899        <TopLine Value="3089"/>
     900        <CursorPos X="27" Y="3106"/>
     901        <UsageCount Value="12"/>
     902      </Unit98>
     903      <Unit99>
     904        <Filename Value="Pages/UContactPage.pas"/>
     905        <IsPartOfProject Value="True"/>
     906        <ComponentName Value="ContactPage"/>
     907        <ResourceBaseClass Value="DataModule"/>
     908        <UnitName Value="UContactPage"/>
     909        <WindowIndex Value="0"/>
     910        <TopLine Value="1"/>
     911        <CursorPos X="68" Y="5"/>
     912        <UsageCount Value="24"/>
     913        <DefaultSyntaxHighlighter Value="Delphi"/>
     914      </Unit99>
     915      <Unit100>
     916        <Filename Value="Pages/UInternetPage.pas"/>
     917        <IsPartOfProject Value="True"/>
     918        <ComponentName Value="InternetPage"/>
     919        <ResourceBaseClass Value="DataModule"/>
     920        <UnitName Value="UInternetPage"/>
     921        <WindowIndex Value="0"/>
     922        <TopLine Value="20"/>
     923        <CursorPos X="28" Y="30"/>
    821924        <UsageCount Value="21"/>
     925        <DefaultSyntaxHighlighter Value="Delphi"/>
     926      </Unit100>
     927      <Unit101>
     928        <Filename Value="Pages/UHostingPage.pas"/>
     929        <IsPartOfProject Value="True"/>
     930        <ComponentName Value="HostingPage"/>
     931        <ResourceBaseClass Value="DataModule"/>
     932        <UnitName Value="UHostingPage"/>
     933        <WindowIndex Value="0"/>
     934        <TopLine Value="20"/>
     935        <CursorPos X="15" Y="31"/>
     936        <UsageCount Value="21"/>
     937        <DefaultSyntaxHighlighter Value="Delphi"/>
     938      </Unit101>
     939      <Unit102>
     940        <Filename Value="Pages/UHistoryPage.pas"/>
     941        <IsPartOfProject Value="True"/>
     942        <ComponentName Value="HistoryPage"/>
     943        <ResourceBaseClass Value="DataModule"/>
     944        <UnitName Value="UHistoryPage"/>
     945        <WindowIndex Value="0"/>
     946        <TopLine Value="9"/>
     947        <CursorPos X="21" Y="30"/>
     948        <UsageCount Value="20"/>
     949        <DefaultSyntaxHighlighter Value="Delphi"/>
     950      </Unit102>
     951      <Unit103>
     952        <Filename Value="Pages/UDocumentsPage.pas"/>
     953        <IsPartOfProject Value="True"/>
     954        <ComponentName Value="DocumentsPage"/>
     955        <ResourceBaseClass Value="DataModule"/>
     956        <UnitName Value="UDocumentsPage"/>
     957        <WindowIndex Value="0"/>
     958        <TopLine Value="23"/>
     959        <CursorPos X="21" Y="30"/>
     960        <UsageCount Value="20"/>
     961        <DefaultSyntaxHighlighter Value="Delphi"/>
     962      </Unit103>
     963      <Unit104>
     964        <Filename Value="Pages/UVoIPPage.pas"/>
     965        <IsPartOfProject Value="True"/>
     966        <ComponentName Value="VoIPPage"/>
     967        <ResourceBaseClass Value="DataModule"/>
     968        <UnitName Value="UVoIPPage"/>
     969        <WindowIndex Value="0"/>
     970        <TopLine Value="1"/>
     971        <CursorPos X="67" Y="8"/>
     972        <UsageCount Value="20"/>
     973        <DefaultSyntaxHighlighter Value="Delphi"/>
     974      </Unit104>
     975      <Unit105>
     976        <Filename Value="Pages/UPlansPage.pas"/>
     977        <IsPartOfProject Value="True"/>
     978        <ComponentName Value="PlansPage"/>
     979        <ResourceBaseClass Value="DataModule"/>
     980        <UnitName Value="UPlansPage"/>
     981        <WindowIndex Value="0"/>
     982        <TopLine Value="2"/>
     983        <CursorPos X="81" Y="8"/>
     984        <UsageCount Value="20"/>
     985        <DefaultSyntaxHighlighter Value="Delphi"/>
     986      </Unit105>
     987      <Unit106>
     988        <Filename Value="Pages/ULinksPage.pas"/>
     989        <IsPartOfProject Value="True"/>
     990        <ComponentName Value="LinksPage"/>
     991        <ResourceBaseClass Value="DataModule"/>
     992        <UnitName Value="ULinksPage"/>
     993        <WindowIndex Value="0"/>
     994        <TopLine Value="1"/>
     995        <CursorPos X="67" Y="8"/>
     996        <UsageCount Value="20"/>
     997        <DefaultSyntaxHighlighter Value="Delphi"/>
     998      </Unit106>
     999      <Unit107>
     1000        <Filename Value="Pages/UServerInfoPage.pas"/>
     1001        <IsPartOfProject Value="True"/>
     1002        <ComponentName Value="ServerInfoPage"/>
     1003        <ResourceBaseClass Value="DataModule"/>
     1004        <UnitName Value="UServerInfoPage"/>
     1005        <WindowIndex Value="0"/>
     1006        <TopLine Value="8"/>
     1007        <CursorPos X="14" Y="30"/>
     1008        <UsageCount Value="20"/>
     1009        <DefaultSyntaxHighlighter Value="Delphi"/>
     1010      </Unit107>
     1011      <Unit108>
     1012        <Filename Value="Pages/UWebCamPage.pas"/>
     1013        <IsPartOfProject Value="True"/>
     1014        <ComponentName Value="WebCamPage"/>
     1015        <ResourceBaseClass Value="DataModule"/>
     1016        <UnitName Value="UWebCamPage"/>
     1017        <WindowIndex Value="0"/>
     1018        <TopLine Value="17"/>
     1019        <CursorPos X="21" Y="30"/>
     1020        <UsageCount Value="20"/>
     1021        <DefaultSyntaxHighlighter Value="Delphi"/>
     1022      </Unit108>
     1023      <Unit109>
     1024        <Filename Value="Pages/UUserControlPage.pas"/>
     1025        <IsPartOfProject Value="True"/>
     1026        <ComponentName Value="UserControlPage"/>
     1027        <ResourceBaseClass Value="DataModule"/>
     1028        <UnitName Value="UUserControlPage"/>
     1029        <WindowIndex Value="0"/>
     1030        <TopLine Value="1"/>
     1031        <CursorPos X="14" Y="9"/>
     1032        <UsageCount Value="20"/>
     1033        <DefaultSyntaxHighlighter Value="Delphi"/>
     1034      </Unit109>
     1035      <Unit110>
     1036        <Filename Value="Pages/UNetworkPage.pas"/>
     1037        <IsPartOfProject Value="True"/>
     1038        <ComponentName Value="NetworkPage"/>
     1039        <ResourceBaseClass Value="DataModule"/>
     1040        <UnitName Value="UNetworkPage"/>
     1041        <WindowIndex Value="0"/>
     1042        <TopLine Value="15"/>
     1043        <CursorPos X="21" Y="30"/>
     1044        <UsageCount Value="20"/>
     1045        <DefaultSyntaxHighlighter Value="Delphi"/>
     1046      </Unit110>
     1047      <Unit111>
     1048        <Filename Value="Pages/UAboutPage.pas"/>
     1049        <IsPartOfProject Value="True"/>
     1050        <ComponentName Value="AboutPage"/>
     1051        <ResourceBaseClass Value="DataModule"/>
     1052        <UnitName Value="UAboutPage"/>
     1053        <EditorIndex Value="2"/>
     1054        <WindowIndex Value="0"/>
     1055        <TopLine Value="34"/>
     1056        <CursorPos X="37" Y="43"/>
     1057        <UsageCount Value="20"/>
    8221058        <Loaded Value="True"/>
    8231059        <LoadedDesigner Value="True"/>
    8241060        <DefaultSyntaxHighlighter Value="Delphi"/>
    825       </Unit85>
     1061      </Unit111>
     1062      <Unit112>
     1063        <Filename Value="Pages/UAboutPage.lfm"/>
     1064        <EditorIndex Value="6"/>
     1065        <WindowIndex Value="0"/>
     1066        <TopLine Value="1"/>
     1067        <CursorPos X="50" Y="4"/>
     1068        <ExtraEditorCount Value="1"/>
     1069        <ExtraEditor1>
     1070          <WindowIndex Value="0"/>
     1071          <TopLine Value="1"/>
     1072          <CursorPos X="1" Y="1"/>
     1073        </ExtraEditor1>
     1074        <UsageCount Value="10"/>
     1075        <Loaded Value="True"/>
     1076        <DefaultSyntaxHighlighter Value="LFM"/>
     1077      </Unit112>
     1078      <Unit113>
     1079        <Filename Value="../../PascalClassLibrary/Docking/CoolDocking/Managers/UCDManagerTabs.pas"/>
     1080        <UnitName Value="UCDManagerTabs"/>
     1081        <WindowIndex Value="0"/>
     1082        <TopLine Value="344"/>
     1083        <CursorPos X="30" Y="361"/>
     1084        <UsageCount Value="10"/>
     1085      </Unit113>
     1086      <Unit114>
     1087        <Filename Value="../../../lazarus/lcl/comctrls.pp"/>
     1088        <UnitName Value="ComCtrls"/>
     1089        <WindowIndex Value="0"/>
     1090        <TopLine Value="475"/>
     1091        <CursorPos X="34" Y="492"/>
     1092        <UsageCount Value="10"/>
     1093      </Unit114>
     1094      <Unit115>
     1095        <Filename Value="../../../lazarus/components/daemon/reglazdaemon.pp"/>
     1096        <UnitName Value="RegLazDaemon"/>
     1097        <EditorIndex Value="8"/>
     1098        <WindowIndex Value="0"/>
     1099        <TopLine Value="61"/>
     1100        <CursorPos X="37" Y="23"/>
     1101        <UsageCount Value="10"/>
     1102        <Loaded Value="True"/>
     1103      </Unit115>
    8261104    </Units>
    827     <JumpHistory Count="30" HistoryIndex="29">
     1105    <JumpHistory Count="24" HistoryIndex="23">
    8281106      <Position1>
    829         <Filename Value="Modules/UPagesModule.pas"/>
    830         <Caret Line="165" Column="37" TopLine="157"/>
     1107        <Filename Value="CGI.lpr"/>
     1108        <Caret Line="23" Column="28" TopLine="3"/>
    8311109      </Position1>
    8321110      <Position2>
    833         <Filename Value="Pages/UMainPage.pas"/>
    834         <Caret Line="106" Column="1" TopLine="105"/>
     1111        <Filename Value="CGI.lpr"/>
     1112        <Caret Line="11" Column="25" TopLine="3"/>
    8351113      </Position2>
    8361114      <Position3>
    837         <Filename Value="Modules/UPagesModule.pas"/>
    838         <Caret Line="207" Column="18" TopLine="189"/>
     1115        <Filename Value="CGI.lpr"/>
     1116        <Caret Line="26" Column="33" TopLine="4"/>
    8391117      </Position3>
    8401118      <Position4>
    841         <Filename Value="Modules/UPagesModule.pas"/>
    842         <Caret Line="214" Column="18" TopLine="196"/>
     1119        <Filename Value="CGI.lpr"/>
     1120        <Caret Line="11" Column="42" TopLine="4"/>
    8431121      </Position4>
    8441122      <Position5>
    845         <Filename Value="Pages/UMainPage.pas"/>
    846         <Caret Line="109" Column="55" TopLine="1"/>
     1123        <Filename Value="CGI.lpr"/>
     1124        <Caret Line="28" Column="29" TopLine="4"/>
    8471125      </Position5>
    8481126      <Position6>
    849         <Filename Value="Modules/UPagesModule.pas"/>
    850         <Caret Line="67" Column="19" TopLine="47"/>
     1127        <Filename Value="CGI.lpr"/>
     1128        <Caret Line="11" Column="55" TopLine="4"/>
    8511129      </Position6>
    8521130      <Position7>
    853         <Filename Value="Modules/UPagesModule.pas"/>
    854         <Caret Line="99" Column="19" TopLine="66"/>
     1131        <Filename Value="CGI.lpr"/>
     1132        <Caret Line="28" Column="34" TopLine="4"/>
    8551133      </Position7>
    8561134      <Position8>
    857         <Filename Value="Pages/UMainPage.pas"/>
    858         <Caret Line="119" Column="1" TopLine="119"/>
     1135        <Filename Value="CGI.lpr"/>
     1136        <Caret Line="11" Column="73" TopLine="4"/>
    8591137      </Position8>
    8601138      <Position9>
    861         <Filename Value="Modules/UPagesModule.pas"/>
    862         <Caret Line="202" Column="18" TopLine="200"/>
     1139        <Filename Value="CGI.lpr"/>
     1140        <Caret Line="31" Column="30" TopLine="4"/>
    8631141      </Position9>
    8641142      <Position10>
    8651143        <Filename Value="CGI.lpr"/>
    866         <Caret Line="19" Column="44" TopLine="1"/>
     1144        <Caret Line="12" Column="15" TopLine="4"/>
    8671145      </Position10>
    8681146      <Position11>
    869         <Filename Value="CGI.lpr"/>
    870         <Caret Line="23" Column="7" TopLine="1"/>
     1147        <Filename Value="Pages/UAboutPage.pas"/>
     1148        <Caret Line="1" Column="1" TopLine="1"/>
    8711149      </Position11>
    8721150      <Position12>
    873         <Filename Value="Modules/UPagesModule.pas"/>
    874         <Caret Line="90" Column="62" TopLine="82"/>
     1151        <Filename Value="CGI.lpr"/>
     1152        <Caret Line="33" Column="28" TopLine="5"/>
    8751153      </Position12>
    8761154      <Position13>
    877         <Filename Value="Modules/UPagesModule.pas"/>
    878         <Caret Line="92" Column="62" TopLine="84"/>
     1155        <Filename Value="Pages/UAboutPage.pas"/>
     1156        <Caret Line="14" Column="27" TopLine="1"/>
    8791157      </Position13>
    8801158      <Position14>
    881         <Filename Value="Pages/UMainPage.pas"/>
    882         <Caret Line="129" Column="60" TopLine="123"/>
     1159        <Filename Value="Pages/UAboutPage.pas"/>
     1160        <Caret Line="85" Column="15" TopLine="52"/>
    8831161      </Position14>
    8841162      <Position15>
    885         <Filename Value="Modules/UPagesModule.pas"/>
    886         <Caret Line="267" Column="36" TopLine="264"/>
     1163        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/LazIDEReg.pas"/>
     1164        <Caret Line="137" Column="5" TopLine="104"/>
    8871165      </Position15>
    8881166      <Position16>
    889         <Filename Value="Modules/UPagesModule.pas"/>
    890         <Caret Line="269" Column="36" TopLine="266"/>
     1167        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/LazIDEReg.pas"/>
     1168        <Caret Line="52" Column="53" TopLine="41"/>
    8911169      </Position16>
    8921170      <Position17>
    893         <Filename Value="Modules/UPagesModule.pas"/>
    894         <Caret Line="323" Column="62" TopLine="319"/>
     1171        <Filename Value="Pages/UAboutPage.pas"/>
     1172        <Caret Line="71" Column="19" TopLine="53"/>
    8951173      </Position17>
    8961174      <Position18>
    897         <Filename Value="Modules/UPagesModule.pas"/>
    898         <Caret Line="330" Column="62" TopLine="326"/>
     1175        <Filename Value="CGI.lpr"/>
     1176        <Caret Line="34" Column="6" TopLine="5"/>
    8991177      </Position18>
    9001178      <Position19>
    901         <Filename Value="Pages/UMainPage.pas"/>
    902         <Caret Line="57" Column="1" TopLine="47"/>
     1179        <Filename Value="CGI.lpr"/>
     1180        <Caret Line="17" Column="23" TopLine="5"/>
    9031181      </Position19>
    9041182      <Position20>
    905         <Filename Value="Pages/UMainPage.pas"/>
    906         <Caret Line="11" Column="1" TopLine="1"/>
     1183        <Filename Value="../../PascalClassLibrary/Network/CoolWeb/WebServer/UWebApp.pas"/>
     1184        <Caret Line="18" Column="26" TopLine="1"/>
    9071185      </Position20>
    9081186      <Position21>
    909         <Filename Value="Modules/UPagesModule.pas"/>
    910         <Caret Line="291" Column="33" TopLine="287"/>
     1187        <Filename Value="Modules/UMainModule.pas"/>
     1188        <Caret Line="72" Column="40" TopLine="55"/>
    9111189      </Position21>
    9121190      <Position22>
    913         <Filename Value="Modules/UPagesModule.pas"/>
    914         <Caret Line="293" Column="33" TopLine="289"/>
     1191        <Filename Value="Modules/UMainModule.pas"/>
     1192        <Caret Line="33" Column="15" TopLine="16"/>
    9151193      </Position22>
    9161194      <Position23>
    917         <Filename Value="Pages/UMainPage.pas"/>
    918         <Caret Line="56" Column="1" TopLine="25"/>
     1195        <Filename Value="Modules/UMainModule.pas"/>
     1196        <Caret Line="290" Column="27" TopLine="265"/>
    9191197      </Position23>
    9201198      <Position24>
    921         <Filename Value="Modules/UPagesModule.pas"/>
    922         <Caret Line="309" Column="1" TopLine="301"/>
     1199        <Filename Value="CGI.lpr"/>
     1200        <Caret Line="34" Column="7" TopLine="5"/>
    9231201      </Position24>
    924       <Position25>
    925         <Filename Value="Modules/UPagesModule.pas"/>
    926         <Caret Line="316" Column="1" TopLine="303"/>
    927       </Position25>
    928       <Position26>
    929         <Filename Value="Modules/UPagesModule.pas"/>
    930         <Caret Line="303" Column="31" TopLine="291"/>
    931       </Position26>
    932       <Position27>
    933         <Filename Value="Modules/UPagesModule.pas"/>
    934         <Caret Line="295" Column="18" TopLine="278"/>
    935       </Position27>
    936       <Position28>
    937         <Filename Value="Modules/UPagesModule.pas"/>
    938         <Caret Line="309" Column="18" TopLine="292"/>
    939       </Position28>
    940       <Position29>
    941         <Filename Value="Modules/UPagesModule.pas"/>
    942         <Caret Line="357" Column="12" TopLine="340"/>
    943       </Position29>
    944       <Position30>
    945         <Filename Value="Modules/UPagesModule.pas"/>
    946         <Caret Line="416" Column="18" TopLine="399"/>
    947       </Position30>
    9481202    </JumpHistory>
    9491203  </ProjectOptions>
    … …  
    9541208    </Target>
    9551209    <SearchPaths>
    956       <OtherUnitFiles Value="/usr/lib/mysql/;/usr/lib64/mysql/;Pages;Common;Application;WebServer;Network;Modules"/>
     1210      <OtherUnitFiles Value="/usr/lib/mysql/;/usr/lib64/mysql/;Common;Application;WebServer;Network;Modules;Pages"/>
    9571211      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    9581212    </SearchPaths>
    … …  
    9901244    <BreakPoints Count="1">
    9911245      <Item1>
     1246        <Kind Value="bpkSource"/>
    9921247        <Source Value="Application/UCustomCGIApplication.pas"/>
    9931248        <Line Value="91"/>

  • trunk/CGI.lpr

    r52 r53  
    55uses
    66  UCore, USqlDatabase, SysUtils, Contnrs,
    7   UMainPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile, UPagesModule,
     7  UContactPage, UUser, UHTTPSessionMySQL, UHTTPSessionFile, UPagesModule,
    88  UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
    9   UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule;
     9  UMemoryStreamEx, UMIMEType, UPageList, Interfaces, UMainModule, UWebApp,
     10  UInternetPage, UHostingPage, UHistoryPage, UDocumentsPage, UVoIPPage,
     11  ULinksPage, UPlansPage, UServerInfoPage, UWebCamPage, UUserControlPage,
     12  UNetworkPage, UAboutPage;
    1013
     14var
     15  Application: TWebApp;
    1116begin
    12   MainModule := TMainModule.Create(nil);
    13   PagesModule := TPagesModule.Create(nil);
    14   with MainModule, PagesModule do
     17  Application := TWebApp.Create(nil);
     18  with Application do
    1519  try
    16     RegisterPage('internet', PageInternet);
    17     RegisterPage('hosting', PageHosting);
    18     RegisterPage('historie', PageHistory);
    19     RegisterPage('dokumenty', PageDocuments);
    20     RegisterPage('voip', PageVoIP);
    21     RegisterPage('odkazy', PageLinks);
    22     RegisterPage('kontakt', PageContact);
    23     RegisterPage('serverinfo', PageServerInfo);
    24     RegisterPage('kamery', PageWebCam);
    25     RegisterPage('uzivatel', PageUserControl);
    26     RegisterPage('plany', PagePlans);
    27     RegisterPage('sit', PageNetwork);
    28     RegisterPage('', PageAbout);
     20    Initialize;
     21    RegisterPage(TInternetPage, InternetPage, 'internet');
     22    RegisterPage(THostingPage, HostingPage, 'hosting');
     23    RegisterPage(THistoryPage, HistoryPage, 'historie');
     24    RegisterPage(TDocumentsPage, DocumentsPage, 'dokumenty');
     25    RegisterPage(TVoIPPage, VoIPPage, 'voip');
     26    RegisterPage(TLinksPage, LinksPage, 'odkazy');
     27    RegisterPage(TContactPage, ContactPage, 'kontakt');
     28    RegisterPage(TServerInfoPage, ServerInfoPage, 'serverinfo');
     29    RegisterPage(TWebCamPage, WebCamPage, 'kamery');
     30    RegisterPage(TUserControlPage, UserControlPage, 'uzivatel');
     31    RegisterPage(TPlansPage, PlansPage, 'plany');
     32    RegisterPage(TNetworkPage, NetworkPage, 'sit');
     33    RegisterPage(TAboutPage, AboutPage, '');
    2934    Run;
    3035  finally
    31     MainModule.Free;
    32     PagesModule.Free;
     36    Free;
    3337  end;
    3438end.

  • trunk/Modules/UMainModule.lfm

    r51 r53  
    11object MainModule: TMainModule
    22  OldCreateOrder = False
    3   Height = 234
    4   HorizontalOffset = 431
    5   VerticalOffset = 204
    6   Width = 439
     3  Height = 278
     4  HorizontalOffset = 418
     5  VerticalOffset = 205
     6  Width = 431
    77  object HTTPServer: THTTPServerCGI
    88    ShowExceptions = False

  • trunk/Modules/UMainModule.lrs

    r51 r53  
    22
    33LazarusResources.Add('TMainModule','FORMDATA',[
    4   'TPF0'#11'TMainModule'#10'MainModule'#14'OldCreateOrder'#8#6'Height'#3#234#0
    5   +#16'HorizontalOffset'#3#175#1#14'VerticalOffset'#3#204#0#5'Width'#3#183#1#0
    6   +#14'THTTPServerCGI'#10'HTTPServer'#14'ShowExceptions'#8#12'DocumentRoot'#6#2
    7   +'./'#14'SessionStorage'#7#24'HTTPSessionStorageMySQL1'#9'OnRequest'#7#17'HTT'
    8   +'PServerRequest'#4'left'#2'Q'#3'top'#2' '#0#0#24'THTTPSessionStorageMySQL'#24
    9   +'HTTPSessionStorageMySQL1'#8'Database'#7#8'Database'#7'Timeout'#3'0*'#19'Ses'
    10   +'sionIdCookieName'#6#9'SessionId'#4'left'#3'8'#1#3'top'#2#31#0#0#12'TSqlData'
    11   +'base'#8'Database'#9'Connected'#8#8'Encoding'#6#4'utf8'#4'left'#2'Q'#3'top'#2
     4  'TPF0'#11'TMainModule'#10'MainModule'#14'OldCreateOrder'#8#6'Height'#3#22#1#16
     5  +'HorizontalOffset'#3#162#1#14'VerticalOffset'#3#205#0#5'Width'#3#175#1#0#14
     6  +'THTTPServerCGI'#10'HTTPServer'#14'ShowExceptions'#8#12'DocumentRoot'#6#2'./'
     7  +#14'SessionStorage'#7#24'HTTPSessionStorageMySQL1'#9'OnRequest'#7#17'HTTPSer'
     8  +'verRequest'#4'left'#2'Q'#3'top'#2' '#0#0#24'THTTPSessionStorageMySQL'#24'HT'
     9  +'TPSessionStorageMySQL1'#8'Database'#7#8'Database'#7'Timeout'#3'0*'#19'Sessi'
     10  +'onIdCookieName'#6#9'SessionId'#4'left'#3'8'#1#3'top'#2#31#0#0#12'TSqlDataba'
     11  +'se'#8'Database'#9'Connected'#8#8'Encoding'#6#4'utf8'#4'left'#2'Q'#3'top'#2
    1212  +'V'#0#0#0
    1313]);

  • trunk/Modules/UMainModule.pas

    r52 r53  
    103103    HtmlDocument.Scripts.Add(NavigationLink('/Style/' + Style + '/jquery.js'));
    104104
    105     //Request.QueryParts.Count := 2;
    106     //Request.QueryParts[0] := 'uzivatel';
    107     //Request.QueryParts[1] := 'prihlaseni';
     105    Request.QueryParts.Count := 2;
     106    Request.QueryParts[0] := 'uzivatel';
     107    Request.QueryParts[1] := 'prihlaseni';
    108108
    109109    if Request.QueryParts.Count > 0 then PageName := Request.QueryParts[0]
    … …  
    269269      Text := Text + '</ul>' +
    270270        '<ul class="MenuItem2">' +
    271         //'<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>';
     271        '<li>' + MakeLink('Přihlášení', NavigationLink('/uzivatel/prihlaseni/')) + '</li>' +
    272272        '<li></li>';
    273273      // $Output .= '<li>'.$this->System->HTML->MakeLink($this->System->Translate('UserRegistration'), $this->System->MakeLink('UserList', 'Register')).'</li>';
Note: See TracChangeset for help on using the changeset viewer.