kabcorp last typed thing

Modifiedsrc/trackergrid.pas +15−2

     Performed: TUndoDeque;
     Recall: TRedoStack;
+    LastFxParam: array [0..15] of Byte;
     FHighlightedRow: Integer;
     FFontSize: Integer;
     procedure SetFontSize(AValue: Integer);
   PatternMap: TPatternMap;
   NumColumns: Integer;
   NumRows: Integer);
+var
+  I: Integer;
 begin
   inherited Create(AOwner);
   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;
       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;
       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;

Commit `b5e53cd`