anchor.diff:    begin
       clr := fpgColorToRGB(clButtonFace);
       fpgSetNamedColor(clButtonface, FBackgroundColor);
  -    Canvas.DrawButtonFace(r, lBtnFlags);
  +    fpgStyle.DrawButtonFace(Canvas, r, lBtnFlags);
       fpgSetNamedColor(clButtonface, clr);
     end
     else
  -    Canvas.DrawButtonFace(r, lBtnFlags);
  +    fpgStyle.DrawButtonFace(Canvas, r, lBtnFlags);
   
     if FFocused and (not FEmbedded) then
     begin
       InflateRect(r, -3, -3);
  -    Canvas.DrawFocusRect(r);
  +    fpgStyle.DrawFocusRect(Canvas, r);
     end;
   
     Canvas.SetTextColor(FTextColor);
  
positive.code:   else
      offset := Point(0, 0);
  
    CalculatePositions (ix, iy, tx, ty);
  
    if FShowImage and Assigned(FImage) then
    begin
  
negative.code:     lTextFlags := [txtHCenter, txtVCenter{, txtWrap}];
      if not Enabled then
        lTextFlags += [txtDisabled];
      Canvas.DrawText(r, Text, lTextFlags);  { DrawText does use fpgStyle }
    end
    else
      fpgStyle.DrawString(Canvas, tx+offset.x, ty+offset.y, Text, Enabled);
  