anchor.diff:      procedure   SetProgress(AValue: Longint);
       function    GetPercentage: Longint;
     protected
  +    FClientRect: TfpgRect;
  +    FKind: TGaugeKind;
  +    procedure   BackgroundDraw; virtual;
  +    procedure   TextDraw; virtual;
  +    procedure   BarDraw; virtual;
  +    procedure   PieDraw; virtual;
  +    procedure   NeedleDraw; virtual;
  +    procedure   DialDraw; virtual;
       procedure   HandlePaint; override;
  +    property    BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle;
  +    property    Color: TfpgColor read FColor write FColor default TfpgColor($c4c4c4);
  +    property    FirstColor: TfpgColor read FFirstColor write SetFirstColor default clBlack;
  +    property    Kind: TGaugeKind read FKind write SetGaugeKind default gkHorizontalBar;
  +    property    MaxValue: Longint read FMax write SetMax default 100;
  +    property    MinValue: Longint read FMin write SetMin default 0;
  +    property    Progress: Longint read FPosition write SetProgress;
  +    property    SecondColor: TfpgColor read FSecondColor write SetSecondColor default clWhite;
  +    property    ShowText: Boolean read FShowText write SetShowText default True;
     public
       constructor Create(AOwner: TComponent); override;
       procedure   AddProgress(AValue: Longint);
       property    Percentage: Longint read GetPercentage;
       property    Font: TfpgFont read FFont;
  +  end;
  +
  +
  +  TfpgGauge = class(TfpgBaseGauge)
     published
       property    Align;
       property    Anchors;
  -    property    BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle;
  -    property    Color: TfpgColor read FColor write FColor default clButtonFace;
  +    property    BorderStyle;
  +    property    Color;
       property    Enabled;
  -    property    FirstColor: TfpgColor read FFirstColor write SetFirstColor default clBlack;
  +    property    FirstColor;
       property    Hint;
  -    property    Kind: TGaugeKind read FKind write SetGaugeKind default gkHorizontalBar;
  -    property    MaxValue: Longint read FMax write SetMax default 100;
  -    property    MinValue: Longint read FMin write SetMin default 0;
  +    property    Kind;
  +    property    MaxValue;
  +    property    MinValue;
       property    ParentShowHint;
  -    property    Progress: Longint read FPosition write SetProgress;
  -    property    SecondColor: TfpgColor read FSecondColor write SetSecondColor default clWhite;
  +    property    Progress;
  +    property    SecondColor;
       property    ShowHint;
  -    property    ShowText: Boolean read FShowText write SetShowText default True;
  +    property    ShowText;
       property    Visible;
       property    OnShowHint;
     end;
   
  -
   // A convenience function to quickly create a gauge from code
   function CreateGauge (AOwner: TComponent; ALeft, ATop, AWidth,
  -    AHeight: TfpgCoord; AKind: TGaugeKind ): TfpgGauge;
  +    AHeight: TfpgCoord; AKind: TGaugeKind ): TfpgBaseGauge;
   
   
   implementation
  
positive.code:   end;
  end;
  
  procedure TfpgGauge.DialDraw;
  var
    Center: TPoint;
    Radius: TPoint;
  
negative.code:   end;
  end;
  
  procedure TfpgBaseGauge.SetMin(AValue: Longint);
  begin
    if AValue <> FMin then
    begin
  