Commit 6065fa1

Nick Faro committed on
Manually set size of subpattern box
commit 6065fa1837805d6a3761878fda887bddf80ac532 parent 4a34d7a
2 changed files +21−17
Modifiedtracker.lfm +16−16
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 502 2 Left = 1192
3 Height = 857 3 Height = 857
4 Top = 100 4 Top = 177
5 Width = 1318 5 Width = 1318
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
@@ -317,7 +317,7 @@ object frmTracker: TfrmTracker
317 Left = 0 317 Left = 0
318 Height = 697 318 Height = 697
319 Top = 0 319 Top = 0
320 Width = 803 320 Width = 952
321 Align = alClient 321 Align = alClient
322 AutoSize = True 322 AutoSize = True
323 BevelOuter = bvNone 323 BevelOuter = bvNone
@@ -570,9 +570,9 @@ object frmTracker: TfrmTracker
570 end 570 end
571 end 571 end
572 object EnvelopeGroupBox: TGroupBox 572 object EnvelopeGroupBox: TGroupBox
573 Left = 7 573 Left = 301
574 Height = 136 574 Height = 136
575 Top = 294 575 Top = 7
576 Width = 582 576 Width = 582
577 Anchors = [] 577 Anchors = []
578 BorderSpacing.Left = 7 578 BorderSpacing.Left = 7
@@ -673,7 +673,7 @@ object frmTracker: TfrmTracker
673 object SquareGroupBox: TGroupBox 673 object SquareGroupBox: TGroupBox
674 Left = 7 674 Left = 7
675 Height = 169 675 Height = 169
676 Top = 444 676 Top = 294
677 Width = 319 677 Width = 319
678 Anchors = [] 678 Anchors = []
679 BorderSpacing.Left = 7 679 BorderSpacing.Left = 7
@@ -800,7 +800,7 @@ object frmTracker: TfrmTracker
800 object WaveGroupBox: TGroupBox 800 object WaveGroupBox: TGroupBox
801 Left = 340 801 Left = 340
802 Height = 169 802 Height = 169
803 Top = 444 803 Top = 294
804 Width = 297 804 Width = 297
805 Anchors = [] 805 Anchors = []
806 BorderSpacing.Left = 7 806 BorderSpacing.Left = 7
@@ -905,9 +905,9 @@ object frmTracker: TfrmTracker
905 end 905 end
906 end 906 end
907 object NoiseGroupBox: TGroupBox 907 object NoiseGroupBox: TGroupBox
908 Left = 7 908 Left = 651
909 Height = 59 909 Height = 59
910 Top = 627 910 Top = 294
911 Width = 237 911 Width = 237
912 Anchors = [] 912 Anchors = []
913 BorderSpacing.Left = 7 913 BorderSpacing.Left = 7
@@ -933,23 +933,23 @@ object frmTracker: TfrmTracker
933 end 933 end
934 end 934 end
935 end 935 end
936 object GroupBox1: TGroupBox 936 object SubpatternGroupBox: TGroupBox
937 Left = 803 937 Left = 952
938 Height = 690 938 Height = 690
939 Top = 7 939 Top = 7
940 Width = 309 940 Width = 160
941 Align = alRight 941 Align = alRight
942 Anchors = [] 942 Anchors = []
943 BorderSpacing.Top = 7 943 BorderSpacing.Top = 7
944 Caption = 'Subpattern' 944 Caption = 'Subpattern'
945 ClientHeight = 670 945 ClientHeight = 670
946 ClientWidth = 305 946 ClientWidth = 156
947 TabOrder = 1 947 TabOrder = 1
948 object ScrollBox2: TScrollBox 948 object ScrollBox2: TScrollBox
949 Left = 0 949 Left = 0
950 Height = 670 950 Height = 670
951 Top = 0 951 Top = 0
952 Width = 305 952 Width = 156
953 HorzScrollBar.Increment = 3 953 HorzScrollBar.Increment = 3
954 HorzScrollBar.Page = 32 954 HorzScrollBar.Page = 32
955 HorzScrollBar.Smooth = True 955 HorzScrollBar.Smooth = True
@@ -961,12 +961,12 @@ object frmTracker: TfrmTracker
961 Align = alClient 961 Align = alClient
962 BorderStyle = bsNone 962 BorderStyle = bsNone
963 ClientHeight = 670 963 ClientHeight = 670
964 ClientWidth = 305 964 ClientWidth = 156
965 TabOrder = 0 965 TabOrder = 0
966 OnMouseWheelDown = ScrollBox1MouseWheelDown 966 OnMouseWheelDown = ScrollBox1MouseWheelDown
967 OnMouseWheelUp = ScrollBox1MouseWheelUp 967 OnMouseWheelUp = ScrollBox1MouseWheelUp
968 object RowNumberStringGrid1: TStringGrid 968 object RowNumberStringGrid1: TStringGrid
969 Left = 273 969 Left = 124
970 Height = 670 970 Height = 670
971 Top = 0 971 Top = 0
972 Width = 32 972 Width = 32
Modifiedtracker.pas +5−1
@@ -27,7 +27,7 @@ type
27 TfrmTracker = class(TForm) 27 TfrmTracker = class(TForm)
28 EnableSubpatternCheckbox: TCheckBox; 28 EnableSubpatternCheckbox: TCheckBox;
29 DecreaseOctaveAction: TAction; 29 DecreaseOctaveAction: TAction;
30 GroupBox1: TGroupBox; 30 SubpatternGroupBox: TGroupBox;
31 RowNumberStringGrid1: TStringGrid; 31 RowNumberStringGrid1: TStringGrid;
32 ScrollBox2: TScrollBox; 32 ScrollBox2: TScrollBox;
33 IncreaseOctaveAction: TAction; 33 IncreaseOctaveAction: TAction;
@@ -1135,6 +1135,8 @@ begin
1135 RowNumberStringGrid1.DefaultRowHeight := TrackerGrid.RowHeight; 1135 RowNumberStringGrid1.DefaultRowHeight := TrackerGrid.RowHeight;
1136 RowNumberStringGrid1.DisabledFontColor := RowNumberStringGrid1.Font.Color; 1136 RowNumberStringGrid1.DisabledFontColor := RowNumberStringGrid1.Font.Color;
1137 1137
1138 SubpatternGroupBox.Width := RowNumberStringGrid1.Width + TableGrid.Width + 10;
1139
1138 // Fix the size of the channel headers 1140 // Fix the size of the channel headers
1139 for I := 1 to HeaderControl1.Sections.Count-1 do 1141 for I := 1 to HeaderControl1.Sections.Count-1 do
1140 HeaderControl1.Sections.Items[I].Width := TrackerGrid.ColumnWidth; 1142 HeaderControl1.Sections.Items[I].Width := TrackerGrid.ColumnWidth;
@@ -2199,6 +2201,8 @@ begin
2199 RowNumberStringGrid.DefaultRowHeight := TrackerGrid.RowHeight; 2201 RowNumberStringGrid.DefaultRowHeight := TrackerGrid.RowHeight;
2200 RowNumberStringGrid1.DefaultRowHeight := TrackerGrid.RowHeight; 2202 RowNumberStringGrid1.DefaultRowHeight := TrackerGrid.RowHeight;
2201 2203
2204 SubpatternGroupBox.Width := RowNumberStringGrid1.Width + TableGrid.Width + 10;
2205
2202 ScopesOn := TrackerSettings.UseScopes; 2206 ScopesOn := TrackerSettings.UseScopes;
2203 2207
2204 OscilloscopeUpdateTimer.Enabled := ScopesOn; 2208 OscilloscopeUpdateTimer.Enabled := ScopesOn;