![]() |
Модераторы: Snowy, Alexeis, MetalFan |
![]() ![]() ![]() |
|
Xdron |
|
|||
Новичок Профиль Группа: Участник Сообщений: 9 Регистрация: 11.3.2010 Репутация: 1 Всего: 1 |
Ребят, ни ктоне знает, как на TImage изображение инвертировать???
|
|||
|
||||
Xdron |
|
|||
Новичок Профиль Группа: Участник Сообщений: 9 Регистрация: 11.3.2010 Репутация: 1 Всего: 1 |
Спасибо,уже не нужно....у самого получилось...))
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; procedure TForm1.Button1Click(Sender: TObject); begin Image1.Picture.Bitmap := InvertBitmap(Image1.Picture.Bitmap); end; ........... вот если кому надо |
|||
|
||||
Snowy |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 11363 Регистрация: 13.10.2004 Где: Питер Репутация: 18 Всего: 484 |
Не, никому не надо.
Слишком долго и бессмысленно.
|
|||
|
||||
AntonN |
|
|||
Опытный ![]() ![]() Профиль Группа: Участник Сообщений: 491 Регистрация: 8.8.2006 Репутация: 7 Всего: 18 |
Snowy, а если потом будет использоваться 32-х битный битмап?
|
|||
|
||||
Dimonka2 |
|
|||
Новичок Профиль Группа: Участник Сообщений: 40 Регистрация: 19.3.2009 Репутация: нет Всего: нет |
Так будет чуть живее:
Это сообщение отредактировал(а) Dimonka2 - 18.3.2010, 14:39 |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Delphi: Звук, графика и видео" | |
|
Запрещено: 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делится вскрытыми компонентами
FAQ раздела лежит здесь! Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |