Changeset 81 for trunk/UCore.pas

Timestamp:

Jun 21, 2012, 12:21:50 PM (12 years ago)

Author:

chronos

Message:

• Přejmenování jednotky UMainModule na UCore.

File:

• trunk/UCore.pas (modified) (15 diffs)

trunk/UCore.pas

@@ -1 @@
-unit UMainModule;
+unit UCore;
 
 {$mode delphi}
@@ -16 +16 @@
 
 type
-  TMainModule = class;
+  TCore = class;
 
   { TWebSession }
@@ -25 +25 @@
     procedure Footer;
   public
-    MainModule: TMainModule;
+    MainModule: TCore;
     Database: TSqlDatabase;
     SessionStorage: THTTPSessionStorageMySQL;
@@ -40 +40 @@
   end;
 
-  { TMainModule }
-
-  TMainModule = class(TDataModule)
+  { TCore }
+
+  TCore = class(TDataModule)
     WebApp1: TWebApp;
     procedure WebApp1PageProduce(HandlerData: THTTPHandlerData);
@@ -74 +74 @@
 
 var
-  MainModule: TMainModule;
+  Core: TCore;
 
 
@@ -162 +162 @@
 
 
-{ TMainModule }
-
-constructor TMainModule.Create(AOwner: TComponent);
+{ TCore }
+
+constructor TCore.Create(AOwner: TComponent);
 begin
   inherited;
@@ -195 +195 @@
 end;
 
-destructor TMainModule.Destroy;
+destructor TCore.Destroy;
 begin
   //SaveToRegistry;
@@ -244 +244 @@
 end;
 
-procedure TMainModule.Show(Content: string);
+procedure TCore.Show(Content: string);
 begin
   //HtmlDocument.Title := ;
@@ -308 +308 @@
 end;
 
-procedure TMainModule.WebApp1PageProduce(HandlerData: THTTPHandlerData);
+procedure TCore.WebApp1PageProduce(HandlerData: THTTPHandlerData);
 var
   FileName: string;
@@ -349 +349 @@
 end;
 
-procedure TMainModule.LoadFromRegistry;
+procedure TCore.LoadFromRegistry;
 const
   SectionGeneral = 'General';
@@ -366 +366 @@
     DatabasePassword := ReadString(SectionDatabase, 'DatabasePassword', 'password');
     FormatHTML := ReadBool(SectionGeneral, 'FormatHTML', False);
-    //MainModule.WebApp1.LogException := not ReadBool(SectionGeneral, 'ShowException', False);
+    //Core.WebApp1.LogException := not ReadBool(SectionGeneral, 'ShowException', False);
     NetworkAddress := ReadString(SectionHTTPServer, 'NetworkAddress', 'localhost');
     NetworkPort := ReadInteger(SectionHTTPServer, 'NetworkPort', 80);
@@ -375 +375 @@
 end;
 
-procedure TMainModule.SaveToRegistry;
+procedure TCore.SaveToRegistry;
 const
   SectionGeneral = 'General';
@@ -392 +392 @@
     WriteString(SectionDatabase, 'DatabasePassword', DatabasePassword);
     WriteBool(SectionGeneral, 'FormatHTML', FormatHTML);
-    //WriteBool(SectionGeneral, 'ShowException', not MainModule.WebApp1.LogException);
+    //WriteBool(SectionGeneral, 'ShowException', not Core.WebApp1.LogException);
     WriteString(SectionHTTPServer, 'NetworkAddress', NetworkAddress);
     WriteInteger(SectionHTTPServer, 'NetworkPort', NetworkPort);
@@ -401 +401 @@
 end;
 
-procedure TMainModule.Run;
+procedure TCore.Run;
 begin
   WebApp1.HTTPServer.DocumentRoot := ExtractFileDir(ParamStrUTF8(0));
@@ -409 +409 @@
 
 initialization
-  {$I UMainModule.lrs}
+  {$I UCore.lrs}
 
 end.