Changeset 54 for trunk/IDE/UProject.pas

Timestamp:

Jun 26, 2012, 7:41:11 AM (12 years ago)

Author:

chronos

Message:

• Modified: Project instance is now freed in closed state.
• Added: Toolbar button Open now provide dropdown list of recent opened projects.

File:

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

trunk/IDE/UProject.pas

@@ -75 +75 @@
     FActive: Boolean;
     FModified: Boolean;
-    function GetActive: Boolean;
-    procedure SetActive(AValue: Boolean);
+    FOnChange: TNotifyEvent;
     procedure SetModified(AValue: Boolean);
   public
@@ -91 +90 @@
     constructor Create;
     destructor Destroy; override;
-    property Active: Boolean read GetActive write SetActive;
     property Modified: Boolean read FModified write SetModified;
+    property OnChange: TNotifyEvent read FOnChange write FOnChange;
   end;
 
@@ -100 +99 @@
     Name: string;
     Description: TStringList;
-    procedure InitProject(Project: TProject); virtual;
+    procedure InitProject(var Project: TProject); virtual;
     constructor Create; virtual;
     destructor Destroy; override;
@@ -111 +110 @@
   end;
 
-
-implementation
-
 resourcestring
   SNewProject = 'New project';
 
+implementation
+
 { TProjectTemplateList }
 
@@ -126 +124 @@
 { TProjectTemplate }
 
-procedure TProjectTemplate.InitProject(Project: TProject);
-begin
-  Project.Active := False;
-  Project.Active := True;
+procedure TProjectTemplate.InitProject(var Project: TProject);
+begin
   Project.FileName := SNewProject;
 end;
@@ -319 +315 @@
 { TProject }
 
-function TProject.GetActive: Boolean;
-begin
-  Result := FActive;
-end;
-
-procedure TProject.SetActive(AValue: Boolean);
-begin
-  if FActive = AValue then Exit;
-  FActive := AValue;
-  if not FActive then Clear;
-end;
-
 procedure TProject.SetModified(AValue: Boolean);
 begin