paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 12:40:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

Synedit: Codetemplate fix for tabs. Issue #0020700

Browse Source 
git-svn-id: trunk@33589 -
This commit is contained in:
martin 2011-11-17 15:01:41 +00:00
parent a0906eb9fc
commit 7a39358a8c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syneditautocomplete.pp
View File

@ -245,7 +245,7 @@ begin
if AEditor <> nil then begin if AEditor <> nil then begin
// get token // get token
s := AEditor.LineText; s := AEditor.LineText;
j := AEditor.CaretX; j := AEditor.LogicalCaretXY.x;
i := j - 1; i := j - 1;
if i <= Length(s) then begin if i <= Length(s) then begin
while (i > 0) and (s[i] > ' ') and (Pos(s[i], fEOTokenChars) = 0) do while (i > 0) and (s[i] > ' ') and (Pos(s[i], fEOTokenChars) = 0) do