pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Use Constraints in the VpNavBar component editor form.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6392 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-06 08:47:18 +00:00
parent 6f01c05126
commit 417eff8496
2 changed files with 12 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tvplanit/source/design/vpnabed.lfm
View File

@@ -149,11 +149,12 @@ object frmNavBarEd: TfrmNavBarEd
AnchorSideLeft.Control = btnFolderUp AnchorSideLeft.Control = btnFolderUp
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlFolderBtns AnchorSideTop.Control = pnlFolderBtns
Left = 83 Left = 87
Height = 25 Height = 25
Hint = 'Move folder down' Hint = 'Move folder down'
Top = 0 Top = 0
Width = 25 Width = 25
BorderSpacing.Left = 4
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000

10
components/tvplanit/source/design/vpnabed.pas
View File

@@ -325,8 +325,17 @@ begin
end; end;
procedure TfrmNavBarEd.FormShow(Sender: TObject); procedure TfrmNavBarEd.FormShow(Sender: TObject);
var
delta: Integer;
h: Integer;
begin begin
PopulateImagesList; PopulateImagesList;
delta := lbFolders.Left;
pnlFolders.Constraints.MinWidth := btnFolderDown.Left + btnFolderDown.Width + delta;
pnlItems.Constraints.MinWidth := btnItemDown.Left + btnItemDown.Width + lbImages.Width + btnUseImage.Width + delta;
Constraints.MinWidth := pnlFolders.Constraints.MinWidth + pnlItems.Constraints.MinWidth;
lbItemsMeasureItem(nil, 0, h);
Constraints.MinHeight := lbItems.Top + h + pnlItemBtns.Height + 3*delta;
lbFolders.SetFocus; lbFolders.SetFocus;
end; end;
@@ -622,6 +631,7 @@ begin
btn.IconIndex btn.IconIndex
); );
end; end;
dec(Rect.Right, Bar.Images.Width + 2*delta);
// Draw text // Draw text
ts := lb.Canvas.TextStyle; ts := lb.Canvas.TextStyle;