Changeset 45 for trunk/Forms/UFormMain.pas

Timestamp:

Jul 12, 2012, 7:08:10 AM (12 years ago)

Author:

chronos

Message:

• Modified: ApplicationInfo is now component. Base unit is located in Common package.

File:

• trunk/Forms/UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormMain.pas

@@ -8 +8 @@
   Classes, SysUtils, FileUtil, SynEdit, Forms, Controls, Graphics, Dialogs,
   Menus, ActnList, StdCtrls, ComCtrls, ExtCtrls, UTargetInterpretter,
-  UCoolTranslator, StrUtils, SpecializedList, UTarget, Registry, URegistry,
-  ULastOpenedList, Process;
+  UCoolTranslator, StrUtils, SpecializedList, UTarget, UApplicationInfo,
+  Registry, URegistry, ULastOpenedList, Process;
 
 const
@@ -19 +19 @@
 
   TMainForm = class(TForm)
+    ApplicationInfo: TApplicationInfo;
     AProgramShowExecutionPoint: TAction;
     AShowSourcePosition: TAction;
@@ -197 +198 @@
 
 uses
-  UFormCPU, UApplicationInfo, UFormOptions, UFormMessages, UTargetJava,
+  UFormCPU, UFormOptions, UFormMessages, UTargetJava,
   UTargetDelphi, UTargetPHP, UTargetC, UFormTargets, UFormOutput, UFormInput,
   UFormMemory;
@@ -338 +339 @@
 procedure TMainForm.LastOpenedListChange(Sender: TObject);
 begin
-  LastOpenedList.LoadToMenuItem(MenuItemOpenRecent);
+  LastOpenedList.LoadToMenuItem(MenuItemOpenRecent, AProjectOpenRecentExecute);
 end;
 
@@ -446 +447 @@
   LastOpenedList := TLastOpenedList.Create(nil);
   LastOpenedList.OnChange := LastOpenedListChange;
-  LastOpenedList.ClickAction := AProjectOpenRecentExecute;
   LoadFromRegistry(RegistryRoot, ApplicationInfo.RegistryKey);
 end;