Commit 2e4d99e

Nick Faro committed on
Automatically select newly created order rows
commit 2e4d99ed59df5f5cf0dfe91dfb1c2c548b04fd8b parent 2042c07
1 changed files +6−0
Modifiedsrc/tracker.pas +6−0
@@ -2318,6 +2318,8 @@ begin
2318 for X := 0 to 3 do 2318 for X := 0 to 3 do
2319 Song.Patterns.GetOrCreateNew(Highest+X); 2319 Song.Patterns.GetOrCreateNew(Highest+X);
2320 2320
2321 OrderEditStringGrid.Row := OrderEditStringGrid.Row+1;
2322
2321 ReloadPatterns; 2323 ReloadPatterns;
2322 end; 2324 end;
2323 2325
@@ -2326,6 +2328,8 @@ begin
2326 with OrderEditStringGrid do 2328 with OrderEditStringGrid do
2327 InsertRowWithValues(Row+1, ['', '0', '0', '0', '0']); 2329 InsertRowWithValues(Row+1, ['', '0', '0', '0', '0']);
2328 2330
2331 OrderEditStringGrid.Row := OrderEditStringGrid.Row+1;
2332
2329 ReloadPatterns; 2333 ReloadPatterns;
2330 end; 2334 end;
2331 2335
@@ -2366,6 +2370,8 @@ begin
2366 for X := 0 to 3 do 2370 for X := 0 to 3 do
2367 Song.Patterns.GetOrCreateNew(Highest+X)^ := 2371 Song.Patterns.GetOrCreateNew(Highest+X)^ :=
2368 Song.Patterns.KeyData[StrToInt(Rows[Row][X+1])]^; 2372 Song.Patterns.KeyData[StrToInt(Rows[Row][X+1])]^;
2373
2374 Row := Row+1;
2369 end; 2375 end;
2370 2376
2371 ReloadPatterns; 2377 ReloadPatterns;