paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-02 03:03:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

AggPas: Fix TLazIntfImage descriptor for 32-bit pixel format

Browse Source 
git-svn-id: trunk@40216 -
This commit is contained in:
ask 2013-02-08 23:21:16 +00:00
parent 50f730af3b
commit 6d88c77b77
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/aggpas/src/agg_lcl.pas
View File

@ -175,16 +175,17 @@ begin
FillByte(Desc, SizeOf(Desc), 0); FillByte(Desc, SizeOf(Desc), 0);
with Desc do begin with Desc do begin
Format := ricfRGBA; Format := ricfRGBA;
if APixelFormat=afpimRGB24 then Depth := 24; // used bits per pixel
Depth := 24 // used bits per pixel
else
Depth := 32; // used bits per pixel
Width := AWidth; Width := AWidth;
Height := AHeight; Height := AHeight;
BitOrder := riboBitsInOrder; BitOrder := riboBitsInOrder;
ByteOrder := riboLSBFirst; ByteOrder := riboLSBFirst;
LineOrder := riloTopToBottom; LineOrder := riloTopToBottom;
BitsPerPixel := Depth; // bits per pixel. can be greater than Depth. // bits per pixel. can be greater than Depth.
if APixelFormat=afpimRGB24 then
BitsPerPixel := 24
else
BitsPerPixel := 32;
LineEnd := rileByteBoundary; LineEnd := rileByteBoundary;
RedPrec := 8; // red precision. bits for red RedPrec := 8; // red precision. bits for red
RedShift := 0; RedShift := 0;