Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 547

•  TDictionary Custom Sort  6 575

•  Fast Watermark Sources  6 349

•  3D Designer  9 297

•  Sik Screen Capture  6 680

•  Patch Maker  7 052

•  Айболит (remote control)  7 063

•  ListBox Drag & Drop  5 935

•  Доска для игры Реверси  97 414

•  Графические эффекты  7 267

•  Рисование по маске  6 564

•  Перетаскивание изображений  5 435

•  Canvas Drawing  5 801

•  Рисование Луны  5 507

•  Поворот изображения  5 037

•  Рисование стержней  3 591

•  Paint on Shape  2 845

•  Генератор кроссвордов  3 722

•  Головоломка Paletto  3 001

•  Теорема Монжа об окружностях  3 805

•  Пазл Numbrix  2 505

•  Заборы и коммивояжеры  3 195

•  Игра HIP  2 162

•  Игра Go (Го)  2 096

•  Симулятор лифта  2 470

•  Программа укладки плитки  2 135

•  Генератор лабиринта  2 612

•  Проверка числового ввода  2 288

•  HEX View  2 622

•  Физический маятник  2 231

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

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



Delphi Sources

Инверсия всех цветов Bitmap



Автор: Fenik

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Инверсия всех цветов Bitmap

Зависимости: Graphics
Автор:       Fenik, chook_nu@uraltc.ru, Новоуральск
Copyright:   Собственное написание (Николай федоровских)
Дата:        1 июня 2002 г.
***************************************************** }

procedure InvertBitmap(Bitmap: TBitmap);
type
  TRGB = record
    B, G, R: Byte;
  end;
  pRGB = ^TRGB;
var
  x, y: Integer;
  Dest: pRGB;
begin
  Bitmap.PixelFormat := pf24Bit;
  for y := 0 to Bitmap.Height - 1 do
  begin
    Dest := Bitmap.ScanLine[y];
    for x := 0 to Bitmap.Width - 1 do
    begin
      with Dest^ do
      begin
        R := 255 - R;
        G := 255 - G;
        B := 255 - B;
      end;
      Inc(Dest);
    end;
  end;
end;




Похожие по теме исходники

Couleur (цветовая палитра)

Bitmap Sharpen Filter

Simple Bitmap Rotation

Bitmap 32Bit Demo

 

Thread Bitmap (pencil drawings)




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте