[GeG]

а на оборот? мне нужно изменить серый на белый

[GeG]

ээмм а можно подсказать вот мне нужно чтобы после нажатия кнопки вот этот алгоритм
procedure replacecolor(p: integer); //ниже p - серый
var
x, y:integer;
r, g, b:byte;
begin
for y := 0 to image.height - 1 do
for x := 0 to image.width - 1 do begin
r := getRValue(Image.canvas.pixels[x, y]);
g := getGValue(Image.canvas.pixels[x, y]);
b := getBValue(Image.canvas.pixels[x, y]);
if (r = g) and (g = b) {and (b = r)} and (r < p) then Image.canvas.Pixels[x, y] := rgb(255, 255, 255);
end;
end;
начинал действовать... что то я не пойму как это сделать.... подскажите плиззз

[ART]

Код:

procedure TForm1.replacecolor(p: integer); //ниже p  -  серый
var
x, y:integer;
r, g, b:byte;
begin
for y := 0 to image1.height - 1 do
 for x := 0 to image1.width - 1  do begin
  r := getRValue(Image1.canvas.pixels[x, y]);
  g := getGValue(Image1.canvas.pixels[x, y]);
  b := getBValue(Image1.canvas.pixels[x, y]);
  if (r = g) and (g = b) {and (b = r)} and (r < p) then Image1.canvas.Pixels[x, y] := rgb(255, 255, 255);
 end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 replacecolor(200);
end;

[GeG]

Всем огромное спасибо...
procedure TForm1.Button2Click(Sender: TObject);
var
p, i,j: integer;
r, g, b:byte;

begin
for i:=0 to Image1.Picture.Width do
for j:=0 to Image1.Picture.Height do
begin
p:= 37;
r := getRValue(Image1.canvas.pixels[i, j]);
g := getGValue(Image1.canvas.pixels[i, j]);
b := getBValue(Image1.canvas.pixels[i, j]);
If (r=g) and (g=b) and (r >p) then
Image1.canvas.Pixels[i, j] := rgb(255, 255, 255);
if (r=g) and (g=b) and (r <p) then
Image1.canvas.Pixels[i, j] := rgb(0, 0, 0);
if (r=g) and (g=b) and (r=p) then
Image1.canvas.Pixels[i, j] := rgb(255, 255, 255);
end;
end;

end.


вот что получилось в итоге.... скока бы оттенков серого небыло она отделит чёрный (определённого оттенка р ) так что кому нужно юзайте)

[GeG]

есчо один нюбский вопрос... как мне на чёрно белом фоне определить крайне правую верхнюю и нижнюю чёрную точку?