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

cody: unit deps: all units: node hint

Browse Source 
git-svn-id: trunk@41758 -
This commit is contained in:
mattias 2013-06-17 20:29:09 +00:00
parent 64c301cb49
commit 0e3e8d4fb4
2 changed files with 30 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/ide/codyunitdepwnd.lfm
View File

@ -228,13 +228,16 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
Anchors = [akTop, akLeft, akRight, akBottom]
DefaultItemHeight = 18
HotTrack = True
ParentShowHint = False
PopupMenu = UnitsTVPopupMenu
ReadOnly = True
RightClickSelect = True
ShowHint = True
ShowRoot = False
TabOrder = 1
OnMouseDown = UnitsTreeViewMouseDown
OnSelectionChanged = AllUnitsTreeViewSelectionChanged
OnShowHint = UnitsTreeViewShowHint
Options = [tvoAutoItemHeight, tvoHideSelection, tvoHotTrack, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoToolTips, tvoThemedDraw]
end
object AllUnitsSearchEdit: TEdit
@ -341,12 +344,15 @@ object UnitDependenciesWindow: TUnitDependenciesWindow
Anchors = [akTop, akLeft, akRight, akBottom]
DefaultItemHeight = 18
HotTrack = True
ParentShowHint = False
PopupMenu = UnitsTVPopupMenu
ReadOnly = True
RightClickSelect = True
ShowHint = True
ShowRoot = False
TabOrder = 1
OnMouseDown = UnitsTreeViewMouseDown
OnShowHint = UnitsTreeViewShowHint
Options = [tvoAutoItemHeight, tvoHideSelection, tvoHotTrack, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoToolTips, tvoThemedDraw]
end
end

28
components/codetools/ide/codyunitdepwnd.pas
View File

@ -30,12 +30,10 @@
- additional files as start units
- view:
- text search with highlight
- hint for unit, project lpi, package lpk, directory: full filename
- selected units
- expand node: show connected units
- collapse node: free child nodes
- text search with highlight, next, previous
- hint for unit, project lpi, package lpk, directory: full filename
- resourcestrings
}
unit CodyUnitDepWnd;
@ -45,7 +43,7 @@ unit CodyUnitDepWnd;
interface
uses
Classes, SysUtils, AVL_Tree, LazLogger, LazFileUtils, LazUTF8, Forms,
Classes, SysUtils, types, AVL_Tree, LazLogger, LazFileUtils, LazUTF8, Forms,
Controls, ExtCtrls, ComCtrls, StdCtrls, Buttons, Dialogs, Menus, Clipbrd,
LvlGraphCtrl, LazIDEIntf, ProjectIntf, IDEWindowIntf, PackageIntf,
SrcEditorIntf, IDEDialogs, IDEImagesIntf, IDECommands, CodeToolManager,
@ -149,6 +147,7 @@ type
procedure AllUnitsSearchPrevSpeedButtonClick(Sender: TObject);
procedure AllUnitsShowDirsSpeedButtonClick(Sender: TObject);
procedure AllUnitsShowGroupNodesSpeedButtonClick(Sender: TObject);
procedure UnitsTreeViewShowHint(Sender: TObject; HintInfo: PHintInfo);
procedure UnitsTreeViewMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure AllUnitsTreeViewSelectionChanged(Sender: TObject);
@ -399,6 +398,27 @@ begin
IdleConnected:=true;
end;
procedure TUnitDependenciesWindow.UnitsTreeViewShowHint(Sender: TObject;
HintInfo: PHintInfo);
var
TV: TTreeView;
TVNode: TTreeNode;
p: types.TPoint;
UDNode: TUDNode;
Filename: String;
s: String;
begin
TV:=Sender as TTreeView;
p:=HintInfo^.CursorPos;
TVNode:=TV.GetNodeAt(p.X,p.Y);
if (TVNode=nil) or not (TObject(TVNode.Data) is TUDNode) then exit;
UDNode:=TUDNode(TVNode.Data);
Filename:=GetFilename(UDNode);
if Filename='' then exit;
s:='File: '+Filename;
HintInfo^.HintStr:=s;
end;
procedure TUnitDependenciesWindow.UnitsTreeViewMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
@ -1524,7 +1544,7 @@ var
Pkg: TIDEPackage;
begin
Result:='';
if UDNode.Typ=udnUnit then
if UDNode.Typ in [udnUnit,udnDirectory] then
Result:=UDNode.Identifier
else if UDNode.Typ=udnGroup then begin
if IsProjectGroup(UDNode.Group) then begin