资 源 简 介
Delphi 提高图像的亮度，每次只能提升一点高度，用着比较麻烦，不过解析图像部分可以借鉴下。以下代码可参考，不过我没发现哪里是调节图片亮度的：
PByte := ImageBmp.scanline[y];
for x:=0 to ImageBmp.Width-1 do
begin
if (PByte[x*3]<215) and (PByte[x*3+1]<215) and (PByte[x*3+2]<215) then
begin
PByte[x*3] := PByte[x*3]+40;
PByte[x*3+1] := PByte[x*3+1]+40;
PByte[x*3+2] := PByte[x*3+2]+40;
end;
end;
