doublecmd/src/frames/foptionstooltips.lfm
cobines 49b59e8394 UPD: More changes to anchors and spacing in Options.
Each top control (group boxes) in a frame must be anchored to parent or not anchored at all, they cannot be anchored to one another because autosizing in the scrollbox won't work correctly. Each control in an autosized container must be anchored so that the container is autosized properly. Using VerticalSpacing on TFrame currently does not work correctly with autosize, so replaced with spacing of individual controls.
2011-10-09 15:59:49 +00:00

304 lines
10 KiB
Text

inherited frmOptionsToolTips: TfrmOptionsToolTips
Height = 501
Width = 599
AutoSize = True
ClientHeight = 501
ClientWidth = 599
object gbCustomFields: TGroupBox[0]
AnchorSideLeft.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 347
Top = 6
Width = 587
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Custom fields by file type'
ChildSizing.TopBottomSpacing = 6
ClientHeight = 325
ClientWidth = 583
TabOrder = 0
object btnAddFields: TBitBtn
AnchorSideTop.Control = btnApplyFields
AnchorSideRight.Control = btnDeleteFields
Left = 233
Height = 32
Top = 287
Width = 110
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = 'Add'
NumGlyphs = 0
OnClick = btnAddFieldsClick
TabOrder = 0
end
object btnDeleteFields: TBitBtn
AnchorSideTop.Control = btnApplyFields
AnchorSideRight.Control = btnApplyFields
Left = 349
Height = 32
Top = 287
Width = 110
Anchors = [akTop, akRight]
BorderSpacing.Right = 6
Caption = 'Delete'
Enabled = False
NumGlyphs = 0
OnClick = btnDeleteFieldsClick
TabOrder = 1
end
object lsbCustomFields: TListBox
AnchorSideTop.Control = gbCustomFields
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Side = asrBottom
Left = 12
Height = 142
Top = 6
Width = 563
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
BorderSpacing.Right = 8
ItemHeight = 0
OnSelectionChange = lsbCustomFieldsSelectionChange
TabOrder = 2
end
object btnApplyFields: TBitBtn
AnchorSideTop.Control = pnlEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlEdit
AnchorSideRight.Side = asrBottom
Left = 465
Height = 32
Top = 287
Width = 110
Anchors = [akTop, akRight]
BorderSpacing.Top = 12
Caption = 'Apply'
NumGlyphs = 0
OnClick = btnApplyFieldsClick
TabOrder = 3
end
object pnlEdit: TPanel
AnchorSideLeft.Control = lsbCustomFields
AnchorSideTop.Control = lsbCustomFields
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lsbCustomFields
AnchorSideRight.Side = asrBottom
Left = 12
Height = 121
Top = 154
Width = 563
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Top = 6
BevelOuter = bvNone
ChildSizing.TopBottomSpacing = 6
ClientHeight = 121
ClientWidth = 563
Enabled = False
TabOrder = 4
object lblFieldsName: TLabel
AnchorSideTop.Control = edtFieldsName
AnchorSideTop.Side = asrCenter
Left = 1
Height = 22
Top = 15
Width = 105
Caption = 'Category name:'
ParentColor = False
end
object lblFieldsMask: TLabel
AnchorSideTop.Control = edtFieldsMask
AnchorSideTop.Side = asrCenter
Left = 1
Height = 22
Top = 52
Width = 103
Caption = 'Category mask:'
ParentColor = False
end
object lblFieldsList: TLabel
AnchorSideTop.Control = edtFieldsList
AnchorSideTop.Side = asrCenter
Left = 1
Height = 22
Top = 89
Width = 94
Caption = 'Category hint:'
ParentColor = False
end
object edtFieldsName: TEdit
AnchorSideTop.Control = pnlEdit
AnchorSideRight.Side = asrBottom
Left = 151
Height = 29
Top = 12
Width = 412
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 12
TabOrder = 0
end
object edtFieldsMask: TEdit
AnchorSideLeft.Control = edtFieldsName
AnchorSideTop.Control = edtFieldsName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnFieldsSearchTemplate
Left = 151
Height = 29
Top = 49
Width = 383
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 6
TabOrder = 1
end
object edtFieldsList: TEdit
AnchorSideLeft.Control = edtFieldsName
AnchorSideTop.Control = edtFieldsMask
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnFieldsList
Left = 151
Height = 29
Top = 86
Width = 378
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
BorderSpacing.Right = 6
TabOrder = 2
end
object btnFieldsSearchTemplate: TBitBtn
AnchorSideTop.Control = edtFieldsMask
AnchorSideRight.Control = edtFieldsName
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = edtFieldsMask
AnchorSideBottom.Side = asrBottom
Left = 540
Height = 29
Hint = 'Template...'
Top = 49
Width = 23
Anchors = [akTop, akRight, akBottom]
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000009700
00FF000000000000000000000000000000FF00000000000000FFC2B5B3E30000
00FF000000000000000000000000000000000000000000000000000000000000
0000970000FF00000000000000000000000000000000C5B8B570E3DBD9FF8975
7375000000000000000000000000000000000000000000000000000000000000
000000000000970000FF000000000000000000000000C2B4B26FE1D9D7FF8571
6E75000000000000000000000000000000000000000000000000000000000000
0000970000FF00000000000000000000000000000000B3A4A26FD6C9C7FF705E
5B75000000000000000000000000000000000000000000000000000000009700
00FF0000000000000000000000000000000000000000A798967DD9CBCAFF7362
6184000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000005B494812D4C6C5FFD1C2C1FE8F7E
7DFF5B4B4E160000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000C2B3B3C0EEE2E2FED5C8C7FFD6C9
C8FE746363C60000000000000000000000000000000000000000000000000000
00000000000000000000000000009D8B8B5CF9EEEFFFEDE1E0FFDED1D1FFEADE
DCFFB1A1A0FF645455630000000000000000000000000000000000000000D2C6
C36CEEE5E2C3BEADABB100000002D2C4C3FBFDF5F4FEE0D4D3FFDACCCBFFE8DD
DBFFD2C4C2FE796868FD61525509000000000000000000000000000000008B78
754B00000000000000007C6B6BFCF7ECECFFFEF6F4FFCFC2C0FFD4C7C7FFEDE3
E1FFCDBDBBFF998887FE605151BC00000000000000000000000000000000806F
6D350000000062514F4CCEBEBEFFFBF2F0FFFBF6F5FFC7B9B7FFD0C3C3FFF8F0
EFFFC7B7B4FFA69593FF665555FF5545464D000000000000000000000000D8CF
CE59D1C5C299978484FFF4EBEBFEFEFDFDFFF4EEEDFFC3B5B3FFD8CBC9FFFFFC
FCFFD8CBC9FFB2A1A0FF867474FE524343FA0000000200000000000000000000
00007767669CE0D3D1FFFFFEFEFFFFFFFFFFEFE7E6FFAF9E9BFFD6C6C4FFFCF7
F7FFD8CACAFFAE9D9EFF827173FF5B4A4EFF67595C9F00000000000000000000
00008E7F7ED8E2D7D6FFCCC2C2FFCDC6C6FFD0C9C9FFD7D1D2FFD6D1D2FFCEC6
C6FFCBC5C5FFC7C0C0FFC2B8B8FFA39698FF726468DC00000000000000000000
0000ACA2A3DEAC9C99FFC9BCBBFFDBCDCAFFF3E6E2FEFFFFFEFFF5EEECFFB9A7
A3FFF3EDEBFEF7F3F3FFA99998FFA49695FFB1A6A7E700000000000000000000
0000000000005F5054459C919391B7ADAFB4BBB2B2C3C0B5B6CFC0B6B7D2BBB2
B3D0BCB2B3C3BBB3B4B59D929592615156460000000000000000
}
Layout = blGlyphRight
OnClick = btnFieldsSearchTemplateClick
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object btnFieldsList: TButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtFieldsList
AnchorSideRight.Control = edtFieldsName
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = edtFieldsList
AnchorSideBottom.Side = asrBottom
Left = 535
Height = 29
Top = 86
Width = 28
Anchors = [akTop, akRight, akBottom]
BorderSpacing.InnerBorder = 4
Caption = '>>'
OnClick = btnFieldsListClick
TabOrder = 4
end
end
end
object gbShowToolTip: TGroupBox[1]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = gbCustomFields
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 113
Top = 359
Width = 587
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Show tool tip'
ChildSizing.LeftRightSpacing = 12
ChildSizing.TopBottomSpacing = 6
ClientHeight = 91
ClientWidth = 583
TabOrder = 1
object rbToolTipAllFiles: TRadioButton
AnchorSideLeft.Control = gbShowToolTip
AnchorSideTop.Control = rbToolTipNone
AnchorSideTop.Side = asrBottom
Left = 12
Height = 25
Top = 33
Width = 274
BorderSpacing.Top = 2
Caption = 'Show tool tip for all files in file panel'
TabOrder = 0
end
object rbToolTipOnlyLarge: TRadioButton
AnchorSideLeft.Control = gbShowToolTip
AnchorSideTop.Control = rbToolTipAllFiles
AnchorSideTop.Side = asrBottom
Left = 12
Height = 25
Top = 60
Width = 336
BorderSpacing.Top = 2
Caption = 'Show tool tip for files in file panel if truncated'
TabOrder = 1
end
object rbToolTipNone: TRadioButton
AnchorSideLeft.Control = gbShowToolTip
AnchorSideTop.Control = gbShowToolTip
Left = 12
Height = 25
Top = 6
Width = 102
Caption = 'Don''t show'
Checked = True
TabOrder = 2
TabStop = True
end
end
object pmFields: TPopupMenu[2]
left = 120
top = 248
end
end