Commit 5d94e6a

Nick committed on
Fix instrument input bug
commit 5d94e6ad1b8e175ff45d01ccc8a8dabcf1b2e1e5 parent 3afdd40
2 changed files +2−4
Modifiedtracker.lfm +2−2
@@ -57,10 +57,10 @@ object frmTracker: TfrmTracker
57 Height = 463 57 Height = 463
58 Top = 0 58 Top = 0
59 Width = 983 59 Width = 983
60 ActivePage = GeneralTabSheet 60 ActivePage = PatternTabSheet
61 Align = alClient 61 Align = alClient
62 ParentFont = False 62 ParentFont = False
63 TabIndex = 0 63 TabIndex = 1
64 TabOrder = 0 64 TabOrder = 0
65 object GeneralTabSheet: TTabSheet 65 object GeneralTabSheet: TTabSheet
66 Caption = 'General' 66 Caption = 'General'
Modifiedtrackergrid.pas +0−2
@@ -640,8 +640,6 @@ begin
640 if Key = VK_DELETE then Instrument := 0 640 if Key = VK_DELETE then Instrument := 0
641 else if KeycodeToHexNumber(Key, Temp) and InRange(Temp, 0, 9) then 641 else if KeycodeToHexNumber(Key, Temp) and InRange(Temp, 0, 9) then
642 Instrument := ((Instrument mod 10) * 10) + Temp; 642 Instrument := ((Instrument mod 10) * 10) + Temp;
643
644 Instrument := EnsureRange(Instrument, 0, 15);
645 end; 643 end;
646 644
647 Invalidate; 645 Invalidate;