kabcorp last typed thing

Author: SuperDisk

src/trackergrid.pas

@@ -112,6 +112,8 @@   TTrackerGrid = class(TCustomControl)
     Performed: TUndoDeque;
     Recall: TRedoStack;
 
+    LastFxParam: array [0..15] of Byte;
+
     FHighlightedRow: Integer;
     FFontSize: Integer;
     procedure SetFontSize(AValue: Integer);
@@ -327,6 +329,8 @@ constructor TTrackerGrid.Create(
   PatternMap: TPatternMap;
   NumColumns: Integer;
   NumRows: Integer);
+var
+  I: Integer;
 begin
   inherited Create(AOwner);
 
@@ -348,6 +352,9 @@ constructor TTrackerGrid.Create(
   Performed := TUndoDeque.Create;
   Recall := TRedoStack.Create;
 
+  for I := Low(LastFxParam) to High(LastFxParam) do
+    LastFxParam[I] := Byte(0);
+
   DoubleBuffered := True;
   ControlStyle := ControlStyle + [csCaptureMouse, csClickEvents, csDoubleClicks];
   Self.Parent := Parent;
@@ -1081,7 +1088,11 @@ procedure TTrackerGrid.InputEffectCode(Key: Word);
       EffectCode := 0;
       EffectParams.Value := 0;
     end
-    else KeycodeToHexNumber(Key, EffectCode);
+    else begin
+      KeycodeToHexNumber(Key, EffectCode);
+      if EffectParams.Value = 0 then
+        EffectParams.Value := LastFxParam[EffectCode];
+    end;
 
   Invalidate;
   EndUndoAction;
@@ -1097,8 +1108,10 @@ procedure TTrackerGrid.InputEffectParams(Key: Word);
       EffectCode := 0;
       EffectParams.Value := 0;
     end
-    else if KeycodeToHexNumber(Key, Temp) then
+    else if KeycodeToHexNumber(Key, Temp) then begin
       EffectParams.Value := ((EffectParams.Value mod $10) * $10) + Temp;
+      LastFxParam[EffectCode] := EffectParams.Value;
+    end;
 
   Invalidate;
   EndUndoAction;