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

IDE: word completion: fixed getting prefix with lines with tabs

Browse Source 
git-svn-id: trunk@18206 -
This commit is contained in:
mattias 2009-01-08 08:59:51 +00:00
parent 0915feea3c
commit 2f13da5b12
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourceeditor.pp
View File

@ -1545,7 +1545,7 @@ Begin
else begin
while (i > 0) and (TextS[i] in ['a'..'z','A'..'Z','0'..'9','_']) do
dec(i);
TextS2 := Trim(copy(TextS, i + 1, FEditor.CaretX - i - 1));
TextS2 := Trim(copy(TextS, i + 1, LogCaret.X - i - 1));
end;
with TCustomSynEdit(Sender) do begin
P := Point(CaretXPix - length(TextS2)*CharWidth,CaretYPix + LineHeight + 1);

2
ide/wordcompletion.pp
View File

@ -13,7 +13,7 @@
*****************************************************************************
Abstract:
A wordcompletion stores words and can createe a list of words gathered
A wordcompletion stores words and can createse a list of words gathered
from the recently added words and provided source texts.
}