Замена цвета.

[bagabuga]

Подскажите, пожалуйста, каким образом можно заменить на изображении ВСЕ оттенки белого, на чисто зеленый или любой другой, а затем все оттенки черного на чисто белый.

Например:

Оттенки черного:
$00272727
$00050306
$00040205

Оттенки белого:
$00fffcff
$00b6afb6
$00bbb4bb

Ясно, что их огромное количество и все писать и заменять не будешь. Как это можно сделать быстро?

[Sm1Le]

Сообщение от bagabuga

Подскажите, пожалуйста, каким образом можно заменить на изображении ВСЕ оттенки белого, на чисто зеленый или любой другой, а затем все оттенки черного на чисто белый.

Например:

Оттенки черного:
$00272727
$00050306
$00040205

Оттенки белого:
$00fffcff
$00b6afb6
$00bbb4bb

Ясно, что их огромное количество и все писать и заменять не будешь. Как это можно сделать быстро?

загрузить изображение в canvas, далее бегая по каждому пикселю (двумерный массив), при помощи двух цыклов, пройти все и сравнить на нужное, вдруг что заменить.

procedure TForm1.Button1Click(Sender: TObject);

var  x,y,x1,y1: integer;
     c: TColor;
     r,g,b: byte;
     r1,g1,b1: byte;
     r2,g2,b2: byte;
     t: real;
begin

  panel1.doublebuffered:=true;
  for x:=0 to Image2.Width-1 do
  begin
     t := 1/2;
     if image1.width<y then
       y1:=y-image1.width;
     for y:=0 to Image2.Height-1 do
     begin
       if image1.Height<x then
           x1:=x-image1.Height;


       c := Image1.Canvas.Pixels[x1,y1];
       r1 := (c and $0000FF);
       g1 := (c and $00FF00) shr 8;
       b1 := (c and $FF0000) shr 16;

       c := Image2.Canvas.Pixels[x,y];
       r2 := (c and $0000FF);
       g2 := (c and $00FF00) shr 8;
       b2 := (c and $FF0000) shr 16;
       r := round( t*r1 + (1-t)*r2 );
       g := round( t*g1 + (1-t)*g2 );
       b := round( t*b1 + (1-t)*b2 );
       Image2.Canvas.Pixels[x,y] := r + g shl 8 + b shl 16
     end;
     Image2.update;
   end;
end;

это кусок кода из инета ... ) Я думаю ты поймешь ... здесь накладываться рисунок1 на рисунок 2 ... но смысл тот же.

[bagabuga]

Спасибо за помощь! Сделал!

[Johnson]

Извиняюсь, а зачем работать с довольно медленным GUI?
Можно же создать буфер, в нем и работать...

BMB: TBitmap;
BMP := TBitmap.Create;
BMP.Width := 100; // нужное
BMP.Height := 100; // Нужное
//Делаем что нужно с цветами и выводим куда необходимо.
BMP.Free;

[Пепел Феникса]

надо в принципе забыть про Pixels, а вспомнить про Scanline.