Commit 0302ad9

Nick committed on
Fix bug in vibrato effect editor
commit 0302ad9c0263774aea9d30ba659392e0652d0508 parent c6bab06
3 changed files +11−4
Modifiedeffecteditor.lfm +3−2
@@ -1,7 +1,7 @@
1 object frmEffectEditor: TfrmEffectEditor 1 object frmEffectEditor: TfrmEffectEditor
2 Left = 1006 2 Left = 1941
3 Height = 238 3 Height = 238
4 Top = 86 4 Top = 453
5 Width = 391 5 Width = 391
6 BorderIcons = [biSystemMenu, biMinimize] 6 BorderIcons = [biSystemMenu, biMinimize]
7 BorderStyle = bsDialog 7 BorderStyle = bsDialog
@@ -168,6 +168,7 @@ object frmEffectEditor: TfrmEffectEditor
168 'e: __--------------__-------' 168 'e: __--------------__-------'
169 'f: _---------------_--------' 169 'f: _---------------_--------'
170 ) 170 )
171 OnChange = VibratoComboBoxChange
171 Style = csDropDownList 172 Style = csDropDownList
172 TabOrder = 1 173 TabOrder = 1
173 Text = '0: _________________________' 174 Text = '0: _________________________'
Modifiedeffecteditor.pas +7−1
@@ -63,6 +63,7 @@ type
63 procedure RightVolumeTrackBarChange(Sender: TObject); 63 procedure RightVolumeTrackBarChange(Sender: TObject);
64 procedure TwoParamsTrackBar1Change(Sender: TObject); 64 procedure TwoParamsTrackBar1Change(Sender: TObject);
65 procedure TwoParamsTrackBar2Change(Sender: TObject); 65 procedure TwoParamsTrackBar2Change(Sender: TObject);
66 procedure VibratoComboBoxChange(Sender: TObject);
66 procedure VibratoDepthTrackBarChange(Sender: TObject); 67 procedure VibratoDepthTrackBarChange(Sender: TObject);
67 procedure VibratoRateRadioGroupSelectionChanged(Sender: TObject); 68 procedure VibratoRateRadioGroupSelectionChanged(Sender: TObject);
68 private 69 private
@@ -200,6 +201,11 @@ begin
200 Value1.Caption := EffectToExplanation(Cell^.EffectCode, Cell^.EffectParams); 201 Value1.Caption := EffectToExplanation(Cell^.EffectCode, Cell^.EffectParams);
201 end; 202 end;
202 203
204 procedure TfrmEffectEditor.VibratoComboBoxChange(Sender: TObject);
205 begin
206 Cell^.EffectParams.Param1 := VibratoComboBox.ItemIndex;
207 end;
208
203 procedure TfrmEffectEditor.VibratoDepthTrackBarChange(Sender: TObject); 209 procedure TfrmEffectEditor.VibratoDepthTrackBarChange(Sender: TObject);
204 begin 210 begin
205 Cell^.EffectParams.Param2 := VibratoDepthTrackBar.Position; 211 Cell^.EffectParams.Param2 := VibratoDepthTrackBar.Position;
@@ -251,7 +257,7 @@ procedure TfrmEffectEditor.LoadVibratoData;
251 begin 257 begin
252 VibratoComboBox.ItemIndex := Cell^.EffectParams.Param1; 258 VibratoComboBox.ItemIndex := Cell^.EffectParams.Param1;
253 VibratoDepthTrackBar.Position := Cell^.EffectParams.Param2; 259 VibratoDepthTrackBar.Position := Cell^.EffectParams.Param2;
254 Label2.Caption := IntToStr(VibratoDepthTrackBar.Position); 260 Label2.Caption := 'Depth: '+IntToStr(VibratoDepthTrackBar.Position);
255 end; 261 end;
256 262
257 procedure TfrmEffectEditor.LoadMasterVolumeData; 263 procedure TfrmEffectEditor.LoadMasterVolumeData;
ModifiedhUGEDriver +1−1
@@ -1 +1 @@
1 Subproject commit 6a5f15e6a22a49bb46792c34f8bbfa9ac007f262 1 Subproject commit c80cbbf13bb29518bf25e957b79df2972a7360e8