Commit 556f79b

Nick committed on
WIP Oscilloscope/VU meters
commit 556f79b181139db3aa0398aff52404719cf62fa1 parent 96fccea
2 changed files +106−6
Modifiedtracker.lfm +100−4
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 798 2 Left = 801
3 Height = 1376 3 Height = 1376
4 Top = 193 4 Top = 186
5 Width = 2212 5 Width = 2212
6 Caption = 'hUGETracker' 6 Caption = 'hUGETracker'
7 ClientHeight = 1342 7 ClientHeight = 1342
@@ -53,10 +53,10 @@ object frmTracker: TfrmTracker
53 Height = 946 53 Height = 946
54 Top = 0 54 Top = 0
55 Width = 1865 55 Width = 1865
56 ActivePage = PatternTabSheet 56 ActivePage = GeneralTabSheet
57 Align = alClient 57 Align = alClient
58 ParentFont = False 58 ParentFont = False
59 TabIndex = 1 59 TabIndex = 0
60 TabOrder = 0 60 TabOrder = 0
61 object GeneralTabSheet: TTabSheet 61 object GeneralTabSheet: TTabSheet
62 Caption = 'General' 62 Caption = 'General'
@@ -1763,6 +1763,102 @@ object frmTracker: TfrmTracker
1763 OnPaint = NoiseVisualizerPaint 1763 OnPaint = NoiseVisualizerPaint
1764 end 1764 end
1765 end 1765 end
1766 object LEDMeter1: TLEDMeter
1767 AnchorSideRight.Side = asrBottom
1768 Left = 1432
1769 Height = 312
1770 Top = 0
1771 Width = 88
1772 Anchors = [akTop, akRight]
1773 BevelStyle = bvLowered
1774 Colors.Border = clBlack
1775 Colors.Section1 = clLime
1776 Colors.Section2 = clYellow
1777 Colors.Section3 = clRed
1778 Direction = mdUp
1779 FallbackDelay = 0
1780 LEDContrast = 9
1781 Max = 100
1782 Min = 0
1783 NumDigits = 50
1784 PeakHoldTime = 0
1785 Position = 0
1786 SingleLED = False
1787 Section2Value = 70
1788 Section3Value = 90
1789 end
1790 object LEDMeter2: TLEDMeter
1791 AnchorSideRight.Side = asrBottom
1792 Left = 1344
1793 Height = 312
1794 Top = 0
1795 Width = 88
1796 Anchors = [akTop, akRight]
1797 BevelStyle = bvLowered
1798 Colors.Border = clBlack
1799 Colors.Section1 = clLime
1800 Colors.Section2 = clYellow
1801 Colors.Section3 = clRed
1802 Direction = mdUp
1803 FallbackDelay = 0
1804 LEDContrast = 9
1805 Max = 100
1806 Min = 0
1807 NumDigits = 50
1808 PeakHoldTime = 0
1809 Position = 0
1810 SingleLED = False
1811 Section2Value = 70
1812 Section3Value = 90
1813 end
1814 object LEDMeter3: TLEDMeter
1815 AnchorSideRight.Side = asrBottom
1816 Left = 1256
1817 Height = 312
1818 Top = 0
1819 Width = 88
1820 Anchors = [akTop, akRight]
1821 BevelStyle = bvLowered
1822 Colors.Border = clBlack
1823 Colors.Section1 = clLime
1824 Colors.Section2 = clYellow
1825 Colors.Section3 = clRed
1826 Direction = mdUp
1827 FallbackDelay = 0
1828 LEDContrast = 9
1829 Max = 100
1830 Min = 0
1831 NumDigits = 50
1832 PeakHoldTime = 0
1833 Position = 0
1834 SingleLED = False
1835 Section2Value = 70
1836 Section3Value = 90
1837 end
1838 object LEDMeter4: TLEDMeter
1839 AnchorSideRight.Side = asrBottom
1840 Left = 1168
1841 Height = 312
1842 Top = 0
1843 Width = 88
1844 Anchors = [akTop, akRight]
1845 BevelStyle = bvLowered
1846 Colors.Border = clBlack
1847 Colors.Section1 = clLime
1848 Colors.Section2 = clYellow
1849 Colors.Section3 = clRed
1850 Direction = mdUp
1851 FallbackDelay = 0
1852 LEDContrast = 9
1853 Max = 100
1854 Min = 0
1855 NumDigits = 50
1856 PeakHoldTime = 0
1857 Position = 0
1858 SingleLED = False
1859 Section2Value = 70
1860 Section3Value = 90
1861 end
1766 end 1862 end
1767 object StatusBar1: TStatusBar 1863 object StatusBar1: TStatusBar
1768 Left = 0 1864 Left = 0
Modifiedtracker.pas +6−2
@@ -9,7 +9,7 @@ uses
9 Menus, Spin, StdCtrls, ActnList, StdActns, SynEdit, math, Instruments, Waves, 9 Menus, Spin, StdCtrls, ActnList, StdActns, SynEdit, math, Instruments, Waves,
10 Song, EmulationThread, Utils, Constants, sound, vars, machine, 10 Song, EmulationThread, Utils, Constants, sound, vars, machine,
11 about_hugetracker, TrackerGrid, lclintf, lmessages, Buttons, Grids, DBCtrls, 11 about_hugetracker, TrackerGrid, lclintf, lmessages, Buttons, Grids, DBCtrls,
12 ECProgressBar, HugeDatatypes, LCLType, Codegen, 12 ECProgressBar, HugeDatatypes, LCLType, RackCtls, Codegen,
13 SymParser; 13 SymParser;
14 14
15 type 15 type
@@ -22,6 +22,10 @@ type
22 Label22: TLabel; 22 Label22: TLabel;
23 Label23: TLabel; 23 Label23: TLabel;
24 Label24: TLabel; 24 Label24: TLabel;
25 LEDMeter1: TLEDMeter;
26 LEDMeter2: TLEDMeter;
27 LEDMeter3: TLEDMeter;
28 LEDMeter4: TLEDMeter;
25 OrderEditStringGrid: TStringGrid; 29 OrderEditStringGrid: TStringGrid;
26 EditCut1: TEditCut; 30 EditCut1: TEditCut;
27 HeaderControl1: THeaderControl; 31 HeaderControl1: THeaderControl;
@@ -541,7 +545,7 @@ end;
541 procedure TfrmTracker.OnFD; 545 procedure TfrmTracker.OnFD;
542 begin 546 begin
543 TrackerGrid.HighlightedRow:=PeekSymbol(SYM_ROW); 547 TrackerGrid.HighlightedRow:=PeekSymbol(SYM_ROW);
544 548 OrderEditStringGrid.Row := (PeekSymbol(SYM_CURRENT_ORDER) div 2) + 1;
545 end; 549 end;
546 550
547 procedure TfrmTracker.RecreateTrackerGrid; 551 procedure TfrmTracker.RecreateTrackerGrid;