Что такое Bitmap и как с ним работать

@Natali_li · Регистрация: 12.03.2009

Author24 — интернет-сервис помощи студентам

Мне нужно инвертировать изображение, оно помещается в Timage, и в любом формате, помогите, очень нужно.

@alexanderwdark · 13.03.2009, 18:25

Delphi

function InvertBitmap(MyBitmap: TBitmap): TBitmap;
var
x, y: Integer;
ByteArray: PByteArray;
begin
MyBitmap.PixelFormat := pf24Bit;
for y := 0 to MyBitmap.Height - 1 do
begin
ByteArray := MyBitmap.ScanLine[y];
for x := 0 to MyBitmap.Width * 3 - 1 do
begin
ByteArray[x] := 255 - ByteArray[x];
end;
end;
Result := MyBitmap;
end;

@Natali_li 0 / 0 / 0 Регистрация: 12.03.2009 Сообщений: 10
		1
	Что такое Bitmap и как с ним работать 13.03.2009, 09:22. Показов 5988. Ответов 1 Метки нет (Все метки) Мне нужно инвертировать изображение, оно помещается в Timage, и в любом формате, помогите, очень нужно. 0

	13.03.2009, 18:25

Опции темы

Что такое Bitmap и как с ним работать

Решение