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

- new RawImageDescription from Tom. After last commit it works on LE too.

Browse Source 
git-svn-id: trunk@10774 -
This commit is contained in:
paul 2007-03-21 02:14:32 +00:00
parent 8bd32dba70
commit 3a609120e4
1 changed files with 16 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lcl/interfaces/carbon/carbonproc.pp
View File

@ -585,35 +585,32 @@ procedure FillStandardDescription(var Desc: TRawImageDescription);
begin
FillChar(Desc, SizeOf(Desc), 0);
// $RRGGBBAA
Desc.Format := ricfRGBA;
Desc.HasPalette := False;
// Width and Height skipped
Desc.PaletteColorCount := 0;
Desc.BitOrder := riboReversedBits;
{$IFDEF ENDIAN_BIG}
Desc.ByteOrder := riboMSBFirst;
{$ELSE}
Desc.ByteOrder := riboLSBFirst;
{$ENDIF}
Desc.LineOrder := riloTopToBottom;
Desc.ColorCount := Desc.PaletteColorCount;
Desc.BitsPerPixel := 32;
Desc.BitOrder := riboReversedBits;
Desc.ByteOrder := riboMSBFirst;
Desc.LineEnd := rileDQWordBoundary; // 128bit aligned
// 8-8-8-8 mode, high byte is Alpha
Desc.AlphaSeparate := False;
Desc.LineOrder := riloTopToBottom;
Desc.BitsPerPixel := 32;
Desc.Depth := 32;
// 8-8-8-8 mode, $RRGGBBAA
Desc.RedPrec := 8;
Desc.GreenPrec := 8;
Desc.BluePrec := 8;
Desc.AlphaPrec := 8;
Desc.RedShift := 24;
Desc.GreenShift := 16;
Desc.BlueShift := 8;
Desc.Depth := 32;
Desc.AlphaPrec := 8;
Desc.AlphaSeparate := False;
Desc.AlphaLineEnd := rileDQWordBoundary;
Desc.AlphaShift := 0;
Desc.BlueShift := 08;
Desc.AlphaShift := 00;
end;
{------------------------------------------------------------------------------