Commit 118329c

Nick Faro committed on
Dont lose focus on tracker grid
commit 118329ce61a4fe4ea2ba701e37d4ef9a964f80b4 parent 330f728
3 changed files +6−6
Modifiedtracker.lfm +2−2
@@ -61,10 +61,10 @@ object frmTracker: TfrmTracker
61 Height = 725 61 Height = 725
62 Top = 0 62 Top = 0
63 Width = 1120 63 Width = 1120
64 ActivePage = InstrumentTabSheet 64 ActivePage = PatternTabSheet
65 Align = alClient 65 Align = alClient
66 ParentFont = False 66 ParentFont = False
67 TabIndex = 2 67 TabIndex = 1
68 TabOrder = 0 68 TabOrder = 0
69 object GeneralTabSheet: TTabSheet 69 object GeneralTabSheet: TTabSheet
70 Caption = 'General' 70 Caption = 'General'
Modifiedtracker.pas +0−3
@@ -1932,10 +1932,7 @@ begin
1932 end; 1932 end;
1933 1933
1934 procedure TfrmTracker.DebugButtonClick(Sender: TObject); 1934 procedure TfrmTracker.DebugButtonClick(Sender: TObject);
1935 var
1936 S: TStream;
1937 begin 1935 begin
1938 UpdateUIAfterLoad();
1939 end; 1936 end;
1940 1937
1941 procedure TfrmTracker.DecreaseOctaveActionExecute(Sender: TObject); 1938 procedure TfrmTracker.DecreaseOctaveActionExecute(Sender: TObject);
Modifiedtrackergrid.pas +4−1
@@ -547,7 +547,10 @@ begin
547 Other := Cursor; 547 Other := Cursor;
548 548
549 ClampCursors; 549 ClampCursors;
550 Invalidate 550 Invalidate;
551
552 // Keep focus on control
553 Key := 0;
551 end; 554 end;
552 555
553 procedure TTrackerGrid.KeyUp(var Key: Word; Shift: TShiftState); 556 procedure TTrackerGrid.KeyUp(var Key: Word; Shift: TShiftState);