Commit 47019bd

Nick committed on
Fix negative order bug, add home/end key shortcuts
commit 47019bdbb921e3684165e38b9c7b1a2ad51a18b9 parent a68c16d
3 changed files +9−4
Modifiedtracker.lfm +2−2
@@ -61,10 +61,10 @@ object frmTracker: TfrmTracker
61 Height = 521 61 Height = 521
62 Top = 0 62 Top = 0
63 Width = 1034 63 Width = 1034
64 ActivePage = GeneralTabSheet 64 ActivePage = PatternTabSheet
65 Align = alClient 65 Align = alClient
66 ParentFont = False 66 ParentFont = False
67 TabIndex = 0 67 TabIndex = 1
68 TabOrder = 0 68 TabOrder = 0
69 object GeneralTabSheet: TTabSheet 69 object GeneralTabSheet: TTabSheet
70 Caption = 'General' 70 Caption = 'General'
Modifiedtracker.pas +5−2
@@ -1884,9 +1884,12 @@ end;
1884 procedure TfrmTracker.OrderEditStringGridValidateEntry(sender: TObject; aCol, 1884 procedure TfrmTracker.OrderEditStringGridValidateEntry(sender: TObject; aCol,
1885 aRow: Integer; const OldValue: string; var NewValue: String); 1885 aRow: Integer; const OldValue: string; var NewValue: String);
1886 var 1886 var
1887 _: Integer; 1887 X: Integer;
1888 begin 1888 begin
1889 if not TryStrToInt(NewValue, _) then NewValue := OldValue; 1889 if TryStrToInt(NewValue, X) then
1890 NewValue := IntToStr(Abs(X))
1891 else
1892 NewValue := OldValue;
1890 end; 1893 end;
1891 1894
1892 procedure TfrmTracker.PlayCursorActionExecute(Sender: TObject); 1895 procedure TfrmTracker.PlayCursorActionExecute(Sender: TObject);
Modifiedtrackergrid.pas +2−0
@@ -449,6 +449,8 @@ begin
449 VK_NEXT: Inc(Cursor.Y, 16); 449 VK_NEXT: Inc(Cursor.Y, 16);
450 VK_LEFT: DecSelectionPos(Cursor); 450 VK_LEFT: DecSelectionPos(Cursor);
451 VK_RIGHT: IncSelectionPos(Cursor); 451 VK_RIGHT: IncSelectionPos(Cursor);
452 VK_HOME: Cursor.Y := Low(TPattern);
453 VK_END: Cursor.Y := High(TPattern);
452 VK_TAB: begin 454 VK_TAB: begin
453 if ssShift in Shift then begin 455 if ssShift in Shift then begin
454 Dec(Cursor.X); 456 Dec(Cursor.X);