Files

398 lines
13 KiB
Plaintext

object frmNavBarEd: TfrmNavBarEd
Left = 374
Height = 370
Top = 236
Width = 548
HorzScrollBar.Page = 425
VertScrollBar.Page = 322
Caption = 'NavBar Layout Tool'
ClientHeight = 370
ClientWidth = 548
FormStyle = fsStayOnTop
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
Position = poDefaultPosOnly
ShowHint = True
LCLVersion = '2.1.0.0'
object pnlFoldersAndItems: TPanel
Left = 0
Height = 370
Top = 0
Width = 548
Align = alClient
BevelOuter = bvNone
ClientHeight = 370
ClientWidth = 548
TabOrder = 0
object pnlFolders: TPanel
Left = 0
Height = 370
Top = 0
Width = 232
Align = alLeft
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone
ClientHeight = 370
ClientWidth = 232
TabOrder = 0
object lbFolders: TListBox
AnchorSideLeft.Control = pnlFolders
AnchorSideTop.Control = lblFolders
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlFolders
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlFolderBtns
Left = 4
Height = 314
Top = 23
Width = 228
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 4
BorderSpacing.Top = 4
ItemHeight = 0
OnClick = lbFoldersClick
TabOrder = 0
end
object pnlFolderBtns: TPanel
Left = 4
Height = 25
Top = 341
Width = 228
Align = alBottom
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
BevelOuter = bvNone
ClientHeight = 25
ClientWidth = 228
TabOrder = 1
object btnFolderAdd: TSpeedButton
AnchorSideLeft.Control = pnlFolderBtns
AnchorSideTop.Control = pnlFolderBtns
Left = 0
Height = 25
Hint = 'Add folder'
Top = 0
Width = 25
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3000333300000333300033330AAA0333300033330AAA0333300030000AAA0000
300030AAAAAAAAA0300030AAAAAAAAA0300030AAAAAAAAA0300030000AAA0000
300033330AAA0333300033330AAA033330003333000003333000333333333333
3000
}
Layout = blGlyphTop
Spacing = 1
OnClick = btnFolderAddClick
ShowHint = True
ParentShowHint = False
end
object btnFolderDelete: TSpeedButton
AnchorSideLeft.Control = btnFolderAdd
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlFolderBtns
Left = 29
Height = 25
Hint = 'Remove folder'
Top = 0
Width = 25
BorderSpacing.Left = 4
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3000333333333333300033333333333330003333333333333000300000000000
3000309999999990300030999999999030003099999999903000300000000000
3000333333333333300033333333333330003333333333333000333333333333
3000
}
Layout = blGlyphTop
Spacing = 1
OnClick = btnFolderDeleteClick
ShowHint = True
ParentShowHint = False
end
object btnFolderUp: TSpeedButton
AnchorSideLeft.Control = btnFolderDelete
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlFolderBtns
Left = 58
Height = 25
Hint = 'Move folder up'
Top = 0
Width = 25
BorderSpacing.Left = 4
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3000333333333333300033330000033330003333066603333000333306660333
3000333306660333300030000666000030003306666666033000333066666033
3000333306660333300033333060333330003333330333333000333333333333
3000
}
Layout = blGlyphTop
Spacing = 1
OnClick = btnFolderUpClick
ShowHint = True
ParentShowHint = False
end
object btnFolderDown: TSpeedButton
AnchorSideLeft.Control = btnFolderUp
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlFolderBtns
Left = 87
Height = 25
Hint = 'Move folder down'
Top = 0
Width = 25
BorderSpacing.Left = 4
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3000333333333333300033333303333330003333306033333000333306660333
3000333066666033300033066666660330003000066600003000333306660333
3000333306660333300033330666033330003333000003333000333333333333
3000
}
Layout = blGlyphTop
Spacing = 1
OnClick = btnFolderDownClick
ShowHint = True
ParentShowHint = False
end
end
object lblFolders: TLabel
AnchorSideLeft.Control = pnlFolders
AnchorSideTop.Control = pnlFolders
Left = 4
Height = 15
Top = 4
Width = 38
BorderSpacing.Left = 4
BorderSpacing.Top = 4
Caption = 'Folders'
FocusControl = lbFolders
ParentColor = False
end
end
object pnlItems: TPanel
Left = 237
Height = 370
Top = 0
Width = 311
Align = alClient
BevelOuter = bvNone
ClientHeight = 370
ClientWidth = 311
TabOrder = 1
object lbItems: TListBox
AnchorSideLeft.Control = pnlItems
AnchorSideTop.Control = lblImages
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnUseImage
AnchorSideBottom.Control = pnlItemBtns
Left = 0
Height = 314
Top = 23
Width = 228
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 4
BorderSpacing.Right = 4
ItemHeight = 0
OnClick = lbItemsClick
OnDrawItem = lbItemsDrawItem
TabOrder = 0
end
object pnlItemBtns: TPanel
Left = 0
Height = 25
Top = 341
Width = 307
Align = alBottom
AutoSize = True
BorderSpacing.Top = 4
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
BevelOuter = bvNone
ClientHeight = 25
ClientWidth = 307
TabOrder = 1
object btnItemAdd: TSpeedButton
AnchorSideLeft.Control = pnlItemBtns
AnchorSideTop.Control = pnlItemBtns
Left = 0
Height = 25
Hint = 'Add Item'
Top = 0
Width = 25
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3000333300000333300033330AAA0333300033330AAA0333300030000AAA0000
300030AAAAAAAAA0300030AAAAAAAAA0300030AAAAAAAAA0300030000AAA0000
300033330AAA0333300033330AAA033330003333000003333000333333333333
3000
}
Layout = blGlyphTop
Spacing = 1
OnClick = btnItemAddClick
ShowHint = True
ParentShowHint = False
end
object btnItemDelete: TSpeedButton
AnchorSideLeft.Control = btnItemAdd
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlItemBtns
Left = 29
Height = 25
Hint = 'Remove item'
Top = 0
Width = 25
BorderSpacing.Left = 4
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3000333333333333300033333333333330003333333333333000300000000000
3000309999999990300030999999999030003099999999903000300000000000
3000333333333333300033333333333330003333333333333000333333333333
3000
}
Layout = blGlyphTop
Spacing = 1
OnClick = btnItemDeleteClick
ShowHint = True
ParentShowHint = False
end
object btnItemUp: TSpeedButton
AnchorSideLeft.Control = btnItemDelete
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlItemBtns
Left = 58
Height = 25
Hint = 'Move item up'
Top = 0
Width = 25
BorderSpacing.Left = 4
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3000333333333333300033330000033330003333066603333000333306660333
3000333306660333300030000666000030003306666666033000333066666033
3000333306660333300033333060333330003333330333333000333333333333
3000
}
Layout = blGlyphTop
Spacing = 1
OnClick = btnItemUpClick
ShowHint = True
ParentShowHint = False
end
object btnItemDown: TSpeedButton
AnchorSideLeft.Control = btnItemUp
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = pnlItemBtns
Left = 87
Height = 25
Hint = 'Move item down'
Top = 0
Width = 25
BorderSpacing.Left = 4
Glyph.Data = {
DE000000424DDE0000000000000076000000280000000D0000000D0000000100
0400000000006800000000000000000000001000000010000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3000333333333333300033333303333330003333306033333000333306660333
3000333066666033300033066666660330003000066600003000333306660333
3000333306660333300033330666033330003333000003333000333333333333
3000
}
Layout = blGlyphTop
Spacing = 1
OnClick = btnItemDownClick
ShowHint = True
ParentShowHint = False
end
end
object lbImages: TListBox
AnchorSideTop.Control = lbItems
AnchorSideRight.Control = pnlItems
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = lbItems
AnchorSideBottom.Side = asrBottom
Left = 259
Height = 314
Top = 23
Width = 48
Anchors = [akTop, akRight, akBottom]
BorderSpacing.Right = 4
ItemHeight = 0
OnDrawItem = lbImagesDrawItem
Style = lbOwnerDrawFixed
TabOrder = 2
end
object btnUseImage: TSpeedButton
AnchorSideTop.Control = lbImages
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = lbImages
Left = 232
Height = 22
Hint = 'Use image in navigation bar'
Top = 169
Width = 23
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
OnClick = btnUseImageClick
end
object lblItems: TLabel
AnchorSideLeft.Control = pnlItems
AnchorSideTop.Control = pnlItems
Left = 0
Height = 15
Top = 4
Width = 62
BorderSpacing.Top = 4
Caption = 'Items/Icons'
FocusControl = lbItems
ParentColor = False
end
object lblImages: TLabel
AnchorSideTop.Control = lblItems
AnchorSideRight.Control = pnlItems
AnchorSideRight.Side = asrBottom
Left = 218
Height = 15
Top = 4
Width = 89
Anchors = [akTop, akRight]
BorderSpacing.Right = 4
Caption = 'Available images'
ParentColor = False
end
end
object Splitter1: TSplitter
Left = 232
Height = 370
Top = 0
Width = 5
end
end
end