forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

proj inspect, selection lost after dbl click and if proj is DUB

This commit is contained in:
Basile Burg 2017-03-04 05:54:20 +01:00
parent 2c67672edd
commit 46d5ad7e20
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
3 changed files with 17 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/ce_projinspect.lfm
View File

@ -30,6 +30,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
BorderSpacing.Around = 2 BorderSpacing.Around = 2
DefaultItemHeight = 16 DefaultItemHeight = 16
DragMode = dmAutomatic DragMode = dmAutomatic
HideSelection = False
Images = imgList Images = imgList
ReadOnly = True ReadOnly = True
RightClickSelect = True RightClickSelect = True
@ -41,7 +42,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
OnDeletion = TreeDeletion OnDeletion = TreeDeletion
OnKeyDown = TreeKeyDown OnKeyDown = TreeKeyDown
OnSelectionChanged = TreeSelectionChanged OnSelectionChanged = TreeSelectionChanged
Options = [tvoAutoExpand, tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoThemedDraw] Options = [tvoAutoExpand, tvoAutoItemHeight, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoThemedDraw]
Items.Data = { Items.Data = {
F9FFFFFF020002000000000000000000000000000000FFFFFFFF000000000000 F9FFFFFF020002000000000000000000000000000000FFFFFFFF000000000000
0000000C000000536F757263652066696C6573010000000100000001000000FF 0000000C000000536F757263652066696C6573010000000100000001000000FF

14
src/ce_projinspect.pas
View File

@ -333,7 +333,7 @@ begin
TCEDubProject(fProject.getProject).updateSourcesList; TCEDubProject(fProject.getProject).updateSourcesList;
end end
else TCEDubProject(fProject.getProject).updateSourcesList; else TCEDubProject(fProject.getProject).updateSourcesList;
updateImperative; //updateImperative;
end; end;
procedure TCEProjectInspectWidget.btnAddFileClick(Sender: TObject); procedure TCEProjectInspectWidget.btnAddFileClick(Sender: TObject);
@ -500,7 +500,10 @@ var
conf: string; conf: string;
itm: TTreeNode; itm: TTreeNode;
i,j: integer; i,j: integer;
sel: string = '';
begin begin
if Tree.Selected.isNotNil then
sel := Tree.Selected.GetTextPath;
fConfNode.DeleteChildren; fConfNode.DeleteChildren;
fFileNode.DeleteChildren; fFileNode.DeleteChildren;
@ -533,6 +536,15 @@ begin
itm.SelectedIndex:= 3; itm.SelectedIndex:= 3;
end; end;
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; Tree.EndUpdate;
end; end;
{$ENDREGION --------------------------------------------------------------------} {$ENDREGION --------------------------------------------------------------------}

3
src/ce_widget.lfm
View File

@ -9,7 +9,7 @@ object CEWidget: TCEWidget
ClientWidth = 332 ClientWidth = 332
ShowHint = True ShowHint = True
ShowInTaskBar = stNever ShowInTaskBar = stNever
LCLVersion = '1.6.0.4' LCLVersion = '1.6.4.0'
object Back: TPanel object Back: TPanel
Left = 0 Left = 0
Height = 121 Height = 121
@ -48,6 +48,7 @@ object CEWidget: TCEWidget
EdgeOuter = esNone EdgeOuter = esNone
Flat = False Flat = False
TabOrder = 1 TabOrder = 1
Transparent = True
end end
end end
object contextMenu: TPopupMenu object contextMenu: TPopupMenu