Changeset 55 for trunk/IDE/Forms/UFormMain.pas

Timestamp:

Jul 13, 2012, 1:49:52 PM (12 years ago)

Author:

chronos

Message:

• Updated: Common package now contain TApplicationInfo class which contain various application info.

File:

• trunk/IDE/Forms/UFormMain.pas (modified) (7 diffs)

trunk/IDE/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,
-  UCompiler, Registry, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
+  Registry, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas,
   UProject, FileUtil, Menus, ActnList,
-  UCoolTranslator, UFormTargetCode, UFormCodeTree, URegistry, ULastOpenedList, UApplicationInfo,
-  UDebugLog;
-
-const
-  RegistryRootKey = HKEY_CURRENT_USER;
+  UFormTargetCode, UFormCodeTree, URegistry, UApplicationInfo;
 
 type
@@ -164 +160 @@
 uses
   UCore, UFormMessages, UFormSourceCode, UFormProject, UCommon, UFormAbout, UFormOptions,
-  UFormTargets, UTarget, UAnalyzer, UProducer, UExecutor, UFormProjectNew,
-  UProjectTemplates, UFormTargetProject;
-
-resourcestring
-  SNewProject = 'New project';
+  UFormTargets, UTarget, UExecutor, UFormProjectNew,
+  UFormTargetProject;
 
 { TFormMain }
@@ -441 +434 @@
   Title: string;
 begin
-  Title := ApplicationInfo.Name;
+  Title := Core.ApplicationInfo.AppName;
   if Assigned(Core.Project) then begin
     if Core.Project.FileName <> '' then Title := Core.Project.FileName + ' - ' + Title;
@@ -452 +445 @@
 begin
   AProjectClose.Execute;
-  Core.SaveToRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
+  Core.SaveToRegistry(HKEY(Core.ApplicationInfo.RegistryRoot), Core.ApplicationInfo.RegistryKey);
 end;
 
 procedure TFormMain.FormCreate(Sender: TObject);
-var
-  I: Integer;
 begin
 end;
@@ -472 +463 @@
 
 procedure TFormMain.FormShow(Sender: TObject);
-var
-  NewProjectFile: TProjectFile;
-begin
-  Core.LoadFromRegistry(RegistryRootKey, ApplicationInfo.RegistryKey);
+begin
+  Core.LoadFromRegistry(HKEY(Core.ApplicationInfo.RegistryRoot), Core.ApplicationInfo.RegistryKey);
   DockInit;
   Core.ProjectTemplatesInit;
@@ -517 +506 @@
 procedure TFormMain.AHomepageExecute(Sender: TObject);
 begin
-  OpenWebPage(ApplicationInfo.HomePage);
+  OpenWebPage(Core.ApplicationInfo.HomePage);
 end;
 
@@ -526 +515 @@
 
 procedure TFormMain.AProjectNewExecute(Sender: TObject);
-var
-  NewFile: TProjectFile;
 begin
   if FormProjectNew.ShowModal = mrOk then begin