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

Timestamp:

Mar 4, 2012, 5:26:20 PM (12 years ago)

Author:

chronos

Message:

• Added: Compiled target code now can be browsed using Target project navigation.

File:

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

trunk/IDE/Forms/UFormMain.pas

@@ -28 +28 @@
   TFormMain = class(TForm)
     ABuild: TAction;
+    AHelp: TAction;
     ARunToCursor: TAction;
     AStepOut: TAction;
@@ -82 +83 @@
     MenuItem31: TMenuItem;
     MenuItem32: TMenuItem;
+    MenuItem33: TMenuItem;
     MenuItemProducer: TMenuItem;
     MenuItem3: TMenuItem;
@@ -103 +105 @@
     TabSheetMessages: TTabSheet;
     TabSheetBreakpoints: TTabSheet;
-    TabSheetCompiledProject: TTabSheet;
+    TabSheetTargetProject: TTabSheet;
     TabSheetSource: TTabSheet;
     TabSheetTarget: TTabSheet;
@@ -150 +152 @@
     procedure ProjectOpen(FileName: string);
     procedure UpdateMenu;
+    procedure UpdateToolbar;
   public
     ReopenLastOpenedFile: Boolean;
@@ -172 +175 @@
   UFormMessages, UFormSourceCode, UFormProject, UCommon, UFormAbout, UFormOptions,
   UFormTargets, UTarget, UAnalyzer, UProducer, UExecutor, UFormProjectNew,
-  UProjectTemplates;
+  UProjectTemplates, UFormTargetProject;
 
 resourcestring
@@ -239 +242 @@
       Compiler.SourceFiles.Clear;
       Project.Files.DumpFileList(Compiler.SourceFiles);
-      Compiler.TargetFolder := ExtractFileDir(Project.FileName);
+      TargetProject.FileName := ExtractFileDir(Project.FileName) + DirectorySeparator +
+        Compiler.CompiledFolder + DirectorySeparator + Compiler.Target.Name +
+        DirectorySeparator + 'Target.tppr';
+      Compiler.TargetFolder := ExtractFileDir(TargetProject.FileName);
       Compiler.Compile;
+      TargetProject.Files.LoadFromList(Compiler.TargetFiles);
+      FormTargetProject.UpdateInterface;
     end;
     FormProject.TreeViewProjectChange(Self, FormProject.TreeViewProject.Selected);
@@ -332 +340 @@
 
   UpdateMenu;
+  UpdateToolbar;
   FormSourceCode.UpdateInterface;
+  FormTargetCode.UpdateInterface;
   FormProject.UpdateInterface;
 end;
@@ -350 +360 @@
   FormProject.Align := alClient;
   FormProject.Show;
+  FormTargetProject.ManualDock(TabSheetTargetProject, nil, alClient);
+  FormTargetProject.Align := alClient;
+  FormTargetProject.Show;
   FormCodeTree.ManualDock(TabSheetCodeTree, nil, alClient);
   FormCodeTree.Align := alClient;
@@ -473 +486 @@
 end;
 
+procedure TFormMain.UpdateToolbar;
+var
+  I: Integer;
+begin
+  for I := 0 to ToolBar1.ButtonCount - 1 do
+    TToolButton(ToolBar1.Buttons[I]).Hint := TToolButton(ToolBar1.Buttons[I]).Caption;
+end;
+
 procedure TFormMain.FormClose(Sender: TObject; var Action: TCloseAction);
 begin