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

Adds one more init for bpp=1

Browse Source 
git-svn-id: trunk@34309 -
This commit is contained in:
sekelsenmat 2011-12-20 04:07:24 +00:00
parent e63a0d80b5
commit d6604b2665
1 changed files with 28 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lcl/graphtype.pp
View File

@ -150,6 +150,9 @@ type
// don't use a contructor here, it will break compatebility with a record
procedure Init;
// 1-bit mono format
procedure Init_BPP1(AWidth, AHeight: integer);
// 16-bits formats
procedure Init_BPP16_R5G6B5(AWidth, AHeight: integer);
@ -591,6 +594,31 @@ begin
FillChar(Self, SizeOf(Self), 0);
end;
// 1-bit mono format
procedure TRawImageDescription.Init_BPP1(AWidth, AHeight: integer);
begin
// setup an artificial ScanLineImage with format RGB 24 bit, 24bit depth format
FillChar(Self, SizeOf(Self), 0);
Format := ricfGray;
Depth := 1; // used bits per pixel
Width := AWidth;
Height := AHeight;
BitOrder := riboBitsInOrder;
ByteOrder := riboLSBFirst;
LineOrder := riloTopToBottom;
BitsPerPixel := 1; // bits per pixel. can be greater than Depth.
LineEnd := rileDWordBoundary;
RedPrec := 1; // grey precision
RedShift := 0;
GreenPrec := 0;
GreenShift := 0; // bitshift. Direction: from least to most significant
BluePrec := 0;
BlueShift:=0;
// AlphaPrec:=0;
// MaskBitsPerPixel:=0;
end;
procedure TRawImageDescription.Init_BPP16_R5G6B5(AWidth, AHeight: integer);
begin
// setup an artificial ScanLineImage with format RGB 24 bit, 24bit depth format