anchor.diff:    Canvas.ClearClipRect;
   
     r.SetRect(0, 0, Width, Height);
  +  border := fpgStyle.GetButtonBorders;
   
     lBtnFlags := [];
     if FDown then
  
positive.code: 
    if FFocused and (not FEmbedded) then
    begin
      InflateRect(r, -3, -3);
      fpgStyle.DrawFocusRect(Canvas, r);
    end;
  
  
negative.code:   if AllowMultiLineText and (FImageLayout = ilImageLeft) then
    begin
      r.SetRect(0, 0, Width, Height);
      InflateRect(r, -border.Left, -border.Top);   { same as focus rectangle }
      if FShowImage and Assigned(FImage) then
      begin
        ix := FImageMargin + FImage.Width;
  