Commit 470c62f

Nick committed on
More WIP adding more shortcuts for #15
commit 470c62ffe6aff245c312afb2570b314f16b5b39a parent e02d6dd
3 changed files +77−0
Modifiedtracker.lfm +30−0
@@ -5300,5 +5300,35 @@ object frmTracker: TfrmTracker
5300 OnUpdate = DeleteRowForAllActionUpdate 5300 OnUpdate = DeleteRowForAllActionUpdate
5301 ShortCut = 16392 5301 ShortCut = 16392
5302 end 5302 end
5303 object GotoGeneralAction: TAction
5304 Caption = 'GotoGeneralAction'
5305 OnExecute = GotoGeneralActionExecute
5306 ShortCut = 32839
5307 end
5308 object GotoPatternsAction: TAction
5309 Caption = 'GotoPatternsAction'
5310 OnExecute = GotoPatternsActionExecute
5311 ShortCut = 32848
5312 end
5313 object GotoInstrumentsAction: TAction
5314 Caption = 'GotoInstrumentsAction'
5315 OnExecute = GotoInstrumentsActionExecute
5316 ShortCut = 32841
5317 end
5318 object GotoWavesAction: TAction
5319 Caption = 'GotoWavesAction'
5320 OnExecute = GotoWavesActionExecute
5321 ShortCut = 32855
5322 end
5323 object GotoCommentsAction: TAction
5324 Caption = 'GotoCommentsAction'
5325 OnExecute = GotoCommentsActionExecute
5326 ShortCut = 32835
5327 end
5328 object GotoRoutinesAction: TAction
5329 Caption = 'GotoRoutinesAction'
5330 OnExecute = GotoRoutinesActionExecute
5331 ShortCut = 32850
5332 end
5303 end 5333 end
5304 end 5334 end
Modifiedtracker.pas +42−0
@@ -16,6 +16,12 @@ type
16 { TfrmTracker } 16 { TfrmTracker }
17 17
18 TfrmTracker = class(TForm) 18 TfrmTracker = class(TForm)
19 GotoGeneralAction: TAction;
20 GotoPatternsAction: TAction;
21 GotoInstrumentsAction: TAction;
22 GotoWavesAction: TAction;
23 GotoCommentsAction: TAction;
24 GotoRoutinesAction: TAction;
19 DeleteRowAction: TAction; 25 DeleteRowAction: TAction;
20 DeleteRowForAllAction: TAction; 26 DeleteRowForAllAction: TAction;
21 InsertRowForAllAction: TAction; 27 InsertRowForAllAction: TAction;
@@ -242,6 +248,12 @@ type
242 procedure FileSaveAs1BeforeExecute(Sender: TObject); 248 procedure FileSaveAs1BeforeExecute(Sender: TObject);
243 procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); 249 procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
244 procedure FormDropFiles(Sender: TObject; const FileNames: array of String); 250 procedure FormDropFiles(Sender: TObject; const FileNames: array of String);
251 procedure GotoCommentsActionExecute(Sender: TObject);
252 procedure GotoGeneralActionExecute(Sender: TObject);
253 procedure GotoInstrumentsActionExecute(Sender: TObject);
254 procedure GotoPatternsActionExecute(Sender: TObject);
255 procedure GotoRoutinesActionExecute(Sender: TObject);
256 procedure GotoWavesActionExecute(Sender: TObject);
245 procedure HexWaveEditEditingDone(Sender: TObject); 257 procedure HexWaveEditEditingDone(Sender: TObject);
246 procedure InsertRowActionExecute(Sender: TObject); 258 procedure InsertRowActionExecute(Sender: TObject);
247 procedure InsertRowActionUpdate(Sender: TObject); 259 procedure InsertRowActionUpdate(Sender: TObject);
@@ -1514,6 +1526,36 @@ begin
1514 end; 1526 end;
1515 end; 1527 end;
1516 1528
1529 procedure TfrmTracker.GotoGeneralActionExecute(Sender: TObject);
1530 begin
1531 PageControl1.TabIndex := 0;
1532 end;
1533
1534 procedure TfrmTracker.GotoPatternsActionExecute(Sender: TObject);
1535 begin
1536 PageControl1.TabIndex := 1;
1537 end;
1538
1539 procedure TfrmTracker.GotoInstrumentsActionExecute(Sender: TObject);
1540 begin
1541 PageControl1.TabIndex := 2;
1542 end;
1543
1544 procedure TfrmTracker.GotoWavesActionExecute(Sender: TObject);
1545 begin
1546 PageControl1.TabIndex := 3;
1547 end;
1548
1549 procedure TfrmTracker.GotoCommentsActionExecute(Sender: TObject);
1550 begin
1551 PageControl1.TabIndex := 4;
1552 end;
1553
1554 procedure TfrmTracker.GotoRoutinesActionExecute(Sender: TObject);
1555 begin
1556 PageControl1.TabIndex := 5;
1557 end;
1558
1517 procedure TfrmTracker.HexWaveEditEditingDone(Sender: TObject); 1559 procedure TfrmTracker.HexWaveEditEditingDone(Sender: TObject);
1518 var 1560 var
1519 S: String; 1561 S: String;
Modifiedtrackergrid.pas +5−0
@@ -356,8 +356,13 @@ begin
356 case Key of 356 case Key of
357 VK_UP: Dec(Cursor.Y); 357 VK_UP: Dec(Cursor.Y);
358 VK_DOWN: Inc(Cursor.Y); 358 VK_DOWN: Inc(Cursor.Y);
359 VK_PRIOR: Dec(Cursor.Y, 16);
360 VK_NEXT: Inc(Cursor.Y, 16);
359 VK_LEFT: DecSelectionPos(Cursor); 361 VK_LEFT: DecSelectionPos(Cursor);
360 VK_RIGHT: IncSelectionPos(Cursor); 362 VK_RIGHT: IncSelectionPos(Cursor);
363 {VK_TAB: begin
364 if ssShift in Shift then Dec(Cursor.X) else Inc(Cursor.X);
365 end}
361 else 366 else
362 if (not (ssCtrl in Shift)) and (not (ssShift in Shift)) then 367 if (not (ssCtrl in Shift)) and (not (ssShift in Shift)) then
363 case Cursor.SelectedPart of 368 case Cursor.SelectedPart of