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

IDE: use unit dialog: simplified DetermineUsesSection

Browse Source 
git-svn-id: trunk@35685 -
This commit is contained in:
mattias 2012-03-03 19:11:03 +00:00
parent 14d32a0423
commit 009b5cfb04
1 changed files with 17 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
ide/useunitdlg.pas
View File

@ -377,36 +377,26 @@ procedure TUseUnitDialog.DetermineUsesSection(ACode: TCodeBuffer; ACursorPos: TP
var
CursorPos: TCodeXYPosition;
CleanCursorPos: Integer;
CursorNode: TCodeTreeNode;
ImplUsesNode: TCodeTreeNode;
i: Integer;
Tool: TCodeTool;
ImplNode: TCodeTreeNode;
begin
if not CodeToolBoss.InitCurCodeTool(ACode) then Exit;
with CodeToolBoss.CurCodeTool do
begin
CursorPos := CodeXYPosition(ACursorPos.X, ACursorPos.Y, ACode);
ActivateGlobalWriteLock;
try
// build code tree
BuildTreeAndGetCleanPos(trTillCursor,lsrEnd,CursorPos,CleanCursorPos,
[btSetIgnoreErrorPos,btLoadDirtySource,btCursorPosOutAllowed]);
if (Tree.Root = nil) or (Tree.Root.StartPos > CleanCursorPos) then Exit;
ImplUsesNode := FindImplementationUsesSection;
if Assigned(ImplUsesNode) then
for i := 0 to FImplUsedUnits.Count - 1 do
FImplUsedUnits.Objects[i] := ImplUsesNode;
// find CodeTreeNode at cursor
CursorNode := BuildSubTreeAndFindDeepestNodeAtPos(CleanCursorPos, True);
if (CursorNode.Desc in [ctnImplementation,ctnInitialization,ctnFinalization])
or CursorNode.HasParentOfType(ctnImplementation)
or CursorNode.HasParentOfType(ctnInitialization)
or CursorNode.HasParentOfType(ctnFinalization) then
SectionRadioGroup.ItemIndex := 1;
SectionRadioGroup.OnClick(SectionRadioGroup);
finally
DeactivateGlobalWriteLock
end;
end;
CodeToolBoss.Explore(ACode,Tool,false);
if Tool=nil then exit;
// collect implementation use unit nodes
ImplUsesNode := Tool.FindImplementationUsesSection;
if Assigned(ImplUsesNode) then
for i := 0 to FImplUsedUnits.Count - 1 do
FImplUsedUnits.Objects[i] := ImplUsesNode;
// check if cursor is behind interface section
CursorPos := CodeXYPosition(ACursorPos.X, ACursorPos.Y, ACode);
Tool.CaretToCleanPos(CursorPos,CleanCursorPos);
ImplNode:=Tool.FindImplementationNode;
if (ImplNode<>nil) and (CleanCursorPos>ImplNode.StartPos) then
SectionRadioGroup.ItemIndex := 1;
// update
SectionRadioGroup.OnClick(SectionRadioGroup);
end;
procedure TUseUnitDialog.FillAvailableUnitsList;