anchor.diff:  var
     tx, ty, ix, iy: integer;
     r: TfpgRect;
  +  border: TRect;
     offset: TPoint;
     lBtnFlags: TfpgButtonFlags;
     clr: TfpgColor;
  
positive.code:     if FDown then
       OffsetRect(r, offset.x, offset.y);
  
      lTextFlags := [txtHCenter, txtVCenter{, txtWrap}];
      if not Enabled then
        lTextFlags += [txtDisabled];
      Canvas.DrawText(r, Text, lTextFlags);  { DrawText does use fpgStyle }
  
negative.code: 
    if FFocused and (not FEmbedded) then
    begin
      InflateRect(r, -border.Left, -border.Top);
      fpgStyle.DrawFocusRect(Canvas, r);
    end;
  
  