Commit 45cacb0

Nick committed on
Fix bug where effect code could get set to garbage
commit 45cacb00f7e6ac9d46f7d9d0538fd40ed0ea8faa parent d668f54
1 changed files +5−5
Modifiedtrackergrid.pas +5−5
@@ -94,8 +94,8 @@ type
94 function SelectionsToRect(S1, S2: TSelectionPos): TRect; 94 function SelectionsToRect(S1, S2: TSelectionPos): TRect;
95 function SelectionToRect(Selection: TSelectionPos): TRect; 95 function SelectionToRect(Selection: TSelectionPos): TRect;
96 function MousePosToSelection(X, Y: Integer): TSelectionPos; 96 function MousePosToSelection(X, Y: Integer): TSelectionPos;
97 function KeycodeToHexNumber(Key: Word; out Num: Nibble): Boolean; overload; 97 function KeycodeToHexNumber(Key: Word; var Num: Nibble): Boolean; overload;
98 function KeycodeToHexNumber(Key: Word; out Num: Integer): Boolean; overload; 98 function KeycodeToHexNumber(Key: Word; var Num: Integer): Boolean; overload;
99 99
100 procedure ChangeFontSize; 100 procedure ChangeFontSize;
101 private 101 private
@@ -952,7 +952,7 @@ begin
952 end; 952 end;
953 end; 953 end;
954 954
955 function TTrackerGrid.KeycodeToHexNumber(Key: Word; out Num: Nibble): Boolean; 955 function TTrackerGrid.KeycodeToHexNumber(Key: Word; var Num: Nibble): Boolean;
956 begin 956 begin
957 Result := True; 957 Result := True;
958 958
@@ -977,12 +977,12 @@ begin
977 end; 977 end;
978 end; 978 end;
979 979
980 function TTrackerGrid.KeycodeToHexNumber(Key: Word; out Num: Integer): Boolean; 980 function TTrackerGrid.KeycodeToHexNumber(Key: Word; var Num: Integer): Boolean;
981 var 981 var
982 X: Nibble; 982 X: Nibble;
983 begin 983 begin
984 Result := KeycodeToHexNumber(Key, X); 984 Result := KeycodeToHexNumber(Key, X);
985 Num := X; 985 if Result then Num := X;
986 end; 986 end;
987 987
988 procedure TTrackerGrid.ChangeFontSize; 988 procedure TTrackerGrid.ChangeFontSize;