Инвертировать BitmapDelphi , Графика и Игры , BitmapИнвертировать Bitmap
Оформил: DeeCo { Dieses ist eine ziemlich schnelle Methode, eine Farbumkehrung auf einem Bitmap anzuwenden. } { This is a very fast method to invert the colors of a bitmap. } 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; procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.Bitmap := InvertBitmap(Image1.Picture.Bitmap); Image1.Refresh; end; Статья Инвертировать Bitmap раздела Графика и Игры Bitmap может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |