anchor.diff:    end;
   end;
   
  -procedure TfpgGauge.SetMin(AValue: Longint);
  +procedure TfpgBaseGauge.SetMin(AValue: Longint);
   begin
     if AValue <> FMin then
     begin
  
positive.code:     RePaint;
  end;
  
  function TfpgGauge.GetPercentage: Longint;
  Var
   V,T: Longint;
  begin
  
negative.code:   end;  { with }
  end;
  
  procedure TfpgBaseGauge.HandlePaint;
  begin
    inherited HandlePaint;
  //  Canvas.BeginDraw(True);
  