Changeset 57 for trunk/IDE/UProject.pas

Timestamp:

Jul 16, 2012, 4:11:47 PM (12 years ago)

Author:

chronos

Message:

• Modified: Testing interpretter.

File:

• trunk/IDE/UProject.pas (modified) (6 diffs)

trunk/IDE/UProject.pas

@@ -73 +73 @@
   TProject = class
   private
-    FActive: Boolean;
     FModified: Boolean;
     FOnChange: TNotifyEvent;
@@ -239 +238 @@
 var
   I: Integer;
-begin
+  ParentDir: string;
+begin
+  ParentDir := ExtractFileDir(Parent.FileName);
+  if Copy(FileName, 1, Length(ParentDir)) = ParentDir then
+    System.Delete(FileName, 1, Length(ParentDir) + 1);
   I := 0;
   while (I < Count) and (TProjectFile(Items[I]).FileName <> FileName) do Inc(I);
@@ -309 +312 @@
 procedure TProjectFile.Save;
 begin
-  if Modified then
-    Source.SaveToFile(FileName);
+  Source.SaveToFile(AbsoluteFileName);
 end;
 
@@ -319 +321 @@
   if FModified = AValue then Exit;
   FModified := AValue;
+  if Assigned(FOnChange) then FOnChange(Self);
 end;
 
@@ -364 +367 @@
 begin
   Doc := TXMLDocument.Create;
+  Self.FileName := FileName;
   with Doc do try
     RootNode := CreateElement('Project');
@@ -395 +399 @@
 
 procedure TProject.Save;
+var
+  I: Integer;
 begin
   Files.Save;
   Packages.Save;
+  for I := 0 to Files.Count - 1 do
+    TProjectFile(Files[I]).Modified := False;
+  Modified := False;
 end;