paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 20:49:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Support for image comment in TARGA

Browse Source
This commit is contained in:
michael 2004-10-16 09:21:30 +00:00
parent eaa0c67cd9
commit 9de3e6b588
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/image/fpreadtga.pp
View File

@ -156,6 +156,8 @@ begin
begin begin
SetLength(Identification,Header.IDLen); SetLength(Identification,Header.IDLen);
Stream.Read(Identification[1],Header.Idlen); Stream.Read(Identification[1],Header.Idlen);
If Length(Identification)<>0 then
Img.Extra[KeyIdentification]:=Identification;
end; end;
If Toword(Header.MapLength)>0 then If Toword(Header.MapLength)>0 then
ReadPalette(Stream); ReadPalette(Stream);