Jak przekształcić obraz tak, jak w skali odcieni szarości, tylko że w wybranym kolorze?
0
0
moze tak:
var
i,i2 : integer;
r,g,b : byte;
r2,g2,b2 : byte;//artość w kolorze (mozna uzyc tez getxvalue do tego :)
lol : tcolor;
begin
for i:=0to image1.width do
for i2:=0 to image1.height do
begin
lol := image1.canvas.pixels[i,i2];
r := getrvalue(lol);
g := getrgalue(lol);
b := getrbalue(lol);
r := r + r2;
g := g + g2;
b := b + b2;
lol := rgb(r,g,b);
image1.canvas.pixels[i,i2] := lol;
end;
end;
jak cos nie dziala to pech