GDI+ 在Delphi程序的应用-windows-操作系统-六狼论坛-IT论坛-计算机论坛

sogotobj 发表于 2013-1-28 12:11:29

GDI+ 在Delphi程序的应用 -

　年初，我写了一篇关于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.0780.078 0.0780.01.0
重写《GDI+ 在Delphi程序的应用 -- 调整图像亮度》中的例子：

<div style="padding-right: 5.4pt; padding-left: 5.4pt; background: #e6e6e6; padding-bottom: 4px; width: 95%; padding-top: 4px;">http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifunitmain;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifinterface
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifuses
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifDialogs,StdCtrls;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.giftype
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifTForm1=class(TForm)
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifButton1:TButton;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifEdit1:TEdit;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifprocedureButton1Click(Sender:TObject);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifprocedureEdit1Exit(Sender:TObject);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifprivate
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gifhttp://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif...{Privatedeclarations}
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifValue:Integer;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifpublic
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gifhttp://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif...{Publicdeclarations}
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifend;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifvar
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifForm1:TForm1;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifimplementation
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifusesGdiplus;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/ExpandedBlockStart.gifhttp://images.csdn.net/syntaxhighlighting/OutliningIndicators/ContractedBlock.gif...{$R*.dfm}
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifprocedureSetBrightness(Image:TGpImage;Value:Shortint);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifvar
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifTmp:TGpImage;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifattr:TGpImageAttributes;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifg:TGpGraphics;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifv:Single;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifI:Integer;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifColorMatrix:TColorMatrix;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifbegin
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifTmp:=Image.Clone;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifg:=TGpGraphics.Create(Image);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifattr:=TGpImageAttributes.Create;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.giftry
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifFillChar(ColorMatrix,25*Sizeof(Single),0);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifforI:=0to4do
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifColorMatrix:=1.0;//初始化ColorMatrix为单位矩阵
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifv:=Value/256;　　　　　　　　　　　　//亮度调整绝对值转换为相对值
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifforI:=0to2do
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifColorMatrix[4]:=v;　　　　　　　　　//设置ColorMatrix各颜色分量行的虚拟位　
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifattr.SetColorMatrix(ColorMatrix);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifg.DrawImage(Tmp,GpRect(0,0,Image.Width,Image.Height),
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif0,0,Tmp.Width,Tmp.Height,utPixel,attr);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.giffinally
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifg.Free;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifattr.Free;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifTmp.Free;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifend;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifend;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifprocedureTForm1.Edit1Exit(Sender:TObject);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifbegin
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gififEdit1.Text=''then
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifText:='20';
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifValue:=StrToInt(Edit1.Text);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifend;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifprocedureTForm1.Button1Click(Sender:TObject);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifvar
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifImage:TGpImage;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifg:TGpGraphics;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifbegin
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifImage:=TGpImage.Create('..media41001.jpg');
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifg:=TGpGraphics.Create(Handle,False);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifg.DrawImage(Image,10,10);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifSetBrightness(Image,Value);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifg.DrawImage(Image,200,10);
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifg.Free;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifimage.Free;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifend;
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif
http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gifend.

页: [1]

六狼论坛's Archiver

GDI+ 在Delphi程序的应用 -