diff --git a/ide/projectresources.pas b/ide/projectresources.pas
index 927f70fd28..6aeed08170 100644
--- a/ide/projectresources.pas
+++ b/ide/projectresources.pas
@@ -387,6 +387,7 @@ var
   R: TAbstractProjectResource;
 begin
   inherited Create(AProject);
+  inherited SetResourceType(rtRes); // set fpc resources by default
 
   FInModified := False;
   FLrsIncludeAllowed := False;
diff --git a/ideintf/projectresourcesintf.pas b/ideintf/projectresourcesintf.pas
index b7b649b04f..e38093925e 100644
--- a/ideintf/projectresourcesintf.pas
+++ b/ideintf/projectresourcesintf.pas
@@ -115,7 +115,8 @@ end;
 
 constructor TAbstractProjectResources.Create(AProject: TLazProject);
 begin
-  FProject:=AProject;
+  inherited Create;
+  FProject := AProject;
   FMessages := TStringList.Create;
 end;