PNG в Dlephi 2009

[Altera]

Привет всем! Наконец у меня получилось нормально поставить Delphi 2009 Architect


И вот что мне интересно? Что PNG там так толком и не поддерживается? В ImageList можно загружать png-шки, но вой чёрный у них у всех.

В 2006-ой delphi я ставлю компонент tPNGButton. Шикарный компонент: Он добавляет объект tPNGObject с которым можно работать аналогично tBitmap-у и он интегрируется в tImage блогодоря чему в него можно загружать png-шки. А в 2009-ой Dlephi он не устанавливаеться. Ругаеться на строчку в pngImage.pas

procedure TChunkIDAT.CopyInterlacedRGB8(const Pass: Byte;
  Src, Dest, Trans{$IFDEF Store16bits}, Extra{$ENDIF}: pChar);
var
  Col: Integer;
begin
  {Get first column and enter in loop}
  Col := ColumnStart[Pass];
  Dest := pChar(Longint(Dest) + Col * 3);
  repeat
    {Copy this row}
    Byte(Dest^) := fOwner.GammaTable[pByte(Longint(Src) + 2)^]; inc(Dest);
    Byte(Dest^) := fOwner.GammaTable[pByte(Longint(Src) + 1)^]; inc(Dest);
    Byte(Dest^) := fOwner.GammaTable[pByte(Longint(Src)    )^]; inc(Dest);

    {Move to next column}
    inc(Src, 3);
    inc(Dest, ColumnIncrement[Pass] * 3 - 3);
    inc(Col, ColumnIncrement[Pass]);
  until Col >= ImageWidth;
end;

Пишет, что с лева нельзя привязать!
И это наверное не единственное местно.

В аттаче сам компонент.

[Showy]

Если есть папка Source, то в Library Path добавляем $(BDS)\source\Win32\vcl\Imaging\PNG Image и ставим этот путь перед тем в котором лежит PngExtra и другие. Или можно просто удалить файлы pngimage.pas(.dcu) и pnglang.pas(.dcu) из папки с pngextra.pas.
По крайней мере у меня установился TPNGButton и скомпилировался проект.

[Altera]

Сообщение от Showy

Если есть папка Source, то в Library Path добавляем $(BDS)\source\Win32\vcl\Imaging\PNG Image и ставим этот путь перед тем в котором лежит PngExtra и другие. Или можно просто удалить файлы pngimage.pas(.dcu) и pnglang.pas(.dcu) из папки с pngextra.pas.
По крайней мере у меня установился TPNGButton и скомпилировался проект.

Да так и сдалал. Помогло!

[BOBAH13]

гы... а я просто заменил все подобные этому

Byte(Dest^)

вроде на это

PByte(Dest)^

[Altera]

Ну не знаю, не знаю. Может как-то через move лучше было-бы?

[uraura]

Я попробовал заменить как предлогалось выше непроканало((((
могет изза того что у меня винда 7 стоит просто но вродь не должна ось на ето влиять