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

nothing

This commit is contained in:
Basile Burg 2015-03-15 01:09:09 +01:00
parent b947838d7a
commit 03ce7716f9
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_dcd.pas
View File

@ -311,7 +311,7 @@ begin
fClient.Parameters.Clear;
fClient.Parameters.Add('-d');
fClient.Parameters.Add('-c');
fClient.Parameters.Add(intToStr(fDoc.MouseStart -1));
fClient.Parameters.Add(intToStr(fDoc.MouseStart - 1));
fClient.Parameters.Add(fDoc.tempFilename);
fClient.Execute;
//

6
src/ce_editor.pas
View File

@ -366,7 +366,7 @@ procedure TCEEditorWidget.getSymbolLoc;
var
srcpos, i, sum: Integer;
fname: string;
lel: byte;
len: byte;
begin
if not DcdWrapper.available then exit;
//
@ -378,11 +378,11 @@ begin
// note: SelStart only matches srcpos if the target file has the same line ending
// as the operating system: the pos has to be found manually.
sum := 0;
lel := getLineEndingLength(fDoc.fileName);
len := getLineEndingLength(fDoc.fileName);
for i := 0 to fDoc.Lines.Count-1 do
begin
sum += length(fDoc.Lines.Strings[i]);
sum += lel;
sum += len;
//TODO-cenhancement: find declaration, determine column accurately.
if sum >= srcpos then
begin