paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 22:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented add file to a package dialog

Browse Source 
git-svn-id: trunk@3152 -
This commit is contained in:
mattias 2002-08-18 16:50:04 +00:00
parent 7762fc3ae7
commit 602eb57081
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/codetools/codecompletiontool.pas
View File

@ -2073,7 +2073,12 @@ var CleanCursorPos, Indent, insertPos: integer;
Params.Flags:=[fdfSearchInParentNodes,fdfSearchInAncestors,
fdfTopLvlResolving,fdfFindVariable];
if (not FindDeclarationOfIdentAtCursor(Params))
or (Params.NewNode.Desc<>ctnProperty) then exit;
or (Params.NewNode.Desc<>ctnProperty) then begin
{$IFDEF CTDEBUG}
writeln('FindEventTypeAtCursor not a property');
{$ENDIF}
exit;
end;
PropertyContext:=CreateFindContext(Params);
// identifier is property
// -> check type of property
@ -2081,8 +2086,12 @@ var CleanCursorPos, Indent, insertPos: integer;
ProcContext:=PropertyContext.Tool.FindBaseTypeOfNode(
Params,PropertyContext.Node);
if (ProcContext.Node=nil) or (ProcContext.Node.Desc<>ctnProcedureType)
then
then begin
{$IFDEF CTDEBUG}
writeln('FindEventTypeAtCursor not a procedure type');
{$ENDIF}
exit;
end;
// identifier is property of type proc => this is an event
Result:=true;
end;
@ -2126,11 +2135,14 @@ var CleanCursorPos, Indent, insertPos: integer;
begin
Result:=false;
ProcNode:=CursorNode;
while (ProcNode<>nil) and (ProcNode.Desc<>ctnProcedure) do
while (ProcNode<>nil) do begin
if (ProcNode.Desc=ctnProcedure) then begin
SearchedClassname:=ExtractClassNameOfProcNode(ProcNode);
if SearchedClassName<>'' then break;
end;
ProcNode:=ProcNode.Parent;
end;
if (ProcNode=nil) then exit;
SearchedClassname:=ExtractClassNameOfProcNode(ProcNode);
if SearchedClassname='' then exit;
ANode:=FindFirstNodeOnSameLvl(ProcNode);
if (ANode=nil) then exit;
// search class node