anchor.diff:      procedure MouseMove(X,Y: Integer; Shift: TShiftState); override;
       procedure MouseWheel(Sender: TObject; WheelDelta: Integer; var aHandled: Boolean); override;
       property OnChange: TNotifyEvent read fOnChange write fOnChange;
  -    procedure Paint; override;
  +    procedure PaintPanel(aPaintLayer: Integer); override;
     end;
   
   
  
positive.code: end;
  
  
  {Panel Paint means to Paint all its childs}
  procedure TKMPanel.PaintPanel(aPaintLayer: Integer);
  begin
  
negative.code: end;
  
  
  procedure TKMScrollBar.PaintPanel(aPaintLayer: Integer);
  var
    ButtonState: TKMButtonStateSet;
  begin
  