Changeset 36 for trunk/IDE/UProject.pas

Timestamp:

Feb 13, 2012, 4:07:34 PM (12 years ago)

Author:

chronos

Message:

• Modified: Partialy solved project open/close/save management.

Location:

trunk/IDE

Files:

• . (modified) (1 prop)
• UProject.pas (modified) (6 diffs)

trunk/IDE

@@ -4 +4 @@
 Transpascal.lps
 Transpascal.exe
+heaptrclog.trc

@@ -4 +4 @@
 Transpascal.lps
 Transpascal.exe
+heaptrclog.trc

trunk/IDE/UProject.pas

@@ -9 +9 @@
   Classes, SysUtils, Dialogs, DOM, XMLWrite, XMLRead, FileUtil,
   SpecializedList;
+
+const
+  ProjectExt = '.tppr';
 
 type
@@ -63 +66 @@
     FActive: Boolean;
     function GetActive: Boolean;
+    function GetFileName: string;
     procedure SetActive(AValue: Boolean);
   public
@@ -75 +79 @@
     procedure Clear;
     property Active: Boolean read GetActive write SetActive;
+    property FileName: string read GetFileName;
   end;
 
@@ -236 +241 @@
 end;
 
+function TProject.GetFileName: string;
+begin
+  Result := GetDir(True) + Name + ProjectExt;
+end;
+
 procedure TProject.SetActive(AValue: Boolean);
 begin
+  if FActive = AValue then Exit;
   FActive := AValue;
+  if FActive then Clear;
 end;
 
@@ -264 +276 @@
     Doc.Free;
   end;
+  FModified := False;
 end;
 
@@ -310 +323 @@
     Free;
   end;
+  FModified := False;
   inherited Save;
 end;

@@ -4 +4 @@
 Transpascal.lps
 Transpascal.exe
+heaptrclog.trc