paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-01 13:23:52 +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);
with Desc do begin
Format := ricfRGBA;
if APixelFormat=afpimRGB24 then
Depth := 24 // used bits per pixel
else
Depth := 32; // used bits per pixel
Depth := 24; // used bits per pixel
Width := AWidth;
Height := AHeight;
BitOrder := riboBitsInOrder;
ByteOrder := riboLSBFirst;
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;
RedPrec := 8; // red precision. bits for red
RedShift := 0;