-
Notifications
You must be signed in to change notification settings - Fork 2
/
unitformbrowser.lfm
153 lines (153 loc) · 3.91 KB
/
unitformbrowser.lfm
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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
object FormBrowseTape: TFormBrowseTape
Left = 382
Height = 607
Top = 61
Width = 570
BorderIcons = [biSystemMenu]
Caption = 'FormBrowseTape'
ClientHeight = 607
ClientWidth = 570
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
LCLVersion = '3.7.0.0'
object Panel3: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 607
Top = 0
Width = 570
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone
ClientHeight = 607
ClientWidth = 570
TabOrder = 0
object Panel1: TPanel
AnchorSideLeft.Control = Panel3
AnchorSideTop.Control = Panel3
AnchorSideRight.Control = Panel3
AnchorSideRight.Side = asrBottom
Left = 0
Height = 22
Top = 0
Width = 570
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BevelOuter = bvNone
ClientHeight = 22
ClientWidth = 570
TabOrder = 0
object Label1: TLabel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 3
Height = 15
Top = 4
Width = 34
BorderSpacing.Around = 3
Caption = 'Label1'
ParentColor = False
ShowAccelChar = False
end
object Label2: TLabel
AnchorSideLeft.Control = Label1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter
Left = 40
Height = 15
Top = 4
Width = 34
Caption = 'Label2'
ParentColor = False
ShowAccelChar = False
end
end
object Panel2: TPanel
AnchorSideLeft.Control = Panel3
AnchorSideTop.Control = Panel5
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel3
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Panel3
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 539
Top = 68
Width = 570
Anchors = [akTop, akLeft, akRight, akBottom]
BevelOuter = bvNone
TabOrder = 1
end
object Panel4: TPanel
AnchorSideLeft.Control = Panel3
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel3
AnchorSideRight.Side = asrBottom
Left = 0
Height = 27
Top = 22
Width = 570
Anchors = [akTop, akLeft, akRight]
BevelOuter = bvNone
TabOrder = 2
end
object Panel5: TPanel
AnchorSideLeft.Control = Panel1
AnchorSideTop.Control = Panel4
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 0
Height = 19
Top = 49
Width = 570
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BevelOuter = bvNone
ClientHeight = 19
ClientWidth = 570
TabOrder = 3
object CheckBox1: TCheckBox
AnchorSideTop.Control = Panel5
AnchorSideRight.Control = Panel5
AnchorSideRight.Side = asrBottom
Left = 440
Height = 19
Hint = 'When playing, selection follows the current block'
Top = 0
Width = 127
Anchors = [akTop, akRight]
BorderSpacing.Right = 3
Caption = 'Follow playing block'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnChange = CheckBox1Change
end
end
end
object ActionList1: TActionList
Left = 405
Top = 116
object ActionGoToBlock: TAction
Caption = 'Go to block'
OnExecute = ActionGoToBlockExecute
end
end
object PopupMenu1: TPopupMenu
Left = 474
Top = 142
object MenuItem1: TMenuItem
Action = ActionGoToBlock
end
end
end