Context Navigation

Project.pas

Last change on this file was 48, checked in by chronos, 7 months ago
Fixed: Resolved unit names conflict with Common package.
File size: 1.1 KB

Line
1	unit Project;
2
3	interface
4
5	uses
6	Classes, SysUtils, Common.LastOpenedList;
7
8	type
9
10	{ TProject }
11
12	TProject = class
13	FileName: string;
14	Modified: Boolean;
15	RecentFiles: TLastOpenedList;
16	procedure New;
17	procedure Open(AFileName: string);
18	procedure Save;
19	procedure SaveAs(AFileName: string);
20	procedure Close;
21	constructor Create;
22	destructor Destroy; override;
23	end;
24
25	implementation
26
27	{ TProject }
28
29	procedure TProject.New;
30	begin
31	FileName := 'New project.prj';
32	Modified := False;
33	end;
34
35	procedure TProject.Open(AFileName: string);
36	begin
37	FileName := AFileName;
38	RecentFiles.AddItem(AFileName);
39	Modified := False;
40	end;
41
42	procedure TProject.Save;
43	begin
44	Modified := False;
45	end;
46
47	procedure TProject.SaveAs(AFileName: string);
48	begin
49	FileName := AFileName;
50	RecentFiles.AddItem(AFileName);
51	Save;
52	end;
53
54	procedure TProject.Close;
55	begin
56	if Modified then Save;
57	FileName := '';
58	end;
59
60	constructor TProject.Create;
61	begin
62	RecentFiles := TLastOpenedList.Create(nil);
63	end;
64
65	destructor TProject.Destroy;
66	begin
67	FreeAndNil(RecentFiles);
68	inherited;
69	end;
70
71	end.
72

Note: See TracBrowser for help on using the repository browser.