Commit 8fdb4f6

Nick Faro committed on
change instrument sets focus on tracker grid
commit 8fdb4f6a14c7f600928348389ef58841fbfc387f parent 7500f36
2 changed files +7−0
Modifiedsrc/tracker.lfm +1−0
@@ -1969,6 +1969,7 @@ object frmTracker: TfrmTracker
1969 TabOrder = 1 1969 TabOrder = 1
1970 Text = '(no instrument)' 1970 Text = '(no instrument)'
1971 OnChange = InstrumentComboBoxChange 1971 OnChange = InstrumentComboBoxChange
1972 OnCloseUp = InstrumentComboBoxCloseUp
1972 end 1973 end
1973 object Label24: TLabel 1974 object Label24: TLabel
1974 Left = 981 1975 Left = 981
Modifiedsrc/tracker.pas +6−0
@@ -364,6 +364,7 @@ type
364 procedure ScrollBox1MouseWheelUp(Sender: TObject; Shift: TShiftState; 364 procedure ScrollBox1MouseWheelUp(Sender: TObject; Shift: TShiftState;
365 MousePos: TPoint; var Handled: Boolean); 365 MousePos: TPoint; var Handled: Boolean);
366 procedure InstrumentComboBoxChange(Sender: TObject); 366 procedure InstrumentComboBoxChange(Sender: TObject);
367 procedure InstrumentComboBoxCloseUp(Sender: TObject);
367 procedure CopyActionExecute(Sender: TObject); 368 procedure CopyActionExecute(Sender: TObject);
368 procedure CutActionExecute(Sender: TObject); 369 procedure CutActionExecute(Sender: TObject);
369 procedure Duty1VisualizerPaint(Sender: TObject); 370 procedure Duty1VisualizerPaint(Sender: TObject);
@@ -1882,6 +1883,11 @@ begin
1882 TrackerGrid.SelectedInstrument := ModInst(InstrumentComboBox.ItemIndex); 1883 TrackerGrid.SelectedInstrument := ModInst(InstrumentComboBox.ItemIndex);
1883 end; 1884 end;
1884 1885
1886 procedure TfrmTracker.InstrumentComboBoxCloseUp(Sender: TObject);
1887 begin
1888 TrackerGrid.SetFocus;
1889 end;
1890
1885 procedure TfrmTracker.FileSaveAs1BeforeExecute(Sender: TObject); 1891 procedure TfrmTracker.FileSaveAs1BeforeExecute(Sender: TObject);
1886 begin 1892 begin
1887 SaveSucceeded := False; 1893 SaveSucceeded := False;