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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/ce_synmemo.pas
View File

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