Инверсия цветов |
Previous Top Next |
Code: |
function InvertBitmap(Bmp: TBitmap): TBitmap; var x, y: integer; ByteArray: PByteArray; begin Bmp.PixelFormat := pf24Bit; for y := 0 to Bmp.Height - 1 do begin ByteArray := Bmp.ScanLine[y]; for x := 0 to Bmp.Width * 3 - 1 do begin ByteArray[x] := 255 - ByteArray[x]; end; end; Result := Bmp; end; |
ПРИМЕР ИСПОЛЬЗОВАНИЯ:
Code: |
procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.Bitmap := InvertBitmap(Image1.Picture.Bitmap); end; |
Взято из http://forum.sources.ru
©Drkb::03712
Автор: Song