Commit 710dab7

Nick Faro committed on
Add file revert menu item
commit 710dab7d816784a2fb87e0265170455b44c6d273 parent fab29aa
2 changed files +20−2
Modifiedtracker.lfm +7−2
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 1507 2 Left = 1258
3 Height = 1171 3 Height = 1171
4 Top = 295 4 Top = 279
5 Width = 1878 5 Width = 1878
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
@@ -2053,6 +2053,11 @@ object frmTracker: TfrmTracker
2053 object MenuItem13: TMenuItem 2053 object MenuItem13: TMenuItem
2054 Action = FileSaveAs1 2054 Action = FileSaveAs1
2055 end 2055 end
2056 object RevertMenuItem: TMenuItem
2057 Caption = 'Revert to last saved'
2058 Enabled = False
2059 OnClick = RevertMenuItemClick
2060 end
2056 object MenuItem4: TMenuItem 2061 object MenuItem4: TMenuItem
2057 Caption = '-' 2062 Caption = '-'
2058 end 2063 end
Modifiedtracker.pas +13−0
@@ -46,6 +46,7 @@ type
46 MenuItem26: TMenuItem; 46 MenuItem26: TMenuItem;
47 MenuItem42: TMenuItem; 47 MenuItem42: TMenuItem;
48 MenuItem55: TMenuItem; 48 MenuItem55: TMenuItem;
49 RevertMenuItem: TMenuItem;
49 TBMOpenDialog: TOpenDialog; 50 TBMOpenDialog: TOpenDialog;
50 ToolButton11: TToolButton; 51 ToolButton11: TToolButton;
51 LoopSongToolButton: TToolButton; 52 LoopSongToolButton: TToolButton;
@@ -300,6 +301,7 @@ type
300 procedure MenuItem10Click(Sender: TObject); 301 procedure MenuItem10Click(Sender: TObject);
301 procedure MenuItem26Click(Sender: TObject); 302 procedure MenuItem26Click(Sender: TObject);
302 procedure MenuItem55Click(Sender: TObject); 303 procedure MenuItem55Click(Sender: TObject);
304 procedure RevertMenuItemClick(Sender: TObject);
303 procedure TimerDividerSpinEditChange(Sender: TObject); 305 procedure TimerDividerSpinEditChange(Sender: TObject);
304 procedure TimerEnabledCheckBoxChange(Sender: TObject); 306 procedure TimerEnabledCheckBoxChange(Sender: TObject);
305 procedure LoopSongToolButtonClick(Sender: TObject); 307 procedure LoopSongToolButtonClick(Sender: TObject);
@@ -587,6 +589,8 @@ begin
587 TimerTempoLabel.Enabled := TimerEnabledCheckBox.Checked; 589 TimerTempoLabel.Enabled := TimerEnabledCheckBox.Checked;
588 TimerDividerSpinEdit.Enabled := TimerEnabledCheckBox.Checked; 590 TimerDividerSpinEdit.Enabled := TimerEnabledCheckBox.Checked;
589 591
592 RevertMenuItem.Enabled := (FileName <> '');
593
590 UpdateBPMLabel; 594 UpdateBPMLabel;
591 595
592 LoadedFilename := FileName; 596 LoadedFilename := FileName;
@@ -1669,6 +1673,7 @@ begin
1669 SaveSucceeded := True; 1673 SaveSucceeded := True;
1670 LoadedFileName := FileSaveAs1.Dialog.FileName; 1674 LoadedFileName := FileSaveAs1.Dialog.FileName;
1671 UpdateWindowTitle; 1675 UpdateWindowTitle;
1676 RevertMenuItem.Enabled := (LoadedFileName <> '');
1672 finally 1677 finally
1673 stream.Free; 1678 stream.Free;
1674 end; 1679 end;
@@ -2048,6 +2053,14 @@ begin
2048 end; 2053 end;
2049 end; 2054 end;
2050 2055
2056 procedure TfrmTracker.RevertMenuItemClick(Sender: TObject);
2057 begin
2058 if not CheckUnsavedChanges then Exit;
2059
2060 if Trim(LoadedFileName) <> '' then
2061 LoadSong(LoadedFileName)
2062 end;
2063
2051 procedure TfrmTracker.FileSave1Execute(Sender: TObject); 2064 procedure TfrmTracker.FileSave1Execute(Sender: TObject);
2052 begin 2065 begin
2053 if FileSaveAs1.Dialog.FileName = '' then 2066 if FileSaveAs1.Dialog.FileName = '' then