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

ident completion: fixed start token and context for classes

Browse Source 
git-svn-id: trunk@3033 -
This commit is contained in:
mattias 2002-08-18 08:57:11 +00:00
parent c05c3ff643
commit b77a2e00ca
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ide/uniteditor.pp
View File

@ -927,12 +927,11 @@ Begin
ecIdentCompletion :
if not TCustomSynEdit(Sender).ReadOnly then begin
CurrentCompletionType:=ctIdentCompletion;
TextS := FEditor.LineText;
TextS := FEditor.LineTextExtended;
i := FEditor.CaretX - 1;
if i > length(TextS) then
TextS2 := ''
else begin
dec(i);
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));
@ -947,7 +946,7 @@ Begin
ecWordCompletion :
if TCustomSynEdit(Sender).ReadOnly=false then begin
CurrentCompletionType:=ctWordCompletion;
TextS := FEditor.LineText;
TextS := FEditor.LineTextExtended;
i := FEditor.CaretX - 1;
if i > length(TextS) then
TextS2 := ''
@ -1947,7 +1946,7 @@ begin
AutoCompleteList.LoadFromFile('lazarus.dci');
IndentToTokenStart:=EditorOpts.CodeTemplateIndentToTokenStart;
OnTokenNotFound:=@OnCodeTemplateTokenNotFound;
EndOfTokenChr:='()[]{},.;:"+-*^@$\<>=''';
EndOfTokenChr:=' ()[]{},.;:"+-*^@$\<>=''';
end;
if aWordCompletion=nil then begin
aWordCompletion:=TWordCompletion.Create;
@ -2242,7 +2241,7 @@ begin
// add one entry per item
CodeToolBoss.IdentifierList.Prefix:=Prefix;
ItemCnt:=CodeToolBoss.IdentifierList.GetFilteredCount;
writeln('CurCompletionControl.CurrentString=',CurCompletionControl.CurrentString,' ItemCnt=',ItemCnt);
writeln('InitIdentCompletion: Prefix=',Prefix,' ItemCnt=',ItemCnt);
CurCompletionControl.CurrentString:='';
CurCompletionControl.Position:=0;
for i:=0 to ItemCnt-1 do