fix, windows, empty line in call tips

This commit is contained in:
Basile Burg 2016-02-08 16:30:28 +01:00
parent f7cb97831c
commit 1ff8b9e878
2 changed files with 9 additions and 0 deletions

View File

@ -390,7 +390,11 @@ begin
//
fTempLines.Delete(0);
tips := fTempLines.Text;
{$IFDEF WINDOWS}
tips := tips[1..tips.length-2];
{$ELSE}
tips := tips[1..tips.length-1];
{$ENDIF}
end;
procedure TCEDcdWrapper.getComplAtCursor(aList: TStrings);

View File

@ -1029,6 +1029,11 @@ begin
fCallTipStrings.Objects[0] := TObject(pointer(i));
{$POP}
str := fCallTipStrings.Text;
{$IFDEF WINDOWS}
str := str[1..str.length-2];
{$ELSE}
str := str[1..str.length-1];
{$ENDIF}
showCallTips(str);
end;
end;