From 19c2afe9d9401a81c7984e4259036a7c0792414d Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 4 Dec 2014 08:55:55 +0100
Subject: [PATCH] pass project src folder to dcd, mostly for Ctrl+Shift+up /
 find symb decl

---
 src/ce_project.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/ce_project.pas b/src/ce_project.pas
index f518f245..55ef87e2 100644
--- a/src/ce_project.pas
+++ b/src/ce_project.pas
@@ -39,6 +39,7 @@ type
     fCanBeRun: boolean;
     procedure updateOutFilename;
     procedure doChanged;
+    procedure updateDcd;
     procedure setLibAliases(const aValue: TStringList);
     procedure subMemberChanged(sender : TObject);
     procedure setOptsColl(const aValue: TCollection);
@@ -143,6 +144,14 @@ begin
     Configuration[i].onChanged := @subMemberChanged;
 end;
 
+procedure TCEProject.updateDcd;
+var
+  fname: string;
+begin
+  for fname in fSrcs do
+    ce_dcd.addDcdImport(extractfilePath(getAbsoluteFilename(fname)));
+end;
+
 procedure TCEProject.addSource(const aFilename: string);
 var
   relSrc, absSrc: string;
@@ -153,6 +162,7 @@ begin
     if aFilename = absSrc then exit;
   end;
   fSrcs.Add(ExtractRelativepath(fBasePath,aFilename));
+  updateDcd;
 end;
 
 procedure TCEProject.setRoot(const aValue: string);
@@ -198,6 +208,7 @@ begin
   beforeChanged;
   fSrcs.Assign(aValue);
   patchPlateformPaths(fSrcs);
+  updateDcd;
   afterChanged;
 end;
 
@@ -352,6 +363,7 @@ var
   hasPatched: Boolean;
 begin
   patchPlateformPaths(fSrcs);
+  updateDcd;
   doChanged;
   fModified := false;
   hasPatched := false;