Changeset 101

Timestamp:

Oct 2, 2012, 3:35:24 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Základní kostra modulů Finance a Network.

Location:

trunk

Files:

• Modules/Finance (added)
• Modules/Finance/UModuleFinance.pas (added)
• Modules/Finance/UPageFinance.lfm (added)
• Modules/Finance/UPageFinance.pas (added)
• Modules/Network (added)
• Modules/Network/UModuleNetwork.pas (added)
• Modules/Network/UPageNetwork.lfm (added)
• Modules/Network/UPageNetwork.pas (added)
• UCore.pas (modified) (3 diffs)
• ZdechovNET.lpi (modified) (3 diffs)

trunk/UCore.pas

@@ -86 +86 @@
 
 uses
-  UModuleSystem, UModuleZdechovNET, UModuleUser, UPageAdmin, UModuleTV;
+  UModuleSystem, UModuleZdechovNET, UModuleUser, UPageAdmin, UModuleTV,
+  UModuleFinance, UModuleNetwork;
 
 resourcestring
@@ -108 +109 @@
 destructor TWebSession.Destroy;
 begin
-  HtmlDocument.Free;
-  User.Free;
-  UserOnline.Free;
-  SessionStorage.Free;
-  Database.Free;
+  FreeAndNil(HtmlDocument);
+  FreeAndNil(User);
+  FreeAndNil(UserOnline);
+  FreeAndNil(SessionStorage);
+  FreeAndNil(Database);
   inherited;
 end;
@@ -279 +280 @@
     RegisterModule(TModuleZdechovNET.Create(nil), True);
     RegisterModule(TModuleTV.Create(nil), True);
+    RegisterModule(TModuleFinance.Create(nil), True);
+    RegisterModule(TModuleNetwork.Create(nil), True);
   end;
 end;

trunk/ZdechovNET.lpi

@@ -36 +36 @@
           </Target>
           <SearchPaths>
-            <OtherUnitFiles Value="/usr/lib/mysql;/usr/lib64/mysql;Application;WebServer;Network;Pages;Modules/User;Common;Modules/System;Modules/ZdechovNET;Modules/TV"/>
+            <OtherUnitFiles Value="/usr/lib/mysql;/usr/lib64/mysql;Application;WebServer;Network;Pages;Modules/User;Common;Modules/System;Modules/ZdechovNET;Modules/TV;Modules/Finance;Modules/Network"/>
             <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
@@ -117 +117 @@
       </Item7>
     </RequiredPackages>
-    <Units Count="26">
+    <Units Count="30">
       <Unit0>
         <Filename Value="ZdechovNET.lpr"/>
@@ -263 +263 @@
         <UnitName Value="UPlaylist"/>
       </Unit25>
+      <Unit26>
+        <Filename Value="Modules/Finance/UModuleFinance.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="UModuleFinance"/>
+      </Unit26>
+      <Unit27>
+        <Filename Value="Modules/Finance/UPageFinance.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="WebPageFinance"/>
+        <ResourceBaseClass Value="DataModule"/>
+        <UnitName Value="UPageFinance"/>
+      </Unit27>
+      <Unit28>
+        <Filename Value="Modules/Network/UModuleNetwork.pas"/>
+        <IsPartOfProject Value="True"/>
+        <UnitName Value="UModuleNetwork"/>
+      </Unit28>
+      <Unit29>
+        <Filename Value="Modules/Network/UPageNetwork.pas"/>
+        <IsPartOfProject Value="True"/>
+        <ComponentName Value="WebPageNetwork"/>
+        <ResourceBaseClass Value="DataModule"/>
+        <UnitName Value="UPageNetwork"/>
+      </Unit29>
     </Units>
   </ProjectOptions>