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

MG: fix for empty word completion

Browse Source 
git-svn-id: trunk@310 -
This commit is contained in:
lazarus 2001-07-02 13:15:36 +00:00
parent 68552f0239
commit ff39f433d9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/uniteditor.pp
View File

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