Changeset 62 for trunk/UProject.pas

Timestamp:

Dec 4, 2014, 11:46:40 AM (10 years ago)

Author:

chronos

Message:

• Modified: Project openned state as property instead of checking FileName.

File:

• trunk/UProject.pas (modified) (1 diff)

trunk/UProject.pas

@@ -9 +9 @@
 
 type
+
+  { TProject }
+
   TProject = class
+  private
+    FOpenned: Boolean;
+    procedure SetOpenned(AValue: Boolean);
+  public
     Modified: Boolean;
     FileName: string;
+    property Openned: Boolean read FOpenned write SetOpenned;
   end;
 
 implementation
 
+{ TProject }
+
+
+procedure TProject.SetOpenned(AValue: Boolean);
+begin
+  if FOpenned = AValue then Exit;
+  FOpenned := AValue;
+  if AValue then begin
+    Modified := False;
+  end else begin
+    FileName := '';
+  end;
+end;
+
 end.