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

fix #355 - Completion doesn't work for items in project groups

This commit is contained in:
Basile Burg 2018-08-09 04:13:05 +02:00
parent 2657767c3e
commit 7439aea55e
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
src/ce_dcd.pas
View File

@ -45,6 +45,7 @@ type
function checkDcdSocket: boolean; function checkDcdSocket: boolean;
function getIfLaunched: boolean; function getIfLaunched: boolean;
procedure tryAddTcpParams; {$IFNDEF DEBUG}inline;{$ENDIF} procedure tryAddTcpParams; {$IFNDEF DEBUG}inline;{$ENDIF}
procedure updateImportPathFromProject;
// //
procedure projNew(project: ICECommonProject); procedure projNew(project: ICECommonProject);
procedure projChanged(project: ICECommonProject); procedure projChanged(project: ICECommonProject);
@ -207,23 +208,18 @@ end;
{$ENDREGION} {$ENDREGION}
{$REGION ICEProjectObserver ----------------------------------------------------} {$REGION ICEProjectObserver ----------------------------------------------------}
procedure TCEDcdWrapper.projNew(project: ICECommonProject); procedure TCEDcdWrapper.updateImportPathFromProject;
begin
fProj := project;
end;
procedure TCEDcdWrapper.projChanged(project: ICECommonProject);
var var
i: Integer; i: Integer;
fold: string; fold: string;
folds: TStringList; folds: TStringList;
begin begin
if (fProj = nil) or (fProj <> project) then if not assigned(fProj) then
exit; exit;
folds := TStringList.Create; folds := TStringList.Create;
try try
fold := ce_projutils.projectSourcePath(project); fold := ce_projutils.projectSourcePath(fProj);
if fold.dirExists then if fold.dirExists then
folds.Add(fold); folds.Add(fold);
for i := 0 to fProj.importsPathCount-1 do for i := 0 to fProj.importsPathCount-1 do
@ -238,6 +234,18 @@ begin
end; end;
end; end;
procedure TCEDcdWrapper.projNew(project: ICECommonProject);
begin
fProj := project;
end;
procedure TCEDcdWrapper.projChanged(project: ICECommonProject);
begin
if (fProj = nil) or (fProj <> project) then
exit;
updateImportPathFromProject();
end;
procedure TCEDcdWrapper.projClosing(project: ICECommonProject); procedure TCEDcdWrapper.projClosing(project: ICECommonProject);
begin begin
if fProj <> project then if fProj <> project then
@ -248,6 +256,7 @@ end;
procedure TCEDcdWrapper.projFocused(project: ICECommonProject); procedure TCEDcdWrapper.projFocused(project: ICECommonProject);
begin begin
fProj := project; fProj := project;
updateImportPathFromProject();
end; end;
procedure TCEDcdWrapper.projCompiling(project: ICECommonProject); procedure TCEDcdWrapper.projCompiling(project: ICECommonProject);