anchor.diff:      Canvas.DrawText(r, Text, lTextFlags);
     end
     else
  -    fpgStyle.DrawString(Canvas, tx+pofs, ty+pofs, Text, Enabled);
  +    fpgStyle.DrawString(Canvas, tx+offset.x, ty+offset.y, Text, Enabled);
   end;
   
   procedure TfpgBaseButton.DoPush;
  
positive.code: var
    tx, ty, ix, iy: integer;
    r: TfpgRect;
    pofs: integer;
    lBtnFlags: TFButtonFlags;
    clr: TfpgColor;
    img: TfpgImage;
  
negative.code:   Canvas.SetFont(Font);
  
    if FDown then
      offset := fpgStyle.GetButtonShift
    else
      offset := Point(0, 0);
  
    CalculatePositions (ix, iy, tx, ty);
  
    if FShowImage and Assigned(FImage) then
    begin
      if Enabled then
        Canvas.DrawImage(ix+offset.x, iy+offset.y, FImage)
      else
      begin
        img := FImage.CreateDisabledImage;
        Canvas.DrawImage(ix+offset.x, iy+offset.y, img);
        img.Free;
      end;
  
  