1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
object FileFiltersOptionsFrame: TFileFiltersOptionsFrame
Left = 0
Height = 319
Top = 0
Width = 455
ClientHeight = 319
ClientWidth = 455
TabOrder = 0
DesignLeft = 386
DesignTop = 179
object grdFileFilters: TStringGrid
AnchorSideTop.Control = lblFileDlgFilters
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = lblStarDirExcludes
Left = 8
Height = 223
Top = 27
Width = 440
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6
ColCount = 3
Columns = <
item
Title.Caption = 'Name'
Width = 250
end
item
Title.Caption = 'File mask'
Width = 300
end>
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing, goThumbTracking, goSmoothScroll, goFixedRowNumbering]
PopupMenu = pmGrid
RowCount = 1
TabOrder = 0
OnKeyDown = grdFileFiltersKeyDown
end
object lblFileDlgFilters: TLabel
Left = 6
Height = 15
Top = 6
Width = 85
Caption = 'lblFileDlgFilters'
end
object lblStarDirExcludes: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = edStarDirExcludes
Left = 6
Height = 15
Top = 260
Width = 100
Anchors = [akLeft, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Top = 10
BorderSpacing.Bottom = 6
Caption = 'lblStarDirExcludes'
end
object edStarDirExcludes: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = lblStarDirExcludes
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6
Height = 32
Top = 281
Width = 443
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
TabOrder = 1
end
object pmGrid: TPopupMenu
Left = 205
Top = 75
object pmiAddRow: TMenuItem
Caption = 'Add row'
OnClick = pmiAddRowClick
end
object pmiDelRow: TMenuItem
Caption = 'Delete row'
OnClick = pmiDelRowClick
end
object pmiInsRow: TMenuItem
Caption = 'Insert row'
OnClick = pmiInsRowClick
end
object MenuItem1: TMenuItem
Caption = '-'
end
object SetDefaultMenuItem: TMenuItem
Caption = 'Set defaults'
OnClick = SetDefaultMenuItemClick
end
end
end
|
