Commit c707ea9

Nick committed on
Added the extra redo keybinding, and ctrl+shift+L for select all
commit c707ea9201707709e8e5400eb37fbbb6c25aa34d parent 2c42a71
2 changed files +17−10
Modifiedtracker.lfm +16−10
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 1336 2 Left = 450
3 Height = 687 3 Height = 687
4 Top = 320 4 Top = 192
5 Width = 1145 5 Width = 1145
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
@@ -61,10 +61,10 @@ object frmTracker: TfrmTracker
61 Height = 555 61 Height = 555
62 Top = 0 62 Top = 0
63 Width = 947 63 Width = 947
64 ActivePage = PatternTabSheet 64 ActivePage = InstrumentTabSheet
65 Align = alClient 65 Align = alClient
66 ParentFont = False 66 ParentFont = False
67 TabIndex = 1 67 TabIndex = 2
68 TabOrder = 0 68 TabOrder = 0
69 object GeneralTabSheet: TTabSheet 69 object GeneralTabSheet: TTabSheet
70 Caption = 'General' 70 Caption = 'General'
@@ -289,7 +289,7 @@ object frmTracker: TfrmTracker
289 end 289 end
290 object InstrumentTabSheet: TTabSheet 290 object InstrumentTabSheet: TTabSheet
291 Caption = 'Instruments' 291 Caption = 'Instruments'
292 ClientHeight = 502 292 ClientHeight = 527
293 ClientWidth = 939 293 ClientWidth = 939
294 ParentFont = False 294 ParentFont = False
295 object PaintBox1: TPaintBox 295 object PaintBox1: TPaintBox
@@ -297,7 +297,7 @@ object frmTracker: TfrmTracker
297 AnchorSideTop.Side = asrBottom 297 AnchorSideTop.Side = asrBottom
298 AnchorSideBottom.Side = asrBottom 298 AnchorSideBottom.Side = asrBottom
299 Left = 0 299 Left = 0
300 Height = 64 300 Height = 89
301 Hint = 'Preview of how the resulting waveform will look with envelope applied' 301 Hint = 'Preview of how the resulting waveform will look with envelope applied'
302 Top = 438 302 Top = 438
303 Width = 939 303 Width = 939
@@ -4621,8 +4621,8 @@ object frmTracker: TfrmTracker
4621 top = 56 4621 top = 56
4622 end 4622 end
4623 object OrderEditPopup: TPopupMenu 4623 object OrderEditPopup: TPopupMenu
4624 left = 160 4624 left = 288
4625 top = 91 4625 top = 32
4626 object MenuItem17: TMenuItem 4626 object MenuItem17: TMenuItem
4627 Caption = 'Insert new row' 4627 Caption = 'Insert new row'
4628 Hint = 'Insert a new row filled with brand new patterns' 4628 Hint = 'Insert a new row filled with brand new patterns'
@@ -4944,8 +4944,8 @@ object frmTracker: TfrmTracker
4944 top = 86 4944 top = 86
4945 end 4945 end
4946 object TrackerGridPopup: TPopupMenu 4946 object TrackerGridPopup: TPopupMenu
4947 left = 112 4947 left = 248
4948 top = 56 4948 top = 32
4949 object TrackerPopupEditEffect: TMenuItem 4949 object TrackerPopupEditEffect: TMenuItem
4950 Caption = 'Edit effect ...' 4950 Caption = 'Edit effect ...'
4951 OnClick = TrackerPopupEditEffectClick 4951 OnClick = TrackerPopupEditEffectClick
@@ -4955,6 +4955,7 @@ object frmTracker: TfrmTracker
4955 end 4955 end
4956 object TrackerPopupSelectAll: TMenuItem 4956 object TrackerPopupSelectAll: TMenuItem
4957 Caption = 'Select all' 4957 Caption = 'Select all'
4958 ShortCut = 24652
4958 OnClick = TrackerPopupSelectAllClick 4959 OnClick = TrackerPopupSelectAllClick
4959 end 4960 end
4960 object TrackerPopupSelectChannel: TMenuItem 4961 object TrackerPopupSelectChannel: TMenuItem
@@ -5081,6 +5082,11 @@ object frmTracker: TfrmTracker
5081 ShortCut = 24685 5082 ShortCut = 24685
5082 OnClick = OnDecrementValueBy10Click 5083 OnClick = OnDecrementValueBy10Click
5083 end 5084 end
5085 object MenuItem39: TMenuItem
5086 Caption = 'Redo2'
5087 ShortCut = 24666
5088 OnClick = TrackerPopupRedoClick
5089 end
5084 end 5090 end
5085 end 5091 end
5086 object WavSaveDialog: TSaveDialog 5092 object WavSaveDialog: TSaveDialog
Modifiedtracker.pas +1−0
@@ -28,6 +28,7 @@ type
28 DeleteRowForAllAction: TAction; 28 DeleteRowForAllAction: TAction;
29 InsertRowForAllAction: TAction; 29 InsertRowForAllAction: TAction;
30 InsertRowAction: TAction; 30 InsertRowAction: TAction;
31 MenuItem39: TMenuItem;
31 StopAction: TAction; 32 StopAction: TAction;
32 PlayOrderAction: TAction; 33 PlayOrderAction: TAction;
33 PlayCursorAction: TAction; 34 PlayCursorAction: TAction;