[LIONSMILE]

Доброго времени суток!

У меня возник вопрос, как можно в битмапе (или в изображении загруженном в Image) менять местами каналы RGB?
Т.е., допустим в Image грузится картинка в BMP со стандартным расположением каналов RGB.
Мне нужно реализовать возможность (пусть будет по нажатию на кнопку) смены RGB в следующих вариантах: BGR, RBG, GRB, BRG, GBR.
Соответственно изображение в Image будет меняться.

Заранее спасибо!

[lmikle]

scanLine, далее меняешь значения триплетов как тебе надо.
Примеров на scanLine в инете полно.

[LIONSMILE]

Нашёл простенькую процедуру, она собственно удовлетворяет тому, что я хотел видеть.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure SwapBytes(var Bmp: TBitmap); var   X, Y: Integer;   R, G, B: Byte;   C: TColor; begin   for Y := 0 to Bmp.Height - 1 do begin     for X := 0 to Bmp.Width - 1 do begin       C:= Bmp.Canvas.Pixels[X,Y];       R:= GetRValue(C);       G:= GetGValue(C);       B:= GetBValue(C);       // Изменяя в скобках порядок B, G, R, изменяется смена каналов в битмапе       Bmp.Canvas.Pixels[X,Y]:= RGB(B, G, R)     end;   end; end;

[lmikle]

Ага, вот только на средних и больших битмапах она будет о-о-очень медленно работать. Не зря ScanLine сделан...