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

restore caret x when call tips are obtained using paren lookup

This commit is contained in:
Basile Burg 2016-04-16 17:47:48 +02:00
parent db17fb68a8
commit 4cd0f9ed3a
1 changed files with 5 additions and 5 deletions

10
src/ce_synmemo.pas
View File

@ -1029,12 +1029,13 @@ end;
procedure TCESynMemo.showCallTips(findOpenParen: boolean = true);
var
str: string;
i: integer;
i, x: integer;
begin
if not fCallTipWin.Visible then
fCallTipStrings.Clear;
str := LineText[1..CaretX];
i := CaretX;
x := CaretX;
i := x;
if findOpenParen then while true do
begin
if i = 1 then
@ -1069,6 +1070,8 @@ begin
{$ENDIF}
showCallTips(str);
end;
if findOpenParen then
CaretX:=x;
end;
procedure TCESynMemo.showCallTips(const tips: string);
@ -1438,8 +1441,6 @@ end;
{$REGION user input ------------------------------------------------------------}
procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
var
i: integer;
begin
case Key of
VK_BACK: if fCallTipWin.Visible and (CaretX > 1)
@ -1511,7 +1512,6 @@ end;
procedure TCESynMemo.UTF8KeyPress(var Key: TUTF8Char);
var
c: TUTF8Char;
i: integer;
begin
c := Key;
inherited;