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

IDE: In Use Unit dialog, assume implementation section when cursor in on initialization or finalization sections. Patch from Anton.

Browse Source 
git-svn-id: trunk@34968 -
This commit is contained in:
juha 2012-01-27 01:13:20 +00:00
parent 54a7c58f47
commit 105a7abd1d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/useunitdlg.pas
View File

@ -397,7 +397,10 @@ begin
FImplUsedUnits.Objects[i] := ImplUsesNode;
// find CodeTreeNode at cursor
CursorNode := BuildSubTreeAndFindDeepestNodeAtPos(CleanCursorPos, True);
if CursorNode.HasParentOfType(ctnImplementation) then
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