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

Timestamp:

Mar 4, 2012, 3:38:44 PM (12 years ago)

Author:

chronos

Message:

• Modified: Project now hold file list as linear list each include relative path to source instead of tree structure. This allow link to files outside of project folder.

File:

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

trunk/IDE/Forms/UFormMain.pas

@@ -232 +232 @@
       else Compiler.Analyzer.OnDebugLog := nil;
 
-    if Project.Items.Count > 0 then
-    with TProjectFile(Project.Items[0]) do begin
+    if Project.Files.Count > 0 then
+    with TProjectFile(Project.Files[0]) do begin
       Compiler.SourceFiles.Clear;
-      Project.DumpFileList(Compiler.SourceFiles);
-      Compiler.TargetFolder := Project.RootDir;
+      Project.Files.DumpFileList(Compiler.SourceFiles);
+      Compiler.TargetFolder := ExtractFileDir(Project.FileName);
       Compiler.Compile;
     end;
-    FormProject.TreeViewProjectChange(Self, FormProject.TreeViewProject.Selected);
+    //FormProject.TreeViewProjectChange(Self, FormProject.TreeViewProject.Selected);
     FormMessages.Reload;
 end;
@@ -283 +283 @@
   F: TFileStream;
 begin
-  FileName := Project.GetDir(True) + Name + '.pas';
+  FileName := ExtractFileDir(Project.FileName) + Name + '.pas';
   if FileExists(FileName) then
   try
@@ -302 +302 @@
 begin
   Title := ApplicationInfo.Name;
-  if Project.Name <> '' then Title := Project.Name + ' - ' + Title;
+  if Project.FileName <> '' then Title := Project.FileName + ' - ' + Title;
   if Project.Modified then Title := Title + ' *';
   Caption := Title;
@@ -557 +557 @@
 
 procedure TFormMain.AProjectNewExecute(Sender: TObject);
+var
+  NewFile: TProjectFile;
 begin
   AProjectClose.Execute;
   Project.Active := True;
-  Project.Name := SNewProject;
+  Project.FileName := SNewProject;
+  Project.Files.AddFile('Unit1.pas');
   UpdateInterface;
 end;