Commit 1cece42

Nick committed on
Adding hack to allow correct scaling of tracker grid on startup
commit 1cece42371df8566d7e5c9210ba11a7bb2a58155 parent cbee40c
2 changed files +11−3
Modifiedtracker.lfm +3−3
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 2989 2 Left = 796
3 Height = 1250 3 Height = 1250
4 Top = 496 4 Top = 758
5 Width = 2067 5 Width = 2067
6 Caption = 'hUGETracker' 6 Caption = 'hUGETracker'
7 ClientHeight = 1216 7 ClientHeight = 1216
@@ -13,6 +13,7 @@ object frmTracker: TfrmTracker
13 OnCreate = FormCreate 13 OnCreate = FormCreate
14 OnKeyDown = FormKeyDown 14 OnKeyDown = FormKeyDown
15 OnKeyUp = FormKeyUp 15 OnKeyUp = FormKeyUp
16 OnShow = FormShow
16 ShowHint = True 17 ShowHint = True
17 LCLVersion = '2.0.6.0' 18 LCLVersion = '2.0.6.0'
18 object TreeView1: TTreeView 19 object TreeView1: TTreeView
@@ -1930,7 +1931,6 @@ object frmTracker: TfrmTracker
1930 end 1931 end
1931 object DebugShiteButton: TMenuItem 1932 object DebugShiteButton: TMenuItem
1932 Caption = 'Debug shite' 1933 Caption = 'Debug shite'
1933 Visible = False
1934 OnClick = DebugShiteButtonClick 1934 OnClick = DebugShiteButtonClick
1935 end 1935 end
1936 end 1936 end
Modifiedtracker.pas +8−0
@@ -177,6 +177,7 @@ type
177 TrackerGrid: TTrackerGrid; 177 TrackerGrid: TTrackerGrid;
178 procedure Button1Click(Sender: TObject); 178 procedure Button1Click(Sender: TObject);
179 procedure EditDelete1Execute(Sender: TObject); 179 procedure EditDelete1Execute(Sender: TObject);
180 procedure FormShow(Sender: TObject);
180 procedure InstrumentComboBoxChange(Sender: TObject); 181 procedure InstrumentComboBoxChange(Sender: TObject);
181 procedure CopyActionExecute(Sender: TObject); 182 procedure CopyActionExecute(Sender: TObject);
182 procedure CutActionExecute(Sender: TObject); 183 procedure CutActionExecute(Sender: TObject);
@@ -1137,6 +1138,13 @@ begin
1137 1138
1138 end; 1139 end;
1139 1140
1141 procedure TfrmTracker.FormShow(Sender: TObject);
1142 begin
1143 // HACK: This needs to be done due to a scaling bug in the LCL.
1144 RecreateTrackerGrid;
1145 ReloadPatterns
1146 end;
1147
1140 procedure TfrmTracker.Button1Click(Sender: TObject); 1148 procedure TfrmTracker.Button1Click(Sender: TObject);
1141 begin 1149 begin
1142 PreviewC5; 1150 PreviewC5;