pngimage.pas - Delphi 2009
Bonjour,
je souhaiterais utiliser des images .png dans un TImage. Aucun soucis jusqu'au moment de la compilation :
J'ai pas mal d'erreurs, qui sont toutes les mêmes :
pngimages.pas : E2064 La partie gauche n'est pas affectable. :?
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| 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; |
Les lignes en gras provoquent des erreurs.
J'ai fais pas mal de recherches hier soir pour réparer ces erreurs, je suis tombé sur des sites chinois qui ne m'ont pas plus aidés..
Merci d'avance. =)
Comme dis dans le titre, j'utilise Delphi 2009 où le TImage prends en compte les png.