Commit 8bcc9f2

Nick committed on
Reduce unused whitespace by moving oscilloscopes and VU meters onto one line
commit 8bcc9f27f4dfdbea363536be083a3bb6d589d46c parent ba6150b
2 changed files +101−114
Modifiedtracker.lfm +101−113
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 1888 2 Left = 968
3 Height = 726 3 Height = 726
4 Top = 59 4 Top = 181
5 Width = 1180 5 Width = 1180
6 Caption = 'hUGETracker' 6 Caption = 'hUGETracker'
7 ClientHeight = 706 7 ClientHeight = 706
@@ -19,8 +19,8 @@ object frmTracker: TfrmTracker
19 LCLVersion = '2.0.6.0' 19 LCLVersion = '2.0.6.0'
20 object TreeView1: TTreeView 20 object TreeView1: TTreeView
21 Left = 0 21 Left = 0
22 Height = 480 22 Height = 563
23 Top = 203 23 Top = 120
24 Width = 193 24 Width = 193
25 Align = alLeft 25 Align = alLeft
26 ParentFont = False 26 ParentFont = False
@@ -40,30 +40,30 @@ object frmTracker: TfrmTracker
40 end 40 end
41 object Splitter1: TSplitter 41 object Splitter1: TSplitter
42 Left = 193 42 Left = 193
43 Height = 480 43 Height = 563
44 Top = 203 44 Top = 120
45 Width = 5 45 Width = 5
46 end 46 end
47 object Panel1: TPanel 47 object Panel1: TPanel
48 Left = 198 48 Left = 198
49 Height = 480 49 Height = 563
50 Top = 203 50 Top = 120
51 Width = 982 51 Width = 982
52 Align = alClient 52 Align = alClient
53 BevelOuter = bvNone 53 BevelOuter = bvNone
54 ClientHeight = 480 54 ClientHeight = 563
55 ClientWidth = 982 55 ClientWidth = 982
56 ParentFont = False 56 ParentFont = False
57 TabOrder = 2 57 TabOrder = 2
58 object PageControl1: TPageControl 58 object PageControl1: TPageControl
59 Left = 0 59 Left = 0
60 Height = 480 60 Height = 563
61 Top = 0 61 Top = 0
62 Width = 982 62 Width = 982
63 ActivePage = WavesTabSheet 63 ActivePage = PatternTabSheet
64 Align = alClient 64 Align = alClient
65 ParentFont = False 65 ParentFont = False
66 TabIndex = 3 66 TabIndex = 1
67 TabOrder = 0 67 TabOrder = 0
68 object GeneralTabSheet: TTabSheet 68 object GeneralTabSheet: TTabSheet
69 Caption = 'General' 69 Caption = 'General'
@@ -144,16 +144,16 @@ object frmTracker: TfrmTracker
144 end 144 end
145 object PatternTabSheet: TTabSheet 145 object PatternTabSheet: TTabSheet
146 Caption = 'Patterns' 146 Caption = 'Patterns'
147 ClientHeight = 452 147 ClientHeight = 535
148 ClientWidth = 974 148 ClientWidth = 974
149 ParentFont = False 149 ParentFont = False
150 object Panel3: TPanel 150 object Panel3: TPanel
151 Left = 224 151 Left = 224
152 Height = 452 152 Height = 535
153 Top = 0 153 Top = 0
154 Width = 750 154 Width = 750
155 Align = alClient 155 Align = alClient
156 ClientHeight = 452 156 ClientHeight = 535
157 ClientWidth = 750 157 ClientWidth = 750
158 ParentFont = False 158 ParentFont = False
159 TabOrder = 0 159 TabOrder = 0
@@ -202,7 +202,7 @@ object frmTracker: TfrmTracker
202 end 202 end
203 object ScrollBox1: TScrollBox 203 object ScrollBox1: TScrollBox
204 Left = 1 204 Left = 1
205 Height = 420 205 Height = 503
206 Top = 31 206 Top = 31
207 Width = 748 207 Width = 748
208 HorzScrollBar.Increment = 1 208 HorzScrollBar.Increment = 1
@@ -223,7 +223,7 @@ object frmTracker: TfrmTracker
223 end 223 end
224 object OrderEditStringGrid: TStringGrid 224 object OrderEditStringGrid: TStringGrid
225 Left = 0 225 Left = 0
226 Height = 452 226 Height = 535
227 Top = 0 227 Top = 0
228 Width = 224 228 Width = 224
229 Align = alLeft 229 Align = alLeft
@@ -1586,34 +1586,32 @@ object frmTracker: TfrmTracker
1586 end 1586 end
1587 object Panel2: TPanel 1587 object Panel2: TPanel
1588 Left = 0 1588 Left = 0
1589 Height = 178 1589 Height = 95
1590 Top = 25 1590 Top = 25
1591 Width = 1180 1591 Width = 1180
1592 Align = alTop 1592 Align = alTop
1593 BevelOuter = bvNone 1593 BevelOuter = bvNone
1594 ChildSizing.HorizontalSpacing = 10 1594 ClientHeight = 95
1595 ClientHeight = 178
1596 ClientWidth = 1180 1595 ClientWidth = 1180
1597 ParentFont = False 1596 ParentFont = False
1598 TabOrder = 3 1597 TabOrder = 3
1599 object LEDMeter1: TLEDMeter 1598 object LEDMeter1: TLEDMeter
1600 AnchorSideRight.Side = asrBottom 1599 AnchorSideRight.Control = Duty1Visualizer
1601 Left = 735 1600 Left = 0
1602 Height = 178 1601 Height = 47
1603 Top = 0 1602 Top = 48
1604 Width = 50 1603 Width = 392
1605 Anchors = [akTop, akRight] 1604 Anchors = [akTop, akLeft, akRight]
1606 BevelStyle = bvLowered 1605 BevelStyle = bvLowered
1607 Colors.Border = clBlack 1606 Colors.Border = clBlack
1608 Colors.Section1 = clLime 1607 Colors.Section1 = clLime
1609 Colors.Section2 = clYellow 1608 Colors.Section2 = clYellow
1610 Colors.Section3 = clRed 1609 Colors.Section3 = clRed
1611 Direction = mdUp
1612 FallbackDelay = 0 1610 FallbackDelay = 0
1613 LEDContrast = 9 1611 LEDContrast = 9
1614 Max = 100 1612 Max = 100
1615 Min = 0 1613 Min = 0
1616 NumDigits = 50 1614 NumDigits = 30
1617 PeakHoldTime = 0 1615 PeakHoldTime = 0
1618 Position = 0 1616 Position = 0
1619 SingleLED = False 1617 SingleLED = False
@@ -1621,77 +1619,67 @@ object frmTracker: TfrmTracker
1621 Section3Value = 80 1619 Section3Value = 80
1622 end 1620 end
1623 object LEDMeter2: TLEDMeter 1621 object LEDMeter2: TLEDMeter
1624 AnchorSideRight.Side = asrBottom 1622 AnchorSideRight.Control = Duty1Visualizer
1625 Left = 685 1623 Left = 0
1626 Height = 178 1624 Height = 48
1627 Top = 0 1625 Top = 0
1628 Width = 50 1626 Width = 392
1629 Anchors = [akTop, akRight] 1627 Anchors = [akTop, akLeft, akRight]
1630 BevelStyle = bvLowered 1628 BevelStyle = bvLowered
1631 Colors.Border = clBlack 1629 Colors.Border = clBlack
1632 Colors.Section1 = clLime 1630 Colors.Section1 = clLime
1633 Colors.Section2 = clYellow 1631 Colors.Section2 = clYellow
1634 Colors.Section3 = clRed 1632 Colors.Section3 = clRed
1635 Direction = mdUp
1636 FallbackDelay = 0 1633 FallbackDelay = 0
1637 LEDContrast = 9 1634 LEDContrast = 9
1638 Max = 100 1635 Max = 100
1639 Min = 0 1636 Min = 0
1640 NumDigits = 50 1637 NumDigits = 30
1641 PeakHoldTime = 0 1638 PeakHoldTime = 0
1642 Position = 0 1639 Position = 0
1643 SingleLED = False 1640 SingleLED = False
1644 Section2Value = 60 1641 Section2Value = 60
1645 Section3Value = 80 1642 Section3Value = 80
1646 end 1643 end
1647 object Panel6: TPanel 1644 object Duty1Visualizer: TPaintBox
1645 Left = 392
1646 Height = 95
1647 Top = 0
1648 Width = 197
1649 Align = alRight
1650 ParentFont = False
1651 OnClick = Duty1VisualizerClick
1652 OnPaint = Duty1VisualizerPaint
1653 end
1654 object Duty2Visualizer: TPaintBox
1655 Left = 589
1656 Height = 95
1657 Top = 0
1658 Width = 197
1659 Align = alRight
1660 ParentFont = False
1661 OnClick = Duty1VisualizerClick
1662 OnPaint = Duty2VisualizerPaint
1663 end
1664 object WaveVisualizer: TPaintBox
1648 Left = 786 1665 Left = 786
1649 Height = 178 1666 Height = 95
1650 Top = 0 1667 Top = 0
1651 Width = 394 1668 Width = 197
1652 Align = alRight 1669 Align = alRight
1653 AutoSize = True
1654 BevelOuter = bvNone
1655 ClientHeight = 178
1656 ClientWidth = 394
1657 ParentFont = False 1670 ParentFont = False
1658 TabOrder = 0 1671 OnClick = Duty1VisualizerClick
1659 object Duty1Visualizer: TPaintBox 1672 OnPaint = WaveVisualizerPaint
1660 Left = 0 1673 end
1661 Height = 89 1674 object NoiseVisualizer: TPaintBox
1662 Top = 0 1675 Left = 983
1663 Width = 197 1676 Height = 95
1664 ParentFont = False 1677 Top = 0
1665 OnClick = Duty1VisualizerClick 1678 Width = 197
1666 OnPaint = Duty1VisualizerPaint 1679 Align = alRight
1667 end 1680 ParentFont = False
1668 object Duty2Visualizer: TPaintBox 1681 OnClick = Duty1VisualizerClick
1669 Left = 197 1682 OnPaint = NoiseVisualizerPaint
1670 Height = 89
1671 Top = 0
1672 Width = 197
1673 ParentFont = False
1674 OnClick = Duty1VisualizerClick
1675 OnPaint = Duty2VisualizerPaint
1676 end
1677 object WaveVisualizer: TPaintBox
1678 Left = 0
1679 Height = 89
1680 Top = 87
1681 Width = 197
1682 ParentFont = False
1683 OnClick = Duty1VisualizerClick
1684 OnPaint = WaveVisualizerPaint
1685 end
1686 object NoiseVisualizer: TPaintBox
1687 Left = 197
1688 Height = 89
1689 Top = 87
1690 Width = 197
1691 ParentFont = False
1692 OnClick = Duty1VisualizerClick
1693 OnPaint = NoiseVisualizerPaint
1694 end
1695 end 1683 end
1696 end 1684 end
1697 object StatusBar1: TStatusBar 1685 object StatusBar1: TStatusBar
@@ -1900,8 +1888,8 @@ object frmTracker: TfrmTracker
1900 end 1888 end
1901 object MainMenu1: TMainMenu 1889 object MainMenu1: TMainMenu
1902 Images = ImageList1 1890 Images = ImageList1
1903 left = 144 1891 left = 40
1904 top = 48 1892 top = 32
1905 object MenuItem1: TMenuItem 1893 object MenuItem1: TMenuItem
1906 Caption = 'File' 1894 Caption = 'File'
1907 object MenuItem33: TMenuItem 1895 object MenuItem33: TMenuItem
@@ -2018,8 +2006,8 @@ object frmTracker: TfrmTracker
2018 end 2006 end
2019 object ActionList1: TActionList 2007 object ActionList1: TActionList
2020 Images = ImageList1 2008 Images = ImageList1
2021 left = 640 2009 left = 104
2022 top = 37 2010 top = 72
2023 object FileOpen1: TFileOpen 2011 object FileOpen1: TFileOpen
2024 Category = 'File' 2012 Category = 'File'
2025 Caption = '&Open ...' 2013 Caption = '&Open ...'
@@ -2123,8 +2111,8 @@ object frmTracker: TfrmTracker
2123 end 2111 end
2124 end 2112 end
2125 object ImageList1: TImageList 2113 object ImageList1: TImageList
2126 left = 306 2114 left = 141
2127 top = 41 2115 top = 36
2128 Bitmap = { 2116 Bitmap = {
2129 4C694E0000001000000010000000000000000000000000000000000000000000 2117 4C694E0000001000000010000000000000000000000000000000000000000000
2130 0000000000000000000000000000000000000000000000000000000000000000 2118 0000000000000000000000000000000000000000000000000000000000000000
@@ -4627,17 +4615,17 @@ object frmTracker: TfrmTracker
4627 end 4615 end
4628 object OpenDialog1: TOpenDialog 4616 object OpenDialog1: TOpenDialog
4629 Filter = 'hUGETracker Instruments|*.ugi' 4617 Filter = 'hUGETracker Instruments|*.ugi'
4630 left = 576 4618 left = 80
4631 top = 96 4619 top = 56
4632 end 4620 end
4633 object InstrumentSaveDialog: TSaveDialog 4621 object InstrumentSaveDialog: TSaveDialog
4634 Filter = 'hUGETracker Instruments|*.ugi' 4622 Filter = 'hUGETracker Instruments|*.ugi'
4635 left = 494 4623 left = 80
4636 top = 41 4624 top = 56
4637 end 4625 end
4638 object OrderEditPopup: TPopupMenu 4626 object OrderEditPopup: TPopupMenu
4639 left = 366 4627 left = 160
4640 top = 46 4628 top = 91
4641 object MenuItem17: TMenuItem 4629 object MenuItem17: TMenuItem
4642 Caption = 'Insert new row' 4630 Caption = 'Insert new row'
4643 Hint = 'Insert a new row filled with brand new patterns' 4631 Hint = 'Insert a new row filled with brand new patterns'
@@ -4668,8 +4656,8 @@ object frmTracker: TfrmTracker
4668 object ImageList2: TImageList 4656 object ImageList2: TImageList
4669 Height = 32 4657 Height = 32
4670 Width = 32 4658 Width = 32
4671 left = 302 4659 left = 48
4672 top = 114 4660 top = 86
4673 Bitmap = { 4661 Bitmap = {
4674 4C69020000002000000020000000000000000000000000000000000000000000 4662 4C69020000002000000020000000000000000000000000000000000000000000
4675 0000000000000000000000000000000000000000000000000000000000000000 4663 0000000000000000000000000000000000000000000000000000000000000000
@@ -4934,33 +4922,33 @@ object frmTracker: TfrmTracker
4934 Enabled = False 4922 Enabled = False
4935 Interval = 200 4923 Interval = 200
4936 OnTimer = OscilloscopeUpdateTimerTimer 4924 OnTimer = OscilloscopeUpdateTimerTimer
4937 left = 434 4925 left = 88
4938 top = 41 4926 top = 48
4939 end 4927 end
4940 object GBSSaveDialog: TSaveDialog 4928 object GBSSaveDialog: TSaveDialog
4941 Filter = 'Gameboy Soundtrack|*.gbs' 4929 Filter = 'Gameboy Soundtrack|*.gbs'
4942 left = 560 4930 left = 64
4943 top = 37 4931 top = 56
4944 end 4932 end
4945 object WaveSaveDialog: TSaveDialog 4933 object WaveSaveDialog: TSaveDialog
4946 Filter = 'hUGETracker Waves|*.ugw' 4934 Filter = 'hUGETracker Waves|*.ugw'
4947 left = 520 4935 left = 64
4948 top = 112 4936 top = 48
4949 end 4937 end
4950 object GBSaveDialog: TSaveDialog 4938 object GBSaveDialog: TSaveDialog
4951 Filter = 'Gameboy ROM|*.GB' 4939 Filter = 'Gameboy ROM|*.GB'
4952 left = 434 4940 left = 120
4953 top = 101 4941 top = 88
4954 end 4942 end
4955 object NoteHaltTimer: TTimer 4943 object NoteHaltTimer: TTimer
4956 Enabled = False 4944 Enabled = False
4957 OnTimer = NoteHaltTimerTimer 4945 OnTimer = NoteHaltTimerTimer
4958 left = 366 4946 left = 80
4959 top = 114 4947 top = 86
4960 end 4948 end
4961 object TrackerGridPopup: TPopupMenu 4949 object TrackerGridPopup: TPopupMenu
4962 left = 640 4950 left = 112
4963 top = 91 4951 top = 56
4964 object TrackerPopupEditEffect: TMenuItem 4952 object TrackerPopupEditEffect: TMenuItem
4965 Caption = 'Edit effect ...' 4953 Caption = 'Edit effect ...'
4966 OnClick = TrackerPopupEditEffectClick 4954 OnClick = TrackerPopupEditEffectClick
@@ -5101,8 +5089,8 @@ object frmTracker: TfrmTracker
5101 object WavSaveDialog: TSaveDialog 5089 object WavSaveDialog: TSaveDialog
5102 DefaultExt = '.wav' 5090 DefaultExt = '.wav'
5103 Filter = 'Wave files|*.wav' 5091 Filter = 'Wave files|*.wav'
5104 left = 232 5092 left = 72
5105 top = 46 5093 top = 32
5106 end 5094 end
5107 object SynAnySyn1: TSynAnySyn 5095 object SynAnySyn1: TSynAnySyn
5108 Enabled = False 5096 Enabled = False
@@ -5226,18 +5214,18 @@ object frmTracker: TfrmTracker
5226 Entity = False 5214 Entity = False
5227 DollarVariables = False 5215 DollarVariables = False
5228 ActiveDot = False 5216 ActiveDot = False
5229 left = 229 5217 left = 8
5230 top = 114 5218 top = 86
5231 end 5219 end
5232 object MODOpenDialog: TOpenDialog 5220 object MODOpenDialog: TOpenDialog
5233 DefaultExt = '.mod' 5221 DefaultExt = '.mod'
5234 Filter = 'GBT Player MOD files|*.mod' 5222 Filter = 'GBT Player MOD files|*.mod'
5235 left = 144 5223 left = 104
5236 top = 114 5224 top = 32
5237 end 5225 end
5238 object WaveEditPopup: TPopupMenu 5226 object WaveEditPopup: TPopupMenu
5239 left = 80 5227 left = 8
5240 top = 56 5228 top = 32
5241 object MenuItem37: TMenuItem 5229 object MenuItem37: TMenuItem
5242 Caption = 'Copy' 5230 Caption = 'Copy'
5243 OnClick = MenuItem37Click 5231 OnClick = MenuItem37Click
Modifiedtracker.pas +0−1
@@ -58,7 +58,6 @@ type
58 MenuItem53: TMenuItem; 58 MenuItem53: TMenuItem;
59 NoiseVisualizer: TPaintBox; 59 NoiseVisualizer: TPaintBox;
60 MODOpenDialog: TOpenDialog; 60 MODOpenDialog: TOpenDialog;
61 Panel6: TPanel;
62 WaveEditPopup: TPopupMenu; 61 WaveEditPopup: TPopupMenu;
63 SynAnySyn1: TSynAnySyn; 62 SynAnySyn1: TSynAnySyn;
64 WavSaveDialog: TSaveDialog; 63 WavSaveDialog: TSaveDialog;