Changeset 52

Timestamp:

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

Author:

chronos

Message:

• Modified: Updated Common package to version 0.7.

Location:

trunk

Files:

• Compiler/Target/Interpretter/UTargetInterpretter.pas (modified) (4 diffs)
• IDE/Forms/UFormMain.lfm (modified) (1 diff)
• IDE/Forms/UFormMain.pas (modified) (7 diffs)
• IDE/Transpascal.lpi (modified) (2 diffs)
• IDE/UApplicationInfo.pas (modified) (1 diff)
• Packages/Common-0.7.zip (moved) (moved from trunk/Packages/Common-0.4.zip )

trunk/Compiler/Target/Interpretter/UTargetInterpretter.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UTarget, UExecutor, USourceCode, Dialogs;
+  Classes, SysUtils, UTarget, UExecutor, USourceCode, Dialogs, SpecializedList;
 
 type
@@ -20 +20 @@
   TExecutorInterpretter = class(TExecutor)
   private
+    //procedure SystemAdd(FunctionCall: TFunctionCall);
+    //procedure SystemSub(FunctionCall: TFunctionCall);
+    //procedure SystemMove(FunctionCall: TFunctionCall);
+    //procedure SystemFillChar(FunctionCall: TFunctionCall);
+
     procedure RunCommand(Command: TCommand);
     procedure RunBeginEnd(BeginEnd: TBeginEnd);
@@ -31 +36 @@
     function Evaluate(Expression: TExpression): Boolean;
   public
+    Variables: TListObject;
     procedure Run; override;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -127 +135 @@
 procedure TExecutorInterpretter.Run;
 begin
-  ShowMessage(TModuleProgram(TCompiler(TTarget(Target).Compiler).Analyzer.ProgramCode.MainModule).Name);
   with TModuleProgram(TCompiler(TTarget(Target).Compiler).Analyzer.ProgramCode.MainModule) do begin
     RunBeginEnd(Body.Code);
   end;
+end;
+
+constructor TExecutorInterpretter.Create;
+begin
+  Variables := TListObject.Create;
+end;
+
+destructor TExecutorInterpretter.Destroy;
+begin
+  Variables.Free;
+  inherited Destroy;
 end;
 

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;