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

remove non conditional block

This commit is contained in:
Basile Burg 2018-10-09 16:28:19 +02:00
parent c376201dc1
commit 060a7b4073
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
src/ce_synmemo.pas
View File

@ -2642,30 +2642,30 @@ begin
i -= 1; i -= 1;
end; end;
DcdWrapper.getCallTip(str); DcdWrapper.getCallTip(str);
i := fCallTipStrings.Count;
if (fCallTipStrings.Count <> 0) and str.isNotEmpty then
fCallTipStrings.Insert(0, '---');
fCallTipStrings.Insert(0, str);
i := fCallTipStrings.Count - i;
// overload count to delete on ')'
{$PUSH}{$HINTS OFF}{$WARNINGS OFF}
fCallTipStrings.Objects[0] := TObject(pointer(i));
{$POP}
str := '';
for lne in fCallTipStrings do
if lne.isNotEmpty then
str += lne + LineEnding;
if str.isNotEmpty then
begin begin
i := fCallTipStrings.Count; {$IFDEF WINDOWS}
if (fCallTipStrings.Count <> 0) and str.isNotEmpty then str := str[1..str.length-2];
fCallTipStrings.Insert(0, '---'); {$ELSE}
fCallTipStrings.Insert(0, str); str := str[1..str.length-1];
i := fCallTipStrings.Count - i; {$ENDIF}
// overload count to delete on ')' showCallTipsString(str, j);
{$PUSH}{$HINTS OFF}{$WARNINGS OFF}
fCallTipStrings.Objects[0] := TObject(pointer(i));
{$POP}
str := '';
for lne in fCallTipStrings do
if lne.isNotEmpty then
str += lne + LineEnding;
if str.isNotEmpty then
begin
{$IFDEF WINDOWS}
str := str[1..str.length-2];
{$ELSE}
str := str[1..str.length-1];
{$ENDIF}
showCallTipsString(str, j);
end;
end; end;
if findOpenParen then if findOpenParen then
CaretX:=x; CaretX:=x;
end; end;