//---------------------------------------------------------------------------
//亮度函數  Brightness function
void __fastcall TForm1::Brightness(Graphics::TBitmap *Bmp,int posi)
{
 Bmp->PixelFormat = pf24bit;
 Byte* ptr=NULL;
 for (int y=0;yHeight ;y  )
 {
   ptr=(Byte*)Bmp->ScanLine[y];
   for (int x=0;xWidth ;x  )
   {
     int R=ptr[x*3 2];
     int G=ptr[x*3 1];
     int B=ptr[x*3];
     int RValue=R posi;
     int GValue=G posi;
     int BValue=B posi;         if (RValue>255)
       ptr[x*3 2]=255;
     else if (RValue<0)
       ptr[x*3 2]=0;
     else
       ptr[x*3 2]=RValue;         if (GValue>255)
       ptr[x*3 1]=255;
     else if (GValue<0)
       ptr[x*3 1]=0;
     else
       ptr[x*3 1]=GValue;         if (BValue>255)
       ptr[x*3]=255;
     else if (BValue<0)
       ptr[x*3]=0;
     else
       ptr[x*3]=BValue;
   }
 }     Brig_Bmp = Bmp;
}

引言: 最佳亮度的定義是什麼? 也許因人而異。 程式中, 你把每個R,G,B值Offset加上一個定值, 當然在影像上看起來會比較亮。一般影像處理上, 還有auto-level, 會先找出最亮點及最暗點, 然後把最亮點拉到255, 最暗點拉到0, 其他值依等比例計算。 所以大體上, 一種是以offset方式處理, 另一種是以等比例方式處理。

procedure TForm1.Button1Click(Sender: TObject);
var
  x,y : Integer;
  S1,S2 : String;
begin
  for x:=1 to 256 do
    begin
      S1:=FloatToStr(sqrt(x)*16);
      Memo1.Lines.Add(IntToStr(X)  '=='  S1);
    end;
  for y:=1 to 256 do
    begin
      S2:=IntToStr(Trunc(sqrt(y)*16));
      Memo2.Lines.Add(IntToStr(y)  '=='  S2);
    end;    end;