Как модифицировать PNGImage

[hon]

Возникла такая проблема:
Я загружаю картинку в формате PNG в Image. Все работает. Но мне нужно с картинкой проводить две функции:

1. Увеличение/уменьшение яркости
2. Поворот на 90 градусов

Проблема в обращении с изображением. Пробовал такой код для повышения яркости на 51/255:

var
   x,y:smallint;
   r,g,b:byte;
.....
for y:=0 to Image1.Height do
    for x:=0 to Image1.Width do
         begin
         r:=GetRValue(Image1.Canvas.Pixels[x,y]);
         g:=GetGValue(Image1.Canvas.Pixels[x,y]);
         b:=GetBValue(Image1.Canvas.Pixels[x,y]);
         r:=r+51; g:=g+51; b:=b+51;
         if r>255 then r:=255;
         if g>255 then g:=255;
         if b>255 then b:=255;
         Image1.Canvas.Pixels[x,y]:=RGB(r,g,b);
         end;

Но выдает ошибку:

Project Project1.exe raised exception class EInvalidOperation with message 'Can only modify an image if it contains a bitmap'. Process stopped. Use Step or Run to continue.

Так как модифицировать PNG? И как повернуть его на 90 градусов с учетом прозрачности?

[BDA]

Изменение цвета таким образом у меня работает:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y: smallint;
  Px: PRGBTriple;
  png: TPngImage;
begin
  png := TPngImage.Create;
  png.Assign(Image1.Picture.Graphic);
  with png do
    for y := 0 to Height - 1 do
    begin
      Px := ScanLine[y];
      for x := 0 to Width - 1 do
      begin
        inc(Px.rgbtRed, 51);
        inc(Px.rgbtGreen, 51);
        inc(Px.rgbtBlue, 51);
        inc(Px);
      end;
    end;
  Image1.Picture.Assign(png);
  png.Free;
end;

Нужно учитывать, что inc(Px.rgbtRed, 51); вызывает переполнение типа - картинка меняет свой цвет циклически при нескольких нажатиях кнопки.

[Аватар]

Как-то в этом духе, только это не совсем изменение яркости. Можно попробовать ColorRGBToHLS и ColorHLSToRGB подключить из GraphUtil и поиграться с Luminance

procedure TForm1.Button1Click(Sender: TObject);
var xPng: TPngObject;
    x,y:smallint;
    r,g,b: Word;
    xColor: TColor;
begin
  xPng:=TPngObject.Create;
  xPng.LoadFromFile('e:\w7lxe.png');
  Image1.AutoSize:=True;
  Image1.Picture.Bitmap.Height:=xPng.Height;
  Image1.Picture.Bitmap.Width:=xPng.Width;
  for x:=0 to xPng.Height-1 do
    for y:=0 to xPng.Width-1 do begin
      xColor:=xPng.Pixels[x,y];
      r:=GetRValue(xColor);
      g:=GetGValue(xColor);
      b:=GetBValue(xColor);
      r:=r+51; g:=g+51; b:=b+51;
      if r>255 then r:=255;
      if g>255 then g:=255;
      if b>255 then b:=255;
      Image1.Canvas.Pixels[x,y]:=RGB(r,g,b);
    end;
  xPng.Free;
end;