Changeset 80


Ignore:
Timestamp:
Jun 21, 2012, 12:17:11 PM (12 years ago)
Author:
chronos
Message:
  • Přidáno: Kostra pro modulární systém.
Location:
trunk
Files:
3 added
9 edited
1 copied
3 moved

Legend:

Unmodified
Added
Removed

  • trunk/.htaccess

    r67 r80  
    1010
    1111RewriteEngine on
     12RewriteBase /zdechovnet
    1213RewriteCond  %{REQUEST_FILENAME}  !-f
    1314RewriteCond  %{REQUEST_FILENAME}  !-d

  • trunk/Common/UUtils.pas

    r79 r80  
    1 unit UCore;
     1unit UUtils;
    22
    33{$mode delphi}{$H+}

  • trunk/Pages/UAboutPage.pas

    r78 r80  
    2828
    2929uses
    30   UMainModule, UCore;
     30  UMainModule, UUtils;
    3131
    3232{ TAboutPage }

  • trunk/Pages/UDocumentsPage.pas

    r78 r80  
    2828
    2929uses
    30   UMainModule, UCore;
     30  UMainModule, UUtils;
    3131
    3232{ TDocumentsPage }

  • trunk/Pages/UHistoryPage.pas

    r78 r80  
    2828
    2929uses
    30   UMainModule, UCore;
     30  UMainModule, UUtils;
    3131
    3232{ THistoryPage }

  • trunk/Pages/UNetworkPage.pas

    r78 r80  
    2828
    2929uses
    30   UMainModule, UCore;
     30  UMainModule, UUtils;
    3131
    3232{ TNetworkPage }

  • trunk/Pages/UUserControlPage.pas

    r79 r80  
    3232
    3333uses
    34   UMainModule, UCore, UUser;
     34  UMainModule, UUtils, UUser;
    3535
    3636  { TUserControlPage }

  • trunk/Pages/UWebCamPage.pas

    r78 r80  
    2828
    2929uses
    30   UMainModule, UCore;
     30  UMainModule, UUtils;
    3131
    3232

  • trunk/UCore.lfm

    r79 r80  
    22  OldCreateOrder = False
    33  Height = 278
    4   HorizontalOffset = 554
    5   VerticalOffset = 266
     4  HorizontalOffset = 273
     5  VerticalOffset = 208
    66  Width = 431
    77  object WebApp1: TWebApp

  • trunk/UCore.lrs

    r79 r80  
    33LazarusResources.Add('TMainModule','FORMDATA',[
    44  'TPF0'#11'TMainModule'#10'MainModule'#14'OldCreateOrder'#8#6'Height'#3#22#1#16
    5   +'HorizontalOffset'#3'*'#2#14'VerticalOffset'#3#10#1#5'Width'#3#175#1#0#7'TWe'
    6   +'bApp'#7'WebApp1'#13'OnPageProduce'#7#18'WebApp1PageProduce'#10'ServerType'#7
    7   +#5'stTCP'#4'left'#3#160#0#3'top'#2'X'#0#0#0
     5  +'HorizontalOffset'#3#17#1#14'VerticalOffset'#3#208#0#5'Width'#3#175#1#0#7'TW'
     6  +'ebApp'#7'WebApp1'#13'OnPageProduce'#7#18'WebApp1PageProduce'#10'ServerType'
     7  +#7#5'stTCP'#4'left'#3#160#0#3'top'#2'X'#0#0#0
    88]);

  • trunk/UCore.pas

    r79 r80  
    88  Classes, SysUtils, FileUtil, LResources, UHTTPServerCGI, UHTTPSessionMySQL,
    99  UHTTPServer, USqlDatabase, INIFiles, DateUtils, UWebPage, UWebApp,
    10   UXmlClasses, UHtmlClasses, UCore, UHTTPServerTCP,
     10  UXmlClasses, UHtmlClasses, UUtils, UHTTPServerTCP,
    1111  UHTTPSessionFile, UUser, SpecializedList, Registry;
    1212
    1313const
    1414  ConfigFile = 'Config.ini';
     15  SystemVersionTable = 'SystemVersion';
    1516
    1617type

  • trunk/ZdechovNET.lpi

    r79 r80  
    5959      </Item6>
    6060    </RequiredPackages>
    61     <Units Count="22">
     61    <Units Count="24">
    6262      <Unit0>
    6363        <Filename Value="ZdechovNET.lpr"/>
    … …  
    6666      </Unit0>
    6767      <Unit1>
    68         <Filename Value="UCore.pas"/>
    69         <IsPartOfProject Value="True"/>
    70         <UnitName Value="UCore"/>
     68        <Filename Value="Common/UUtils.pas"/>
     69        <IsPartOfProject Value="True"/>
     70        <UnitName Value="UUtils"/>
    7171      </Unit1>
    7272      <Unit2>
    … …  
    137137        <IsPartOfProject Value="True"/>
    138138        <ComponentName Value="PlansPage"/>
     139        <HasResources Value="True"/>
    139140        <ResourceBaseClass Value="DataModule"/>
    140141        <UnitName Value="UPlansPage"/>
    … …  
    181182        <IsPartOfProject Value="True"/>
    182183        <ComponentName Value="AboutPage"/>
     184        <HasResources Value="True"/>
    183185        <ResourceBaseClass Value="DataModule"/>
    184186        <UnitName Value="UAboutPage"/>
    … …  
    200202        <UnitName Value="UProjectsPage"/>
    201203      </Unit21>
     204      <Unit22>
     205        <Filename Value="Modules/User/UModuleUser.pas"/>
     206        <IsPartOfProject Value="True"/>
     207        <UnitName Value="UModuleUser"/>
     208      </Unit22>
     209      <Unit23>
     210        <Filename Value="Common/UModule.pas"/>
     211        <IsPartOfProject Value="True"/>
     212        <UnitName Value="UModule"/>
     213      </Unit23>
    202214    </Units>
    203215  </ProjectOptions>
    … …  
    208220    </Target>
    209221    <SearchPaths>
    210       <OtherUnitFiles Value="/usr/lib/mysql/;/usr/lib64/mysql/;Application;WebServer;Network;Modules;Pages"/>
     222      <OtherUnitFiles Value="/usr/lib/mysql;/usr/lib64/mysql;Application;WebServer;Network;Modules;Pages;Modules/User;Common"/>
    211223      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    212224    </SearchPaths>
    … …  
    230242      <Verbosity>
    231243        <ShoLineNum Value="True"/>
    232         <ShowDebugInfo Value="True"/>
    233244      </Verbosity>
    234245      <WriteFPCLogo Value="False"/>

  • trunk/ZdechovNET.lpr

    r76 r80  
    77  cthreads,
    88  {$ENDIF}
    9   UCore, USqlDatabase, SysUtils, Contnrs, Forms,
     9  UUtils, USqlDatabase, SysUtils, Contnrs, Forms,
    1010  UUser, UHTTPSessionMySQL, UHTTPSessionFile,
    1111  UCommon, UHTTPServer, UHTTPServerTCP, UHTTPServerCGI, UTCPServer, UPool,
Note: See TracChangeset for help on using the changeset viewer.