Commit b037859

Nick committed on
Changing to flowpanel for oscillators
commit b03785908a822cbbd411fb050a4ebc8dbb5258c9 parent 2b858bb
2 changed files +78−55
Modifiedtracker.lfm +73−50
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 789 2 Left = 877
3 Height = 1250 3 Height = 1250
4 Top = 314 4 Top = 202
5 Width = 2067 5 Width = 2067
6 Caption = 'hUGETracker' 6 Caption = 'hUGETracker'
7 ClientHeight = 1216 7 ClientHeight = 1216
@@ -1561,54 +1561,6 @@ object frmTracker: TfrmTracker
1561 ClientWidth = 2067 1561 ClientWidth = 2067
1562 ParentFont = False 1562 ParentFont = False
1563 TabOrder = 3 1563 TabOrder = 3
1564 object Panel6: TPanel
1565 Left = 1372
1566 Height = 312
1567 Top = 0
1568 Width = 695
1569 Align = alRight
1570 AutoSize = True
1571 ClientHeight = 312
1572 ClientWidth = 695
1573 ParentFont = False
1574 TabOrder = 0
1575 object Duty1Visualizer: TPaintBox
1576 Left = 1
1577 Height = 156
1578 Top = 1
1579 Width = 345
1580 ParentFont = False
1581 OnClick = Duty1VisualizerClick
1582 OnPaint = Duty1VisualizerPaint
1583 end
1584 object WaveVisualizer: TPaintBox
1585 Left = 2
1586 Height = 156
1587 Top = 152
1588 Width = 345
1589 ParentFont = False
1590 OnClick = Duty1VisualizerClick
1591 OnPaint = WaveVisualizerPaint
1592 end
1593 object Duty2Visualizer: TPaintBox
1594 Left = 349
1595 Height = 156
1596 Top = 1
1597 Width = 345
1598 ParentFont = False
1599 OnClick = Duty1VisualizerClick
1600 OnPaint = Duty2VisualizerPaint
1601 end
1602 object NoiseVisualizer: TPaintBox
1603 Left = 349
1604 Height = 156
1605 Top = 152
1606 Width = 345
1607 ParentFont = False
1608 OnClick = Duty1VisualizerClick
1609 OnPaint = NoiseVisualizerPaint
1610 end
1611 end
1612 object LEDMeter1: TLEDMeter 1564 object LEDMeter1: TLEDMeter
1613 AnchorSideRight.Side = asrBottom 1565 AnchorSideRight.Side = asrBottom
1614 Left = 1288 1566 Left = 1288
@@ -1657,6 +1609,77 @@ object frmTracker: TfrmTracker
1657 Section2Value = 60 1609 Section2Value = 60
1658 Section3Value = 80 1610 Section3Value = 80
1659 end 1611 end
1612 object FlowPanel2: TFlowPanel
1613 Left = 1374
1614 Height = 312
1615 Top = 0
1616 Width = 693
1617 Align = alRight
1618 ControlList = <
1619 item
1620 Control = Duty1Visualizer
1621 WrapAfter = waAuto
1622 Index = 0
1623 end
1624 item
1625 Control = Duty2Visualizer
1626 WrapAfter = waAuto
1627 Index = 1
1628 end
1629 item
1630 Control = WaveVisualizer
1631 WrapAfter = waAuto
1632 Index = 2
1633 end
1634 item
1635 Control = NoiseVisualizer
1636 WrapAfter = waAuto
1637 Index = 3
1638 end>
1639 FlowLayout = tlTop
1640 FlowStyle = fsLeftRightTopBottom
1641 TabOrder = 0
1642 object Duty1Visualizer: TPaintBox
1643 Left = 1
1644 Height = 156
1645 Top = 1
1646 Width = 345
1647 Anchors = []
1648 ParentFont = False
1649 OnClick = Duty1VisualizerClick
1650 OnPaint = Duty1VisualizerPaint
1651 end
1652 object Duty2Visualizer: TPaintBox
1653 Left = 346
1654 Height = 156
1655 Top = 1
1656 Width = 345
1657 Anchors = []
1658 ParentFont = False
1659 OnClick = Duty1VisualizerClick
1660 OnPaint = Duty2VisualizerPaint
1661 end
1662 object WaveVisualizer: TPaintBox
1663 Left = 1
1664 Height = 156
1665 Top = 157
1666 Width = 345
1667 Anchors = []
1668 ParentFont = False
1669 OnClick = Duty1VisualizerClick
1670 OnPaint = WaveVisualizerPaint
1671 end
1672 object NoiseVisualizer: TPaintBox
1673 Left = 346
1674 Height = 156
1675 Top = 157
1676 Width = 345
1677 Anchors = []
1678 ParentFont = False
1679 OnClick = Duty1VisualizerClick
1680 OnPaint = NoiseVisualizerPaint
1681 end
1682 end
1660 end 1683 end
1661 object StatusBar1: TStatusBar 1684 object StatusBar1: TStatusBar
1662 Left = 0 1685 Left = 0
Modifiedtracker.pas +5−5
@@ -17,6 +17,9 @@ type
17 17
18 TfrmTracker = class(TForm) 18 TfrmTracker = class(TForm)
19 Button1: TButton; 19 Button1: TButton;
20 Duty1Visualizer: TPaintBox;
21 Duty2Visualizer: TPaintBox;
22 FlowPanel2: TFlowPanel;
20 InstrumentExportButton: TButton; 23 InstrumentExportButton: TButton;
21 InstrumentImportButton: TButton; 24 InstrumentImportButton: TButton;
22 InstrumentComboBox: TComboBox; 25 InstrumentComboBox: TComboBox;
@@ -33,6 +36,7 @@ type
33 MenuItem26: TMenuItem; 36 MenuItem26: TMenuItem;
34 MenuItem27: TMenuItem; 37 MenuItem27: TMenuItem;
35 MenuItem28: TMenuItem; 38 MenuItem28: TMenuItem;
39 NoiseVisualizer: TPaintBox;
36 TrackerPopupEditEffect: TMenuItem; 40 TrackerPopupEditEffect: TMenuItem;
37 TrackerPopupTransposeOctaveUp: TMenuItem; 41 TrackerPopupTransposeOctaveUp: TMenuItem;
38 TrackerPopupTransposeOctaveDown: TMenuItem; 42 TrackerPopupTransposeOctaveDown: TMenuItem;
@@ -74,7 +78,6 @@ type
74 MenuItem18: TMenuItem; 78 MenuItem18: TMenuItem;
75 MenuItem19: TMenuItem; 79 MenuItem19: TMenuItem;
76 MenuItem20: TMenuItem; 80 MenuItem20: TMenuItem;
77 Duty1Visualizer: TPaintBox;
78 OctaveSpinEdit: TSpinEdit; 81 OctaveSpinEdit: TSpinEdit;
79 GBSSaveDialog: TSaveDialog; 82 GBSSaveDialog: TSaveDialog;
80 StepSpinEdit: TSpinEdit; 83 StepSpinEdit: TSpinEdit;
@@ -82,11 +85,7 @@ type
82 ExportGBSButton: TToolButton; 85 ExportGBSButton: TToolButton;
83 ToolButton3: TToolButton; 86 ToolButton3: TToolButton;
84 ToolButton9: TToolButton; 87 ToolButton9: TToolButton;
85 WaveVisualizer: TPaintBox;
86 Duty2Visualizer: TPaintBox;
87 NoiseVisualizer: TPaintBox;
88 Panel3: TPanel; 88 Panel3: TPanel;
89 Panel6: TPanel;
90 PasteAction: TAction; 89 PasteAction: TAction;
91 CopyAction: TAction; 90 CopyAction: TAction;
92 HelpLookupManual: TAction; 91 HelpLookupManual: TAction;
@@ -152,6 +151,7 @@ type
152 RoutineSynedit: TSynEdit; 151 RoutineSynedit: TSynEdit;
153 WavesTabSheet: TTabSheet; 152 WavesTabSheet: TTabSheet;
154 WaveformCombobox: TComboBox; 153 WaveformCombobox: TComboBox;
154 WaveVisualizer: TPaintBox;
155 WaveVolumeCombobox: TComboBox; 155 WaveVolumeCombobox: TComboBox;
156 SweepDirectionCombobox: TComboBox; 156 SweepDirectionCombobox: TComboBox;
157 DutyCombobox: TComboBox; 157 DutyCombobox: TComboBox;