anchor.diff:  end;
   
   
  -class procedure TKMRenderUI.WriteBevel(aLeft, aTop, aWidth, aHeight: SmallInt; aEdgeAlpha: Single = 1; aBackAlpha: Single = 0.5;
  +class procedure TKMRenderUI.WriteBevel(aLeft, aTop, aWidth, aHeight: SmallInt; aEdgeAlpha: Single = 1; aBackAlpha: Single = 0.5; aResetTexture: Boolean = True);
  +begin
  +  WriteBevel(aLeft, aTop, aWidth, aHeight, COLOR3F_BLACK, aEdgeAlpha, aBackAlpha, aResetTexture);
  +end;
  +
  +
  +class procedure TKMRenderUI.WriteBevel(aLeft, aTop, aWidth, aHeight: SmallInt; const aColor: TKMColor3f; aEdgeAlpha: Single = 1; aBackAlpha: Single = 0.5;
                                          aResetTexture: Boolean = True);
   begin
     if (aWidth < 0) or (aHeight < 0) then Exit;
  
positive.code:     class procedure ReleaseClipY;
      class procedure Write3DButton  (aLeft, aTop, aWidth, aHeight: SmallInt; aRX: TRXType; aID: Word; aFlagColor: TColor4;
        aState: TKMButtonStateSet; aStyle: TKMButtonStyle; aImageEnabled: Boolean = True);
      class procedure WriteBevel     (aLeft, aTop, aWidth, aHeight: SmallInt; aEdgeAlpha: Single = 1; aBackAlpha: Single = 0.5; aResetTexture: Boolean = True);
      class procedure WritePercentBar(aLeft, aTop, aWidth, aHeight: SmallInt; aPos: Single; aSeam: Single;
        aMainColor: Cardinal = icBarColorGreen; aAddColor: Cardinal = icBarColorBlue; aResetTexture: Boolean = True);
      class procedure WriteReplayBar (aLeft, aTop, aWidth, aHeight: SmallInt; aPos, aPeacetime, aMaxValue: Integer; aMarks: TList<Integer>; aPattern: Word; aHighlightedMark: Integer = -1);
  
negative.code:     glTranslatef(aLeft, aTop, 0);
  
      //Background
      glColor4f(aColor.R, aColor.G, aColor.B, aBackAlpha);
      glBegin(GL_QUADS);
        glkRect(1, 1, aWidth-1, aHeight-1);
      glEnd;
  