Commit 7e92e3a

Nick committed on
WIP noise macro stuff. currently in a broken state
commit 7e92e3a6198d0bb7185547784f433f73d596731e parent 6fc2e19
7 changed files +173−68
ModifiedGBEmu.lpi +1−8
@@ -199,16 +199,9 @@
199 <Version Value="2"/> 199 <Version Value="2"/>
200 </PublishOptions> 200 </PublishOptions>
201 <RunParams> 201 <RunParams>
202 <local>
203 <CommandLineParams Value="&quot;C:\Projects\GB-Stuff\uge\SampleSongs\WVL - Yyna is a Girl.uge&quot;"/>
204 </local>
205 <FormatVersion Value="2"/> 202 <FormatVersion Value="2"/>
206 <Modes Count="1"> 203 <Modes Count="1">
207 <Mode0 Name="default"> 204 <Mode0 Name="default"/>
208 <local>
209 <CommandLineParams Value="&quot;C:\Projects\GB-Stuff\uge\SampleSongs\WVL - Yyna is a Girl.uge&quot;"/>
210 </local>
211 </Mode0>
212 </Modes> 205 </Modes>
213 </RunParams> 206 </RunParams>
214 <RequiredPackages Count="5"> 207 <RequiredPackages Count="5">
ModifiedSound/sound.pas +6−3
@@ -128,7 +128,7 @@ Bit0 Sound 1 on[1]/off[0]
128 128
129 *) 129 *)
130 130
131 uses Classes, sdl2; 131 uses Classes, sysutils, sdl2;
132 132
133 const 133 const
134 SAMPLE_BUFFER_SIZE = 1024; 134 SAMPLE_BUFFER_SIZE = 1024;
@@ -269,10 +269,13 @@ end;
269 procedure AudioCallback(userdata: Pointer; stream: PUInt8; len: Integer)cdecl; 269 procedure AudioCallback(userdata: Pointer; stream: PUInt8; len: Integer)cdecl;
270 begin 270 begin
271 sndBuffer := PSingle(Stream); 271 sndBuffer := PSingle(Stream);
272 sndBytesWritten := 0;
272 while sndBytesWritten < len do 273 while sndBytesWritten < len do
273 z80_decode; 274 z80_decode;
274 if sndBytesWritten > len then Writeln(StdErr, '[WARNING] Audio callback wrote into uninitialized ram!'); 275
275 sndBytesWritten := 0; 276 if sndBytesWritten > len then
277 Writeln(StdErr,
278 Format('[WARNING] Audio callback wrote into uninitialized ram! (%d written, %d requested)', [sndBytesWritten, len]));
276 end; 279 end;
277 280
278 procedure EnableSound; 281 procedure EnableSound;
Modifiedcodegen.pas +12−2
@@ -67,8 +67,18 @@ begin
67 SL.StrictDelimiter := True; 67 SL.StrictDelimiter := True;
68 SL.Delimiter := ','; 68 SL.Delimiter := ',';
69 69
70 for J := Low(AsmInstrument) to High(AsmInstrument) do 70 if Instruments[I].Type_ = itNoise then begin
71 SL.Add(IntToStr(AsmInstrument[J])); 71 SL.Add(IntToStr(AsmInstrument[1]));
72 if Instruments[I].LengthEnabled then
73 SL.Add(IntToStr(AsmInstrument[0] or %11000000))
74 else
75 SL.Add(IntToStr(AsmInstrument[0] or %10000000));
76 for J := Low(TNoiseMacro) to High(TNoiseMacro) do
77 SL.Add(IntToStr(Instruments[I].NoiseMacro[J]));
78 end
79 else
80 for J := Low(AsmInstrument) to High(AsmInstrument) do
81 SL.Add(IntToStr(AsmInstrument[J]));
72 82
73 WriteStr(TypePrefix, Instruments[I].Type_); 83 WriteStr(TypePrefix, Instruments[I].Type_);
74 ResultSL.Add(Format('%s%s: db %s', [TypePrefix, 'inst'+IntToStr(I), SL.DelimitedText])); 84 ResultSL.Add(Format('%s%s: db %s', [TypePrefix, 'inst'+IntToStr(I), SL.DelimitedText]));
ModifiedhUGEDriver +1−1
@@ -1 +1 @@
1 Subproject commit 33f16f00db8c6caadafc4b3708dde0b3eb727a7e 1 Subproject commit 9abc50175246ac84a8e39455678291c97d3d8853
Modifiedinstruments.pas +2−0
@@ -14,6 +14,7 @@ type
14 TStepWidth = (swFifteen, swSeven); 14 TStepWidth = (swFifteen, swSeven);
15 TEnvelopeVolume = 0..15; 15 TEnvelopeVolume = 0..15;
16 TEnvelopeSweepAmount = 0..7; 16 TEnvelopeSweepAmount = 0..7;
17 TNoiseMacro = array[0..5] of Byte;
17 18
18 TInstrument = packed record 19 TInstrument = packed record
19 Type_: TInstrumentType; 20 Type_: TInstrumentType;
@@ -48,6 +49,7 @@ type
48 ShiftClockFreq: Integer; // Unused 49 ShiftClockFreq: Integer; // Unused
49 CounterStep: TStepWidth; 50 CounterStep: TStepWidth;
50 DividingRatio: Integer; 51 DividingRatio: Integer;
52 NoiseMacro: TNoiseMacro;
51 end; 53 end;
52 54
53 TAsmInstrument = array[0..3] of Byte; 55 TAsmInstrument = array[0..3] of Byte;
Modifiedtracker.lfm +92−45
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 454 2 Left = 433
3 Height = 687 3 Height = 687
4 Top = 195 4 Top = 190
5 Width = 1145 5 Width = 1145
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
@@ -17,7 +17,7 @@ object frmTracker: TfrmTracker
17 OnShow = FormShow 17 OnShow = FormShow
18 Position = poDefault 18 Position = poDefault
19 ShowHint = True 19 ShowHint = True
20 LCLVersion = '2.0.8.0' 20 LCLVersion = '2.0.9.0'
21 object TreeView1: TTreeView 21 object TreeView1: TTreeView
22 Left = 0 22 Left = 0
23 Height = 555 23 Height = 555
@@ -297,9 +297,9 @@ object frmTracker: TfrmTracker
297 AnchorSideTop.Side = asrBottom 297 AnchorSideTop.Side = asrBottom
298 AnchorSideBottom.Side = asrBottom 298 AnchorSideBottom.Side = asrBottom
299 Left = 0 299 Left = 0
300 Height = 89 300 Height = 35
301 Hint = 'Preview of how the resulting waveform will look with envelope applied' 301 Hint = 'Preview of how the resulting waveform will look with envelope applied'
302 Top = 438 302 Top = 492
303 Width = 939 303 Width = 939
304 Align = alClient 304 Align = alClient
305 Color = clBlack 305 Color = clBlack
@@ -310,7 +310,7 @@ object frmTracker: TfrmTracker
310 end 310 end
311 object FlowPanel1: TFlowPanel 311 object FlowPanel1: TFlowPanel
312 Left = 0 312 Left = 0
313 Height = 438 313 Height = 492
314 Top = 0 314 Top = 0
315 Width = 939 315 Width = 939
316 Align = alTop 316 Align = alTop
@@ -832,7 +832,7 @@ object frmTracker: TfrmTracker
832 end 832 end
833 object NoiseGroupBox: TGroupBox 833 object NoiseGroupBox: TGroupBox
834 Left = 651 834 Left = 651
835 Height = 169 835 Height = 223
836 Top = 262 836 Top = 262
837 Width = 264 837 Width = 264
838 Anchors = [] 838 Anchors = []
@@ -841,7 +841,7 @@ object frmTracker: TfrmTracker
841 BorderSpacing.Right = 7 841 BorderSpacing.Right = 7
842 BorderSpacing.Bottom = 7 842 BorderSpacing.Bottom = 7
843 Caption = 'Noise' 843 Caption = 'Noise'
844 ClientHeight = 149 844 ClientHeight = 203
845 ClientWidth = 260 845 ClientWidth = 260
846 ParentFont = False 846 ParentFont = False
847 TabOrder = 4 847 TabOrder = 4
@@ -908,6 +908,54 @@ object frmTracker: TfrmTracker
908 ParentFont = False 908 ParentFont = False
909 TabOrder = 3 909 TabOrder = 3
910 end 910 end
911 object Edit1: TEdit
912 Left = 9
913 Height = 23
914 Top = 144
915 Width = 80
916 OnChange = Edit1Change
917 TabOrder = 4
918 end
919 object Edit2: TEdit
920 Left = 96
921 Height = 23
922 Top = 144
923 Width = 80
924 OnChange = Edit1Change
925 TabOrder = 5
926 end
927 object Edit3: TEdit
928 Left = 184
929 Height = 23
930 Top = 144
931 Width = 80
932 OnChange = Edit1Change
933 TabOrder = 6
934 end
935 object Edit4: TEdit
936 Left = 9
937 Height = 23
938 Top = 176
939 Width = 80
940 OnChange = Edit1Change
941 TabOrder = 7
942 end
943 object Edit5: TEdit
944 Left = 96
945 Height = 23
946 Top = 176
947 Width = 80
948 OnChange = Edit1Change
949 TabOrder = 8
950 end
951 object Edit6: TEdit
952 Left = 184
953 Height = 23
954 Top = 176
955 Width = 80
956 OnChange = Edit1Change
957 TabOrder = 9
958 end
911 end 959 end
912 end 960 end
913 end 961 end
@@ -1887,8 +1935,8 @@ object frmTracker: TfrmTracker
1887 end 1935 end
1888 object MainMenu1: TMainMenu 1936 object MainMenu1: TMainMenu
1889 Images = ImageList1 1937 Images = ImageList1
1890 left = 40 1938 Left = 40
1891 top = 32 1939 Top = 32
1892 object MenuItem1: TMenuItem 1940 object MenuItem1: TMenuItem
1893 Caption = 'File' 1941 Caption = 'File'
1894 object MenuItem33: TMenuItem 1942 object MenuItem33: TMenuItem
@@ -1962,7 +2010,6 @@ object frmTracker: TfrmTracker
1962 object FontSizeToggleMenuItem: TMenuItem 2010 object FontSizeToggleMenuItem: TMenuItem
1963 AutoCheck = True 2011 AutoCheck = True
1964 Caption = 'Pattern grid small font' 2012 Caption = 'Pattern grid small font'
1965 OnClick = FontSizeToggleMenuItemClick
1966 end 2013 end
1967 end 2014 end
1968 object MenuItem3: TMenuItem 2015 object MenuItem3: TMenuItem
@@ -2004,8 +2051,8 @@ object frmTracker: TfrmTracker
2004 end 2051 end
2005 object MenuBarActionList: TActionList 2052 object MenuBarActionList: TActionList
2006 Images = ImageList1 2053 Images = ImageList1
2007 left = 104 2054 Left = 104
2008 top = 72 2055 Top = 72
2009 object FileOpen1: TFileOpen 2056 object FileOpen1: TFileOpen
2010 Category = 'File' 2057 Category = 'File'
2011 Caption = '&Open ...' 2058 Caption = '&Open ...'
@@ -2108,8 +2155,8 @@ object frmTracker: TfrmTracker
2108 end 2155 end
2109 end 2156 end
2110 object ImageList1: TImageList 2157 object ImageList1: TImageList
2111 left = 141 2158 Left = 141
2112 top = 36 2159 Top = 36
2113 Bitmap = { 2160 Bitmap = {
2114 4C694E0000001000000010000000000000000000000000000000000000000000 2161 4C694E0000001000000010000000000000000000000000000000000000000000
2115 0000000000000000000000000000000000000000000000000000000000000000 2162 0000000000000000000000000000000000000000000000000000000000000000
@@ -4612,17 +4659,17 @@ object frmTracker: TfrmTracker
4612 end 4659 end
4613 object OpenDialog1: TOpenDialog 4660 object OpenDialog1: TOpenDialog
4614 Filter = 'hUGETracker Instruments|*.ugi' 4661 Filter = 'hUGETracker Instruments|*.ugi'
4615 left = 80 4662 Left = 80
4616 top = 56 4663 Top = 56
4617 end 4664 end
4618 object InstrumentSaveDialog: TSaveDialog 4665 object InstrumentSaveDialog: TSaveDialog
4619 Filter = 'hUGETracker Instruments|*.ugi' 4666 Filter = 'hUGETracker Instruments|*.ugi'
4620 left = 80 4667 Left = 80
4621 top = 56 4668 Top = 56
4622 end 4669 end
4623 object OrderEditPopup: TPopupMenu 4670 object OrderEditPopup: TPopupMenu
4624 left = 288 4671 Left = 288
4625 top = 32 4672 Top = 32
4626 object MenuItem17: TMenuItem 4673 object MenuItem17: TMenuItem
4627 Caption = 'Insert new row' 4674 Caption = 'Insert new row'
4628 Hint = 'Insert a new row filled with brand new patterns' 4675 Hint = 'Insert a new row filled with brand new patterns'
@@ -4653,8 +4700,8 @@ object frmTracker: TfrmTracker
4653 object ImageList2: TImageList 4700 object ImageList2: TImageList
4654 Height = 32 4701 Height = 32
4655 Width = 32 4702 Width = 32
4656 left = 48 4703 Left = 48
4657 top = 86 4704 Top = 86
4658 Bitmap = { 4705 Bitmap = {
4659 4C69020000002000000020000000000000000000000000000000000000000000 4706 4C69020000002000000020000000000000000000000000000000000000000000
4660 0000000000000000000000000000000000000000000000000000000000000000 4707 0000000000000000000000000000000000000000000000000000000000000000
@@ -4919,33 +4966,33 @@ object frmTracker: TfrmTracker
4919 Enabled = False 4966 Enabled = False
4920 Interval = 200 4967 Interval = 200
4921 OnTimer = OscilloscopeUpdateTimerTimer 4968 OnTimer = OscilloscopeUpdateTimerTimer
4922 left = 88 4969 Left = 88
4923 top = 48 4970 Top = 48
4924 end 4971 end
4925 object GBSSaveDialog: TSaveDialog 4972 object GBSSaveDialog: TSaveDialog
4926 Filter = 'Gameboy Soundtrack|*.gbs' 4973 Filter = 'Gameboy Soundtrack|*.gbs'
4927 left = 64 4974 Left = 64
4928 top = 56 4975 Top = 56
4929 end 4976 end
4930 object WaveSaveDialog: TSaveDialog 4977 object WaveSaveDialog: TSaveDialog
4931 Filter = 'hUGETracker Waves|*.ugw' 4978 Filter = 'hUGETracker Waves|*.ugw'
4932 left = 64 4979 Left = 64
4933 top = 48 4980 Top = 48
4934 end 4981 end
4935 object GBSaveDialog: TSaveDialog 4982 object GBSaveDialog: TSaveDialog
4936 Filter = 'Gameboy ROM|*.GB' 4983 Filter = 'Gameboy ROM|*.GB'
4937 left = 120 4984 Left = 120
4938 top = 88 4985 Top = 88
4939 end 4986 end
4940 object NoteHaltTimer: TTimer 4987 object NoteHaltTimer: TTimer
4941 Enabled = False 4988 Enabled = False
4942 OnTimer = NoteHaltTimerTimer 4989 OnTimer = NoteHaltTimerTimer
4943 left = 80 4990 Left = 80
4944 top = 86 4991 Top = 86
4945 end 4992 end
4946 object TrackerGridPopup: TPopupMenu 4993 object TrackerGridPopup: TPopupMenu
4947 left = 248 4994 Left = 248
4948 top = 32 4995 Top = 32
4949 object TrackerPopupEditEffect: TMenuItem 4996 object TrackerPopupEditEffect: TMenuItem
4950 Caption = 'Edit effect ...' 4997 Caption = 'Edit effect ...'
4951 OnClick = TrackerPopupEditEffectClick 4998 OnClick = TrackerPopupEditEffectClick
@@ -5092,8 +5139,8 @@ object frmTracker: TfrmTracker
5092 object WavSaveDialog: TSaveDialog 5139 object WavSaveDialog: TSaveDialog
5093 DefaultExt = '.wav' 5140 DefaultExt = '.wav'
5094 Filter = 'Wave files|*.wav' 5141 Filter = 'Wave files|*.wav'
5095 left = 72 5142 Left = 72
5096 top = 32 5143 Top = 32
5097 end 5144 end
5098 object SynAnySyn1: TSynAnySyn 5145 object SynAnySyn1: TSynAnySyn
5099 Enabled = False 5146 Enabled = False
@@ -5217,18 +5264,18 @@ object frmTracker: TfrmTracker
5217 Entity = False 5264 Entity = False
5218 DollarVariables = False 5265 DollarVariables = False
5219 ActiveDot = False 5266 ActiveDot = False
5220 left = 8 5267 Left = 8
5221 top = 86 5268 Top = 86
5222 end 5269 end
5223 object MODOpenDialog: TOpenDialog 5270 object MODOpenDialog: TOpenDialog
5224 DefaultExt = '.mod' 5271 DefaultExt = '.mod'
5225 Filter = 'GBT Player MOD files|*.mod' 5272 Filter = 'GBT Player MOD files|*.mod'
5226 left = 104 5273 Left = 104
5227 top = 32 5274 Top = 32
5228 end 5275 end
5229 object WaveEditPopup: TPopupMenu 5276 object WaveEditPopup: TPopupMenu
5230 left = 8 5277 Left = 8
5231 top = 32 5278 Top = 32
5232 object MenuItem37: TMenuItem 5279 object MenuItem37: TMenuItem
5233 Caption = 'Copy' 5280 Caption = 'Copy'
5234 OnClick = MenuItem37Click 5281 OnClick = MenuItem37Click
@@ -5240,8 +5287,8 @@ object frmTracker: TfrmTracker
5240 end 5287 end
5241 object ShortcutsActionList: TActionList 5288 object ShortcutsActionList: TActionList
5242 Images = ImageList1 5289 Images = ImageList1
5243 left = 208 5290 Left = 208
5244 top = 32 5291 Top = 32
5245 object PlayStartAction: TAction 5292 object PlayStartAction: TAction
5246 Caption = '▶️ Start' 5293 Caption = '▶️ Start'
5247 DisableIfNoHandler = False 5294 DisableIfNoHandler = False
Modifiedtracker.pas +59−9
@@ -16,6 +16,12 @@ type
16 { TfrmTracker } 16 { TfrmTracker }
17 17
18 TfrmTracker = class(TForm) 18 TfrmTracker = class(TForm)
19 Edit1: TEdit;
20 Edit2: TEdit;
21 Edit3: TEdit;
22 Edit4: TEdit;
23 Edit5: TEdit;
24 Edit6: TEdit;
19 IncrementCurrentInstrumentAction: TAction; 25 IncrementCurrentInstrumentAction: TAction;
20 DecrementCurrentInstrumentAction: TAction; 26 DecrementCurrentInstrumentAction: TAction;
21 GotoGeneralAction: TAction; 27 GotoGeneralAction: TAction;
@@ -249,6 +255,7 @@ type
249 procedure DeleteRowForAllActionExecute(Sender: TObject); 255 procedure DeleteRowForAllActionExecute(Sender: TObject);
250 procedure DeleteRowForAllActionUpdate(Sender: TObject); 256 procedure DeleteRowForAllActionUpdate(Sender: TObject);
251 procedure Duty1VisualizerClick(Sender: TObject); 257 procedure Duty1VisualizerClick(Sender: TObject);
258 procedure Edit1Change(Sender: TObject);
252 procedure FileSaveAs1BeforeExecute(Sender: TObject); 259 procedure FileSaveAs1BeforeExecute(Sender: TObject);
253 procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); 260 procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
254 procedure FormDropFiles(Sender: TObject; const FileNames: array of String); 261 procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
@@ -314,7 +321,6 @@ type
314 procedure MenuItem19Click(Sender: TObject); 321 procedure MenuItem19Click(Sender: TObject);
315 procedure MenuItem21Click(Sender: TObject); 322 procedure MenuItem21Click(Sender: TObject);
316 procedure MenuItem22Click(Sender: TObject); 323 procedure MenuItem22Click(Sender: TObject);
317 procedure FontSizeToggleMenuItemClick(Sender: TObject);
318 procedure MenuItem24Click(Sender: TObject); 324 procedure MenuItem24Click(Sender: TObject);
319 procedure MenuItem26Click(Sender: TObject); 325 procedure MenuItem26Click(Sender: TObject);
320 procedure MenuItem31Click(Sender: TObject); 326 procedure MenuItem31Click(Sender: TObject);
@@ -1066,6 +1072,13 @@ begin
1066 ShiftClockTrackbar.Position := CI^.ShiftClockFreq; 1072 ShiftClockTrackbar.Position := CI^.ShiftClockFreq;
1067 DivRatioTrackbar.Position := CI^.DividingRatio; 1073 DivRatioTrackbar.Position := CI^.DividingRatio;
1068 SevenBitCounterCheckbox.Checked := CI^.CounterStep = swSeven; 1074 SevenBitCounterCheckbox.Checked := CI^.CounterStep = swSeven;
1075
1076 Edit1.Text := IntToStr(CI^.NoiseMacro[0]);
1077 Edit2.Text := IntToStr(CI^.NoiseMacro[1]);
1078 Edit3.Text := IntToStr(CI^.NoiseMacro[2]);
1079 Edit4.Text := IntToStr(CI^.NoiseMacro[3]);
1080 Edit5.Text := IntToStr(CI^.NoiseMacro[4]);
1081 Edit6.Text := IntToStr(CI^.NoiseMacro[5]);
1069 end; 1082 end;
1070 end; 1083 end;
1071 1084
@@ -1733,6 +1746,24 @@ begin
1733 snd[Section.OriginalIndex+1].ChannelOFF := Section.ImageIndex = 0; 1746 snd[Section.OriginalIndex+1].ChannelOFF := Section.ImageIndex = 0;
1734 end; 1747 end;
1735 1748
1749 procedure TfrmTracker.Edit1Change(Sender: TObject);
1750 begin
1751 if Sender = Edit1 then
1752 CurrentInstrument^.NoiseMacro[0] := StrToInt(Edit1.Text)
1753 else if Sender = Edit2 then
1754 CurrentInstrument^.NoiseMacro[1] := StrToInt(Edit2.Text)
1755 else if Sender = Edit3 then
1756 CurrentInstrument^.NoiseMacro[2] := StrToInt(Edit3.Text)
1757 else if Sender = Edit4 then
1758 CurrentInstrument^.NoiseMacro[3] := StrToInt(Edit4.Text)
1759 else if Sender = Edit5 then
1760 CurrentInstrument^.NoiseMacro[4] := StrToInt(Edit5.Text)
1761 else if Sender = Edit6 then
1762 CurrentInstrument^.NoiseMacro[5] := StrToInt(Edit6.Text)
1763 else
1764 ShowMessage('couldnt assign macro value');
1765 end;
1766
1736 procedure TfrmTracker.PasteActionExecute(Sender: TObject); 1767 procedure TfrmTracker.PasteActionExecute(Sender: TObject);
1737 begin 1768 begin
1738 PostMessage(Screen.ActiveControl.Handle, LM_PASTE, 0, 0); 1769 PostMessage(Screen.ActiveControl.Handle, LM_PASTE, 0, 0);
@@ -1842,10 +1873,34 @@ begin
1842 end; 1873 end;
1843 1874
1844 procedure TfrmTracker.DebugShiteButtonClick(Sender: TObject); 1875 procedure TfrmTracker.DebugShiteButtonClick(Sender: TObject);
1876 procedure note(A: Byte);
1877 var
1878 B, C: Integer;
1879 begin
1880 LockPlayback;
1881
1882 //A := A or %00001000;
1883 if A > 7 then begin
1884 B := (A-4) div 4; //high
1885 C := (A mod 4)+4; //low
1886 A := (C or (B shl 4)) or %00001000; // and %11110111;
1887 end;
1888
1889 spokeb($FF21, %11110000);
1890 spokeb($FF22, A or %00001000);
1891 writeln('spoking ', IntTobin(A or %00001000, 8));
1892 spokeb($FF23, %10000000);
1893
1894 UnlockPlayback;
1895 end;
1896
1897 var
1898 I: Integer;
1845 begin 1899 begin
1846 // If a command line param was passed, try to open it 1900 for I := 0 to 64 do begin
1847 if FileExists(ParamStr(0)) then 1901 note(I);
1848 LoadSong(ParamStr(0)); 1902 Sleep(150);
1903 end;
1849 end; 1904 end;
1850 1905
1851 procedure TfrmTracker.MenuItem11Click(Sender: TObject); 1906 procedure TfrmTracker.MenuItem11Click(Sender: TObject);
@@ -1937,11 +1992,6 @@ begin
1937 ReloadPatterns; 1992 ReloadPatterns;
1938 end; 1993 end;
1939 1994
1940 procedure TfrmTracker.FontSizeToggleMenuItemClick(Sender: TObject);
1941 begin
1942
1943 end;
1944
1945 procedure TfrmTracker.MenuItem24Click(Sender: TObject); 1995 procedure TfrmTracker.MenuItem24Click(Sender: TObject);
1946 var 1996 var
1947 Report: TSongUsageReport; 1997 Report: TSongUsageReport;