Commit 17e7613

Nick committed on
Removing flowpanel
commit 17e7613cfe4e47873a26970ed1c7192de9856551 parent d6169dc
8 changed files +43−65
ModifiedGBEmu.lpi +1−1
@@ -42,7 +42,7 @@
42 <TargetCPU Value="i386"/> 42 <TargetCPU Value="i386"/>
43 <TargetOS Value="win32"/> 43 <TargetOS Value="win32"/>
44 <Optimizations> 44 <Optimizations>
45 <OptimizationLevel Value="4"/> 45 <OptimizationLevel Value="3"/>
46 </Optimizations> 46 </Optimizations>
47 </CodeGeneration> 47 </CodeGeneration>
48 <Linking> 48 <Linking>
Modifiedtracker.lfm +41−63
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 958 2 Left = 860
3 Height = 1250 3 Height = 1250
4 Top = 750 4 Top = 209
5 Width = 2067 5 Width = 2067
6 Caption = 'hUGETracker' 6 Caption = 'hUGETracker'
7 ClientHeight = 1216 7 ClientHeight = 1216
@@ -1590,7 +1590,7 @@ object frmTracker: TfrmTracker
1590 end 1590 end
1591 object LEDMeter2: TLEDMeter 1591 object LEDMeter2: TLEDMeter
1592 AnchorSideRight.Side = asrBottom 1592 AnchorSideRight.Side = asrBottom
1593 Left = 1199 1593 Left = 1200
1594 Height = 312 1594 Height = 312
1595 Top = 0 1595 Top = 0
1596 Width = 88 1596 Width = 88
@@ -1612,72 +1612,50 @@ object frmTracker: TfrmTracker
1612 Section2Value = 60 1612 Section2Value = 60
1613 Section3Value = 80 1613 Section3Value = 80
1614 end 1614 end
1615 object FlowPanel2: TFlowPanel 1615 object Panel6: TPanel
1616 Left = 1374 1616 Left = 1378
1617 Height = 312 1617 Height = 312
1618 Top = 0 1618 Top = 0
1619 Width = 693 1619 Width = 689
1620 Align = alRight 1620 Align = alRight
1621 ControlList = < 1621 AutoSize = True
1622 item 1622 BevelOuter = bvNone
1623 Control = Duty1Visualizer 1623 Caption = 'Panel6'
1624 WrapAfter = waAuto 1624 ClientHeight = 312
1625 Index = 0 1625 ClientWidth = 689
1626 end
1627 item
1628 Control = Duty2Visualizer
1629 WrapAfter = waAuto
1630 Index = 1
1631 end
1632 item
1633 Control = WaveVisualizer
1634 WrapAfter = waAuto
1635 Index = 2
1636 end
1637 item
1638 Control = NoiseVisualizer
1639 WrapAfter = waAuto
1640 Index = 3
1641 end>
1642 FlowLayout = tlTop
1643 FlowStyle = fsLeftRightTopBottom
1644 TabOrder = 0 1626 TabOrder = 0
1645 object Duty1Visualizer: TPaintBox 1627 object Duty1Visualizer: TPaintBox
1646 Left = 1 1628 Left = 0
1647 Height = 156 1629 Height = 156
1648 Top = 1 1630 Top = 0
1649 Width = 345 1631 Width = 345
1650 Anchors = []
1651 ParentFont = False 1632 ParentFont = False
1652 OnClick = Duty1VisualizerClick 1633 OnClick = Duty1VisualizerClick
1653 OnPaint = Duty1VisualizerPaint 1634 OnPaint = Duty1VisualizerPaint
1654 end 1635 end
1655 object Duty2Visualizer: TPaintBox 1636 object Duty2Visualizer: TPaintBox
1656 Left = 346 1637 Left = 344
1657 Height = 156 1638 Height = 156
1658 Top = 1 1639 Top = 0
1659 Width = 345 1640 Width = 345
1660 Anchors = []
1661 ParentFont = False 1641 ParentFont = False
1662 OnClick = Duty1VisualizerClick 1642 OnClick = Duty1VisualizerClick
1663 OnPaint = Duty2VisualizerPaint 1643 OnPaint = Duty2VisualizerPaint
1664 end 1644 end
1665 object WaveVisualizer: TPaintBox 1645 object WaveVisualizer: TPaintBox
1666 Left = 1 1646 Left = 0
1667 Height = 156 1647 Height = 156
1668 Top = 157 1648 Top = 152
1669 Width = 345 1649 Width = 345
1670 Anchors = []
1671 ParentFont = False 1650 ParentFont = False
1672 OnClick = Duty1VisualizerClick 1651 OnClick = Duty1VisualizerClick
1673 OnPaint = WaveVisualizerPaint 1652 OnPaint = WaveVisualizerPaint
1674 end 1653 end
1675 object NoiseVisualizer: TPaintBox 1654 object NoiseVisualizer: TPaintBox
1676 Left = 346 1655 Left = 344
1677 Height = 156 1656 Height = 156
1678 Top = 157 1657 Top = 152
1679 Width = 345 1658 Width = 345
1680 Anchors = []
1681 ParentFont = False 1659 ParentFont = False
1682 OnClick = Duty1VisualizerClick 1660 OnClick = Duty1VisualizerClick
1683 OnPaint = NoiseVisualizerPaint 1661 OnPaint = NoiseVisualizerPaint
@@ -1888,8 +1866,8 @@ object frmTracker: TfrmTracker
1888 end 1866 end
1889 object MainMenu1: TMainMenu 1867 object MainMenu1: TMainMenu
1890 Images = ImageList1 1868 Images = ImageList1
1891 left = 704 1869 left = 952
1892 top = 75 1870 top = 64
1893 object MenuItem1: TMenuItem 1871 object MenuItem1: TMenuItem
1894 Caption = 'File' 1872 Caption = 'File'
1895 object MenuItem12: TMenuItem 1873 object MenuItem12: TMenuItem
@@ -1991,8 +1969,8 @@ object frmTracker: TfrmTracker
1991 end 1969 end
1992 object ActionList1: TActionList 1970 object ActionList1: TActionList
1993 Images = ImageList1 1971 Images = ImageList1
1994 left = 999 1972 left = 1120
1995 top = 75 1973 top = 64
1996 object FileOpen1: TFileOpen 1974 object FileOpen1: TFileOpen
1997 Category = 'File' 1975 Category = 'File'
1998 Caption = '&Open ...' 1976 Caption = '&Open ...'
@@ -2096,8 +2074,8 @@ object frmTracker: TfrmTracker
2096 end 2074 end
2097 end 2075 end
2098 object ImageList1: TImageList 2076 object ImageList1: TImageList
2099 left = 168 2077 left = 536
2100 top = 81 2078 top = 72
2101 Bitmap = { 2079 Bitmap = {
2102 4C694E0000001000000010000000000000000000000000000000000000000000 2080 4C694E0000001000000010000000000000000000000000000000000000000000
2103 0000000000000000000000000000000000000000000000000000000000000000 2081 0000000000000000000000000000000000000000000000000000000000000000
@@ -4600,16 +4578,16 @@ object frmTracker: TfrmTracker
4600 end 4578 end
4601 object OpenDialog1: TOpenDialog 4579 object OpenDialog1: TOpenDialog
4602 Filter = 'hUGETracker Instruments|*.ugi' 4580 Filter = 'hUGETracker Instruments|*.ugi'
4603 left = 872 4581 left = 1032
4604 top = 75 4582 top = 160
4605 end 4583 end
4606 object InstrumentSaveDialog: TSaveDialog 4584 object InstrumentSaveDialog: TSaveDialog
4607 Filter = 'hUGETracker Instruments|*.ugi' 4585 Filter = 'hUGETracker Instruments|*.ugi'
4608 left = 608 4586 left = 864
4609 top = 232 4587 top = 72
4610 end 4588 end
4611 object OrderEditPopup: TPopupMenu 4589 object OrderEditPopup: TPopupMenu
4612 left = 328 4590 left = 640
4613 top = 80 4591 top = 80
4614 object MenuItem17: TMenuItem 4592 object MenuItem17: TMenuItem
4615 Caption = 'Insert new row' 4593 Caption = 'Insert new row'
@@ -4641,8 +4619,8 @@ object frmTracker: TfrmTracker
4641 object ImageList2: TImageList 4619 object ImageList2: TImageList
4642 Height = 32 4620 Height = 32
4643 Width = 32 4621 Width = 32
4644 left = 192 4622 left = 528
4645 top = 184 4623 top = 200
4646 Bitmap = { 4624 Bitmap = {
4647 4C69020000002000000020000000000000000000000000000000000000000000 4625 4C69020000002000000020000000000000000000000000000000000000000000
4648 0000000000000000000000000000000000000000000000000000000000000000 4626 0000000000000000000000000000000000000000000000000000000000000000
@@ -4907,33 +4885,33 @@ object frmTracker: TfrmTracker
4907 Enabled = False 4885 Enabled = False
4908 Interval = 200 4886 Interval = 200
4909 OnTimer = OscilloscopeUpdateTimerTimer 4887 OnTimer = OscilloscopeUpdateTimerTimer
4910 left = 512 4888 left = 760
4911 top = 64 4889 top = 72
4912 end 4890 end
4913 object GBSSaveDialog: TSaveDialog 4891 object GBSSaveDialog: TSaveDialog
4914 Filter = 'Gameboy Soundtrack|*.gbs' 4892 Filter = 'Gameboy Soundtrack|*.gbs'
4915 left = 920 4893 left = 1032
4916 top = 177 4894 top = 64
4917 end 4895 end
4918 object WaveSaveDialog: TSaveDialog 4896 object WaveSaveDialog: TSaveDialog
4919 Filter = 'hUGETracker Waves|*.ugw' 4897 Filter = 'hUGETracker Waves|*.ugw'
4920 left = 784 4898 left = 952
4921 top = 168 4899 top = 168
4922 end 4900 end
4923 object GBSaveDialog: TSaveDialog 4901 object GBSaveDialog: TSaveDialog
4924 Filter = 'Gameboy ROM|*.GB' 4902 Filter = 'Gameboy ROM|*.GB'
4925 left = 480 4903 left = 760
4926 top = 177 4904 top = 177
4927 end 4905 end
4928 object NoteHaltTimer: TTimer 4906 object NoteHaltTimer: TTimer
4929 Enabled = False 4907 Enabled = False
4930 OnTimer = NoteHaltTimerTimer 4908 OnTimer = NoteHaltTimerTimer
4931 left = 328 4909 left = 640
4932 top = 200 4910 top = 200
4933 end 4911 end
4934 object TrackerGridPopup: TPopupMenu 4912 object TrackerGridPopup: TPopupMenu
4935 left = 1093 4913 left = 1120
4936 top = 191 4914 top = 160
4937 object TrackerPopupEditEffect: TMenuItem 4915 object TrackerPopupEditEffect: TMenuItem
4938 Caption = 'Edit effect ...' 4916 Caption = 'Edit effect ...'
4939 OnClick = TrackerPopupEditEffectClick 4917 OnClick = TrackerPopupEditEffectClick
Modifiedtracker.pas +1−1
@@ -19,7 +19,6 @@ type
19 Button1: TButton; 19 Button1: TButton;
20 Duty1Visualizer: TPaintBox; 20 Duty1Visualizer: TPaintBox;
21 Duty2Visualizer: TPaintBox; 21 Duty2Visualizer: TPaintBox;
22 FlowPanel2: TFlowPanel;
23 InstrumentExportButton: TButton; 22 InstrumentExportButton: TButton;
24 InstrumentImportButton: TButton; 23 InstrumentImportButton: TButton;
25 InstrumentComboBox: TComboBox; 24 InstrumentComboBox: TComboBox;
@@ -37,6 +36,7 @@ type
37 MenuItem27: TMenuItem; 36 MenuItem27: TMenuItem;
38 MenuItem28: TMenuItem; 37 MenuItem28: TMenuItem;
39 NoiseVisualizer: TPaintBox; 38 NoiseVisualizer: TPaintBox;
39 Panel6: TPanel;
40 TrackerPopupEditEffect: TMenuItem; 40 TrackerPopupEditEffect: TMenuItem;
41 TrackerPopupTransposeOctaveUp: TMenuItem; 41 TrackerPopupTransposeOctaveUp: TMenuItem;
42 TrackerPopupTransposeOctaveDown: TMenuItem; 42 TrackerPopupTransposeOctaveDown: TMenuItem;