anchor.diff:          TheImage.Canvas.CopyMode := cmSrcInvert;
           TheImage.Canvas.Draw(0, 0, OverlayImage);
           TheImage.Canvas.CopyMode := cmSrcCopy;
  -        if ShowText then PaintAsText(TheImage, PaintRect);
  +        if ShowText then
  +          PaintAsText(TheImage, PaintRect);
         finally
           OverlayImage.Free;
         end;
  
positive.code:   Canvas.FillRect(Rect(0, 0, Width, Height));
  end;
  
  { This function solves for x in the equation "x is y% of z". }
  function SolveForX(Y, Z: Longint): Longint;
  begin
    Result := Longint(Trunc( Z * (Y * 0.01) ));
  end;
  
  { This function solves for y in the equation "x is y% of z". }
  function SolveForY(X, Z: Longint): Longint;
  begin
    if Z = 0 then Result := 0
    else Result := Longint(Trunc( (X * 100.0) / Z ));
  end;
  
  { TGauge }
  
negative.code:       TheImage.Width := Width;
        PaintBackground(TheImage);
        PaintRect := ClientRect;
        if FBorderStyle = bsSingle then
          InflateRect(PaintRect, -1, -1);
        OverlayImage := TBitmap.Create;
        try
          OverlayImage.MakeLike(TheImage);
          PaintBackground(OverlayImage);
  