Changeset 52 for trunk/IDE

Timestamp:

Jun 25, 2012, 2:07:44 PM (12 years ago)

Author:

chronos

Message:

• Modified: Updated Common package to version 0.7.

Location:

trunk/IDE

Files:

• Forms/UFormMain.lfm (modified) (1 diff)
• Forms/UFormMain.pas (modified) (7 diffs)
• Transpascal.lpi (modified) (2 diffs)
• UApplicationInfo.pas (modified) (1 diff)

trunk/IDE/Forms/UFormMain.lfm

@@ -15 +15 @@
   OnShow = FormShow
   Position = poDesktopCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.1'
   object Splitter3: TSplitter
     Cursor = crVSplit

trunk/IDE/Forms/UFormMain.pas

@@ -155 +155 @@
     procedure MenuItemTargetClick(Sender: TObject);
     procedure OpenRecentClick(Sender: TObject);
+    procedure LastOpenedFilesChange(Sender: TObject);
     procedure DockInit;
     procedure LoadFromRegistry(Root: HKEY; Key: string);
@@ -494 +495 @@
     end;
   LastOpenedFiles.SaveToRegistry(RegistryRootKey, Key + '\LastOpenedFiles');
-  LastOpenedFiles.ReloadMenu;
   Compiler.SaveToRegistry(RegistryRootKey, Key + '\Compiler');
 end;
@@ -503 +503 @@
   Project.LoadFromFile(FileName);
   LastOpenedFiles.AddItem(FileName);
-  LastOpenedFiles.ReloadMenu;
   UpdateInterface;
 end;
@@ -554 +553 @@
   ProjectTemplates := TProjectTemplateList.Create;
   TargetProject := TProject.Create;
-  LastOpenedFiles := TLastOpenedList.Create;
-  LastOpenedFiles.MenuItem := MenuItemOpenRecent;
+  LastOpenedFiles := TLastOpenedList.Create(nil);
+  LastOpenedFiles.OnChange := LastOpenedFilesChange;
   LastOpenedFiles.ClickAction := OpenRecentClick;
 end;
@@ -587 +586 @@
 end;
 
+procedure TFormMain.LastOpenedFilesChange(Sender: TObject);
+begin
+  LastOpenedFiles.LoadToMenuItem(MenuItemOpenRecent);
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 var
@@ -595 +599 @@
   ProjectTemplatesInit;
 
-  if ReopenLastOpenedFile and (LastOpenedFiles.Count > 0) then begin
-    ProjectOpen(LastOpenedFiles[0]);
+  if ReopenLastOpenedFile and (LastOpenedFiles.Items.Count > 0) then begin
+    ProjectOpen(LastOpenedFiles.Items[0]);
   end;
 
@@ -661 +665 @@
     UpdateInterface;
     LastOpenedFiles.AddItem(SaveDialog1.FileName);
-    LastOpenedFiles.ReloadMenu;
   end;
 end;

trunk/IDE/Transpascal.lpi

@@ -83 +83 @@
       <Item1>
         <PackageName Value="Common"/>
-        <MinVersion Minor="5" Valid="True"/>
+        <MinVersion Minor="7" Valid="True"/>
       </Item1>
       <Item2>
@@ -217 +217 @@
         <IsPartOfProject Value="True"/>
         <ComponentName Value="FormTargetProject"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="UFormTargetProject"/>

trunk/IDE/UApplicationInfo.pas

@@ -53 +53 @@
   Name := 'Transpascal IDE';
   Identification := 1;
-  ReleaseDate := EncodeDate(2012, 3, 4);
+  ReleaseDate := EncodeDate(2012, 6, 25);
   MajorVersion := 0;
   MinorVersion := 1;