anchor.diff:      glTranslatef(aLeft, aTop, 0);
   
       //Background
  -    glColor4f(0, 0, 0, aBackAlpha);
  +    glColor4f(aColor.R, aColor.G, aColor.B, aBackAlpha);
       glBegin(GL_QUADS);
         glkRect(1, 1, aWidth-1, aHeight-1);
       glEnd;
  
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: end;
  
  
  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;
  