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

added history to identifier completion

Browse Source 
git-svn-id: trunk@3023 -
This commit is contained in:
mattias 2002-08-18 08:57:06 +00:00
parent a1795e6ca2
commit 9aff51930b
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/uniteditor.pp
View File

@ -2303,9 +2303,16 @@ var
Begin
if CurCompletionControl=nil then exit;
case CurrentCompletionType of
ctIdentCompletion:
begin
// add to history
CodeToolBoss.IdentifierHistory.Add(
CodeToolBoss.IdentifierList.FilteredItems[aCompletion.Position]);
NewValue:=GetIdentCompletionValue(aCompletion,ValueType);
// ToDo: check if there is no @ in front and no bracket behind
case ValueType of
icvProcWithParams:
NewValue:=NewValue+'()';
@ -2321,9 +2328,6 @@ Begin
end;
ccSelection := '';
Value:='';
// ToDo: add to history
end;
ctTemplateCompletion: