Posted on 2000-05-16
I need to read value of pixel color
and to retrive info about red green and blue so I can manipulate with this values and after that I need to put this togather and to set Pixel to new color with canvas.pixels[x,y] := new value;
I have C/Java code but this dont work in Delphi beacouse oprenads are not equal.
// red=(q >>16) & 0xff ;//| (q<<16);
z= z ? 0 : ((q>>0) & 0xff);//red
z2= z2 ? 0:((q>>8) & 0xff);//green
z3= z3 ? 0:((q>>16) & 0xff);//blue