GDI+ 在Delphi程序的应用 -- ColorMatrix与图像亮度

     　年初，我写了一篇关于GDI+亮度调整的文章，见《GDI+ 在Delphi程序的应用 -- 调整图像亮度》，采用的是扫描线逐点改变，当时有网友评论时提出是否可以ColorMatrix进行调整，我觉得图像像素值上下限不好控制，加之没时间没去研究，今天，我却发现该网友提出的方案居然是切实可行的。改变图像亮度，实际就是对像素点的各颜色分量值作一个平移，使用ColorMatrix进行平移是个轻而易举的事！

　　在《GDI+ 在Delphi程序的应用 -- 调整图像亮度》一文举例中对图片增加亮度20，用ColorMatrix矩阵来说，就是个颜色值平移20 / 256 = 0.078，也就是各颜色分量值加0.078，用ColorNatrix矩阵表示为：

1.0        0.0        0.0        0.0        0.0

0.0        1.0        0.0        0.0        0.0

0.0        0.0        1.0        0.0        0.0

0.0        0.0        0.0        1.0        0.0

0.078     0.078     0.078      0.0        1.0

     重写《GDI+ 在Delphi程序的应用 -- 调整图像亮度》中的例子：

 

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
  private
    ...{ Private declarations }
    Value: Integer;
  public
    ...{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Gdiplus;

...{$R *.dfm}

procedure SetBrightness(Image: TGpImage; Value: Shortint);
var
  Tmp: TGpImage;
  attr: TGpImageAttributes;
  g: TGpGraphics;
  v: Single;
  I: Integer;
  ColorMatrix: TColorMatrix;
begin
  Tmp := Image.Clone;
  g := TGpGraphics.Create(Image);
  attr := TGpImageAttributes.Create;
  try
    FillChar(ColorMatrix, 25 * Sizeof(Single), 0);
    for I := 0  to 4 do
      ColorMatrix[I][I] := 1.0;                                    // 初始化ColorMatrix为单位矩阵
    v := Value / 256;　　　　　　　　　　　　// 亮度调整绝对值转换为相对值
    for I := 0 to 2 do
      ColorMatrix[4][I] := v;　　　　　　　　　 // 设置ColorMatrix各颜色分量行的虚拟位　
    attr.SetColorMatrix(ColorMatrix);
    g.DrawImage(Tmp, GpRect(0, 0, Image.Width, Image.Height),
                0, 0, Tmp.Width, Tmp.Height, utPixel, attr);
  finally
    g.Free;
    attr.Free;
    Tmp.Free;
  end;
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Edit1.Text = '' then
    Text := '20';
  Value := StrToInt(Edit1.Text);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Image: TGpImage;
  g: TGpGraphics;
begin
  Image := TGpImage.Create('..media€41001.jpg');
  g := TGpGraphics.Create(Handle, False);
  g.DrawImage(Image, 10, 10);
  SetBrightness(Image, Value);
  g.DrawImage(Image, 200, 10);
  g.Free;
  image.Free;
end;

end.

 运行结果，左边为原图，右边为亮度加２０后的图像：