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

Timestamp:

Jul 17, 2012, 10:14:41 AM (12 years ago)

Author:

chronos

Message:

• Modified: Show tab sheets of source code forms on file click in project manager.
• Fixed: Compilation error message line calculation on Windows.

File:

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

trunk/IDE/Forms/UFormMain.pas

@@ -183 +183 @@
     with TProjectFile(Project.Files[0]) do begin
       Compiler.SourceFiles.Files.Clear;
+      Compiler.TargetFiles.Files.Clear;
       Project.Files.DumpFileList(Compiler.SourceFiles.Files);
       Compiler.MainSource := Project.MainSource.AbsoluteFileName;
@@ -497 +498 @@
   Core.ProjectTemplatesInit;
 
-  if Core.ReopenLastOpenedFile and (Core.LastOpenedFiles.Items.Count > 0) then begin
+  if Core.ReopenLastOpenedFile and (Core.LastOpenedFiles.Items.Count > 0) then
+  if FileExistsUTF8(Core.LastOpenedFiles.Items[0]) then
     Core.ProjectOpen(Core.LastOpenedFiles.Items[0]);
-  end;
 
   WindowState := wsMaximized;
@@ -513 +514 @@
 procedure TFormMain.AProjectCloseExecute(Sender: TObject);
 begin
-  //if Project.Modified then ;
+  //if Project.Modified then ;  A
+  FormSourceCode.ProjectFile := nil;
   FreeAndNil(Core.Project);
+  FormProject.UpdateProjectTree;
   UpdateInterface;
 end;