Changeset 114 for trunk/UCore.pas

Timestamp:

May 1, 2016, 11:13:57 PM (8 years ago)

Author:

chronos

Message:

• Fixed: Build under FPC 3.0 and Lazarus 1.6.
• Modified: Updated internet tariffs page.

File:

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

trunk/UCore.pas

@@ -10 +10 @@
   UXmlClasses, UHtmlClasses, UUtils, UApplicationInfo, UHTTPServerTCP,
   UHTTPSessionFile, UUser, SpecializedList, Registry,
-  UModularSystem, UWebSession;
+  UModularSystem, UWebSession, LazUTF8;
 
 const
@@ -144 +144 @@
     DatabasePassword := ReadString(SectionDatabase, 'DatabasePassword', 'password');
     FormatHTML := ReadBool(SectionGeneral, 'FormatHTML', False);
-    //Core.WebApp1.LogException := not ReadBool(SectionGeneral, 'ShowException', False);
+    WebApp1.LogException := ReadBool(SectionGeneral, 'ShowException', False);
     NetworkAddress := ReadString(SectionHTTPServer, 'NetworkAddress', 'localhost');
     NetworkPort := ReadInteger(SectionHTTPServer, 'NetworkPort', 80);
@@ -170 +170 @@
     WriteString(SectionDatabase, 'DatabasePassword', DatabasePassword);
     WriteBool(SectionGeneral, 'FormatHTML', FormatHTML);
-    //WriteBool(SectionGeneral, 'ShowException', not Core.WebApp1.LogException);
+    //WriteBool(SectionGeneral, 'ShowException', not WebApp1.LogException);
     WriteString(SectionHTTPServer, 'NetworkAddress', NetworkAddress);
     WriteInteger(SectionHTTPServer, 'NetworkPort', NetworkPort);