Changeset 62 for trunk/Modules

Timestamp:

Dec 19, 2011, 9:33:21 AM (13 years ago)

Author:

chronos

Message:

• Přidáno: Jednotka UApplicationInfo obsahující informace o programu.

Location:

trunk/Modules

Files:

• UMainModule.lfm (modified) (1 diff)
• UMainModule.lrs (modified) (1 diff)
• UMainModule.pas (modified) (3 diffs)

trunk/Modules/UMainModule.lfm

@@ -9 +9 @@
     Timeout = 10800
     SessionIdCookieName = 'SessionId'
-    left = 312
-    top = 31
+    left = 304
+    top = 32
   end
   object Database: TSqlDatabase
     Connected = False
+    Port = 3306
     Encoding = 'utf8'
     left = 81

trunk/Modules/UMainModule.lrs

@@ -5 +5 @@
   +'HorizontalOffset'#3#162#1#14'VerticalOffset'#3#205#0#5'Width'#3#175#1#0#24
   +'THTTPSessionStorageMySQL'#24'HTTPSessionStorageMySQL1'#8'Database'#7#8'Data'
-  +'base'#7'Timeout'#3'0*'#19'SessionIdCookieName'#6#9'SessionId'#4'left'#3'8'#1
-  +#3'top'#2#31#0#0#12'TSqlDatabase'#8'Database'#9'Connected'#8#8'Encoding'#6#4
-  +'utf8'#4'left'#2'Q'#3'top'#2'V'#0#0#0
+  +'base'#7'Timeout'#3'0*'#19'SessionIdCookieName'#6#9'SessionId'#4'left'#3'0'#1
+  +#3'top'#2' '#0#0#12'TSqlDatabase'#8'Database'#9'Connected'#8#4'Port'#3#234#12
+  +#8'Encoding'#6#4'utf8'#4'left'#2'Q'#3'top'#2'V'#0#0#0
 ]);

trunk/Modules/UMainModule.pas

@@ -10 +10 @@
   UXmlClasses, UHtmlClasses, UCore, UHTTPServerTCP,
   UHTTPSessionFile, UUser, SpecializedList, Registry;
-
-const
-  RegistryKey = '\Software\Chronosoft\ZdechovNET';
 
 type
@@ -57 +54 @@
 implementation
 
+uses
+  UApplicationInfo;
+
 { TMainModule }
 
@@ -233 +233 @@
   try
     RootKey := HKEY_CURRENT_USER;
-    OpenKey(RegistryKey, True);
+    OpenKey(ApplicationInfo.RegistryKey, True);
     Style := ReadStringWithDefault('Style', 'Basic');
     BaseURL := ReadStringWithDefault('BaseURL', 'http://localhost');