source: tags/1.1.0/UProject.pas

Last change on this file was 68, checked in by chronos, 9 years ago
  • Modified: Used jump instructions parameter instead of special sourcejump auxiliary array.
File size: 553 bytes
Line 
1unit UProject;
2
3{$mode delphi}
4
5interface
6
7uses
8 Classes, SysUtils;
9
10type
11
12 { TProject }
13
14 TProject = class
15 private
16 FOpenned: Boolean;
17 procedure SetOpenned(AValue: Boolean);
18 public
19 Modified: Boolean;
20 FileName: string;
21 property Openned: Boolean read FOpenned write SetOpenned;
22 end;
23
24implementation
25
26{ TProject }
27
28procedure TProject.SetOpenned(AValue: Boolean);
29begin
30 if FOpenned = AValue then Exit;
31 FOpenned := AValue;
32 if AValue then begin
33 Modified := False;
34 end else begin
35 FileName := '';
36 end;
37end;
38
39end.
40
Note: See TracBrowser for help on using the repository browser.