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

Timestamp:

Jun 26, 2012, 7:41:11 AM (12 years ago)

Author:

chronos

Message:

• Modified: Project instance is now freed in closed state.
• Added: Toolbar button Open now provide dropdown list of recent opened projects.

File:

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

trunk/IDE/Forms/UFormMain.pas

@@ -88 +88 @@
     PageControlRight: TPageControl;
     PageControlBottom: TPageControl;
+    PopupMenu1: TPopupMenu;
     SaveDialog1: TSaveDialog;
     Splitter1: TSplitter;
@@ -144 +145 @@
     procedure DockInit;
     procedure UpdateMenu;
-    procedure UpdateToolbar;
+    procedure UpdateTitle;
   public
     procedure LoadFromRegistry(Root: HKEY; Key: string);
@@ -290 +291 @@
 
 procedure TFormMain.UpdateInterface;
-var
-  I: Integer;
-  Title: string;
 begin
   with Core do begin
-  Title := ApplicationInfo.Name;
-  if Project.FileName <> '' then Title := Project.FileName + ' - ' + Title;
-  if Project.Modified then Title := Title + ' *';
-  Caption := Title;
-  AProjectClose.Enabled := Project.Active;
-  AProjectSave.Enabled := Project.Active and Project.Modified;
-  AProjectSaveAs.Enabled := Project.Active;
+  UpdateTitle;
+  AProjectClose.Enabled := Assigned(Project);
+  AProjectSave.Enabled := Assigned(Project) and Project.Modified;
+  AProjectSaveAs.Enabled := Assigned(Project);
   (*AProgramRun.Enabled := Project.Active and (BrainFuckInterpreter.State = rsStopped);
   AProgramPause.Enabled := Project.Active and (BrainFuckInterpreter.State = rsRunning);
   AProgramStop.Enabled := Project.Active and (BrainFuckInterpreter.State <> rsStopped);*)
-  ABuild.Enabled := Project.Active and Assigned(Compiler.Target) and
+  ABuild.Enabled := Assigned(Project) and Assigned(Compiler.Target) and
     Assigned(Compiler.Target.Producer);
-  APause.Enabled := Project.Active and Assigned(Compiler.Target) and
+  APause.Enabled := Assigned(Project) and Assigned(Compiler.Target) and
     Assigned(Compiler.Target.Executor) and (Compiler.Target.Executor.State = rsRunning);
-  ARun.Enabled := Project.Active and Assigned(Compiler.Target) and
+  ARun.Enabled := Assigned(Project) and Assigned(Compiler.Target) and
     Assigned(Compiler.Target.Executor) and ((Compiler.Target.Executor.State = rsStopped) or
     (Compiler.Target.Executor.State = rsPaused));
-  AStop.Enabled := Project.Active and Assigned(Compiler.Target) and
+  AStop.Enabled := Assigned(Project) and Assigned(Compiler.Target) and
     Assigned(Compiler.Target.Executor) and ((Compiler.Target.Executor.State = rsRunning) or
     (Compiler.Target.Executor.State = rsPaused));
-  AStepIn.Enabled := Project.Active and Assigned(Compiler.Target) and
+  AStepIn.Enabled := Assigned(Project) and Assigned(Compiler.Target) and
     Assigned(Compiler.Target.Executor) and ((Compiler.Target.Executor.State = rsRunning) or
     (Compiler.Target.Executor.State = rsPaused));
@@ -324 +319 @@
 
   UpdateMenu;
-  UpdateToolbar;
   FormSourceCode.UpdateInterface;
   FormTargetCode.UpdateInterface;
@@ -443 +437 @@
 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;
+procedure TFormMain.UpdateTitle;
+var
+  Title: string;
+begin
+  Title := ApplicationInfo.Name;
+  if Assigned(Core.Project) then begin
+    if Core.Project.FileName <> '' then Title := Core.Project.FileName + ' - ' + Title;
+    if Core.Project.Modified then Title := Title + ' *';
+  end;
+  Caption := Title;
 end;
 
@@ -503 +501 @@
 begin
   //if Project.Modified then ;
-  Core.Project.Active := False;
+  FreeAndNil(Core.Project);
   UpdateInterface;
 end;
@@ -532 +530 @@
 begin
   if FormProjectNew.ShowModal = mrOk then begin
-    if Assigned(FormProjectNew.ListView1.Selected) then
+    if Assigned(FormProjectNew.ListView1.Selected) then begin
+      Core.ProjectNew;
       TProjectTemplate(FormProjectNew.ListView1.Selected.Data).InitProject(Core.Project);
+    end;
   end;
   UpdateInterface;
@@ -540 +540 @@
 procedure TFormMain.AProjectSaveAsExecute(Sender: TObject);
 begin
+  if Assigned(Core.Project) then
   if SaveDialog1.Execute then begin
-    Core.Project.Active := True;
     Core.Project.SaveToFile(SaveDialog1.FileName);
     FormSourceCode.Save;