anchor.diff:      property OnChange: TNotifyEvent read fOnChange write fOnChange;
       procedure MouseDown(X,Y: Integer; Shift: TShiftState; Button: TMouseButton); override;
       procedure MouseMove(X,Y: Integer; Shift: TShiftState); override;
  +    procedure MouseWheel(Sender: TObject; WheelDelta: Integer; var aHandled: Boolean); override;
       procedure Paint; override;
     end;
   
  
positive.code: end;
  
  
  procedure TKMTrackBar.Paint;
  const //Text color for disabled and enabled control
    TextColor: array [Boolean] of TColor4 = ($FF888888, $FFFFFFFF);
  
negative.code:     fFont: TKMFont;
      procedure SetCaption(const aValue: UnicodeString);
      procedure SetPosition(aValue: Word);
    protected
      function DoHandleMouseWheelByDefault: Boolean; override;
    public
      Step: Byte; //Change Position by this amount each time
      ThumbText: UnicodeString;
  