anchor.diff: -unit KM_Controls;
  +﻿unit KM_Controls;
   {$I KaM_Remake.inc}
   interface
   uses
  
positive.code:   fVisible      := True;
    Tag           := 0;
    fHint         := '';
    fPaintLayer   := aPaintLayer;
    fControlIndex := -1;
    AutoFocusable := True;
  
negative.code:   NewPos := Position;
  
    if WheelDelta <> 0 then
      NewPos := EnsureRange(NewPos - Step*fMouseWheelStep*Math.Sign(WheelDelta), fMinValue, fMaxValue);
  
    if NewPos <> Position then
    begin
  