From 46d5ad7e205b2fbdc5bbf9f037537d4cfe935ef2 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Sat, 4 Mar 2017 05:54:20 +0100 Subject: [PATCH] proj inspect, selection lost after dbl click and if proj is DUB --- src/ce_projinspect.lfm | 3 ++- src/ce_projinspect.pas | 14 +++++++++++++- src/ce_widget.lfm | 3 ++- 3 files changed, 17 insertions(+), 3 deletions(-) diff --git a/src/ce_projinspect.lfm b/src/ce_projinspect.lfm index 7bae4ce5..c5be2672 100644 --- a/src/ce_projinspect.lfm +++ b/src/ce_projinspect.lfm @@ -30,6 +30,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget BorderSpacing.Around = 2 DefaultItemHeight = 16 DragMode = dmAutomatic + HideSelection = False Images = imgList ReadOnly = True RightClickSelect = True @@ -41,7 +42,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget OnDeletion = TreeDeletion OnKeyDown = TreeKeyDown OnSelectionChanged = TreeSelectionChanged - Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoThemedDraw] + Options = [tvoAutoExpand, tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoThemedDraw] Items.Data = { F9FFFFFF020002000000000000000000000000000000FFFFFFFF000000000000 0000000C000000536F757263652066696C6573010000000100000001000000FF diff --git a/src/ce_projinspect.pas b/src/ce_projinspect.pas index 0debc46c..4ddb17cd 100644 --- a/src/ce_projinspect.pas +++ b/src/ce_projinspect.pas @@ -333,7 +333,7 @@ begin TCEDubProject(fProject.getProject).updateSourcesList; end else TCEDubProject(fProject.getProject).updateSourcesList; - updateImperative; + //updateImperative; end; procedure TCEProjectInspectWidget.btnAddFileClick(Sender: TObject); @@ -500,7 +500,10 @@ var conf: string; itm: TTreeNode; i,j: integer; + sel: string = ''; begin + if Tree.Selected.isNotNil then + sel := Tree.Selected.GetTextPath; fConfNode.DeleteChildren; fFileNode.DeleteChildren; @@ -533,6 +536,15 @@ begin itm.SelectedIndex:= 3; end; end; + if sel.isNotEmpty then + begin + itm := Tree.Items.FindNodeWithTextPath(sel); + if itm.isNotNil then + begin + itm.Selected := true; + itm.MakeVisible; + end; + end; Tree.EndUpdate; end; {$ENDREGION --------------------------------------------------------------------} diff --git a/src/ce_widget.lfm b/src/ce_widget.lfm index 4e86455f..893b910c 100644 --- a/src/ce_widget.lfm +++ b/src/ce_widget.lfm @@ -9,7 +9,7 @@ object CEWidget: TCEWidget ClientWidth = 332 ShowHint = True ShowInTaskBar = stNever - LCLVersion = '1.6.0.4' + LCLVersion = '1.6.4.0' object Back: TPanel Left = 0 Height = 121 @@ -48,6 +48,7 @@ object CEWidget: TCEWidget EdgeOuter = esNone Flat = False TabOrder = 1 + Transparent = True end end object contextMenu: TPopupMenu