paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fpspreadsheet: Fix endianness in pcx image format detection. Patch by Bart.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9137 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-01-10 23:38:35 +00:00
parent 168a151e65
commit e564176ceb
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
components/fpspreadsheet/source/common/fpsimages.pas
View File

@ -389,21 +389,26 @@ var
hdr: TPCXHeader;
n: Integer;
begin
Result := false;
n := SizeOf(hdr);
Result := (AStream.Read(hdr{%H-}, n) = n)
and (hdr.FileID in [$0A, $0C])
and (hdr.ColorPlanes in [1, 3, 4])
and (hdr.Version in [0, 2, 3, 5])
and (hdr.PaletteType in [1, 2]);
and (LEToN(hdr.PaletteType) in [1, 2]);
if not Result then
exit;
hdr.XMin := LEToN(hdr.XMin);
hdr.YMin := LEToN(hdr.YMin);
hdr.XMax := LEToN(hdr.XMax);
hdr.YMax := LEToN(hdr.YMax);
hdr.HRes := LEToN(hdr.HRes);
hdr.VRes := LEToN(hdr.VRes);
AWidth := hdr.XMax - hdr.XMin + 1;
AHeight := hdr.YMax - hdr.YMin + 1;
dpiX := hdr.HRes;
dpiY := hdr.VRes;
Result := True;
end;