New=(Old/255)^c*255=exp(ln(old/255)*c)*255
var ea,eb,ec:Extended;
I:Integer;
begin
ea:=A/255;
eb:=B/255;
ec:=Ln(eb)/Ln(ea);
for I:=1 to 255 do
BarData[I]:=Round(Exp(Ln((I/255))*ec)*255);
DrawBar;
pbBarPaint(pbBar);
Button1Click(Button1);
end;
这样做可以调节图像的亮度。
先到这里,在下一篇文章中,我会向大家整理出彩色图像亮度调整的方法。
示例程序:http://vczh.cstc.net.cn/vczh/Article/A_Files/Gray256.rar 打开后按右键弹菜单
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!



