1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
{
*****************************************************************************
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
unit ProjectResourcesIntf;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, resource,
// IdeIntf
CompOptsIntf, ProjectIntf;
type
TAbstractProjectResources = class;
{ TAbstractProjectResource }
TAbstractProjectResource = class
private
FModified: boolean;
FOnModified: TNotifyEvent;
procedure SetModified(const AValue: boolean);
protected
// This resource is used when reading project default options.
FIsDefaultOption: Boolean;
public
constructor Create; virtual;
procedure DoAfterBuild({%H-}AResources: TAbstractProjectResources; {%H-}AReason: TCompileReason; {%H-}SaveToTestDir: boolean); virtual;
procedure DoBeforeBuild({%H-}AResources: TAbstractProjectResources; {%H-}AReason: TCompileReason; {%H-}SaveToTestDir: boolean); virtual;
function UpdateResources(AResources: TAbstractProjectResources; const MainFilename: string): Boolean; virtual; abstract;
procedure WriteToProjectFile(AConfig: {TXMLConfig}TObject; const Path: String); virtual; abstract;
procedure ReadFromProjectFile(AConfig: {TXMLConfig}TObject; const Path: String); virtual; abstract;
property Modified: boolean read FModified write SetModified;
property OnModified: TNotifyEvent read FOnModified write FOnModified;
property IsDefaultOption: Boolean read FIsDefaultOption;
end;
TAbstractProjectResourceClass = class of TAbstractProjectResource;
{ TAbstractProjectResources }
TAbstractProjectResources = class
private
FProject: TLazProject;
FResourceType: TResourceType;
protected
FMessages: TStringList;
procedure SetResourceType(const AValue: TResourceType); virtual;
function GetProjectResource(AIndex: TAbstractProjectResourceClass): TAbstractProjectResource; virtual; abstract;
class function GetRegisteredResources: TList;
public
constructor Create(AProject: TLazProject); virtual;
destructor Destroy; override;
procedure AddSystemResource(AResource: TAbstractResource); virtual; abstract;
procedure AddLazarusResource(AResource: TStream;
const AResourceName, AResourceType: String); virtual; abstract;
property Messages: TStringList read FMessages;
property Project: TLazProject read FProject;
property ResourceType: TResourceType read FResourceType write SetResourceType;
property Resource[AIndex: TAbstractProjectResourceClass]: TAbstractProjectResource read GetProjectResource; default;
end;
procedure RegisterProjectResource(AResource: TAbstractProjectResourceClass);
implementation
var
FRegisteredProjectResources: TList = nil;
procedure RegisterProjectResource(AResource: TAbstractProjectResourceClass);
begin
if FRegisteredProjectResources = nil then
FRegisteredProjectResources := TList.Create;
FRegisteredProjectResources.Add(AResource);
end;
{ TAbstractProjectResource }
procedure TAbstractProjectResource.SetModified(const AValue: boolean);
begin
if FModified=AValue then exit;
FModified:=AValue;
if Assigned(OnModified) then OnModified(Self);
end;
constructor TAbstractProjectResource.Create;
begin
FModified := False;
end;
procedure TAbstractProjectResource.DoAfterBuild(AResources: TAbstractProjectResources;
AReason: TCompileReason; SaveToTestDir: boolean);
begin
// nothing
end;
procedure TAbstractProjectResource.DoBeforeBuild(AResources: TAbstractProjectResources;
AReason: TCompileReason; SaveToTestDir: boolean);
begin
// nothing
end;
{ TAbstractProjectResources }
procedure TAbstractProjectResources.SetResourceType(const AValue: TResourceType);
begin
FResourceType := AValue;
end;
class function TAbstractProjectResources.GetRegisteredResources: TList;
begin
Result := FRegisteredProjectResources;
end;
constructor TAbstractProjectResources.Create(AProject: TLazProject);
begin
inherited Create;
FProject := AProject;
FMessages := TStringList.Create;
end;
destructor TAbstractProjectResources.Destroy;
begin
FreeAndNil(FMessages);
inherited Destroy;
end;
finalization
FRegisteredProjectResources.Free;
end.
|
