Changeset 31 for trunk/Forms

Timestamp:

Sep 8, 2012, 9:38:38 PM (12 years ago)

Author:

chronos

Message:

• Added: Common package.

Location:

trunk/Forms

Files:

• UMainForm.lfm (modified) (4 diffs)
• UMainForm.pas (modified) (2 diffs)

trunk/Forms/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 382
+  Left = 470
   Height = 412
-  Top = 95
+  Top = 150
   Width = 514
   Caption = 'Tunneler'
-  ClientHeight = 385
+  ClientHeight = 387
   ClientWidth = 514
   Menu = MainMenu1
@@ -15 +15 @@
   OnKeyUp = FormKeyUp
   OnShow = FormShow
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.1'
   object StatusBar1: TStatusBar
     Left = 0
     Height = 21
-    Top = 364
+    Top = 366
     Width = 514
     Panels = <    
@@ -47 +47 @@
   object Image1: TImage
     Left = 0
-    Height = 364
+    Height = 366
     Top = 0
     Width = 514
@@ -130 +130 @@
     top = 104
   end
+  object ApplicationInfo1: TApplicationInfo
+    Identification = 1
+    VersionMajor = 1
+    VersionMinor = 0
+    VersionBugFix = 0
+    CompanyName = 'Chronosoft'
+    HomePage = 'http://svn.zdechov.net/trac/Tunneler/'
+    AuthorsName = 'Chronos'
+    EmailContact = 'robie@centrum.cz'
+    AppName = 'Tunneler'
+    ReleaseDate = 41160
+    RegistryKey = '\Software\Chronosoft\Tunneler'
+    RegistryRoot = rrKeyCurrentUser
+    left = 99
+    top = 176
+  end
 end

trunk/Forms/UMainForm.pas

@@ -16 +16 @@
   TMainForm = class(TForm)
     AAbout: TAction;
+    ApplicationInfo1: TApplicationInfo;
     AShowRawImageDesc: TAction;
     AShowMap: TAction;
@@ -112 +113 @@
 begin
   PersistentForm := TPersistentForm.Create;
-  PersistentForm.RegistryKey := '\Software\' + ApplicationInfo.CompanyName + '\' + ApplicationInfo.Name;
+  PersistentForm.RegistryKey := ApplicationInfo1.RegistryKey;
+  PersistentForm.RegistryRootKey := HKEY(ApplicationInfo1.RegistryRoot);
 
   Application.OnDeactivate := FormDeactivate;