-
Notifications
You must be signed in to change notification settings - Fork 1
/
frmKeyLayoutWnd.dfm
186 lines (186 loc) · 4.03 KB
/
frmKeyLayoutWnd.dfm
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
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
object KeyboardLayoutWnd: TKeyboardLayoutWnd
Left = 0
Top = 0
BorderIcons = [biSystemMenu]
BorderStyle = bsToolWindow
Caption = 'Beepola Keyboard Layout'
ClientHeight = 303
ClientWidth = 503
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 8
Width = 105
Height = 13
Caption = 'Piano Key Layout:-'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 20
Top = 23
Width = 84
Height = 13
Caption = '2 3 5 6 7 9 0 '
end
object Label3: TLabel
Left = 11
Top = 35
Width = 98
Height = 13
Caption = 'Q W E R T Y U I O P '
end
object Label4: TLabel
Left = 16
Top = 68
Width = 88
Height = 13
Caption = 'Z X C V B N M , . /'
end
object Label5: TLabel
Left = 20
Top = 56
Width = 80
Height = 13
Caption = 'S D G H J L ;'
end
object Label6: TLabel
Left = 132
Top = 30
Width = 95
Height = 13
Caption = 'Current Octave + 1'
end
object Label7: TLabel
Left = 132
Top = 64
Width = 75
Height = 13
Caption = 'Current Octave'
end
object Label8: TLabel
Left = 288
Top = 8
Width = 94
Height = 13
Caption = 'Numeric Keypad:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 297
Top = 22
Width = 141
Height = 13
Caption = 'Keys 1- 5 set current octave.'
end
object Label10: TLabel
Left = 12
Top = 130
Width = 411
Height = 13
Caption =
'[Ins] - Insert a new row for the current channel (shift other no' +
'tes and effects down).'
end
object Label11: TLabel
Left = 12
Top = 169
Width = 213
Height = 13
Caption = '[Del] - Delete the currently highlighted note.'
end
object Label12: TLabel
Left = 12
Top = 189
Width = 470
Height = 13
Caption =
'[Ctrl]+[Del] - Delete the currently hightlighted channel row (sh' +
'ift remaining notes and effects up).'
end
object Label13: TLabel
Left = 8
Top = 94
Width = 65
Height = 13
Caption = 'Other Keys:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 12
Top = 232
Width = 76
Height = 13
Caption = '[F5] - Play song'
end
object Label15: TLabel
Left = 12
Top = 247
Width = 127
Height = 13
Caption = '[F4] - Play current pattern'
end
object Label16: TLabel
Left = 12
Top = 278
Width = 182
Height = 13
Caption = '[F8] - Stop playback (also SPACE key)'
end
object Label17: TLabel
Left = 12
Top = 111
Width = 431
Height = 13
Caption =
'[A] or [1] - Insert a rest/note-off at the current location (not' +
' used by all beeper engines).'
end
object Label18: TLabel
Left = 12
Top = 150
Width = 497
Height = 13
Caption =
'[Shift]+[Ins] - Insert a new note only at the current location (' +
'shift other notes, but not effects, down).'
end
object Label19: TLabel
Left = 12
Top = 209
Width = 404
Height = 13
Caption =
'[Shift]+[Del] - Delete the currently hightlighted note only (shi' +
'ft remaining notes up).'
end
object Label20: TLabel
Left = 12
Top = 262
Width = 179
Height = 13
Caption = '[F6] - Play song from current location'
end
end