Changeset 62 for trunk/IDE

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.

Location:

trunk/IDE

Files:

• Forms/UFormMain.pas (modified) (3 diffs)
• Forms/UFormProject.pas (modified) (1 diff)
• Forms/UFormSourceCode.pas (modified) (1 diff)
• Forms/UFormTargetProject.pas (modified) (1 diff)
• UCore.lfm (modified) (1 diff)

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;

trunk/IDE/Forms/UFormProject.pas

@@ -125 +125 @@
 procedure TFormProject.AShowExecute(Sender: TObject);
 begin
-  if Assigned(TreeViewProject.Selected) then
-  FormSourceCode.SynEditSource.Lines.Assign(TProjectFile(TreeViewProject.Selected.Data).Source);
+  if Assigned(TreeViewProject.Selected) then begin
+    FormMain.TabSheetSource.Show;
+    FormSourceCode.ProjectFile := TProjectFile(TreeViewProject.Selected.Data);
+  end;
 end;
 

trunk/IDE/Forms/UFormSourceCode.pas

@@ -40 +40 @@
 procedure TFormSourceCode.SynEditSourceChange(Sender: TObject);
 begin
+  Save;
   if Assigned(Core.Project) and Assigned(ProjectFile) then
     ProjectFile.Modified := True;

trunk/IDE/Forms/UFormTargetProject.pas

@@ -66 +66 @@
     if TProjectFile(Node.Data) is TProjectFile then begin
       ProjectFile := TProjectFile(Node.Data);
+      FormMain.TabSheetTarget.Show;
       SynEdit1.Lines.Assign(TProjectFile(Node.Data).Source);
     end;

trunk/IDE/UCore.lfm

@@ -37 +37 @@
     EmailContact = 'robie@centrum.cz'
     AppName = 'Transpascal IDE'
-    ReleaseDate = 41103
+    ReleaseDate = 41107
     RegistryKey = '\Software\Chronosoft\Transpascal'
     RegistryRoot = rrKeyCurrentUser