Commit 5cb8ac6

Nick Faro committed on
Fix old icon setting thing, add hints
commit 5cb8ac6834e834d4875bc4237cdd31ae5e182630 parent fee1e87
2 changed files +6−3
Modifiedtracker.lfm +6−2
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 1848 2 Left = 1581
3 Height = 857 3 Height = 857
4 Top = 233 4 Top = 205
5 Width = 1318 5 Width = 1318
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
@@ -3034,6 +3034,7 @@ object frmTracker: TfrmTracker
3034 Top = 32 3034 Top = 32
3035 object PlayStartAction: TAction 3035 object PlayStartAction: TAction
3036 DisableIfNoHandler = False 3036 DisableIfNoHandler = False
3037 Hint = 'Play song from start'
3037 ImageIndex = 91 3038 ImageIndex = 91
3038 OnExecute = PlayStartActionExecute 3039 OnExecute = PlayStartActionExecute
3039 SecondaryShortCuts.Strings = ( 3040 SecondaryShortCuts.Strings = (
@@ -3042,6 +3043,7 @@ object frmTracker: TfrmTracker
3042 ShortCut = 24589 3043 ShortCut = 24589
3043 end 3044 end
3044 object PlayCursorAction: TAction 3045 object PlayCursorAction: TAction
3046 Hint = 'Play song from cursor'
3045 ImageIndex = 89 3047 ImageIndex = 89
3046 OnExecute = PlayCursorActionExecute 3048 OnExecute = PlayCursorActionExecute
3047 SecondaryShortCuts.Strings = ( 3049 SecondaryShortCuts.Strings = (
@@ -3050,6 +3052,7 @@ object frmTracker: TfrmTracker
3050 ShortCut = 8205 3052 ShortCut = 8205
3051 end 3053 end
3052 object PlayOrderAction: TAction 3054 object PlayOrderAction: TAction
3055 Hint = 'Play song from start of order'
3053 ImageIndex = 89 3056 ImageIndex = 89
3054 OnExecute = PlayOrderActionExecute 3057 OnExecute = PlayOrderActionExecute
3055 SecondaryShortCuts.Strings = ( 3058 SecondaryShortCuts.Strings = (
@@ -3058,6 +3061,7 @@ object frmTracker: TfrmTracker
3058 ShortCut = 16397 3061 ShortCut = 16397
3059 end 3062 end
3060 object StopAction: TAction 3063 object StopAction: TAction
3064 Hint = 'Stop song'
3061 ImageIndex = 88 3065 ImageIndex = 88
3062 OnExecute = StopActionExecute 3066 OnExecute = StopActionExecute
3063 SecondaryShortCuts.Strings = ( 3067 SecondaryShortCuts.Strings = (
Modifiedtracker.pas +0−1
@@ -1119,7 +1119,6 @@ begin
1119 Playing := False; 1119 Playing := False;
1120 1120
1121 TrackerGrid.HighlightedRow := -1; 1121 TrackerGrid.HighlightedRow := -1;
1122 ToolButton2.ImageIndex := 74;
1123 end; 1122 end;
1124 1123
1125 procedure TfrmTracker.FDCallback; 1124 procedure TfrmTracker.FDCallback;