anchor.diff:      Font: TKMFont;
       FontColor: TColor4;
       constructor Create(aParent: TKMPanel; aWidth, aHeight: Integer; const aCaption: UnicodeString = ''; aImageType: TKMPopUpBGImageType = pubgit_Yellowish);
  -    procedure Paint; override;
  +    procedure PaintPanel(aPaintLayer: Integer); override;
     end;
   
   
  
positive.code: end;
  
  
  procedure TKMScrollPanel.Paint;
  begin
    TKMRenderUI.SetupClipX(Parent.AbsLeft + fClipRect.Left, Parent.AbsLeft + fClipRect.Right + 20*Byte(AllowScrollV and not fScrollBarV.Visible));
    TKMRenderUI.SetupClipY(Parent.AbsTop + fClipRect.Top, Parent.AbsTop + fClipRect.Bottom + 20*Byte(AllowScrollH and not fScrollBarH.Visible));
  
    inherited Paint;
  
    TKMRenderUI.ReleaseClipY;
    TKMRenderUI.ReleaseClipX;
  
negative.code: 
      function AddChild(aChild: TKMControl): Integer; override;
  
      procedure PaintPanel(aPaintLayer: Integer); override;
    end;
  
  
  