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

identifier completion: reduced level for compiler functions

Browse Source 
git-svn-id: trunk@9013 -
This commit is contained in:
mattias 2006-03-24 16:02:47 +00:00
parent 451e5c4942
commit 3166c7b2cc
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
components/codetools/identcompletiontool.pas
View File

@ -785,6 +785,9 @@ end;
procedure TIdentCompletionTool.GatherPredefinedIdentifiers(CleanPos: integer;
const Context: TFindContext; BeautifyCodeOptions: TBeautifyCodeOptions);
// Add predefined identifiers
const
CompilerFuncHistoryIndex = 10;
CompilerFuncLevel = 10;
function StatementLevel: integer;
var
@ -799,7 +802,7 @@ procedure TIdentCompletionTool.GatherPredefinedIdentifiers(CleanPos: integer;
end;
if ANode=nil then Result:=0;
end;
var
NewItem: TIdentifierListItem;
ProcNode: TCodeTreeNode;
@ -809,9 +812,9 @@ begin
NewItem:=TIdentifierListItem.Create(
icompUnknown,
false,
3,
CompilerFuncHistoryIndex,
'SetLength',
StatementLevel,
CompilerFuncLevel,
nil,
nil,
ctnProcedure);
@ -822,9 +825,9 @@ begin
NewItem:=TIdentifierListItem.Create(
icompUnknown,
false,
3,
CompilerFuncHistoryIndex,
'Copy',
StatementLevel,
CompilerFuncLevel,
nil,
nil,
ctnProcedure);
@ -835,9 +838,9 @@ begin
NewItem:=TIdentifierListItem.Create(
icompUnknown,
false,
3,
CompilerFuncHistoryIndex,
'Write',
StatementLevel,
CompilerFuncLevel,
nil,
nil,
ctnProcedure);
@ -848,9 +851,9 @@ begin
NewItem:=TIdentifierListItem.Create(
icompUnknown,
false,
3,
CompilerFuncHistoryIndex,
'WriteLn',
StatementLevel,
CompilerFuncLevel,
nil,
nil,
ctnProcedure);
@ -861,9 +864,9 @@ begin
NewItem:=TIdentifierListItem.Create(
icompUnknown,
false,
3,
CompilerFuncHistoryIndex,
'Read',
StatementLevel,
CompilerFuncLevel,
nil,
nil,
ctnProcedure);
@ -873,9 +876,9 @@ begin
NewItem:=TIdentifierListItem.Create(
icompUnknown,
false,
3,
CompilerFuncHistoryIndex,
'ReadLn',
StatementLevel,
CompilerFuncLevel,
nil,
nil,
ctnProcedure);
@ -887,7 +890,7 @@ begin
NewItem:=TIdentifierListItem.Create(
icompUnknown,
true,
0,
1,
'Self',
StatementLevel,
nil,
@ -902,7 +905,7 @@ begin
NewItem:=TIdentifierListItem.Create(
icompUnknown,
true,
0,
1,
'Result',
StatementLevel,
nil,