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

fix filter of project inspector not realigned anymore

This commit is contained in:
Basile Burg 2018-10-25 04:38:08 +02:00
parent bde1c81fad
commit 57b005d67b
2 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_projinspect.lfm
View File

@ -54,7 +54,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
Width = 416
OnResize = toolbarResize
object btnRemFold: TCEToolButton[0]
Left = 113
Left = 141
Hint = 'remove the selected source parent folder from the project'
Top = 0
AutoSize = True
@ -64,7 +64,7 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
scaledSeparator = False
end
object btnAddFold: TCEToolButton[1]
Left = 141
Left = 113
Hint = 'add a folder of sources to the project'
Top = 0
AutoSize = True
@ -100,11 +100,9 @@ inherited CEProjectInspectWidget: TCEProjectInspectWidget
Top = 2
Width = 232
ButtonWidth = 28
NumGlyphs = 1
Align = alClient
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 142
BorderSpacing.Around = 2
NumGlyphs = 1
MaxLength = 0
TabOrder = 0
FilteredTreeview = Tree

21
src/ce_projinspect.pas
View File

@ -90,7 +90,7 @@ implementation
{$R *.lfm}
const optFname = 'projinspect.txt';
const filterAlign: array[boolean] of integer = (66, 174);
const filterAlign: array[boolean] of integer = (58, 162);
{$REGION Standard Comp/Obj------------------------------------------------------}
constructor TCEProjectInspectWidget.create(aOwner: TComponent);
@ -317,15 +317,24 @@ end;
procedure TCEProjectInspectWidget.updateButtons;
var
ce: boolean;
sp: integer;
begin
ce := fProject.getFormat = pfCE;
btnRemFile.Visible:= ce;
btnRemFold.Visible:= ce;
btnAddFile.Visible:= ce;
btnAddFold.Visible:= ce;
toolbarResize(nil);
TreeFilterEdit1.BorderSpacing.Left := ScaleX(filterAlign[ce], 96);
toolbarResize(nil);
btnRemFile.Visible:= ce;
btnAddFile.Visible:= ce;
TreeFilterEdit1.Left := toolbar.Width - 5;
sp := scaleX(2, 96);
if ce then
TreeFilterEdit1.Left := btnRemFold.Left + btnRemFold.Width + 2
else
TreeFilterEdit1.Left := btnTree.Left + btnRemFold.Width + 2;
TreeFilterEdit1.width := toolbar.Width - TreeFilterEdit1.Left - sp;
TreeFilterEdit1.top := sp;
TreeFilterEdit1.Height:= toolbar.Height - sp * 2;
end;
procedure TCEProjectInspectWidget.setFileListAsTree(value: boolean);