anchor.diff:  
         Function Update(Pixels:Pointer; X,Y, Width, Height:Integer):Boolean; Override;
   
  +      Function GetPixel(X,Y:Integer):Color; Override;
         Function GetImage():Image; Override;
   
         Procedure Invalidate(); Override;
  
positive.code: 
  
  
  End.
  
negative.code:   Result := True;
  End;
  
  Function OpenGLTexture.GetPixel(X, Y: Integer): Color;
  Begin
    Y := _Height - Y;
  
    {$IFDEF PC}
    glActiveTexture(GL_TEXTURE0);
    glEnable(GL_TEXTURE_2D);
    glBindTexture(GL_TEXTURE_2D, _Handle);
  
  	glReadPixels(X, Y, 1, 1, GL_RGBA, GL_UNSIGNED_BYTE, @Result);
    {$ENDIF}
  End;
  
  Function OpenGLTexture.GetImage:Image;
  Begin
    Log(logDebug, 'Texture', 'Getting image from texture '{+Self.Name});
  