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

more accurate caret position after DCD find location

This commit is contained in:
Basile Burg 2015-03-17 01:34:12 +01:00
parent cfb5e2009d
commit 3a5b9cf941
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_editor.pas
View File

@ -364,7 +364,7 @@ end;
procedure TCEEditorWidget.getSymbolLoc;
var
srcpos, i, sum: Integer;
srcpos, i, sum, linelen: Integer;
fname: string;
len: byte;
begin
@ -381,14 +381,16 @@ begin
len := getLineEndingLength(fDoc.fileName);
for i := 0 to fDoc.Lines.Count-1 do
begin
sum += length(fDoc.Lines.Strings[i]);
sum += len;
//TODO-cenhancement: find declaration, determine column accurately.
if sum >= srcpos then
linelen := length(fDoc.Lines.Strings[i]);
if sum + linelen + len > srcpos then
begin
fDoc.CaretY := i+1;
fDoc.CaretY := i + 1;
fDoc.CaretX := srcpos - sum + len;
fDoc.SelectWord;
break;
end;
sum += linelen;
sum += len;
end;
end;
end;