anchor.diff:    private
       fMasterControl: TKMMasterControl;
       procedure Init;
  +    procedure Paint; reintroduce;
     protected
       //Do not propogate SetEnabled and SetVisible because that would show/enable ALL childs childs
       //e.g. scrollbar on a listbox
  
positive.code:     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;
    end;
  
  
  
negative.code: end;
  
  
  procedure TKMPanel.Paint;
  begin
    inherited Paint;
  end;
  
  
  {Panel Paint means to Paint all its childs}
  procedure TKMPanel.PaintPanel(aPaintLayer: Integer);
  begin
  