anchor.diff:  var
     n: integer;
     r: TfpgRect;
  +  rect: TRect;
   begin
     //if FUpdateCount > 0 then
     //  Exit; //==>
  
positive.code:   else
    begin
      fpgStyle.DrawControlFrame(Canvas, r);
      InflateRect(r, -2, -2);
    end;
  
    Canvas.SetClipRect(r);
  
negative.code: {
      fpGUI  -  Free Pascal GUI Toolkit
  
      Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this
      distribution, for details of the copyright.
  
      See the file COPYING.modifiedLGPL, included in this distribution,
  