Commit 0b69205

Nick committed on
reorganize code in attempt to prevent the resetting of order grid to line 1 bug
commit 0b692053a78a414de8b0adc3237b98dbbdd629af parent 786fed2
3 changed files +9−10
Modifiedtracker.lfm +4−4
@@ -61,15 +61,15 @@ object frmTracker: TfrmTracker
61 Height = 521 61 Height = 521
62 Top = 0 62 Top = 0
63 Width = 1034 63 Width = 1034
64 ActivePage = InstrumentTabSheet 64 ActivePage = GeneralTabSheet
65 Align = alClient 65 Align = alClient
66 ParentFont = False 66 ParentFont = False
67 TabIndex = 2 67 TabIndex = 0
68 TabOrder = 0 68 TabOrder = 0
69 object GeneralTabSheet: TTabSheet 69 object GeneralTabSheet: TTabSheet
70 Caption = 'General' 70 Caption = 'General'
71 ClientHeight = 0 71 ClientHeight = 493
72 ClientWidth = 0 72 ClientWidth = 1026
73 ParentFont = False 73 ParentFont = False
74 object SongInformationGroupbox: TGroupBox 74 object SongInformationGroupbox: TGroupBox
75 Left = 8 75 Left = 8
Modifiedtracker.pas +5−6
@@ -1060,15 +1060,15 @@ end;
1060 1060
1061 procedure TfrmTracker.HaltPlayback; 1061 procedure TfrmTracker.HaltPlayback;
1062 begin 1062 begin
1063 Playing := False;
1064
1065 TrackerGrid.HighlightedRow := -1;
1066 ToolButton2.ImageIndex := 74;
1067
1068 LockPlayback; 1063 LockPlayback;
1069 GetROMReady('halt.gb'); 1064 GetROMReady('halt.gb');
1070 ParseSymFile('halt.sym'); 1065 ParseSymFile('halt.sym');
1071 UnlockPlayback; 1066 UnlockPlayback;
1067
1068 Playing := False;
1069
1070 TrackerGrid.HighlightedRow := -1;
1071 ToolButton2.ImageIndex := 74;
1072 end; 1072 end;
1073 1073
1074 procedure TfrmTracker.FDCallback; 1074 procedure TfrmTracker.FDCallback;
@@ -2044,7 +2044,6 @@ end;
2044 2044
2045 procedure TfrmTracker.StopActionExecute(Sender: TObject); 2045 procedure TfrmTracker.StopActionExecute(Sender: TObject);
2046 begin 2046 begin
2047 TrackerGrid.HighlightedRow := -1;
2048 HaltPlayback; 2047 HaltPlayback;
2049 end; 2048 end;
2050 2049