28.05.2019, 10:18
|
|
Новичок
|
|
Регистрация: 19.03.2018
Сообщения: 51
Версия Delphi: Delphi 7
Репутация: 10
|
|
Нашёл простенькую процедуру, она собственно удовлетворяет тому, что я хотел видеть.
Код:
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;
|