Changeset 49 for trunk/IDE/UProject.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/UProject.pas (modified) (6 diffs)

trunk/IDE/UProject.pas

@@ -41 +41 @@
   private
     FModified: Boolean;
+    function GetAbsoluteFileName: string;
     procedure SetModified(const AValue: Boolean);
   public
@@ -53 +54 @@
     procedure Save;
     property Modified: Boolean read FModified write SetModified;
+    property AbsoluteFileName: string read GetAbsoluteFileName;
   end;
 
@@ -60 +62 @@
     Parent: TProject;
     procedure DumpFileList(Files: TListString);
+    procedure LoadFromList(Files: TListString);
     procedure Load;
     procedure Save;
@@ -170 +173 @@
   Files.Clear;
   for I := 0 to Count - 1 do
-    Files.Add(TProjectFile(Items[I]).FileName);
+    Files.Add(TProjectFile(Items[I]).AbsoluteFileName);
+end;
+
+procedure TProjectFileList.LoadFromList(Files: TListString);
+var
+  I: Integer;
+  NewFile: TProjectFile;
+  FileName: string;
+begin
+  Clear;
+  for I := 0 to Files.Count - 1 do begin
+    FileName := Files[I];
+    if Copy(FileName, 1, Length(ExtractFileDir(Parent.FileName))) =
+      ExtractFileDir(Parent.FileName) then
+        System.Delete(FileName, 1, Length(ExtractFileDir(Parent.FileName)) + 1);
+    NewFile := AddFile(FileName);
+    NewFile.Load;
+  end;
 end;
 
@@ -245 +265 @@
 end;
 
+function TProjectFile.GetAbsoluteFileName: string;
+begin
+  Result := ExtractFileDir(Parent.FileName) + DirectorySeparator + FileName;
+end;
+
 constructor TProjectFile.Create;
 begin
@@ -277 +302 @@
       FileName := UTF8Encode(NewNode.TextContent);
   end;
-  if FileExistsUTF8(ExtractFileDir(Parent.FileName) + DirectorySeparator + FileName) then Load;
+  if FileExistsUTF8(AbsoluteFileName) then Load;
 end;
 
 procedure TProjectFile.Load;
 begin
-  Source.LoadFromFile(ExtractFileDir(Parent.FileName) + DirectorySeparator + FileName);
+  Source.LoadFromFile(AbsoluteFileName);
 end;