Commit 048fdf5

Nick committed on
Minor routine/file open bug
commit 048fdf5042b7fa77a3f41de32794867c7950109c parent a04debc
2 changed files +2−5
Modifiedtracker.lfm +0−3
@@ -1462,9 +1462,6 @@ object frmTracker: TfrmTracker
1462 MouseActions = <> 1462 MouseActions = <>
1463 MouseTextActions = <> 1463 MouseTextActions = <>
1464 MouseSelActions = <> 1464 MouseSelActions = <>
1465 Lines.Strings = (
1466 'RoutineSynedit'
1467 )
1468 Options = [eoAutoIndent, eoBracketHighlight, eoGroupUndo, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoDoubleClickSelectsLine] 1465 Options = [eoAutoIndent, eoBracketHighlight, eoGroupUndo, eoSmartTabs, eoTabsToSpaces, eoTrimTrailingSpaces, eoDoubleClickSelectsLine]
1469 MouseOptions = [emDoubleClickSelectsLine] 1466 MouseOptions = [emDoubleClickSelectsLine]
1470 VisibleSpecialChars = [vscSpace, vscTabAtLast] 1467 VisibleSpecialChars = [vscSpace, vscTabAtLast]
Modifiedtracker.pas +2−2
@@ -397,7 +397,7 @@ begin
397 LoadInstrument(1); 397 LoadInstrument(1);
398 LoadWave(0); 398 LoadWave(0);
399 399
400 RoutineSynedit.Text := ''; 400 RoutineSynedit.Text := Song.Routines[0];
401 RoutineNumberSpinner.Value := 0; 401 RoutineNumberSpinner.Value := 0;
402 402
403 SongEdit.Text := Song.Name; 403 SongEdit.Text := Song.Name;
@@ -1363,7 +1363,7 @@ end;
1363 procedure TfrmTracker.MenuItem12Click(Sender: TObject); 1363 procedure TfrmTracker.MenuItem12Click(Sender: TObject);
1364 begin 1364 begin
1365 if CheckUnsavedChanges then 1365 if CheckUnsavedChanges then
1366 FileOpen1.Dialog.Execute; 1366 FileOpen1.Execute;
1367 end; 1367 end;
1368 1368
1369 procedure TfrmTracker.MenuItem13Click(Sender: TObject); 1369 procedure TfrmTracker.MenuItem13Click(Sender: TObject);