Changeset 35 for trunk/IDE/UProject.pas

Timestamp:

Feb 13, 2012, 3:50:17 PM (13 years ago)

Author:

chronos

Message:

• Modified: Selection of Analyzer and Producer is now done in main menu.
• Added: Options form for application wide user settings.
• Added: Multilanguage interface support. Can be change in main options dialog.
• Added: Source icons used for actions.

File:

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

trunk/IDE/UProject.pas

@@ -60 +60 @@
 
   TProject = class(TProjectGroup)
+  private
+    FActive: Boolean;
+    function GetActive: Boolean;
+    procedure SetActive(AValue: Boolean);
+  public
     RootDir: string;
     procedure LoadFromFile(FileName: string);
@@ -69 +74 @@
     procedure LoadFromXMLNode(Node: TDOMNode); override;
     procedure Clear;
+    property Active: Boolean read GetActive write SetActive;
   end;
 
@@ -225 +231 @@
 { TProject }
 
+function TProject.GetActive: Boolean;
+begin
+  Result := FActive;
+end;
+
+procedure TProject.SetActive(AValue: Boolean);
+begin
+  FActive := AValue;
+end;
+
 procedure TProject.LoadFromFile(FileName: string);
 var