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