anchor.diff:  end;
   
   
  +procedure TKMScrollPanel.MouseWheel(Sender: TObject; WheelDelta: Integer; var aHandled: Boolean);
  +begin
  +  if saVertical in fScrollAxisSet then
  +    fScrollBarV.MouseWheel(Sender, WheelDelta, aHandled)
  +  else if saHorizontal in fScrollAxisSet then
  +    fScrollBarH.MouseWheel(Sender, WheelDelta, aHandled)
  +  else
  +    inherited;
  +end;
  +
  +
   procedure TKMScrollPanel.ScrollChanged(Sender: TObject);
   var
     OldValue: Integer;
  
positive.code:     property ScrollV: TKMScrollBar read fScrollBarV;
  
      function AddChild(aChild: TKMControl): Integer; override;
  
      procedure PaintPanel(aPaintLayer: Integer); override;
    end;
  
negative.code:   if Assigned(fOnMouseWheel) then
      fOnMouseWheel(Self, WheelDelta, aHandled)
    else
    if fParent <> nil then
    begin
      if DoHandleMouseWheelByDefault then
        fParent.MouseWheel(Sender, WheelDelta, aHandled)
      else
        aHandled := False;
    end 
    else
      aHandled := False;
  end;
  
  
  