Commit f019aaf

Nick Faro committed on
Configurable jump table colors
commit f019aafd23c045c24c9b3817fef18f57c24a923b parent 4c940f4
2 changed files +284−256
Modifiedsrc/options.lfm +272−255
@@ -1,13 +1,12 @@
1 object frmOptions: TfrmOptions 1 object frmOptions: TfrmOptions
2 Left = 1485 2 Left = 1734
3 Height = 869 3 Height = 710
4 Top = 220 4 Top = 220
5 Width = 705 5 Width = 550
6 BorderStyle = bsDialog 6 BorderStyle = bsDialog
7 Caption = 'Options' 7 Caption = 'Options'
8 ClientHeight = 869 8 ClientHeight = 710
9 ClientWidth = 705 9 ClientWidth = 550
10 DesignTimePPI = 123
11 OnClose = FormClose 10 OnClose = FormClose
12 OnCreate = FormCreate 11 OnCreate = FormCreate
13 Position = poMainFormCenter 12 Position = poMainFormCenter
@@ -15,10 +14,10 @@ object frmOptions: TfrmOptions
15 object Button1: TButton 14 object Button1: TButton
16 AnchorSideRight.Side = asrBottom 15 AnchorSideRight.Side = asrBottom
17 AnchorSideBottom.Side = asrBottom 16 AnchorSideBottom.Side = asrBottom
18 Left = 528 17 Left = 412
19 Height = 32 18 Height = 25
20 Top = 827 19 Top = 677
21 Width = 158 20 Width = 123
22 Anchors = [akRight, akBottom] 21 Anchors = [akRight, akBottom]
23 Caption = 'OK' 22 Caption = 'OK'
24 OnClick = Button1Click 23 OnClick = Button1Click
@@ -31,36 +30,36 @@ object frmOptions: TfrmOptions
31 AnchorSideRight.Control = Owner 30 AnchorSideRight.Control = Owner
32 AnchorSideRight.Side = asrBottom 31 AnchorSideRight.Side = asrBottom
33 AnchorSideBottom.Control = Button1 32 AnchorSideBottom.Control = Button1
34 Left = 13 33 Left = 10
35 Height = 805 34 Height = 660
36 Top = 13 35 Top = 10
37 Width = 679 36 Width = 530
38 ActivePage = GeneralTabSheet 37 ActivePage = CustomiztaionTabSheet
39 Anchors = [akTop, akLeft, akRight, akBottom] 38 Anchors = [akTop, akLeft, akRight, akBottom]
40 BorderSpacing.Left = 13 39 BorderSpacing.Left = 10
41 BorderSpacing.Top = 13 40 BorderSpacing.Top = 10
42 BorderSpacing.Right = 13 41 BorderSpacing.Right = 10
43 BorderSpacing.Bottom = 9 42 BorderSpacing.Bottom = 7
44 TabIndex = 0 43 TabIndex = 2
45 TabOrder = 1 44 TabOrder = 1
46 object GeneralTabSheet: TTabSheet 45 object GeneralTabSheet: TTabSheet
47 Caption = 'General' 46 Caption = 'General'
48 ClientHeight = 765 47 ClientHeight = 625
49 ClientWidth = 673 48 ClientWidth = 524
50 object OptionsGroupBox: TGroupBox 49 object OptionsGroupBox: TGroupBox
51 Left = 10 50 Left = 8
52 Height = 728 51 Height = 568
53 Top = 10 52 Top = 8
54 Width = 502 53 Width = 392
55 Caption = 'Options' 54 Caption = 'Options'
56 ClientHeight = 704 55 ClientHeight = 549
57 ClientWidth = 498 56 ClientWidth = 388
58 TabOrder = 0 57 TabOrder = 0
59 object CheckListBox1: TCheckListBox 58 object CheckListBox1: TCheckListBox
60 Left = 10 59 Left = 8
61 Height = 676 60 Height = 528
62 Top = 10 61 Top = 8
63 Width = 474 62 Width = 370
64 Items.Strings = ( 63 Items.Strings = (
65 'Show scopes (uses more CPU)' 64 'Show scopes (uses more CPU)'
66 'Play preview when placing notes' 65 'Play preview when placing notes'
@@ -70,7 +69,7 @@ object frmOptions: TfrmOptions
70 'Display grid on waveform editor' 69 'Display grid on waveform editor'
71 'Display tabs vertically' 70 'Display tabs vertically'
72 ) 71 )
73 ItemHeight = 28 72 ItemHeight = 23
74 TabOrder = 0 73 TabOrder = 0
75 Data = { 74 Data = {
76 0700000000000000000000 75 0700000000000000000000
@@ -80,40 +79,40 @@ object frmOptions: TfrmOptions
80 end 79 end
81 object KeyboardTabSheet: TTabSheet 80 object KeyboardTabSheet: TTabSheet
82 Caption = 'Keyboard' 81 Caption = 'Keyboard'
83 ClientHeight = 765 82 ClientHeight = 625
84 ClientWidth = 673 83 ClientWidth = 524
85 object KeymapGroupBox: TGroupBox 84 object KeymapGroupBox: TGroupBox
86 Left = 20 85 Left = 16
87 Height = 697 86 Height = 544
88 Top = 62 87 Top = 48
89 Width = 502 88 Width = 392
90 Caption = 'Custom key map' 89 Caption = 'Custom key map'
91 ClientHeight = 673 90 ClientHeight = 525
92 ClientWidth = 498 91 ClientWidth = 388
93 Enabled = False 92 Enabled = False
94 ParentFont = False 93 ParentFont = False
95 TabOrder = 0 94 TabOrder = 0
96 object KeyMapStringGrid: TStringGrid 95 object KeyMapStringGrid: TStringGrid
97 Left = 10 96 Left = 8
98 Height = 605 97 Height = 472
99 Top = 10 98 Top = 8
100 Width = 472 99 Width = 368
101 AutoFillColumns = True 100 AutoFillColumns = True
102 ColCount = 2 101 ColCount = 2
103 Columns = < 102 Columns = <
104 item 103 item
105 MinSize = 13 104 MinSize = 10
106 MaxSize = 256 105 MaxSize = 200
107 Title.Caption = 'Key' 106 Title.Caption = 'Key'
108 Width = 234 107 Width = 183
109 end 108 end
110 item 109 item
111 MinSize = 13 110 MinSize = 10
112 MaxSize = 256 111 MaxSize = 200
113 Title.Caption = 'Note' 112 Title.Caption = 'Note'
114 Width = 234 113 Width = 183
115 end> 114 end>
116 DefaultColWidth = 154 115 DefaultColWidth = 120
117 FixedCols = 0 116 FixedCols = 0
118 MouseWheelOption = mwGrid 117 MouseWheelOption = mwGrid
119 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAutoAddRows, goTabs, goSmoothScroll] 118 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goAutoAddRows, goTabs, goSmoothScroll]
@@ -121,45 +120,45 @@ object frmOptions: TfrmOptions
121 TabOrder = 0 120 TabOrder = 0
122 OnValidateEntry = KeyMapStringGridValidateEntry 121 OnValidateEntry = KeyMapStringGridValidateEntry
123 ColWidths = ( 122 ColWidths = (
124 234 123 183
125 234 124 183
126 ) 125 )
127 end 126 end
128 object Button2: TButton 127 object Button2: TButton
129 Left = 10 128 Left = 8
130 Height = 32 129 Height = 25
131 Top = 625 130 Top = 488
132 Width = 168 131 Width = 131
133 Caption = 'Load' 132 Caption = 'Load'
134 OnClick = Button2Click 133 OnClick = Button2Click
135 ParentFont = False 134 ParentFont = False
136 TabOrder = 1 135 TabOrder = 1
137 end 136 end
138 object Button3: TButton 137 object Button3: TButton
139 Left = 184 138 Left = 144
140 Height = 32 139 Height = 25
141 Top = 625 140 Top = 488
142 Width = 161 141 Width = 126
143 Caption = 'Save' 142 Caption = 'Save'
144 OnClick = Button3Click 143 OnClick = Button3Click
145 ParentFont = False 144 ParentFont = False
146 TabOrder = 2 145 TabOrder = 2
147 end 146 end
148 object Button4: TButton 147 object Button4: TButton
149 Left = 443 148 Left = 346
150 Height = 32 149 Height = 25
151 Top = 625 150 Top = 488
152 Width = 38 151 Width = 30
153 Caption = '-' 152 Caption = '-'
154 OnClick = Button4Click 153 OnClick = Button4Click
155 ParentFont = False 154 ParentFont = False
156 TabOrder = 3 155 TabOrder = 3
157 end 156 end
158 object Button5: TButton 157 object Button5: TButton
159 Left = 400 158 Left = 312
160 Height = 32 159 Height = 25
161 Top = 625 160 Top = 488
162 Width = 38 161 Width = 30
163 Caption = '+' 162 Caption = '+'
164 OnClick = Button5Click 163 OnClick = Button5Click
165 ParentFont = False 164 ParentFont = False
@@ -167,10 +166,10 @@ object frmOptions: TfrmOptions
167 end 166 end
168 end 167 end
169 object UseCustomKeymapCheckbox: TCheckBox 168 object UseCustomKeymapCheckbox: TCheckBox
170 Left = 31 169 Left = 24
171 Height = 24 170 Height = 21
172 Top = 20 171 Top = 16
173 Width = 167 172 Width = 136
174 Caption = 'Use custom keymap' 173 Caption = 'Use custom keymap'
175 OnChange = KeymapCheckboxChange 174 OnChange = KeymapCheckboxChange
176 TabOrder = 1 175 TabOrder = 1
@@ -178,343 +177,361 @@ object frmOptions: TfrmOptions
178 end 177 end
179 object CustomiztaionTabSheet: TTabSheet 178 object CustomiztaionTabSheet: TTabSheet
180 Caption = 'Appearance' 179 Caption = 'Appearance'
181 ClientHeight = 765 180 ClientHeight = 625
182 ClientWidth = 673 181 ClientWidth = 524
183 object Panel1: TPanel 182 object Panel1: TPanel
184 Left = 400 183 Left = 312
185 Height = 739 184 Height = 608
186 Top = 10 185 Top = 8
187 Width = 256 186 Width = 200
188 BevelWidth = 3 187 BevelWidth = 3
189 ClientHeight = 739 188 ClientHeight = 608
190 ClientWidth = 256 189 ClientWidth = 200
191 TabOrder = 0 190 TabOrder = 0
192 object SampleTrackerGridPanel: TPanel 191 object SampleTrackerGridPanel: TPanel
193 Left = 3 192 Left = 3
194 Height = 729 193 Height = 602
195 Top = 3 194 Top = 3
196 Width = 246 195 Width = 194
197 Align = alClient 196 Align = alClient
198 BevelOuter = bvNone 197 BevelOuter = bvNone
199 TabOrder = 0 198 TabOrder = 0
200 end 199 end
201 end 200 end
202 object CustomizationGroupBox: TGroupBox 201 object CustomizationGroupBox: TGroupBox
203 Left = 10 202 Left = 8
204 Height = 738 203 Height = 608
205 Top = 10 204 Top = 8
206 Width = 381 205 Width = 297
207 Caption = 'Customization' 206 Caption = 'Customization'
208 ClientHeight = 734 207 ClientHeight = 589
209 ClientWidth = 377 208 ClientWidth = 293
210 TabOrder = 1 209 TabOrder = 1
211 object Label1: TLabel 210 object Label1: TLabel
212 Left = 18 211 Left = 14
213 Height = 22 212 Height = 17
214 Top = 18 213 Top = 14
215 Width = 167 214 Width = 127
216 Caption = 'Pattern editor font size' 215 Caption = 'Pattern editor font size'
217 ParentColor = False 216 ParentColor = False
218 ParentFont = False 217 ParentFont = False
219 end 218 end
220 object FontSizeSpinner: TSpinEdit 219 object FontSizeSpinner: TSpinEdit
221 Left = 199 220 Left = 155
222 Height = 32 221 Height = 27
223 Top = 12 222 Top = 9
224 Width = 158 223 Width = 123
225 OnChange = FontSizeSpinnerChange 224 OnChange = FontSizeSpinnerChange
226 ParentFont = False 225 ParentFont = False
227 TabOrder = 0 226 TabOrder = 0
228 Value = 12 227 Value = 12
229 end 228 end
230 object NoteTextColorButton: TColorButton 229 object NoteTextColorButton: TColorButton
231 Left = 199 230 Left = 155
232 Height = 32 231 Height = 25
233 Top = 51 232 Top = 40
234 Width = 158 233 Width = 123
235 BorderWidth = 3 234 BorderWidth = 2
236 ButtonColorSize = 20 235 ButtonColorSize = 16
237 ButtonColor = 8342016 236 ButtonColor = 8342016
238 OnColorChanged = NoteTextColorButtonColorChanged 237 OnColorChanged = NoteTextColorButtonColorChanged
239 end 238 end
240 object Label2: TLabel 239 object Label2: TLabel
241 Left = 18 240 Left = 14
242 Height = 22 241 Height = 17
243 Top = 51 242 Top = 40
244 Width = 107 243 Width = 82
245 Caption = 'Note text color' 244 Caption = 'Note text color'
246 ParentColor = False 245 ParentColor = False
247 end 246 end
248 object InstrumentTextColorButton: TColorButton 247 object InstrumentTextColorButton: TColorButton
249 Left = 199 248 Left = 155
250 Height = 32 249 Height = 25
251 Top = 92 250 Top = 72
252 Width = 158 251 Width = 123
253 BorderWidth = 3 252 BorderWidth = 2
254 ButtonColorSize = 20 253 ButtonColorSize = 16
255 ButtonColor = 8355584 254 ButtonColor = 8355584
256 OnColorChanged = NoteTextColorButtonColorChanged 255 OnColorChanged = NoteTextColorButtonColorChanged
257 end 256 end
258 object MiscEffectTextColorButton: TColorButton 257 object MiscEffectTextColorButton: TColorButton
259 Left = 199 258 Left = 155
260 Height = 32 259 Height = 25
261 Top = 133 260 Top = 104
262 Width = 158 261 Width = 123
263 BorderWidth = 3 262 BorderWidth = 2
264 ButtonColorSize = 20 263 ButtonColorSize = 16
265 ButtonColor = 4145020 264 ButtonColor = 4145020
266 OnColorChanged = NoteTextColorButtonColorChanged 265 OnColorChanged = NoteTextColorButtonColorChanged
267 end 266 end
268 object PitchEffectTextColorButton: TColorButton 267 object PitchEffectTextColorButton: TColorButton
269 Left = 199 268 Left = 155
270 Height = 32 269 Height = 25
271 Top = 174 270 Top = 136
272 Width = 158 271 Width = 123
273 BorderWidth = 3 272 BorderWidth = 2
274 ButtonColorSize = 20 273 ButtonColorSize = 16
275 ButtonColor = 25186 274 ButtonColor = 25186
276 OnColorChanged = NoteTextColorButtonColorChanged 275 OnColorChanged = NoteTextColorButtonColorChanged
277 end 276 end
278 object VolumeEffectTextColorButton: TColorButton 277 object VolumeEffectTextColorButton: TColorButton
279 Left = 199 278 Left = 155
280 Height = 32 279 Height = 25
281 Top = 215 280 Top = 168
282 Width = 158 281 Width = 123
283 BorderWidth = 3 282 BorderWidth = 2
284 ButtonColorSize = 20 283 ButtonColorSize = 16
285 ButtonColor = 32550 284 ButtonColor = 32550
286 OnColorChanged = NoteTextColorButtonColorChanged 285 OnColorChanged = NoteTextColorButtonColorChanged
287 end 286 end
288 object PanningEffectTextColorButton: TColorButton 287 object PanningEffectTextColorButton: TColorButton
289 Left = 199 288 Left = 155
290 Height = 32 289 Height = 25
291 Top = 256 290 Top = 200
292 Width = 158 291 Width = 123
293 BorderWidth = 3 292 BorderWidth = 2
294 ButtonColorSize = 20 293 ButtonColorSize = 16
295 ButtonColor = 8355584 294 ButtonColor = 8355584
296 OnColorChanged = NoteTextColorButtonColorChanged 295 OnColorChanged = NoteTextColorButtonColorChanged
297 end 296 end
298 object SongEffectTextColorButton: TColorButton 297 object SongEffectTextColorButton: TColorButton
299 Left = 199 298 Left = 155
300 Height = 32 299 Height = 25
301 Top = 297 300 Top = 232
302 Width = 158 301 Width = 123
303 BorderWidth = 3 302 BorderWidth = 2
304 ButtonColorSize = 20 303 ButtonColorSize = 16
305 ButtonColor = 127 304 ButtonColor = 127
306 OnColorChanged = NoteTextColorButtonColorChanged 305 OnColorChanged = NoteTextColorButtonColorChanged
307 end 306 end
308 object Label3: TLabel 307 object Label3: TLabel
309 Left = 18 308 Left = 14
310 Height = 22 309 Height = 17
311 Top = 92 310 Top = 72
312 Width = 154 311 Width = 117
313 Caption = 'Instrument text color' 312 Caption = 'Instrument text color'
314 ParentColor = False 313 ParentColor = False
315 end 314 end
316 object Label4: TLabel 315 object Label4: TLabel
317 Left = 18 316 Left = 14
318 Height = 22 317 Height = 17
319 Top = 133 318 Top = 104
320 Width = 153 319 Width = 119
321 Caption = 'Misc. effect text color' 320 Caption = 'Misc. effect text color'
322 ParentColor = False 321 ParentColor = False
323 end 322 end
324 object Label5: TLabel 323 object Label5: TLabel
325 Left = 18 324 Left = 14
326 Height = 22 325 Height = 17
327 Top = 174 326 Top = 136
328 Width = 153 327 Width = 117
329 Caption = 'Pitch effect text color' 328 Caption = 'Pitch effect text color'
330 ParentColor = False 329 ParentColor = False
331 end 330 end
332 object Label6: TLabel 331 object Label6: TLabel
333 Left = 18 332 Left = 14
334 Height = 22 333 Height = 17
335 Top = 215 334 Top = 168
336 Width = 172 335 Width = 132
337 Caption = 'Volume effect text color' 336 Caption = 'Volume effect text color'
338 ParentColor = False 337 ParentColor = False
339 end 338 end
340 object Label7: TLabel 339 object Label7: TLabel
341 Left = 18 340 Left = 14
342 Height = 22 341 Height = 17
343 Top = 256 342 Top = 200
344 Width = 178 343 Width = 135
345 Caption = 'Panning effect text color' 344 Caption = 'Panning effect text color'
346 ParentColor = False 345 ParentColor = False
347 end 346 end
348 object Label8: TLabel 347 object Label8: TLabel
349 Left = 18 348 Left = 14
350 Height = 22 349 Height = 17
351 Top = 297 350 Top = 232
352 Width = 153 351 Width = 118
353 Caption = 'Song effect text color' 352 Caption = 'Song effect text color'
354 ParentColor = False 353 ParentColor = False
355 end 354 end
356 object BackgroundColorButton: TColorButton 355 object BackgroundColorButton: TColorButton
357 Left = 199 356 Left = 155
358 Height = 32 357 Height = 25
359 Top = 338 358 Top = 296
360 Width = 158 359 Width = 123
361 BorderWidth = 3 360 BorderWidth = 2
362 ButtonColorSize = 20 361 ButtonColorSize = 16
363 ButtonColor = 13687777 362 ButtonColor = 13687777
364 OnColorChanged = NoteTextColorButtonColorChanged 363 OnColorChanged = NoteTextColorButtonColorChanged
365 end 364 end
366 object HighlightedColorButton: TColorButton 365 object HighlightedColorButton: TColorButton
367 Left = 199 366 Left = 155
368 Height = 32 367 Height = 25
369 Top = 379 368 Top = 328
370 Width = 158 369 Width = 123
371 BorderWidth = 3 370 BorderWidth = 2
372 ButtonColorSize = 20 371 ButtonColorSize = 16
373 ButtonColor = 8034729 372 ButtonColor = 8034729
374 OnColorChanged = NoteTextColorButtonColorChanged 373 OnColorChanged = NoteTextColorButtonColorChanged
375 end 374 end
376 object SelectedColorButton: TColorButton 375 object SelectedColorButton: TColorButton
377 Left = 199 376 Left = 155
378 Height = 32 377 Height = 25
379 Top = 420 378 Top = 360
380 Width = 158 379 Width = 123
381 BorderWidth = 3 380 BorderWidth = 2
382 ButtonColorSize = 20 381 ButtonColorSize = 16
383 ButtonColor = 10400960 382 ButtonColor = 10400960
384 OnColorChanged = NoteTextColorButtonColorChanged 383 OnColorChanged = NoteTextColorButtonColorChanged
385 end 384 end
386 object FourthRowColorButton: TColorButton 385 object FourthRowColorButton: TColorButton
387 Left = 199 386 Left = 155
388 Height = 32 387 Height = 25
389 Top = 461 388 Top = 392
390 Width = 158 389 Width = 123
391 BorderWidth = 3 390 BorderWidth = 2
392 ButtonColorSize = 20 391 ButtonColorSize = 16
393 ButtonColor = 12833240 392 ButtonColor = 12833240
394 OnColorChanged = NoteTextColorButtonColorChanged 393 OnColorChanged = NoteTextColorButtonColorChanged
395 end 394 end
396 object SixteenthRowColorButton: TColorButton 395 object SixteenthRowColorButton: TColorButton
397 Left = 199 396 Left = 155
398 Height = 32 397 Height = 25
399 Top = 502 398 Top = 424
400 Width = 158 399 Width = 123
401 BorderWidth = 3 400 BorderWidth = 2
402 ButtonColorSize = 20 401 ButtonColorSize = 16
403 ButtonColor = 11912654 402 ButtonColor = 11912654
404 OnColorChanged = NoteTextColorButtonColorChanged 403 OnColorChanged = NoteTextColorButtonColorChanged
405 end 404 end
406 object Label9: TLabel 405 object Label9: TLabel
407 Left = 18 406 Left = 14
408 Height = 22 407 Height = 17
409 Top = 338 408 Top = 296
410 Width = 87 409 Width = 67
411 Caption = 'Background' 410 Caption = 'Background'
412 ParentColor = False 411 ParentColor = False
413 end 412 end
414 object Label10: TLabel 413 object Label10: TLabel
415 Left = 18 414 Left = 14
416 Height = 22 415 Height = 17
417 Top = 379 416 Top = 328
418 Width = 85 417 Width = 64
419 Caption = 'Highlighted' 418 Caption = 'Highlighted'
420 ParentColor = False 419 ParentColor = False
421 end 420 end
422 object Label11: TLabel 421 object Label11: TLabel
423 Left = 18 422 Left = 14
424 Height = 22 423 Height = 17
425 Top = 420 424 Top = 360
426 Width = 61 425 Width = 48
427 Caption = 'Selected' 426 Caption = 'Selected'
428 ParentColor = False 427 ParentColor = False
429 end 428 end
430 object Label12: TLabel 429 object Label12: TLabel
431 Left = 18 430 Left = 14
432 Height = 22 431 Height = 17
433 Top = 461 432 Top = 392
434 Width = 121 433 Width = 92
435 Caption = 'Every fourth row' 434 Caption = 'Every fourth row'
436 ParentColor = False 435 ParentColor = False
437 end 436 end
438 object Label13: TLabel 437 object Label13: TLabel
439 Left = 18 438 Left = 14
440 Height = 22 439 Height = 17
441 Top = 502 440 Top = 424
442 Width = 144 441 Width = 109
443 Caption = 'Every sixteenth row' 442 Caption = 'Every sixteenth row'
444 ParentColor = False 443 ParentColor = False
445 end 444 end
446 object DotsColorButton: TColorButton 445 object DotsColorButton: TColorButton
447 Left = 199 446 Left = 155
448 Height = 32 447 Height = 25
449 Top = 543 448 Top = 456
450 Width = 158 449 Width = 123
451 BorderWidth = 3 450 BorderWidth = 2
452 ButtonColorSize = 20 451 ButtonColorSize = 16
453 ButtonColor = clGray 452 ButtonColor = clGray
454 OnColorChanged = NoteTextColorButtonColorChanged 453 OnColorChanged = NoteTextColorButtonColorChanged
455 end 454 end
456 object DividersColorButton: TColorButton 455 object DividersColorButton: TColorButton
457 Left = 199 456 Left = 155
458 Height = 32 457 Height = 25
459 Top = 584 458 Top = 488
460 Width = 158 459 Width = 123
461 BorderWidth = 3 460 BorderWidth = 2
462 ButtonColorSize = 20 461 ButtonColorSize = 16
463 ButtonColor = 11253692 462 ButtonColor = 11253692
464 OnColorChanged = NoteTextColorButtonColorChanged 463 OnColorChanged = NoteTextColorButtonColorChanged
465 end 464 end
466 object Label14: TLabel 465 object Label14: TLabel
467 Left = 18 466 Left = 14
468 Height = 22 467 Height = 17
469 Top = 543 468 Top = 456
470 Width = 33 469 Width = 26
471 Caption = 'Dots' 470 Caption = 'Dots'
472 ParentColor = False 471 ParentColor = False
473 end 472 end
474 object Label15: TLabel 473 object Label15: TLabel
475 Left = 18 474 Left = 14
476 Height = 22 475 Height = 17
477 Top = 584 476 Top = 488
478 Width = 58 477 Width = 46
479 Caption = 'Dividers' 478 Caption = 'Dividers'
480 ParentColor = False 479 ParentColor = False
481 end 480 end
482 object Button6: TButton 481 object Button6: TButton
483 Left = 72 482 Left = 56
484 Height = 32 483 Height = 25
485 Top = 666 484 Top = 552
486 Width = 241 485 Width = 188
487 Caption = 'Reset palette to default' 486 Caption = 'Reset palette to default'
488 OnClick = Button6Click 487 OnClick = Button6Click
489 TabOrder = 1 488 TabOrder = 1
490 end 489 end
491 object Button7: TButton 490 object Button7: TButton
492 Left = 72 491 Left = 56
493 Height = 32 492 Height = 25
494 Top = 632 493 Top = 520
495 Width = 115 494 Width = 90
496 Caption = 'Load palette' 495 Caption = 'Load palette'
497 OnClick = Button7Click 496 OnClick = Button7Click
498 TabOrder = 2 497 TabOrder = 2
499 end 498 end
500 object Button8: TButton 499 object Button8: TButton
501 Left = 197 500 Left = 154
502 Height = 32 501 Height = 25
503 Top = 632 502 Top = 520
504 Width = 115 503 Width = 90
505 Caption = 'Save palette' 504 Caption = 'Save palette'
506 OnClick = Button8Click 505 OnClick = Button8Click
507 TabOrder = 3 506 TabOrder = 3
508 end 507 end
508 object Label16: TLabel
509 Left = 14
510 Height = 17
511 Top = 264
512 Width = 127
513 Caption = 'Jump column text color'
514 ParentColor = False
515 end
516 object JumpColumnTextColorButton: TColorButton
517 Left = 155
518 Height = 25
519 Top = 264
520 Width = 123
521 BorderWidth = 2
522 ButtonColorSize = 16
523 ButtonColor = 7471182
524 OnColorChanged = NoteTextColorButtonColorChanged
525 end
509 end 526 end
510 end 527 end
511 end 528 end
512 object SaveDialog1: TSaveDialog 529 object SaveDialog1: TSaveDialog
513 Left = 482 530 Left = 376
514 end 531 end
515 object KeymapOpenDialog: TOpenDialog 532 object KeymapOpenDialog: TOpenDialog
516 InitialDir = './Keymaps' 533 InitialDir = './Keymaps'
517 Left = 420 534 Left = 328
518 end 535 end
519 object ColorDialog1: TColorDialog 536 object ColorDialog1: TColorDialog
520 Color = clBlack 537 Color = clBlack
@@ -540,12 +557,12 @@ object frmOptions: TfrmOptions
540 'ColorS=F0FBFF' 557 'ColorS=F0FBFF'
541 'ColorT=A4A0A0' 558 'ColorT=A4A0A0'
542 ) 559 )
543 Left = 554 560 Left = 432
544 end 561 end
545 object SaveDialog2: TSaveDialog 562 object SaveDialog2: TSaveDialog
546 Left = 615 563 Left = 480
547 end 564 end
548 object OpenDialog2: TOpenDialog 565 object OpenDialog2: TOpenDialog
549 Left = 666 566 Left = 520
550 end 567 end
551 end 568 end
Modifiedsrc/options.pas +12−1
@@ -22,6 +22,8 @@ type
22 Button6: TButton; 22 Button6: TButton;
23 Button7: TButton; 23 Button7: TButton;
24 Button8: TButton; 24 Button8: TButton;
25 Label16: TLabel;
26 JumpColumnTextColorButton: TColorButton;
25 UseCustomKeymapCheckbox: TCheckBox; 27 UseCustomKeymapCheckbox: TCheckBox;
26 CheckListBox1: TCheckListBox; 28 CheckListBox1: TCheckListBox;
27 NoteTextColorButton: TColorButton; 29 NoteTextColorButton: TColorButton;
@@ -150,6 +152,7 @@ begin
150 SixteenthRowColorButton.ButtonColor := $00B5C5CE; 152 SixteenthRowColorButton.ButtonColor := $00B5C5CE;
151 DotsColorButton.ButtonColor := clGray; 153 DotsColorButton.ButtonColor := clGray;
152 DividersColorButton.ButtonColor := $00ABB7BC; 154 DividersColorButton.ButtonColor := $00ABB7BC;
155 JumpColumnTextColorButton.ButtonColor := $72004E;
153 156
154 UpdateTrackerGridColors; 157 UpdateTrackerGridColors;
155 end; 158 end;
@@ -286,6 +289,8 @@ begin
286 clDots := DotsColorButton.ButtonColor; 289 clDots := DotsColorButton.ButtonColor;
287 clDividers := DividersColorButton.ButtonColor; 290 clDividers := DividersColorButton.ButtonColor;
288 291
292 clTblJump := JumpColumnTextColorButton.ButtonColor;
293
289 SampleTrackerGridPanel.Invalidate; 294 SampleTrackerGridPanel.Invalidate;
290 end; 295 end;
291 296
@@ -316,6 +321,8 @@ begin
316 Write(F, clDots); 321 Write(F, clDots);
317 Write(F, clDividers); 322 Write(F, clDividers);
318 323
324 Write(F, clTblJump);
325
319 CloseFile(F); 326 CloseFile(F);
320 except 327 except
321 on E: Exception do begin 328 on E: Exception do begin
@@ -352,10 +359,12 @@ begin
352 Read(F, clDots); 359 Read(F, clDots);
353 Read(F, clDividers); 360 Read(F, clDividers);
354 361
362 Read(F, clTblJump);
363
355 CloseFile(F); 364 CloseFile(F);
356 except 365 except
357 on E: Exception do begin 366 on E: Exception do begin
358 ShowMessage('Couldn''t load colors from ' + Filename); 367 DebugLn('[WARNING] Couldn''t load all colors from ' + Filename);
359 end; 368 end;
360 end; 369 end;
361 370
@@ -378,6 +387,8 @@ begin
378 DotsColorButton.ButtonColor := clDots; 387 DotsColorButton.ButtonColor := clDots;
379 DividersColorButton.ButtonColor := clDividers; 388 DividersColorButton.ButtonColor := clDividers;
380 389
390 JumpColumnTextColorButton.ButtonColor := clTblJump;
391
381 LoadingColors := False; 392 LoadingColors := False;
382 393
383 SampleTrackerGridPanel.Invalidate; 394 SampleTrackerGridPanel.Invalidate;