Commit 7e82570

Nick committed on
Make noise macro box invalidate
commit 7e82570a1e1ee5df950a4b793decda0efc1ec799 parent b4979c2
2 changed files +12−11
Modifiedtracker.lfm +11−11
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 402 2 Left = 411
3 Height = 806 3 Height = 806
4 Top = 115 4 Top = 117
5 Width = 1270 5 Width = 1270
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
@@ -20,7 +20,7 @@ object frmTracker: TfrmTracker
20 LCLVersion = '2.0.9.0' 20 LCLVersion = '2.0.9.0'
21 object TreeView1: TTreeView 21 object TreeView1: TTreeView
22 Left = 0 22 Left = 0
23 Height = 669 23 Height = 674
24 Top = 89 24 Top = 89
25 Width = 193 25 Width = 193
26 Align = alLeft 26 Align = alLeft
@@ -41,24 +41,24 @@ object frmTracker: TfrmTracker
41 end 41 end
42 object Splitter1: TSplitter 42 object Splitter1: TSplitter
43 Left = 193 43 Left = 193
44 Height = 669 44 Height = 674
45 Top = 89 45 Top = 89
46 Width = 5 46 Width = 5
47 end 47 end
48 object Panel1: TPanel 48 object Panel1: TPanel
49 Left = 198 49 Left = 198
50 Height = 669 50 Height = 674
51 Top = 89 51 Top = 89
52 Width = 1072 52 Width = 1072
53 Align = alClient 53 Align = alClient
54 BevelOuter = bvNone 54 BevelOuter = bvNone
55 ClientHeight = 669 55 ClientHeight = 674
56 ClientWidth = 1072 56 ClientWidth = 1072
57 ParentFont = False 57 ParentFont = False
58 TabOrder = 2 58 TabOrder = 2
59 object PageControl1: TPageControl 59 object PageControl1: TPageControl
60 Left = 0 60 Left = 0
61 Height = 669 61 Height = 674
62 Top = 0 62 Top = 0
63 Width = 1072 63 Width = 1072
64 ActivePage = InstrumentTabSheet 64 ActivePage = InstrumentTabSheet
@@ -289,7 +289,7 @@ object frmTracker: TfrmTracker
289 end 289 end
290 object InstrumentTabSheet: TTabSheet 290 object InstrumentTabSheet: TTabSheet
291 Caption = 'Instruments' 291 Caption = 'Instruments'
292 ClientHeight = 641 292 ClientHeight = 646
293 ClientWidth = 1064 293 ClientWidth = 1064
294 ParentFont = False 294 ParentFont = False
295 object PaintBox1: TPaintBox 295 object PaintBox1: TPaintBox
@@ -297,7 +297,7 @@ 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 = 149 300 Height = 154
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 = 492 302 Top = 492
303 Width = 1064 303 Width = 1064
@@ -1656,8 +1656,8 @@ object frmTracker: TfrmTracker
1656 end 1656 end
1657 object StatusBar1: TStatusBar 1657 object StatusBar1: TStatusBar
1658 Left = 0 1658 Left = 0
1659 Height = 28 1659 Height = 23
1660 Top = 758 1660 Top = 763
1661 Width = 1270 1661 Width = 1270
1662 AutoHint = True 1662 AutoHint = True
1663 Panels = < 1663 Panels = <
Modifiedtracker.pas +1−0
@@ -1078,6 +1078,7 @@ begin
1078 1078
1079 WavePaintbox.Invalidate; 1079 WavePaintbox.Invalidate;
1080 EnvelopePaintBox.Invalidate; 1080 EnvelopePaintBox.Invalidate;
1081 NoiseMacroPaintbox.Invalidate;
1081 end; 1082 end;
1082 1083
1083 procedure TfrmTracker.ChangeToSquare; 1084 procedure TfrmTracker.ChangeToSquare;