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

fixed dcd completion list display 

deactivated calltips
This commit is contained in:
Basile Burg 2014-11-03 15:15:17 +01:00
parent 1286d61412
commit 37cd89717c
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_dcd.pas
View File

@ -91,6 +91,7 @@ var
i: NativeInt; i: NativeInt;
kind: Char; kind: Char;
item: string; item: string;
asComp: boolean;
begin begin
if not dcdOn then exit; if not dcdOn then exit;
lazyServerStart; lazyServerStart;
@ -102,8 +103,13 @@ begin
DCD_client.Execute; DCD_client.Execute;
// //
lines.LoadFromStream(DCD_client.Output); lines.LoadFromStream(DCD_client.Output);
if lines.Count = 0 then
exit;
asComp := lines.Strings[0] = 'identifiers';
if not asComp then
exit;
list.Clear; list.Clear;
for i := 0 to lines.Count-1 do for i := 1 to lines.Count-1 do
begin begin
item := lines.Strings[i]; item := lines.Strings[i];
kind := item[length(item)]; kind := item[length(item)];