Commit 9c2c10b

Nick committed on
Fix linux bug where the name edit box would cause a bug before the form was active
commit 9c2c10b83707f5b9bc69ff935944b9a69f43a3fe parent a82f0c7
3 changed files +7−3
ModifiedhUGEDriver +1−1
@@ -1 +1 @@
1 Subproject commit 814470995faf3bb7b732d4d7eea2f2deb62fc108 1 Subproject commit 069240511bc06be51c7211cce1976fcbf7ac2835
Modifiedtracker.lfm +2−2
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 744 2 Left = 712
3 Height = 653 3 Height = 653
4 Top = 270 4 Top = 264
5 Width = 1232 5 Width = 1232
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
Modifiedtracker.pas +4−0
@@ -2071,6 +2071,10 @@ procedure TfrmTracker.InstrumentNameEditChange(Sender: TObject);
2071 var 2071 var
2072 S: String; 2072 S: String;
2073 begin 2073 begin
2074 // Fixes a weird bug on Linux where the LCL accesses something out of bounds
2075 // when this function fires before the form is active...
2076 {$ifdef UNIX}if not Active then Exit;{$endif}
2077
2074 S := IntToStr(InstrumentNumberSpinner.Value) + ': ' + InstrumentNameEdit.Text; 2078 S := IntToStr(InstrumentNumberSpinner.Value) + ': ' + InstrumentNameEdit.Text;
2075 CurrentInstrument^.Name := InstrumentNameEdit.Text; 2079 CurrentInstrument^.Name := InstrumentNameEdit.Text;
2076 case CurrentInstrumentBank of 2080 case CurrentInstrumentBank of