Delphirus - прграммирование на delphi
   Все о delphi Delphirus - прграммирование на delphi
blocks.gif
Навигация
 

Главная
Статьи
Базы данных
Графика
Защита
Интернет
Система
Тексты
Мультимедиа
Файлы
Формы и окна
Другое
Советы
Базы данных
Графика
Интернет
Мультимедиа
Система
Тексты
Файлы
Файлы
Исходники
Компоненты
Инфо
Поиск по сайту
Обратная связь
Самое популярное
Аккаунт
Карта сайта

 
 
 

Советы по delphi \ Графика и Игры \ Bitmap \ Инвертировать Bitmap

Инвертировать Bitmap

{ 
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
Дата публикации: 2004-08-30 (2530 Прочтено)

 
 

 

Page generation 0.031 seconds