Changeset 45 for trunk/Forms

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.

Location:

trunk/Forms

Files:

• UFormMain.lfm (modified) (2 diffs)
• UFormMain.pas (modified) (5 diffs)

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
-  Left = 204
+  Left = 501
   Height = 414
-  Top = 88
+  Top = 170
   Width = 665
   Caption = 'LazFuck'
@@ -1857 +1857 @@
     top = 296
   end
+  object ApplicationInfo: TApplicationInfo
+    Identification = 1
+    VersionMajor = 1
+    VersionMinor = 0
+    VersionBugFix = 0
+    VersionSuffix = 'alfa'
+    CompanyName = 'Chronosoft'
+    CompanyHomePage = 'http://svn.zdechov.net/trac/LazFuck'
+    HomePage = 'http://svn.zdechov.net/trac/LazFuck'
+    AuthorsName = 'Chronos'
+    EmailContact = 'robie@centrum.cz'
+    AppName = 'LazFuck'
+    ReleaseDate = 41102
+    RegistryKey = '\Software\Chronosoft\LazFuck'
+    RegistryRoot = rrKeyCurrentUser
+    left = 216
+    top = 296
+  end
 end

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;