Commit a04debc

Nick committed on
Fixing file open bug
commit a04debcf4c01ec7ef1f64467756c77ff9b178c98 parent 04e9cd7
2 changed files +9−2
Modifiedtracker.lfm +4−1
@@ -1887,7 +1887,10 @@ object frmTracker: TfrmTracker
1887 OnClick = MenuItem33Click 1887 OnClick = MenuItem33Click
1888 end 1888 end
1889 object MenuItem12: TMenuItem 1889 object MenuItem12: TMenuItem
1890 Action = FileOpen1 1890 Caption = '&Open ...'
1891 Hint = 'Open'
1892 ImageIndex = 42
1893 ShortCut = 16463
1891 OnClick = MenuItem12Click 1894 OnClick = MenuItem12Click
1892 end 1895 end
1893 object MenuItem13: TMenuItem 1896 object MenuItem13: TMenuItem
Modifiedtracker.pas +5−1
@@ -397,6 +397,9 @@ begin
397 LoadInstrument(1); 397 LoadInstrument(1);
398 LoadWave(0); 398 LoadWave(0);
399 399
400 RoutineSynedit.Text := '';
401 RoutineNumberSpinner.Value := 0;
402
400 SongEdit.Text := Song.Name; 403 SongEdit.Text := Song.Name;
401 ArtistEdit.Text := Song.Artist; 404 ArtistEdit.Text := Song.Artist;
402 CommentMemo.Text := Song.Comment; 405 CommentMemo.Text := Song.Comment;
@@ -1359,7 +1362,8 @@ end;
1359 1362
1360 procedure TfrmTracker.MenuItem12Click(Sender: TObject); 1363 procedure TfrmTracker.MenuItem12Click(Sender: TObject);
1361 begin 1364 begin
1362 CheckUnsavedChanges; 1365 if CheckUnsavedChanges then
1366 FileOpen1.Dialog.Execute;
1363 end; 1367 end;
1364 1368
1365 procedure TfrmTracker.MenuItem13Click(Sender: TObject); 1369 procedure TfrmTracker.MenuItem13Click(Sender: TObject);