fix range error when finding call tip origin

This commit is contained in:
Basile Burg 2018-12-18 18:06:17 +01:00
parent 5df4b21165
commit 52ff281c9f
1 changed files with 26 additions and 21 deletions

View File

@ -2647,9 +2647,13 @@ begin
i -= TabWidth
else
i -= 1;
if i <= 0 then
break;
end;
DcdWrapper.getCallTip(str);
if i > 0 then
begin
DcdWrapper.getCallTip(str);
i := fCallTipStrings.Count;
if (fCallTipStrings.Count <> 0) and str.isNotEmpty then
fCallTipStrings.Insert(0, '---');
@ -2672,6 +2676,7 @@ begin
{$ENDIF}
showCallTipsString(str, j);
end;
end;
if findOpenParen then
CaretX:=x;