forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

pass project src folder to dcd, mostly for Ctrl+Shift+up / find symb decl

This commit is contained in:
Basile Burg 2014-12-04 08:55:55 +01:00
parent 0b7efd8d9e
commit 19c2afe9d9
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/ce_project.pas
View File

@ -39,6 +39,7 @@ type
fCanBeRun: boolean; fCanBeRun: boolean;
procedure updateOutFilename; procedure updateOutFilename;
procedure doChanged; procedure doChanged;
procedure updateDcd;
procedure setLibAliases(const aValue: TStringList); procedure setLibAliases(const aValue: TStringList);
procedure subMemberChanged(sender : TObject); procedure subMemberChanged(sender : TObject);
procedure setOptsColl(const aValue: TCollection); procedure setOptsColl(const aValue: TCollection);
@ -143,6 +144,14 @@ begin
Configuration[i].onChanged := @subMemberChanged; Configuration[i].onChanged := @subMemberChanged;
end; 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); procedure TCEProject.addSource(const aFilename: string);
var var
relSrc, absSrc: string; relSrc, absSrc: string;
@ -153,6 +162,7 @@ begin
if aFilename = absSrc then exit; if aFilename = absSrc then exit;
end; end;
fSrcs.Add(ExtractRelativepath(fBasePath,aFilename)); fSrcs.Add(ExtractRelativepath(fBasePath,aFilename));
updateDcd;
end; end;
procedure TCEProject.setRoot(const aValue: string); procedure TCEProject.setRoot(const aValue: string);
@ -198,6 +208,7 @@ begin
beforeChanged; beforeChanged;
fSrcs.Assign(aValue); fSrcs.Assign(aValue);
patchPlateformPaths(fSrcs); patchPlateformPaths(fSrcs);
updateDcd;
afterChanged; afterChanged;
end; end;
@ -352,6 +363,7 @@ var
hasPatched: Boolean; hasPatched: Boolean;
begin begin
patchPlateformPaths(fSrcs); patchPlateformPaths(fSrcs);
updateDcd;
doChanged; doChanged;
fModified := false; fModified := false;
hasPatched := false; hasPatched := false;