Commit 0ed4be3

Nick committed on
Fix out of bounds with del key on order editor
commit 0ed4be327f579876cd5e8886554a816f2ea3063a parent bacd1b8
2 changed files +8−4
Modifiedtracker.lfm +4−4
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 470 2 Left = 877
3 Height = 1250 3 Height = 1250
4 Top = 291 4 Top = 207
5 Width = 2067 5 Width = 2067
6 Caption = 'hUGETracker' 6 Caption = 'hUGETracker'
7 ClientHeight = 1216 7 ClientHeight = 1216
@@ -58,10 +58,10 @@ object frmTracker: TfrmTracker
58 Height = 820 58 Height = 820
59 Top = 0 59 Top = 0
60 Width = 1720 60 Width = 1720
61 ActivePage = GeneralTabSheet 61 ActivePage = PatternTabSheet
62 Align = alClient 62 Align = alClient
63 ParentFont = False 63 ParentFont = False
64 TabIndex = 0 64 TabIndex = 1
65 TabOrder = 0 65 TabOrder = 0
66 object GeneralTabSheet: TTabSheet 66 object GeneralTabSheet: TTabSheet
67 Caption = 'General' 67 Caption = 'General'
Modifiedtracker.pas +4−0
@@ -1491,6 +1491,10 @@ end;
1491 procedure TfrmTracker.OrderEditStringGridColRowDeleted(Sender: TObject; 1491 procedure TfrmTracker.OrderEditStringGridColRowDeleted(Sender: TObject;
1492 IsColumn: Boolean; sIndex, tIndex: Integer); 1492 IsColumn: Boolean; sIndex, tIndex: Integer);
1493 begin 1493 begin
1494 if OrderEditStringGrid.RowCount = 1 then
1495 with OrderEditStringGrid do
1496 InsertRowWithValues(Row, ['', '0', '0', '0', '0']);
1497
1494 OrderEditStringGrid.Row := OrderEditStringGrid.Row-1; 1498 OrderEditStringGrid.Row := OrderEditStringGrid.Row-1;
1495 ReloadPatterns; 1499 ReloadPatterns;
1496 end; 1500 end;