anchor.diff:    // paint percentage if required
     if FShowCaption then
     begin
  -  	x := (Width - FFont.TextWidth(txt)) div 2;
  -  	y := (Height - FFont.Height) div 2;
  +    x := (Width - FFont.TextWidth(txt)) div 2;
  +    y := (Height - FFont.Height) div 2;
       Canvas.SetTextColor(TextColor);
       Canvas.Font := FFont;
  -  	Canvas.DrawString(x, y, txt);
  +    Canvas.DrawString(x, y, txt);
     end;
   end;
   
  
positive.code: {
      fpGUI  -  Free Pascal GUI Toolkit
  
      Copyright (C) 2006 - 2010 See the file AUTHORS.txt, included in this
      distribution, for details of the copyright.
  
      See the file COPYING.modifiedLGPL, included in this distribution,
  
negative.code:     FPosition := AValue;
  
    FMax := AValue;
    RePaint;
  end;
  
  procedure TfpgCustomProgressBar.SetMin(const AValue: longint);
  