anchor.diff:      procedure SetPeacetime(aValue: Integer);
       procedure SetMaxValue(aValue: Integer);
     protected
  -    procedure ControlMouseMove(Sender: TObject; X, Y: Integer; Shift: TShiftState); override;
  +    procedure ControlMouseMove(Sender: TObject; X, Y: Integer; Shift: TShiftState);
       procedure PaintBar; override;
     public
       constructor Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight: Integer; aFont: TKMFont = fntMini); overload;
  
positive.code:       Childs[I].SetLeftF(Childs[I].fLeft + (aValue - fWidth) / 2);
  
    inherited;
  end;
  
  
  procedure TKMPanel.ControlMouseMove(Sender: TObject; X, Y: Integer; Shift: TShiftState);
  var
    I: Integer;
  begin
    inherited;
    for I := 0 to ChildCount - 1 do
      Childs[I].ControlMouseMove(Sender, X, Y, Shift);
  end;
  
  
  
negative.code:     function GetSelfWidth: Integer; virtual;
      procedure UpdateVisibility; virtual;
      procedure UpdateEnableStatus; virtual;
      procedure ControlMouseDown(Sender: TObject; X,Y: Integer; Shift: TShiftState; Button: TMouseButton); virtual;
      procedure ControlMouseUp(Sender: TObject; X,Y: Integer; Shift: TShiftState; Button: TMouseButton); virtual;
      procedure FocusChanged(aFocused: Boolean); virtual;
  