anchor.diff:    end;
   end;
   
  -procedure TfpgGauge.SetShowText(AValue: Boolean);
  +procedure TfpgBaseGauge.SetShowText(AValue: Boolean);
   begin
     if AValue <> FShowText then
     begin
  
positive.code:   end;
  end;
  
  procedure TfpgGauge.SetBorderStyle(AValue: TBorderStyle);
  begin
    if AValue <> FBorderStyle then
    begin
  
negative.code:     RePaint;
  end;
  
  function TfpgBaseGauge.GetPercentage: Longint;
  Var
   V,T: Longint;
  begin
  