Осветление участков

[Манжосов Денис :)]

Такой метод не подходит:

for i := 400 to 700 do
 for j := 200 to 400 do
   buf.Canvas.Pixels[i,j] := buf.Canvas.Pixels[i,j] + 10;

Тем более, что он не правильно работает . И тем более, что этот способ очень медленный. Подскажите, как рациональней освещать участки изображения?

[DomiNick]

Так ScanLine'ом...

Var Bitmap: TBitmap;

Type
 TRGB=Record Blue,Green,Red: Byte End;
 ARGB = Array[0..0] Of TRGB;
 PARGB=^ARGB;

...

Procedure TForm1.FormCreate(Sender: TObject);
Begin
Bitmap:=TBitmap.Create;
Bitmap.PixelFormat:=pf24bit;
Bitmap.LoadFromFile('F:\<Название файла>.bmp'); // для примера
Image1.Canvas.Draw(0, 0, Bitmap);
End;

Procedure TForm1.SpeedButton1Click(Sender: TObject);
Var i, j: Integer; Line: PARGB;
Begin
For j:=200 To 400 Do
      Begin
      Line:=Bitmap.ScanLine[j];
      For i:=400 To 700 Do
            Begin
            Line[i].Red:=Line[i].Red+10;
            Line[i].Green:=Line[i].Green+10;
            Line[i].Blue:=Line[i].Blue+10;
            // можно ещё добавить проверку "если больше 255, то приравнять к 255"...
            End;
      End;
Image1.Canvas.Draw(0, 0, Bitmap);
End;