DelphiX 實戰：TDIB.Negative 負片效果與色深影響

TDIB.Negative 產生影像負片效果（色彩反相），但在高色深（>8-bit）下存在已知問題。本文提供四種色深下的對比測試範例。

效果預覽

核心程式碼

unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DIB, StdCtrls;
type
  TForm1 = class(TForm)
    DXPaintBox1: TDXPaintBox;
    Button1: TButton; // 載入圖片
    Button2: TButton; // 8-bit 負片
    Button3: TButton; // 4-bit 負片
    Button4: TButton; // 1-bit 負片
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  end;
var Form1: TForm1;
implementation {$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const ImgPath1 = 'C:\Temp\DX.jpg';
begin
  DXPaintBox1.DIB.LoadFromFile(ImgPath1);
  DXPaintBox1.Width := DXPaintBox1.DIB.Width;
  DXPaintBox1.Height := DXPaintBox1.DIB.Height;
  DXPaintBox1.Repaint;
end;

procedure TForm1.Button2Click(Sender: TObject); // 8-bit
begin
  DXPaintBox1.DIB.BitCount := 8;
  DXPaintBox1.DIB.Negative;
  DXPaintBox1.Repaint;
end;

procedure TForm1.Button3Click(Sender: TObject); // 4-bit
begin
  DXPaintBox1.DIB.BitCount := 4;
  DXPaintBox1.DIB.Negative;
  DXPaintBox1.Repaint;
end;

procedure TForm1.Button4Click(Sender: TObject); // 1-bit
begin
  DXPaintBox1.DIB.BitCount := 1;
  DXPaintBox1.DIB.Negative;
  DXPaintBox1.Repaint;
end;
end.

色深與 Negative 行為差異

原理與問題分析

• 8-bit 以下：使用調色盤，Negative 修改調色盤索引映射（索引 i → 255-i），極快且正確
• 高色深：直接操作 RGB 數值（255-R, 255-G, 255-B），但 DelphiX 實作可能未正確處理 Alpha 通道或色彩空間，導致異常
• **解決方案**：高色深影像先轉 8-bit 執行 Negative，再轉回高色深

正確的高色深負片實作

procedure TrueColorNegative(DIB: TDIB);
var x, y: Integer; c: TRGBQuad;
begin
  for y := 0 to DIB.Height - 1 do
    for x := 0 to DIB.Width - 1 do begin
      c := DIB.Pixels[x, y];
      c.rgbRed := 255 - c.rgbRed;
      c.rgbGreen := 255 - c.rgbGreen;
      c.rgbBlue := 255 - c.rgbBlue;
      // 保留 Alpha：c.rgbReserved 不變
      DIB.Pixels[x, y] := c;
    end;
end;

應用場景

• **負片掃描還原**：數位化底片轉正片
• **特效/視覺風格**：恐怖、超自然、記憶片段
• **無障礙/高對比度模式**：輔助視力障礙使用者
• **圖像處理前置**：某些演算法需負片輸入

1. 上一篇文章： DelphiX 實戰：TDIB.SephiaEffect 懷舊棕褐色調效果
2. 下一篇文章： DelphiX 實戰：TDIB.Mirror 鏡像翻轉效果

Delphi

Delphi 螢幕截圖技術兩大方案：GDI 直繪與 ScreenCapture 元件實戰

應用場景：電腦教室監控系統 教師需即時查看學生螢幕，防止上課

將 DCOM 物件遷移至 COM+ (MTS) 的實作步驟

Delphi DCOM 資料模組轉換為 COM+ 交易元件完

GDI+ 進階教學[33]：畫筆幾何變換 - SetTransform 矩陣操作完整指南

本篇教學深入探討 TGPPen.SetTransform 方

DelphiX 圖像處理：TDIB.DoMosaic 馬賽克效果實作

效果預覽 功能說明 TDIB.DoMosaic(Bloc