Commit 44d6246

Nick Faro committed on
Fix invalid casting bug
commit 44d6246586b1db86e524e2b130103cc2597a1948 parent d190021
2 changed files +6−6
Modifiedtracker.lfm +4−4
@@ -1,7 +1,7 @@
1 object frmTracker: TfrmTracker 1 object frmTracker: TfrmTracker
2 Left = 1658 2 Left = 1359
3 Height = 857 3 Height = 857
4 Top = 153 4 Top = 195
5 Width = 1318 5 Width = 1318
6 AllowDropFiles = True 6 AllowDropFiles = True
7 Caption = 'hUGETracker' 7 Caption = 'hUGETracker'
@@ -62,10 +62,10 @@ object frmTracker: TfrmTracker
62 Height = 725 62 Height = 725
63 Top = 0 63 Top = 0
64 Width = 1120 64 Width = 1120
65 ActivePage = GeneralTabSheet 65 ActivePage = InstrumentTabSheet
66 Align = alClient 66 Align = alClient
67 ParentFont = False 67 ParentFont = False
68 TabIndex = 0 68 TabIndex = 2
69 TabOrder = 0 69 TabOrder = 0
70 object GeneralTabSheet: TTabSheet 70 object GeneralTabSheet: TTabSheet
71 Caption = 'General' 71 Caption = 'General'
Modifiedtracker.pas +2−2
@@ -1935,7 +1935,7 @@ end;
1935 procedure TfrmTracker.ScrollBox1MouseWheelDown(Sender: TObject; Shift: TShiftState; 1935 procedure TfrmTracker.ScrollBox1MouseWheelDown(Sender: TObject; Shift: TShiftState;
1936 MousePos: TPoint; var Handled: Boolean); 1936 MousePos: TPoint; var Handled: Boolean);
1937 begin 1937 begin
1938 if ssCtrl in Shift then begin 1938 if (ActiveControl is TTrackerGrid) and (ssCtrl in Shift) then begin
1939 Handled := True; 1939 Handled := True;
1940 if ssShift in Shift then 1940 if ssShift in Shift then
1941 (ActiveControl as TTrackerGrid).IncrementSelection(-12, -10, -0, -0, -$10) 1941 (ActiveControl as TTrackerGrid).IncrementSelection(-12, -10, -0, -0, -$10)
@@ -1949,7 +1949,7 @@ end;
1949 procedure TfrmTracker.ScrollBox1MouseWheelUp(Sender: TObject; Shift: TShiftState; 1949 procedure TfrmTracker.ScrollBox1MouseWheelUp(Sender: TObject; Shift: TShiftState;
1950 MousePos: TPoint; var Handled: Boolean); 1950 MousePos: TPoint; var Handled: Boolean);
1951 begin 1951 begin
1952 if ssCtrl in Shift then begin 1952 if (ActiveControl is TTrackerGrid) and (ssCtrl in Shift) then begin
1953 Handled := True; 1953 Handled := True;
1954 if ssShift in Shift then 1954 if ssShift in Shift then
1955 (ActiveControl as TTrackerGrid).IncrementSelection(12, 10, 0, 0, $10) 1955 (ActiveControl as TTrackerGrid).IncrementSelection(12, 10, 0, 0, $10)