paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: use $R forms by default

Browse Source 
git-svn-id: trunk@23675 -
This commit is contained in:
paul 2010-02-09 23:25:36 +00:00
parent 38206db38c
commit 6d3622fa85
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/projectresources.pas
View File

@ -387,6 +387,7 @@ var
R: TAbstractProjectResource; R: TAbstractProjectResource;
begin begin
inherited Create(AProject); inherited Create(AProject);
inherited SetResourceType(rtRes); // set fpc resources by default
FInModified := False; FInModified := False;
FLrsIncludeAllowed := False; FLrsIncludeAllowed := False;

3
ideintf/projectresourcesintf.pas
View File

@ -115,7 +115,8 @@ end;
constructor TAbstractProjectResources.Create(AProject: TLazProject); constructor TAbstractProjectResources.Create(AProject: TLazProject);
begin begin
FProject:=AProject; inherited Create;
FProject := AProject;
FMessages := TStringList.Create; FMessages := TStringList.Create;
end; end;