anchor.diff:    TRender.BindTexture(0);
   
     glPushMatrix;
  -    glTranslatef(aLeft, aTop, 0);
  +  try  glTranslatef(aLeft, aTop, 0);
   
       WriteBevel(0, 0, aWidth, aHeight);
   
  
positive.code:         glVertex2f(aWidth-0.5, 0.5);
        glEnd;
      end;
    glPopMatrix;
  end;
  
  
  
negative.code:   procedure WriteWideLine(aX: Word; aColor: Cardinal; aPattern: Word = $FFFF);
    begin
      if InRange(aX, 0, aWidth) then  //Dont allow to render outside of control
        WriteLine(aX,     1, aX    , aHeight - 1, aColor, aPattern, 2);
    end;
  
  var
  