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

IDE: identifier completion: for classes show only inheritance

Browse Source 
git-svn-id: trunk@24740 -
This commit is contained in:
mattias 2010-04-20 14:37:44 +00:00
parent 4d6771ef43
commit 782331fcb1
1 changed files with 26 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
ide/sourceeditprocs.pas
View File

@ -34,12 +34,12 @@ unit SourceEditProcs;
interface
uses
Classes, SysUtils, LCLProc, LCLType, GraphType, Graphics, Controls,
SynEdit, SynEditHighlighter, SynRegExpr, SynCompletion,
BasicCodeTools, CodeTree, CodeAtom, CodeCache, SourceChanger, CodeToolManager,
PascalParserTool, KeywordFuncLists, FileProcs, IdentCompletionTool,
LazIDEIntf, TextTools, IDETextConverter,
DialogProcs, MainIntf, EditorOptions, CodeToolsOptions;
Classes, SysUtils, LCLProc, LCLType, GraphType, Graphics, Controls, SynEdit,
SynEditHighlighter, SynRegExpr, SynCompletion, BasicCodeTools, CodeTree,
CodeAtom, CodeCache, SourceChanger, CodeToolManager, PascalParserTool,
KeywordFuncLists, FileProcs, IdentCompletionTool, PascalReaderTool,
LazIDEIntf, TextTools, IDETextConverter, DialogProcs, MainIntf, EditorOptions,
CodeToolsOptions;
type
@ -217,6 +217,7 @@ var
AColor: TColor;
ANode: TCodeTreeNode;
ItemNode: TCodeTreeNode;
SubNode: TCodeTreeNode;
begin
Result.X := 0;
Result.Y := ACanvas.TextHeight('W');
@ -342,7 +343,7 @@ begin
s:=IdentItem.Tool.ExtractProcHead(ItemNode,
[phpWithoutClassName,phpWithoutName,phpWithVarModifiers,
phpWithParameterNames,phpWithDefaultValues,phpWithResultType,
phpWithOfObject]);
phpWithOfObject,phpWithoutSemicolon]);
end;
ctnProperty:
@ -361,7 +362,24 @@ begin
ctnTypeDefinition:
begin
ANode:=IdentItem.Tool.FindTypeNodeOfDefinition(ItemNode);
s:=' = '+IdentItem.Tool.ExtractNode(ANode,[]);
s:=' = ';
case ANode.Desc of
ctnClass,ctnObject,ctnObjCClass,ctnCPPClass:
begin
case ANode.Desc of
ctnClass: s:=s+'class';
ctnObject: s:=s+'object';
ctnObjCClass: s:=s+'objcclass';
ctnCPPClass: s:=s+'cppclass';
end;
IdentItem.Tool.BuildSubTree(ANode);
SubNode:=IdentItem.Tool.FindInheritanceNode(ANode);
if SubNode<>nil then
s:=s+IdentItem.Tool.ExtractNode(SubNode,[]);
end;
else
s:=s+IdentItem.Tool.ExtractNode(ANode,[]);
end;
end;
ctnConstDefinition: