Увеличить яркость картинки

[pavellyba]

Как можно увеличить яркость картинки в элементе TImage

[Сtrl]

Попиксельная коррекция цвета, например.

[veniside]

решение в лоб:

procedure TForm1.Button1Click(Sender: TObject);
type
  tpixel = packed record r, g, b: byte; end;

  procedure adjust(var c: byte; factor: double);
  var
    r: double;
  begin
    r := c * factor;
    if (r > 255) then
      r := 255;
    //
    c := trunc(r);
  end;

var
  x, y, h, w: Integer;
  tc: TColor;
  p: tpixel absolute tc;
  factor: double;
begin
  with Image1.Canvas do begin
    //
    factor := 1.5;
    //
    Lock();
    try
      h := Height;
      w := Width;
      for x := 0 to w - 1 do
        for y := 0 to h - 1 do begin
          //
          tc := Pixels[x, y];
          adjust(p.r, factor);
          adjust(p.g, factor);
          adjust(p.b, factor);
          //
          Pixels[x, y] := tc;
        end;
    finally
      Unlock();
    end;
  end;
end;

через сканлайны будет быстрее, но там ещё на формат цвета нужно смотреть

[veniside]

вариант со сканлайн (трёхбайтный цвет):

procedure TForm1.Button1Click(Sender: TObject);
type
  tpixel = packed record r, g, b: byte; end;

  procedure adjust(var c: byte; factor: double);
  var
    r: double;
  begin
    r := c * factor;
    if (r > 255) then
      r := 255;
    //
    c := trunc(r);
  end;

var
  x, y, h, w: Integer;
  p: ^tpixel;
  factor: double;
begin
  factor := 1.5;
  h := Image1.Picture.Height;
  w := Image1.Picture.Width;
  for y := 0 to h - 1 do begin
    //
    p := Image1.Picture.Bitmap.ScanLine[y];
    for x := 0 to w - 1 do begin
      //
      adjust(p.r, factor);
      adjust(p.g, factor);
      adjust(p.b, factor);
      inc(p);
    end;
  end;
  //
  Image1.Repaint();
end;

[asmodey1]

http://programmersforum.ru/showthread.php?t=21326