paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 14:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

GraphType: some more init routines

Browse Source 
git-svn-id: trunk@33822 -
This commit is contained in:
sekelsenmat 2011-11-28 10:47:17 +00:00
parent 73b7aedc0b
commit 4afd5cec0f
1 changed files with 52 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
lcl/graphtype.pp
View File

@ -156,6 +156,8 @@ type
// Formats in RGB order
procedure Init_BPP24_R8G8B8_BIO_TTB(AWidth, AHeight: integer);
procedure Init_BPP24_R8G8B8_BIO_TTB_UpsideDown(AWidth, AHeight: integer);
procedure Init_BPP32_A8R8G8B8_BIO_TTB(AWidth, AHeight: integer);
procedure Init_BPP32_R8G8B8A8_BIO_TTB(AWidth, AHeight: integer);
// Formats in Windows pixels order: BGR
procedure Init_BPP24_B8G8R8_BIO_TTB(AWidth, AHeight: integer);
@ -649,6 +651,56 @@ begin
// MaskBitsPerPixel:=0;
end;
procedure TRawImageDescription.Init_BPP32_A8R8G8B8_BIO_TTB(AWidth, AHeight: integer);
begin
// setup an artificial ScanLineImage with format RGB 32 bit, 32bit depth format
FillChar(Self, SizeOf(Self), 0);
Format := ricfRGBA;
Depth := 32; // used bits per pixel
Width := AWidth;
Height := AHeight;
BitOrder := riboBitsInOrder;
ByteOrder := riboLSBFirst;
LineOrder := riloTopToBottom;
BitsPerPixel := 32; // bits per pixel. can be greater than Depth.
LineEnd := rileDWordBoundary;
RedPrec := 8; // red precision. bits for red
RedShift := 8;
GreenPrec := 8;
GreenShift := 16; // bitshift. Direction: from least to most signifikant
BluePrec := 8;
BlueShift := 24;
AlphaPrec := 8;
AlphaShift := 0;
// MaskBitsPerPixel := 0;
end;
procedure TRawImageDescription.Init_BPP32_R8G8B8A8_BIO_TTB(AWidth, AHeight: integer);
begin
// setup an artificial ScanLineImage with format RGB 32 bit, 32bit depth format
FillChar(Self, SizeOf(Self), 0);
Format := ricfRGBA;
Depth := 32; // used bits per pixel
Width := AWidth;
Height := AHeight;
BitOrder := riboBitsInOrder;
ByteOrder := riboLSBFirst;
LineOrder := riloTopToBottom;
BitsPerPixel := 32; // bits per pixel. can be greater than Depth.
LineEnd := rileDWordBoundary;
RedPrec := 8; // red precision. bits for red
RedShift := 0;
GreenPrec := 8;
GreenShift := 8; // bitshift. Direction: from least to most signifikant
BluePrec := 8;
BlueShift := 16;
AlphaPrec := 8;
AlphaShift := 24;
// MaskBitsPerPixel := 0;
end;
procedure TRawImageDescription.Init_BPP24_B8G8R8_BIO_TTB(AWidth, AHeight: integer);
{ pf24bit: