anchor.diff:    end;  { with }
   end;
   
  -procedure TfpgGauge.TextDraw;
  +procedure TfpgBaseGauge.TextDraw;
   var
     S: string;
     X, Y: Integer;
  
positive.code: //  Canvas.EndDraw;
  end;
  
  procedure TfpgGauge.SetGaugeKind(AValue: TGaugeKind);
  begin
    if AValue <> FKind then
    begin
  
negative.code:   end;
  end;
  
  procedure TfpgBaseGauge.DialDraw;
  var
    Center: TPoint;
    Radius: TPoint;
  