Commit 8d82839

Nick Faro committed on
Open manual button
commit 8d82839fb8e5693549209b37548c5b354f9ba4e0 parent 40f58c0
2 changed files +10−3
Modifiedsrc/tracker.lfm +3−3
@@ -2173,12 +2173,12 @@ object frmTracker: TfrmTracker
2173 object MenuItem3: TMenuItem 2173 object MenuItem3: TMenuItem
2174 Caption = 'Help' 2174 Caption = 'Help'
2175 object MenuItem15: TMenuItem 2175 object MenuItem15: TMenuItem
2176 Action = HelpLookupManual 2176 Caption = 'Open manual ...'
2177 Visible = False 2177 ImageIndex = 19
2178 OnClick = MenuItem15Click
2178 end 2179 end
2179 object N3: TMenuItem 2180 object N3: TMenuItem
2180 Caption = '-' 2181 Caption = '-'
2181 Visible = False
2182 end 2182 end
2183 object SampleSongsMenuItem: TMenuItem 2183 object SampleSongsMenuItem: TMenuItem
2184 Caption = 'Example Songs' 2184 Caption = 'Example Songs'
Modifiedsrc/tracker.pas +7−0
@@ -300,6 +300,7 @@ type
300 TableGrid: TTableGrid; 300 TableGrid: TTableGrid;
301 procedure FileSave1Execute(Sender: TObject); 301 procedure FileSave1Execute(Sender: TObject);
302 procedure MenuItem10Click(Sender: TObject); 302 procedure MenuItem10Click(Sender: TObject);
303 procedure MenuItem15Click(Sender: TObject);
303 procedure MenuItem26Click(Sender: TObject); 304 procedure MenuItem26Click(Sender: TObject);
304 procedure MenuItem55Click(Sender: TObject); 305 procedure MenuItem55Click(Sender: TObject);
305 procedure OrderEditStringGridMouseDown(Sender: TObject; 306 procedure OrderEditStringGridMouseDown(Sender: TObject;
@@ -2032,6 +2033,12 @@ begin
2032 end; 2033 end;
2033 end; 2034 end;
2034 2035
2036 procedure TfrmTracker.MenuItem15Click(Sender: TObject);
2037 begin
2038 // TODO: Don't rely on ISSO hosting this! (thanks though buddy)
2039 OpenURL('https://eldred.fr/hUGETracker');
2040 end;
2041
2035 procedure TfrmTracker.MenuItem26Click(Sender: TObject); 2042 procedure TfrmTracker.MenuItem26Click(Sender: TObject);
2036 begin 2043 begin
2037 //frmFindReplace.ShowModal; 2044 //frmFindReplace.ShowModal;