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

tvplanit: Change layout of VpNavBar component editor to clarify which action buttons belong to folders or which belong to btnitems.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6379 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-04 10:01:26 +00:00
parent fb3f45cf2c
commit 9ae714dee3
2 changed files with 100 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -87,27 +87,29 @@ object frmNavBarEd: TfrmNavBarEd
Width = 543 Width = 543
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2
ClientHeight = 279 ClientHeight = 279
ClientWidth = 543 ClientWidth = 543
TabOrder = 1 TabOrder = 1
object pnlFolders: TPanel object pnlFolders: TPanel
AnchorSideLeft.Control = pnlFoldersAndItems
AnchorSideTop.Control = pnlFoldersAndItems
AnchorSideRight.Control = Bevel1
AnchorSideBottom.Control = pnlFoldersAndItems
AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 279 Height = 279
Top = 0 Top = 0
Width = 272 Width = 269
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 279 ClientHeight = 279
ClientWidth = 272 ClientWidth = 269
TabOrder = 0 TabOrder = 0
object lbFolders: TListBox object lbFolders: TListBox
Left = 4 Left = 4
Height = 256 Height = 227
Top = 23 Top = 23
Width = 236 Width = 265
Align = alClient Align = alClient
BorderSpacing.Left = 4 BorderSpacing.Left = 4
ItemHeight = 0 ItemHeight = 0
@ -118,11 +120,11 @@ object frmNavBarEd: TfrmNavBarEd
Left = 0 Left = 0
Height = 23 Height = 23
Top = 0 Top = 0
Width = 272 Width = 269
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 23 ClientHeight = 23
ClientWidth = 272 ClientWidth = 269
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 4 Left = 4
@ -135,20 +137,25 @@ object frmNavBarEd: TfrmNavBarEd
end end
end end
object Panel5: TPanel object Panel5: TPanel
Left = 240 Left = 4
Height = 256 Height = 25
Top = 23 Top = 254
Width = 32 Width = 265
Align = alRight Align = alBottom
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 256 ClientHeight = 25
ClientWidth = 32 ClientWidth = 265
TabOrder = 2 TabOrder = 2
object btnFolderAdd: TSpeedButton object btnFolderAdd: TSpeedButton
Left = 4 AnchorSideLeft.Control = Panel5
AnchorSideTop.Control = Panel5
Left = 0
Height = 25 Height = 25
Hint = 'Add folder' Hint = 'Add folder'
Top = 7 Top = 0
Width = 25 Width = 25
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
@ -167,11 +174,15 @@ object frmNavBarEd: TfrmNavBarEd
ParentShowHint = False ParentShowHint = False
end end
object btnFolderDelete: TSpeedButton object btnFolderDelete: TSpeedButton
Left = 4 AnchorSideLeft.Control = btnFolderAdd
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel5
Left = 29
Height = 25 Height = 25
Hint = 'Remove folder' Hint = 'Remove folder'
Top = 40 Top = 0
Width = 25 Width = 25
BorderSpacing.Left = 4
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000
@ -189,11 +200,15 @@ object frmNavBarEd: TfrmNavBarEd
ParentShowHint = False ParentShowHint = False
end end
object btnFolderUp: TSpeedButton object btnFolderUp: TSpeedButton
Left = 4 AnchorSideLeft.Control = btnFolderDelete
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel5
Left = 58
Height = 25 Height = 25
Hint = 'Move folder up' Hint = 'Move folder up'
Top = 72 Top = 0
Width = 25 Width = 25
BorderSpacing.Left = 4
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000
@ -211,10 +226,13 @@ object frmNavBarEd: TfrmNavBarEd
ParentShowHint = False ParentShowHint = False
end end
object btnFolderDown: TSpeedButton object btnFolderDown: TSpeedButton
Left = 4 AnchorSideLeft.Control = btnFolderUp
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel5
Left = 83
Height = 25 Height = 25
Hint = 'Move folder down' Hint = 'Move folder down'
Top = 104 Top = 0
Width = 25 Width = 25
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
@ -235,20 +253,29 @@ object frmNavBarEd: TfrmNavBarEd
end end
end end
object pnlItems: TPanel object pnlItems: TPanel
Left = 272 AnchorSideLeft.Control = Bevel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlFoldersAndItems
AnchorSideRight.Control = pnlFoldersAndItems
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlFoldersAndItems
AnchorSideBottom.Side = asrBottom
Left = 273
Height = 279 Height = 279
Top = 0 Top = 0
Width = 271 Width = 270
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 279 ClientHeight = 279
ClientWidth = 271 ClientWidth = 270
TabOrder = 1 TabOrder = 1
object lbItems: TListBox object lbItems: TListBox
Left = 0 Left = 0
Height = 256 Height = 227
Top = 23 Top = 23
Width = 235 Width = 266
Align = alClient Align = alClient
BorderSpacing.Right = 4
ItemHeight = 13 ItemHeight = 13
OnClick = lbItemsClick OnClick = lbItemsClick
OnDrawItem = lbItemsDrawItem OnDrawItem = lbItemsDrawItem
@ -257,21 +284,25 @@ object frmNavBarEd: TfrmNavBarEd
TabOrder = 1 TabOrder = 1
end end
object Panel1: TPanel object Panel1: TPanel
Left = 235 Left = 0
Height = 256 Height = 25
Top = 23 Top = 254
Width = 32 Width = 266
Align = alRight Align = alBottom
AutoSize = True
BorderSpacing.Top = 4
BorderSpacing.Right = 4 BorderSpacing.Right = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 256 ClientHeight = 25
ClientWidth = 32 ClientWidth = 266
TabOrder = 2 TabOrder = 2
object btnItemAdd: TSpeedButton object btnItemAdd: TSpeedButton
Left = 4 AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
Left = 0
Height = 25 Height = 25
Hint = 'Add Item' Hint = 'Add Item'
Top = 7 Top = 0
Width = 25 Width = 25
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
@ -290,11 +321,15 @@ object frmNavBarEd: TfrmNavBarEd
ParentShowHint = False ParentShowHint = False
end end
object btnItemDelete: TSpeedButton object btnItemDelete: TSpeedButton
Left = 4 AnchorSideLeft.Control = btnItemAdd
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 29
Height = 25 Height = 25
Hint = 'Remove item' Hint = 'Remove item'
Top = 39 Top = 0
Width = 25 Width = 25
BorderSpacing.Left = 4
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000
@ -312,11 +347,15 @@ object frmNavBarEd: TfrmNavBarEd
ParentShowHint = False ParentShowHint = False
end end
object btnItemUp: TSpeedButton object btnItemUp: TSpeedButton
Left = 4 AnchorSideLeft.Control = btnItemDelete
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 58
Height = 25 Height = 25
Hint = 'Move item up' Hint = 'Move item up'
Top = 72 Top = 0
Width = 25 Width = 25
BorderSpacing.Left = 4
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000
@ -334,11 +373,15 @@ object frmNavBarEd: TfrmNavBarEd
ParentShowHint = False ParentShowHint = False
end end
object btnItemDown: TSpeedButton object btnItemDown: TSpeedButton
Left = 4 AnchorSideLeft.Control = btnItemUp
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
Left = 87
Height = 25 Height = 25
Hint = 'Move item down' Hint = 'Move item down'
Top = 104 Top = 0
Width = 25 Width = 25
BorderSpacing.Left = 4
Glyph.Data = { Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100 DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000 0400000000006800000000000000000000001000000010000000000000000000
@ -360,11 +403,11 @@ object frmNavBarEd: TfrmNavBarEd
Left = 0 Left = 0
Height = 23 Height = 23
Top = 0 Top = 0
Width = 271 Width = 270
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 23 ClientHeight = 23
ClientWidth = 271 ClientWidth = 270
TabOrder = 0 TabOrder = 0
object Label2: TLabel object Label2: TLabel
Left = 0 Left = 0
@ -377,5 +420,14 @@ object frmNavBarEd: TfrmNavBarEd
end end
end end
end end
object Bevel1: TBevel
AnchorSideLeft.Control = pnlFoldersAndItems
AnchorSideLeft.Side = asrCenter
Left = 269
Height = 50
Top = 0
Width = 4
Shape = bsSpacer
end
end end
end end

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

@ -55,6 +55,7 @@ type
{ TfrmNavBarEd } { TfrmNavBarEd }
TfrmNavBarEd = class(TForm) TfrmNavBarEd = class(TForm)
Bevel1: TBevel;
pnlImageView: TPanel; pnlImageView: TPanel;
pnlFoldersAndItems: TPanel; pnlFoldersAndItems: TPanel;
pnlItems: TPanel; pnlItems: TPanel;